Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Tcl) Blowfish Encryption to Match PHP's Mcrypt ExtensionDemonstrates how to match Blowfish encryption results with PHP's mcrypt extension. Please refer to this PHP (non-Chilkat) example for PHP Blowfish Encryption. The code here matches the PHP mcrypt results on that web page.
load ./chilkat.dll set crypt [new_CkCrypt2] set success [CkCrypt2_UnlockComponent $crypt "Anything for 30-day trial"] if {[expr $success != 1]} then { puts [CkCrypt2_lastErrorText $crypt] delete_CkCrypt2 $crypt exit } # Use "blowfish2" to get proper results: CkCrypt2_put_CryptAlgorithm $crypt "blowfish2" # CipherMode may be "ecb" or "cbc" CkCrypt2_put_CipherMode $crypt "cbc" # KeyLength (in bits) may be a number between 32 and 448. # 128-bits is usually sufficient. The KeyLength must be a # multiple of 8. CkCrypt2_put_KeyLength $crypt 256 # Pad with NULL bytes (PHP pads with NULL bytes) CkCrypt2_put_PaddingScheme $crypt 3 # EncodingMode specifies the encoding of the output for # encryption, and the input for decryption. # It may be "hex", "url", "base64", or "quoted-printable". CkCrypt2_put_EncodingMode $crypt "hex" # The blowfish algorithm uses a 64-bit block size, # therefore the IV must be 8 bytes: set ivAscii "12345678" CkCrypt2_SetEncodedIV $crypt $ivAscii "ascii" # For 256-bit encryption, the key is 32 bytes: set keyAscii "1234567890123456ABCDEFGHIJKLMNOP" CkCrypt2_SetEncodedKey $crypt $keyAscii "ascii" set plainText "The quick brown fox jumped over the lazy dog" set cipherText [CkCrypt2_encryptStringENC $crypt $plainText] puts "$cipherText" # Output should be (case insensitive): # 276855ca6c0d60f7d9708210440c1072e05d078e733b34b4198d609dc2fcc2f0c30926cdef3b6d52baf6e345aa03f83e # Do 128-bit Blowfish encryption: CkCrypt2_put_KeyLength $crypt 128 set keyAscii "1234567890123456" CkCrypt2_SetEncodedKey $crypt $keyAscii "ascii" set cipherText [CkCrypt2_encryptStringENC $crypt $plainText] puts "$cipherText" # Output should be (case insensitive): # d2b5abb73208aea3790621d028afcc74d8dd65fb9ea8e666444a72523f5ecca60df79a424e2c714fa6efbafcc40bdca0 delete_CkCrypt2 $crypt |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.