Merge pull request KyleBanks#3 from pawelizycki/master

KyleBanks · KyleBanks · commit b715c566b5df · 2015-06-23T09:11:53.000-04:00
F# implementation
diff --git a/F#/Program.fs b/F#/Program.fs
@@ -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
diff --git a/README.md b/README.md
@@ -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.
 
