Dim Privatekey As Variant, Publickey As Variant
Dim PrivateKeyString As String
Dim PublicKeyString As String
...
Set ActiveCryptObject = newActiveCryptLib.RSACrypt
ActiveCryptObject.GenerateCouple 256, PrivateKey, PublicKey
...
PrivateKeyString = ActiveCryptObject.SaveKey (PrivateKey, "SecurePassword")
PublicKeyString = ActiveCryptObject.SaveKey (PublicKey)
ActiveCryptObject.FreeKey PrivateKey
ActiveCryptObject.FreeKey PublicKey
' We must save strings PrivateKeyString, PublicKeyString to some persistent storage ( for example: registry or database )
|