(AutoIt) RSA Encrypt and Decrypt Credit Card Numbers

AutoIt sample code to RSA public-key encrypt and decrypt credit card numbers. The RSA key is loaded from an unencrypted PKCS8 file. Chilkat provides many ways of setting the key -- loading from both encrypted and unencrypted PEM, PKCS8, DER, PVK, etc. Keys may be loaded from files or in-memory representations. (The RSA component also provides the ability to generate RSA 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")

$oKey = ObjCreate("Chilkat.PrivateKey")

; Load an RSA private key from a file:
Local $bSuccess = $oKey.LoadAnyFormatFile("rsaPrivateKey.key","")
If ($bSuccess <> True) Then
    ConsoleWrite($oKey.LastErrorText & @CRLF)
    Exit
EndIf

; Get the key as XML:
Local $sKeyXml
$sKeyXml = $oKey.GetXml()

; We'll encrypt with the public key and decrypt with the private
; key.  (It's also possible to do the reverse.)
; Note: An RSA private key is composed of different parts internally: modulus, exponent, P, Q, etc.
; An RSA public-key is a sub-set of the private key.
; Therefore, when you have a private key, you really have
; both public and private keys.
$bSuccess = $oRsa.ImportPublicKey($sKeyXml)
If ($bSuccess <> True) Then
    ConsoleWrite($oRsa.LastErrorText & @CRLF)
    Exit
EndIf

; Encrypt a VISA credit card number:
; 1234-5678-0000-9999
Local $sCcNumber = "1234567800009999"

Local $bUsePrivateKey = False
$oRsa.EncodingMode = "base64"
Local $sEncryptedStr = $oRsa.EncryptStringENC($sCcNumber,$bUsePrivateKey)
ConsoleWrite("Encrypted:" & @CRLF)
ConsoleWrite($sEncryptedStr & @CRLF)

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

$oRsaDecryptor.EncodingMode = "base64"
$bSuccess = $oRsaDecryptor.ImportPrivateKey($sKeyXml)

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

ConsoleWrite("Decrypted:" & @CRLF)
ConsoleWrite($sDecryptedStr & @CRLF)

; Important: RSA encryption should only be used to encrypt small amounts of data.
; It is typically used for encrypting symmetric encryption
; keys such that a symmetric encryption algorithm, such as 
; AES is then used to encrypt/decrypt bulk data