Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
Generate RSA Public/Private Key Pair and Export to PEMVBScript example code showing how to generate an RSA public/private key pair and export to PEM files. 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 MsgBox "RSA component unlock failed" WScript.Quit End If ' Generate a 1024-bit key. Chilkat RSA supports ' key sizes ranging from 512 bits to 4096 bits. success = rsa.GenerateKey(1024) If (success <> 1) Then MsgBox rsa.LastErrorText WScript.Quit End If ' Keys are exported in XML format: publicKeyXml = rsa.ExportPublicKey() outFile.WriteLine(publicKeyXml) privateKeyXml = rsa.ExportPrivateKey() outFile.WriteLine(privateKeyXml) ' Save the private key in PEM format: set privKey = CreateObject("Chilkat.PrivateKey") privKey.LoadXml privateKeyXml privKey.SaveRsaPemFile "privateKey.pem" ' Save the public key in PEM format: set pubKey = CreateObject("Chilkat.PublicKey") pubKey.LoadXml publicKeyXml pubKey.SaveOpenSslPemFile "publicKey.pem" outFile.Close |
Need a specific example? Send a request to support@chilkatsoft.com
© 2003-2007 Chilkat Software, Inc. All Rights Reserved.