PureBasic

Blowfish Encryption to Match PHP's Mcrypt Extension

See more Encryption Examples

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.

PureBasic

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

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

    crypt.i = CkCrypt2::ckCreate()
    If crypt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Use "blowfish2" to get proper results:
    CkCrypt2::setCkCryptAlgorithm(crypt, "blowfish2")

    ; CipherMode may be "ecb" or "cbc"
    CkCrypt2::setCkCipherMode(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::setCkKeyLength(crypt, 256)

    ; Pad with NULL bytes (PHP pads with NULL bytes)
    CkCrypt2::setCkPaddingScheme(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::setCkEncodingMode(crypt, "hex")

    ; The blowfish algorithm uses a 64-bit block size, 
    ; therefore the IV must be 8 bytes:
    ivAscii.s = "12345678"
    CkCrypt2::ckSetEncodedIV(crypt,ivAscii,"ascii")

    ; For 256-bit encryption, the key is 32 bytes:
    keyAscii.s = "1234567890123456ABCDEFGHIJKLMNOP"
    CkCrypt2::ckSetEncodedKey(crypt,keyAscii,"ascii")

    plainText.s
    plainText = "The quick brown fox jumped over the lazy dog"

    cipherText.s = CkCrypt2::ckEncryptStringENC(crypt,plainText)
    Debug cipherText
    ; Output should be (case insensitive):
    ; 276855ca6c0d60f7d9708210440c1072e05d078e733b34b4198d609dc2fcc2f0c30926cdef3b6d52baf6e345aa03f83e

    ; Do 128-bit Blowfish encryption:
    CkCrypt2::setCkKeyLength(crypt, 128)
    keyAscii = "1234567890123456"
    CkCrypt2::ckSetEncodedKey(crypt,keyAscii,"ascii")

    cipherText = CkCrypt2::ckEncryptStringENC(crypt,plainText)
    Debug cipherText
    ; Output should be (case insensitive):
    ; d2b5abb73208aea3790621d028afcc74d8dd65fb9ea8e666444a72523f5ecca60df79a424e2c714fa6efbafcc40bdca


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure