(AutoIt) RSA Sign Binary Data and Verify (Recover the Original Data)

Demonstrates how to RSA sign binary data and then verify/recover the original data.

Note: This example uses methods introduced in Chilkat v9.5.0.77.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

; Load an RSA private key for signing.
$oPrivKey = ObjCreate("Chilkat.PrivateKey")
Local $bSuccess = $oPrivKey.LoadEncryptedPemFile("qa_data/pem/rsa_passwd.pem","passwd")
If ($bSuccess <> True) Then
    ConsoleWrite($oPrivKey.LastErrorText & @CRLF)
    Exit
EndIf

$oRsa = ObjCreate("Chilkat.Rsa")
$oRsa.ImportPrivateKeyObj($oPrivKey)

; We have some binary data (in hex) to sign
Local $sOriginalData = "0102030405060708090A"
$oBd = ObjCreate("Chilkat.BinData")
$oBd.AppendEncoded($sOriginalData,"hex")

; If successful, the contents of bd are replaced with the RSA signature.
$bSuccess = $oRsa.OpenSslSignBd($oBd)
If ($bSuccess <> True) Then
    ConsoleWrite($oRsa.LastErrorText & @CRLF)
    Exit
EndIf

; Show the RSA signature in base64
ConsoleWrite($oBd.GetEncoded("base64") & @CRLF)

; ------------------------------------------
; Get the public key from the private key
Local $oPubKey = $oPrivKey.GetPublicKey()

; Verify the signature and extract the original data.
$oRsa2 = ObjCreate("Chilkat.Rsa")
$oRsa2.ImportPublicKeyObj($oPubKey)

Local $bVerified = $oRsa2.OpenSslVerifyBd($oBd)
ConsoleWrite("signature verified: " & $bVerified & @CRLF)

; Show the original data:
ConsoleWrite("original data: " & $oBd.GetEncoded("hex") & @CRLF)