(DataFlex) PBKDF2 - Derive Key from Password

Demonstrates how to derive a symmetric encryption key from a password using PBKDF2. This example matches the results found at this URL: http://www.di-mgt.com.au/cryptoKDFs.html#examplespbkdf

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCrypt
    String sHexKey
    String sPw
    String sPwCharset
    String sHashAlg
    String sSaltHex
    Integer iIterationCount
    Integer iOutputBitLen
    String sEnc

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

    // http://www.di-mgt.com.au/cryptoKDFs.html#examplespbkdf

    Move "password" To sPw
    Move "ansi" To sPwCharset
    // Hash algorithms may be: sha1, md2, md5, etc.
    Move "sha1" To sHashAlg
    // The salt should be 8 bytes:
    Move "78578E5A5D63CB06" To sSaltHex
    Move 2048 To iIterationCount
    // Derive a 192-bit key from the password.
    Move 192 To iOutputBitLen

    // The derived key is returned as a hex or base64 encoded string.
    // (Note: The salt argument must be a string that also uses
    // the same encoding.)
    Move "hex" To sEnc

    Get ComPbkdf2 Of hoCrypt sPw sPwCharset sHashAlg sSaltHex iIterationCount iOutputBitLen sEnc To sHexKey

    Showln sHexKey

    // The output should have this value:
    // BFDE6BE94DF7E11DD409BCE20A0255EC327CB936FFE9364


End_Procedure