Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VBScript) Get ECC Public Key from ECC Private KeyDemonstrates how to get an ECC public key from an ECC private key.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' We have an ECC private key... ' The contents of the private key PEM file look like this: ' -----BEGIN PRIVATE KEY----- ' MIGHAgEAMBMGByqGSM49AgEGCCqGSM49AwEHBG0wawIBAQQg3J8q/24D1sEKGdP9 ' 72MGYElLGpw/a56Y3t6pfON3uhShRANCAATlSmoizyhAwoYZAOuFBATl07/1RR54 ' a1Dzfm16grxJe666AGKR+bSs24hk7TEpaeCTvT8YOOM3l+xKFg7zq6Q9 ' -----END PRIVATE KEY----- ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PrivateKey") set privKey = CreateObject("Chilkat.PrivateKey") success = privKey.LoadPemFile("qa_data/ecc/secp256r1-key-pkcs8.pem") If (success <> 1) Then outFile.WriteLine(privKey.LastErrorText) WScript.Quit End If ' Get the public key. ' pubKey is a Chilkat.PublicKey Set pubKey = privKey.GetPublicKey() If (privKey.LastMethodSuccess <> 1) Then outFile.WriteLine(privKey.LastErrorText) WScript.Quit End If ' Save the public key to a PEM file. success = pubKey.SavePemFile(0,"qa_data/ecc/secp256r1-pubkey.pem") If (success <> 1) Then outFile.WriteLine(pubKey.LastErrorText) WScript.Quit End If ' The contents of the ECC public key PEM file look like this: ' -----BEGIN PUBLIC KEY----- ' MIIBSzCCAQMGByqGSM49AgEwgfcCAQEwLAYHKoZIzj0BAQIhAP////8AAAABAAAA ' AAAAAAAAAAAA////////////////MFsEIP////8AAAABAAAAAAAAAAAAAAAA//// ' ///////////8BCBaxjXYqjqT57PrvVV2mIa8ZR0GsMxTsPY7zjw+J9JgSwMVAMSd ' NgiG5wSTamZ44ROdJreBn36QBEEEaxfR8uEsQkf4vOblY6RA8ncDfYEt6zOg9KE5 ' RdiYwpZP40Li/hp/m47n60p8D54WK84zV2sxXs7LtkBoN79R9QIhAP////8AAAAA ' //////////+85vqtpxeehPO5ysL8YyVRAgEBA0IABOVKaiLPKEDChhkA64UEBOXT ' v/VFHnhrUPN+bXqCvEl7rroAYpH5tKzbiGTtMSlp4JO9Pxg44zeX7EoWDvOrpD0= ' -----END PUBLIC KEY----- outFile.WriteLine("Success.") outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.