VBScript

Load an Encrypted Private Key from PEM Text

Demonstrates the Chilkat PrivateKey.LoadEncryptedPem method, which loads a private key from PEM text, using a password when the PEM is encrypted. The first argument is the PEM string and the second is the password. Unencrypted PEM is also accepted.

Background: An encrypted PEM protects the key material at rest — a stolen file is useless without the passphrase — which is why encrypted keys are preferred for anything shipped or stored. This loader supplies that passphrase to decrypt a BEGIN ENCRYPTED PRIVATE KEY block (and gracefully handles unencrypted PEM too), so it is a safe default when a PEM might be either. The password should come from a secure source, never a hard-coded literal.

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.LoadEncryptedPem method, which loads a private key from PEM text.
'  The 1st argument is the PEM string and the 2nd is the password (used when the PEM is
'  encrypted).  Unencrypted PEM is also accepted.

set privKey = CreateObject("Chilkat.PrivateKey")

'  The PEM text of an encrypted private key.
pemText = "-----BEGIN ENCRYPTED PRIVATE KEY-----" & vbLf & "MIIFHzBJ..." & vbLf & "-----END ENCRYPTED PRIVATE KEY-----"

'  The key password is not hard-coded in a real application; obtain it from an interactive
'  prompt, environment variable, or a secrets vault.
password = "myKeyPassword"

success = privKey.LoadEncryptedPem(pemText,password)
If (success = 0) Then
    outFile.WriteLine(privKey.LastErrorText)
    WScript.Quit
End If

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

outFile.Close