![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Tcl) RSA Encrypt and Decrypt Credit Card NumbersTcl 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.) Note: This example requires Chilkat v11.0.0 or greater.
load ./chilkat.dll set success 0 # This example assumes the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set rsa [new_CkRsa] set privKey [new_CkPrivateKey] # Load an RSA private key from a file: set success [CkPrivateKey_LoadAnyFormatFile $privKey "rsaPrivateKey.key" ""] if {$success == 0} then { puts [CkPrivateKey_lastErrorText $privKey] delete_CkRsa $rsa delete_CkPrivateKey $privKey exit } # Get the public part of the private key. set pubKey [new_CkPublicKey] CkPrivateKey_ToPublicKey $privKey $pubKey set success [CkRsa_UsePublicKey $rsa $pubKey] if {$success == 0} then { puts [CkRsa_lastErrorText $rsa] delete_CkRsa $rsa delete_CkPrivateKey $privKey delete_CkPublicKey $pubKey exit } # Encrypt a VISA credit card number: # 1234-5678-0000-9999 set ccNumber "1234567800009999" set usePrivateKey 0 CkRsa_put_EncodingMode $rsa "base64" set encryptedStr [CkRsa_encryptStringENC $rsa $ccNumber $usePrivateKey] puts "Encrypted:" puts "$encryptedStr" # Now decrypt: set rsaDecryptor [new_CkRsa] CkRsa_put_EncodingMode $rsaDecryptor "base64" CkRsa_UsePrivateKey $rsaDecryptor $privKey set usePrivateKey 1 set decryptedStr [CkRsa_decryptStringENC $rsaDecryptor $encryptedStr $usePrivateKey] puts "Decrypted:" puts "$decryptedStr" # 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 delete_CkRsa $rsa delete_CkPrivateKey $privKey delete_CkPublicKey $pubKey delete_CkRsa $rsaDecryptor |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.