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 Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim pubKey As New Chilkat.PublicKey()

Dim success As Boolean

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

If (success <> true) Then
    TextBox1.Text = TextBox1.Text & pubKey.LastErrorText & vbCrLf
    Exit Sub
End If


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

Dim rsa As New Chilkat.Rsa()

'  Any string argument automatically begins the 30-day trial.

success = rsa.UnlockComponent("30-day trial")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & rsa.LastErrorText & vbCrLf
    Exit Sub
End If


'  Import the public key into the RSA component:
success = rsa.ImportPublicKey(pkeyXml)
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & rsa.LastErrorText & vbCrLf
    Exit Sub
End If


rsa.EncodingMode = "base64"

Dim strData As String
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
Dim base64Sig As String
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 = true) Then
    TextBox1.Text = TextBox1.Text & "Signature Verified!" & vbCrLf
Else
    TextBox1.Text = TextBox1.Text & "Signature not verified!" & vbCrLf
End If