Contents

module SimpleCipher

open System

let letters = ['a'..'z']
let keyLength = 100

let random = System.Random()

let isInvalidKey key = Seq.length key = 0 || not (Seq.forall (fun c -> List.contains c letters) key)

let generateKey() = 
    let numberOfLetters = letters |> List.length
    let randomLetters = Array.init keyLength (fun _ -> List.item (random.Next(numberOfLetters)) letters)

    new String(randomLetters)

let modulo x y = ((x % y) + y) % y

let charToInt (c:char) = (int c) - (int 'a')
let intToChar (i:int) = (char)((int 'a') + (modulo i 26))

let shiftChar operation key char = operation (charToInt char) (charToInt key) |> intToChar

let shift operation (key:string) (input:string) =     
    if isInvalidKey key then failwith "Invalid key"
    else new String(Seq.map2 (shiftChar operation) key input |> Seq.toArray)
        
let encode key input = shift (+) key input   
let decode key input = shift (-) key input
    
let encodeRandom input = 
    let key = generateKey()
    (key, encode key input)

Version data entries

383 entries across 383 versions & 1 rubygems

Version	Path
trackler-2.2.1.85	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.84	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.83	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.82	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.81	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.80	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.79	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.78	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.77	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.76	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.75	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.74	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.73	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.72	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.71	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.70	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.69	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.68	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.67	tracks/fsharp/exercises/simple-cipher/Example.fs
trackler-2.2.1.66	tracks/fsharp/exercises/simple-cipher/Example.fs