VBScript

Load a Private Key from a PKCS #1 File

Demonstrates the Chilkat PrivateKey.LoadPkcs1File method, which loads a private key from a file. The only argument is the file path. Despite the historical PKCS #1 name, it accepts any supported unencrypted private-key representation.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own key file.

Background: PKCS #1 is the older, RSA-specific key format — the BEGIN RSA PRIVATE KEY block still common from OpenSSL. This method reads it, and like the other content-inspecting loaders it also accepts other unencrypted representations, so it is forgiving of what is actually in the file. For unknown or mixed formats, prefer LoadAnyFormatFile.

Chilkat VBScript Downloads

Download Chilkat for VBScript

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

'  Demonstrates the PrivateKey.LoadPkcs1File method, which loads a private key from a file.  The
'  only argument is the file path.  Despite the historical PKCS #1 name, it accepts any supported
'  unencrypted private-key representation.

set privKey = CreateObject("Chilkat.PrivateKey")

success = privKey.LoadPkcs1File("qa_data/private_pkcs1.pem")
If (success = 0) Then
    outFile.WriteLine(privKey.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Loaded a " & privKey.KeyType & " private key.")

outFile.Close