(VBScript) RSA Import Private Key
Shows how to select/import a private key for RSA signing or decryption.
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PrivateKey")
set privKey = CreateObject("Chilkat.PrivateKey")
password = "secret"
' In all Chilkat methods expecting a path, you pass either absolute or relative paths.
success = privKey.LoadAnyFormatFile("rsaKeys/myTestRsaPrivate.pem",password)
If (success = 0) Then
outFile.WriteLine(privKey.LastErrorText)
WScript.Quit
End If
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rsa")
set rsa = CreateObject("Chilkat.Rsa")
' Tell the RSA object to use the private key (i.e. import the private key)
success = rsa.ImportPrivateKeyObj(privKey)
outFile.Close
|