Verify Java Signature

Demonstrates how to verify a digital signature produced by Java.
The Java code that produces a digital signature that can be verified with
this Chilkat example is found at: http://www.cknotes.com/?p=283

Download 32-bit Chilkat RSA ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set pubKey = CreateObject("Chilkat.PublicKey")

'  Load an RSA public key from an ASN.1 DER file
success = pubKey.LoadRsaDerFile("pubKey.der")

If (success <> 1) Then
    outFile.WriteLine(pubKey.LastErrorText)
    WScript.Quit
End If

'  Get the public key in XML format:
pkeyXml = pubKey.GetXml()

set rsa = CreateObject("Chilkat.Rsa")

'  Any string argument automatically begins the 30-day trial.
success = rsa.UnlockComponent("30-day trial")
If (success <> 1) Then
    outFile.WriteLine(rsa.LastErrorText)
    WScript.Quit
End If

'  Import the public key into the RSA component:
success = rsa.ImportPublicKey(pkeyXml)
If (success <> 1) Then
    outFile.WriteLine(rsa.LastErrorText)
    WScript.Quit
End If

rsa.EncodingMode = "base64"

strData = "The quick brown fox jumps over the lazy dog"

'  IMPORTANT:  This Base64 signature will have to be updated
'  with the digital signature produced by the Java code at:
'  http://www.cknotes.com/?p=283
base64Sig = "VGV5A+bodHBpBwwJZdf17Bv+lkBTm/gteOf8iCgEEfNzBosZLaAB8X55BIZIkE2zKRXoMcJT+iCxsj+1hnlwJeKZ+Gya58lrHw6NWm2N0O/KyfnuEzADOM86X0xrkgdFT6SYpbZ9dWPC59NiHeEdVyjOXNJ3fBpUSQ5/5pvVWm0="

'  Verify the signature produced by the Java code at:
'  http://www.cknotes.com/?p=283
'  The VerifyStringENC method hashes the input data and verifies
'  the hash against the signature.
success = rsa.VerifyStringENC(strData,"sha-1",base64Sig)
'  Is the signature verified?
If (success = 1) Then
    outFile.WriteLine("Signature Verified!")
Else
    outFile.WriteLine("Signature not verified!")
End If


outFile.Close