Load PEM Public/Private Key into RSA Object

Demonstrates how to load a PEM key into the Chilkat RSA object.

Download 32-bit Chilkat RSA ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set rsa = CreateObject("Chilkat.Rsa")

success = rsa.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    outFile.WriteLine(rsa.LastErrorText)
    WScript.Quit
End If

'  First demonstrate importing a PEM public key:
publicKeyPem = "PEM public-key data goes here"
set pubkey = CreateObject("Chilkat.PublicKey")

success = pubkey.LoadOpenSslPem(publicKeyPem)
If (success <> 1) Then
    outFile.WriteLine(pubkey.LastErrorText)
    WScript.Quit
End If

publicKeyXml = pubkey.GetXml()

success = rsa.ImportPublicKey(publicKeyXml)
If (success <> 1) Then
    outFile.WriteLine(rsa.LastErrorText)
    WScript.Quit
End If

'  Demonstrate importing a PEM private key:
privateKeyPem = "PEM private-key data goes here"
set privkey = CreateObject("Chilkat.PrivateKey")

'  If the private key PEM is protected with a password, then
'  call LoadEncryptedPem.  Otherwise call LoadPem.
success = privkey.LoadPem(privateKeyPem)
If (success <> 1) Then
    outFile.WriteLine(privkey.LastErrorText)
    WScript.Quit
End If

privateKeyXml = privkey.GetXml()
success = rsa.ImportPrivateKey(privateKeyXml)
If (success <> 1) Then
    outFile.WriteLine(rsa.LastErrorText)
    WScript.Quit
End If

MsgBox "OK!"

outFile.Close