Merge pull request #3 from pawelizycki/master

F# implementation
This commit is contained in:
Kyle Banks 2015-06-23 09:11:53 -04:00
commit b715c566b5
2 changed files with 16 additions and 0 deletions

15
F#/Program.fs Normal file
View File

@ -0,0 +1,15 @@
open System
let encrypt (word : string) =
let key = "KCQ"
[ 0..(word.Length - 1) ]
|> Seq.map (fun idx -> Convert.ToChar(Convert.ToInt32 word.[idx] ^^^ Convert.ToInt32 key.[idx % key.Length]))
|> String.Concat
[<EntryPoint>]
let main argv =
let encrypted = encrypt "IzzyDev"
printfn "Encrypted: %s" encrypted
let decrypted = encrypt encrypted
printfn "Decrypted: %s" decrypted
0

View File

@ -12,6 +12,7 @@ Simple implementation of XOR Encryption/Decrypting in various languages, includi
- [JavaScript](JavaScript/XOREncryption.js)
- [Objective-C](Objective-C/main.m)
- [Python](Python/XOREncryption.py)
- [F#](F%23/Program.fs)
This implementation goes beyond the basic single-key model to use multiple keys in a particular sequence, making it that much more difficult to brute-force.