VBScript

Load PEM Public/Private Key into RSA Object

See more RSA Examples

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set rsa = CreateObject("Chilkat.Rsa")

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

success = pubkey.LoadFromString(publicKeyPem)
If (success = 0) Then
    outFile.WriteLine(pubkey.LastErrorText)
    WScript.Quit
End If

success = rsa.UsePublicKey(pubkey)
If (success = 0) 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 = 0) Then
    outFile.WriteLine(privkey.LastErrorText)
    WScript.Quit
End If

success = rsa.UsePrivateKey(privkey)
If (success = 0) Then
    outFile.WriteLine(rsa.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("OK!")

outFile.Close