DataFlex

PBES1 Password-Based Encryption (PBE)

See more Encryption Examples

Demonstrates how to implement password-based encryption according to the PKCS #5 v2.0: Password-Based Cryptography Standard (published by RSA Laboratories). This example uses PBES1, which ise based on the PBKDF1 function and an underlying block cipher such as RC2, DES, etc. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCrypt
    String sPlainText
    String sEncryptedText
    String sDecryptedText

    // 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

    // Set properties for PBES1 encryption:

    Set ComCryptAlgorithm Of hoCrypt To "pbes1"
    Set ComPbesPassword Of hoCrypt To "mySecretPassword"

    // Set the underlying PBE algorithm (and key length):
    // For PBES1, the underlying algorithm must be either
    // 56-bit DES or 64-bit RC2 
    // (this is according to the PKCS#5 specifications at
    // http://www.rsa.com/rsalabs/node.asp?id=2127   )
    Set ComPbesAlgorithm Of hoCrypt To "rc2"
    Set ComKeyLength Of hoCrypt To 64

    // The salt for PBKDF1 is always 8 bytes:
    Send ComSetEncodedSalt To hoCrypt "0102030405060708" "hex"

    // A higher iteration count makes the algorithm more
    // computationally expensive and therefore exhaustive
    // searches (for breaking the encryption) is more difficult:
    Set ComIterationCount Of hoCrypt To 1024

    // A hash algorithm needs to be set for PBES1:
    Set ComHashAlgorithm Of hoCrypt To "sha1"

    // Indicate that the encrypted bytes should be returned
    // as a hex string:
    Set ComEncodingMode Of hoCrypt To "hex"

    Move "To be encrypted." To sPlainText

    Get ComEncryptStringENC Of hoCrypt sPlainText To sEncryptedText

    Showln sEncryptedText

    // Now decrypt:
    Get ComDecryptStringENC Of hoCrypt sEncryptedText To sDecryptedText

    Showln sDecryptedText


End_Procedure