AutoIt

RSA Encrypt and Decrypt Credit Card Numbers

See more RSA Examples

_LANGUAGE_ 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.) AutoIt

Local $bSuccess = False

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

$oRsa = ObjCreate("Chilkat.Rsa")

$oPrivKey = ObjCreate("Chilkat.PrivateKey")

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

; Get the public part of the private key.
$oPubKey = ObjCreate("Chilkat.PublicKey")
$oPrivKey.ToPublicKey($oPubKey)

$bSuccess = $oRsa.UsePublicKey($oPubKey)
If ($bSuccess = False) 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"
$oRsaDecryptor.UsePrivateKey($oPrivKey)

$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