let decryptedData = decryptRSA kpriv cipherdata
let decryptedText = Encoding.UTF8.GetString decryptedData
let decryptedData = decryptRSA kpriv cipherdata
let decryptedText = Encoding.UTF8.GetString decryptedData
assert (plaintext = decryptedText)
printfn "testRSA OK"
let testRSASignature () =
let kpub, kpriv = generateRSAKeysPair
assert (plaintext = decryptedText)
printfn "testRSA OK"
let testRSASignature () =
let kpub, kpriv = generateRSAKeysPair
let sha256 = new SHA256Managed ()
let signature = signRSA kpriv (sha256.ComputeHash (Encoding.UTF8.GetBytes plaintext))
assert verifySignRSA kpub (sha256.ComputeHash (Encoding.UTF8.GetBytes plaintext)) signature
let sha256 = new SHA256Managed ()
let signature = signRSA kpriv (sha256.ComputeHash (Encoding.UTF8.GetBytes plaintext))
assert verifySignRSA kpub (sha256.ComputeHash (Encoding.UTF8.GetBytes plaintext)) signature
- let output = new MemoryStream ()
- let sr = new StreamReader (output)
- let key = Crypto.rand 32
+ let memory = new MemoryStream ()
+ let key = Crypto.rand 16