(DataFlex) Blowfish Encryption to Match PHP's Mcrypt Extension

Demonstrates 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCrypt
    String sIvAscii
    String sKeyAscii
    String sPlainText
    String sCipherText

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

    Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt
    If (Not(IsComObjectCreated(hoCrypt))) Begin
        Send CreateComObject of hoCrypt
    End

    // Use "blowfish2" to get proper results:
    Set ComCryptAlgorithm Of hoCrypt To "blowfish2"

    // CipherMode may be "ecb" or "cbc"
    Set ComCipherMode Of hoCrypt To "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.
    Set ComKeyLength Of hoCrypt To 256

    // Pad with NULL bytes (PHP pads with NULL bytes)
    Set ComPaddingScheme Of hoCrypt To 3

    // EncodingMode specifies the encoding of the output for
    // encryption, and the input for decryption.
    // It may be "hex", "url", "base64", or "quoted-printable".
    Set ComEncodingMode Of hoCrypt To "hex"

    // The blowfish algorithm uses a 64-bit block size, 
    // therefore the IV must be 8 bytes:
    Move "12345678" To sIvAscii
    Send ComSetEncodedIV To hoCrypt sIvAscii "ascii"

    // For 256-bit encryption, the key is 32 bytes:
    Move "1234567890123456ABCDEFGHIJKLMNOP" To sKeyAscii
    Send ComSetEncodedKey To hoCrypt sKeyAscii "ascii"

    Move "The quick brown fox jumped over the lazy dog" To sPlainText

    Get ComEncryptStringENC Of hoCrypt sPlainText To sCipherText
    Showln sCipherText
    // Output should be (case insensitive):
    // 276855ca6c0d60f7d9708210440c1072e05d078e733b34b4198d609dc2fcc2f0c30926cdef3b6d52baf6e345aa03f83e

    // Do 128-bit Blowfish encryption:
    Set ComKeyLength Of hoCrypt To 128
    Move "1234567890123456" To sKeyAscii
    Send ComSetEncodedKey To hoCrypt sKeyAscii "ascii"

    Get ComEncryptStringENC Of hoCrypt sPlainText To sCipherText
    Showln sCipherText
    // Output should be (case insensitive):
    // d2b5abb73208aea3790621d028afcc74d8dd65fb9ea8e666444a72523f5ecca60df79a424e2c714fa6efbafcc40bdca


End_Procedure