2010-12-08 Generate machine keys with F#

2010-12-08 generate-machine-keys-with-f

# Title: Generate machine keys with F#
# Author: Mikael Lundin
# Link: http://blog.mikaellundin.name/2010/12/08/generate-machine-keys-with-fsharp.html

example.fs

type MachineKey = { sha1 : string; aes : string; _3des : string }
let machineKey = { sha1 = (gen 128); aes = (gen 64); _3des = (gen 48) } 
 
printfn "<machineKey validationKey=\"%s\" decryptionKey=\"%s\" validation=\"SHA1\" decryption=\"AES\" />"
    machineKey.sha1
    machineKey.aes

generate.fs

let gen len =
    let provider = new System.Security.Cryptography.RNGCryptoServiceProvider()
    let out : byte array = Array.zeroCreate (len / 2)
    provider.GetBytes(out)
    out |> Seq.map (fun b -> System.String.Format("{0:X2}", b)) |> System.String.Concat

result.xml

<machineKey
 validationKey="E2063661CB8652441A7B687309A5F688C95CFC71513334CBE4CE8AE7F73404C468B784EA7A1BFDECD514572D4330383879A4AE418119B65C9755A30D0208FC8A"
 decryptionKey="1047AF920BE7770803DF9ECBDC1FDB73F3AF0C8D9F71C1C8E0D7B8260AFE607D"
 validation="SHA1"
 decryption="AES" />