(AutoIt) RSA Encrypt Randomly Generated AES Key

Demonstrates how to RSA encrypt a randomly generated AES key.

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.

; First generate a 256-bit AES key (32 bytes).
$oPrng = ObjCreate("Chilkat.Prng")
$oBdAesKey = ObjCreate("Chilkat.BinData")
Local $bSuccess = $oPrng.GenRandomBd(32,$oBdAesKey)

; Use a public key from a certificate for RSA encryption.
$oCert = ObjCreate("Chilkat.Cert")

$bSuccess = $oCert.LoadFromFile("qa_data/pem/mf_public_rsa.pem")
If ($bSuccess = False) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

Local $oPubKey = $oCert.ExportPublicKey()
If ($oCert.LastMethodSuccess <> True) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

$oRsa = ObjCreate("Chilkat.Rsa")
$bSuccess = $oRsa.ImportPublicKeyObj($oPubKey)
If ($bSuccess = False) Then
    ConsoleWrite($oRsa.LastErrorText & @CRLF)
    Exit
EndIf

; RSA encrypt our 32-byte AES key.
; The contents of bdAesKey are replaced with result of the RSA encryption.
$bSuccess = $oRsa.EncryptBd($oBdAesKey,False)
If ($bSuccess = False) Then
    ConsoleWrite($oRsa.LastErrorText & @CRLF)
    Exit
EndIf

; Return the result as a base64 string
Local $sEncryptedAesKey = $oBdAesKey.GetEncoded("base64")

ConsoleWrite("encrypted AES key = " & $sEncryptedAesKey & @CRLF)