Encrypt3DES Function

Action

Encrypts string or binary data into a printable format using the Triple Data Encryption Algorithm (Triple DES) block cipher. This function is useful for encrypting passwords and other sensitive data.

Include file

kernel.bdh

Syntax

Encrypt3DES( in sData : string,
             in sKey1 : string optional, 
             in sKey2 : string optional,
             in sKey3 : string optional ): string;

Return value

  • encrypted string

Parameter Description
sData String or binary data to be encrypted
sKey1 String or binary data used as first encryption key (optional).
sKey2 String or binary data used as second encryption key (optional).
sKey3 String or binary data used as third encryption key (optional).
Note: The returned string is about 30% larger in size than the original data.

Example

dcltrans
  transaction TMain
  var
    sUserPass  : string;
    sEncrypted : string;
  begin
    // Build your own authentication header
    AttributeGetString("Password", sUserPass);
    sEncrypted := Encrypt3DES(sUserPass);
    Print(sEncrypted);
    sUserPass := Decrypt3DES(sEncrypted);
    Print("decrypted password: " + sUserPass);
  end TMain;