Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) 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.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2") set crypt = CreateObject("Chilkat.Crypt2") ' Use "blowfish2" to get proper results: crypt.CryptAlgorithm = "blowfish2" ' CipherMode may be "ecb" or "cbc" crypt.CipherMode = "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. crypt.KeyLength = 256 ' Pad with NULL bytes (PHP pads with NULL bytes) crypt.PaddingScheme = 3 ' EncodingMode specifies the encoding of the output for ' encryption, and the input for decryption. ' It may be "hex", "url", "base64", or "quoted-printable". crypt.EncodingMode = "hex" ' The blowfish algorithm uses a 64-bit block size, ' therefore the IV must be 8 bytes: ivAscii = "12345678" crypt.SetEncodedIV ivAscii,"ascii" ' For 256-bit encryption, the key is 32 bytes: keyAscii = "1234567890123456ABCDEFGHIJKLMNOP" crypt.SetEncodedKey keyAscii,"ascii" plainText = "The quick brown fox jumped over the lazy dog" cipherText = crypt.EncryptStringENC(plainText) outFile.WriteLine(cipherText) ' Output should be (case insensitive): ' 276855ca6c0d60f7d9708210440c1072e05d078e733b34b4198d609dc2fcc2f0c30926cdef3b6d52baf6e345aa03f83e ' Do 128-bit Blowfish encryption: crypt.KeyLength = 128 keyAscii = "1234567890123456" crypt.SetEncodedKey keyAscii,"ascii" cipherText = crypt.EncryptStringENC(plainText) outFile.WriteLine(cipherText) ' Output should be (case insensitive): ' d2b5abb73208aea3790621d028afcc74d8dd65fb9ea8e666444a72523f5ecca60df79a424e2c714fa6efbafcc40bdca outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.