Skip to content

Instantly share code, notes, and snippets.

View evilz's full-sized avatar
🏠
F# F# F#

Vincent B. evilz

🏠
F# F# F#
View GitHub Profile
@evilz
evilz / .evilz.omp.json
Last active January 18, 2022 19:28
oh my posh theme
{
"final_space": true,
"osc99": false,
"console_title": false,
"console_title_style": "",
"console_title_template": "",
"blocks": [
{
"type": "prompt",
"alignment": "left",
@evilz
evilz / ArrayDeconstructionExtensions.cs
Created February 25, 2021 08:53 — forked from waf/ArrayDeconstructionExtensions.cs
Add deconstruction (i.e. destructuring) syntax support for arrays for C# 7
using System;
using System.Linq;
namespace Extensions
{
/// <summary>
/// Allow the up to the first eight elements of an array to take part in C# 7's destructuring syntax.
/// </summary>
/// <example>
/// (int first, _, int middle, _, int[] rest) = new[] { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 };
#r "nuget:FsPickler"
#r "nuget:FsPickler.Json"
#r "nuget:FSharp.Quotations.Evaluator"
open MBrace.FsPickler
open MBrace.FsPickler.Json
open FSharp.Quotations
open FSharp.Quotations.Evaluator
open System.IO
open System.Text
#r "nuget:SwaggerProvider"
#r "nuget:TaskBuilder.fs"
module Domain =
type Region = { Name:string; Population:int }
module Infra =
open System
open System.Threading
open System.Threading.Tasks
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@evilz
evilz / ctf-secu-vpgrp-net
Last active May 18, 2020 13:12
Security challenge from Veepee
# Security Challenge of Veepee (14-05-2020)
## SQL injection
- test injection
1 or 1=2
1 or 1=1
also error tell that this is MySql
module BasicCanvas
open Fable.Core
open Fable.Core.JsInterop
open Browser.Types
open Browser
let dotRadius = 10.
let NUMBER_OF_PEOPLE = 100
let Speed = 50.
@evilz
evilz / install-windows-updates.ps1
Created August 5, 2019 13:30
Force install all windows update
net stop wuauserv
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v UseWUServer /t Reg_DWORD /d 0 /f
net start wuauserv
Install-PackageProvider -Name NuGet -MinimumVersion 2.8.5.201 -Force
Set-PSRepository -Name PSGallery -InstallationPolicy Trusted
Install-Module PSWindowsUpdate -Repository PSGallery -Force
Get-WindowsUpdate -AcceptAll -Install -MicrosoftUpdate
// The form
let form = new Form(Visible = true, Text = "Data grid #1",
TopMost = true, Size = Drawing.Size(600,600))
// The grid
let data = new DataGridView(Dock = DockStyle.Fill, Text = "Data grid",
Font = new Drawing.Font("Lucida Console", 10.0f),
ForeColor = Drawing.Color.DarkBlue)
form.Controls.Add(data)
@evilz
evilz / dummy.fs
Created May 20, 2019 09:17
fsharp test
let loop =
[0..100] |> List.iter (fun x -> printfn "%i" x)
loop()