VBScript

Verfies an RSA Signature

See more Apple Keychain Examples

Verifies an RSA signature against the original data. 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

' The following data was signed by the following example:
' RSA Sign using a Private Key on a USB Token or Smartcard
set bd = CreateObject("Chilkat.BinData")

For i = 0 To 100
    success = bd.AppendEncoded("000102030405060708090A0B0C0D0E0F","hex")
Next

' Load the signature
set bdSig = CreateObject("Chilkat.BinData")
success = bdSig.LoadFile("rsaSignatures/test1.sig")
If (success = 0) Then
    outFile.WriteLine("Failed to load the RSA signature")
    WScript.Quit
End If

' Get the public key to be used for signature verification.
set pubKey = CreateObject("Chilkat.PublicKey")
success = pubKey.LoadFromFile("rsaKeys/chilkat-rsa-2048.pem")
If (success = 0) Then
    outFile.WriteLine(pubKey.LastErrorText)
    WScript.Quit
End If

set rsa = CreateObject("Chilkat.Rsa")
success = rsa.UsePublicKey(pubKey)
If (success = 0) Then
    outFile.WriteLine(rsa.LastErrorText)
    WScript.Quit
End If

' Verify the hash of the data against the signature.
' We pass in the original data.  Internally, the hash is generated
' and used to validate the signature.
' Validating the RSA signature means two things:  
' (1) the original data is exactly what was signed, and 
' (2) it was signed by the owner of the RSA private key.
success = rsa.VerifyBd(bd,"sha256",bdSig)

If (success = 0) Then
    outFile.WriteLine(rsa.LastErrorText)
    outFile.WriteLine("Signature invalid.")
Else
    outFile.WriteLine("Signature valid.")
End If


outFile.Close