(AutoIt) RSA Encrypt and Decrypt Strings

AutoIt sample code to RSA public-key encrypt and decrypt strings using public and private keys.

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

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

$oRsa = ObjCreate("Chilkat.Rsa")

; This example also generates the public and private
; keys to be used in the RSA encryption.
; Normally, you would generate a key pair once,
; and distribute the public key to your partner.
; Anything encrypted with the public key can be
; decrypted with the private key.  The reverse is 
; also true: anything encrypted using the private
; key can be decrypted using the public key.

; Generate a 1024-bit key.  Chilkat RSA supports
; key sizes ranging from 512 bits to 4096 bits.
Local $bSuccess = $oRsa.GenerateKey(1024)
If ($bSuccess <> True) Then
    ConsoleWrite($oRsa.LastErrorText & @CRLF)
    Exit
EndIf

; Keys are exported in XML format:
Local $sPublicKey = $oRsa.ExportPublicKey()
Local $sPrivateKey = $oRsa.ExportPrivateKey()

Local $sPlainText = "Encrypting and decrypting should be easy!"

; Start with a new RSA object to demonstrate that all we
; need are the keys previously exported:
$oRsaEncryptor = ObjCreate("Chilkat.Rsa")

; Encrypted output is always binary.  In this case, we want
; to encode the encrypted bytes in a printable string.
; Our choices are "hex", "base64", "url", "quoted-printable".
$oRsaEncryptor.EncodingMode = "hex"

; We'll encrypt with the public key and decrypt with the private
; key.  It's also possible to do the reverse.
$bSuccess = $oRsaEncryptor.ImportPublicKey($sPublicKey)

Local $bUsePrivateKey = False
Local $sEncryptedStr = $oRsaEncryptor.EncryptStringENC($sPlainText,$bUsePrivateKey)
ConsoleWrite($sEncryptedStr & @CRLF)

; Now decrypt:
$oRsaDecryptor = ObjCreate("Chilkat.Rsa")

$oRsaDecryptor.EncodingMode = "hex"
$bSuccess = $oRsaDecryptor.ImportPrivateKey($sPrivateKey)

$bUsePrivateKey = True
Local $sDecryptedStr = $oRsaDecryptor.DecryptStringENC($sEncryptedStr,$bUsePrivateKey)

ConsoleWrite($sDecryptedStr & @CRLF)