![]() |
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) RSA Signature with Certificate's Private Key from PFXSee more RSA ExamplesDemonstrates how to use a certificate's private key from a PFX file to create an RSA signature.Note: This example requires Chilkat v11.0.0 or greater.
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 requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Create an instance of a certificate store object, load a PFX file, ' locate the certificate we need, and use it for signing. ' (a PFX file may contain more than one certificate.) set certStore = CreateObject("Chilkat.CertStore") ' The 1st argument is the filename, the 2nd arg is the ' PFX file's password: success = certStore.LoadPfxFile("chilkat.pfx","test") If (success = 0) Then outFile.WriteLine(certStore.LastErrorText) WScript.Quit End If ' Find the certificate by the subject common name: set jsonCN = CreateObject("Chilkat.JsonObject") success = jsonCN.UpdateString("CN","cert common name") set cert = CreateObject("Chilkat.Cert") success = certStore.FindCert(jsonCN,cert) If (success = 0) Then outFile.WriteLine(certStore.LastErrorText) WScript.Quit End If set privKey = CreateObject("Chilkat.PrivateKey") success = cert.GetPrivateKey(privKey) If (success = 0) Then outFile.WriteLine(cert.LastErrorText) WScript.Quit End If set rsa = CreateObject("Chilkat.Rsa") success = rsa.UsePrivateKey(privKey) If (success = 0) Then outFile.WriteLine(rsa.LastErrorText) WScript.Quit End If ' Encode the signature as a hex string rsa.EncodingMode = "hex" strData = "This is the string to be signed." ' Sign the string using the sha-1 hash algorithm. ' Other valid choices are "sha-256", "md2" and "md5". hexSig = rsa.SignStringENC(strData,"sha-1") outFile.WriteLine(hexSig) outFile.WriteLine("Success!") outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.