let testRSASignature () =
let kpub, kpriv = generateRSAKeysPair
let plaintext = "Lightspeed is too slow. We'll have to go right to ludicrous speed!"
let testRSASignature () =
let kpub, kpriv = generateRSAKeysPair
let plaintext = "Lightspeed is too slow. We'll have to go right to ludicrous speed!"
let signature = signRSA kpriv (sha256.ComputeHash (Encoding.UTF8.GetBytes plaintext))
assert verifySignRSA kpub (sha256.ComputeHash (Encoding.UTF8.GetBytes plaintext)) signature
assert not (verifySignRSA kpub (sha256.ComputeHash (Encoding.UTF8.GetBytes "Hello!")) signature)
let signature = signRSA kpriv (sha256.ComputeHash (Encoding.UTF8.GetBytes plaintext))
assert verifySignRSA kpub (sha256.ComputeHash (Encoding.UTF8.GetBytes plaintext)) signature
assert not (verifySignRSA kpub (sha256.ComputeHash (Encoding.UTF8.GetBytes "Hello!")) signature)