mirror/XOREncryption
1
0
Fork 0
mirror of https://github.com/KyleBanks/XOREncryption.git synced 2023-08-10 21:13:15 +03:00
Code Issues Projects Releases Wiki Activity

F# impl

Browse Source
This commit is contained in:
Paweł Iżycki 2015-06-23 13:34:47 +02:00
parent 8cdc7c574d
commit 5bd51c69ae
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

1
README.md
View File

@ -12,6 +12,7 @@ Simple implementation of XOR Encryption/Decrypting in various languages, includi
- [JavaScript](JavaScript/XOREncryption.js) - [JavaScript](JavaScript/XOREncryption.js)
- [Objective-C](Objective-C/main.m) - [Objective-C](Objective-C/main.m)
- [Python](Python/XOREncryption.py) - [Python](Python/XOREncryption.py)
- [F#](fsharp/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. 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.