DataFlex

PBKDF1 - Derive Key from Password

See more Encryption Examples

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

It also matches the output produced by the .NET Framework using this C# code:

            byte[] salt = new byte[] { 0x78, 0x57, 0x8E, 0x5A, 0x5D, 0x63, 0xCB, 0x06 };
            PasswordDeriveBytes cdk = new PasswordDeriveBytes("password", salt);

            cdk.IterationCount = 1000;
            cdk.HashName = "SHA1";

            // generate a 16-byte key
            byte[] key = cdk.GetBytes(16);

DataFlex

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 1000 To iIterationCount
    // Derive a 128-bit key from the password.
    Move 128 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 ComPbkdf1 Of hoCrypt sPw sPwCharset sHashAlg sSaltHex iIterationCount iOutputBitLen sEnc To sHexKey

    Showln sHexKey

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


End_Procedure