TDEA_Hex

Encrypts or decrypts data represented as a hexadecimal string using a key represented in hexadecimal notation. The process is carried out in one step in Electronic Codebook (EBC) mode.

@deprecated use TDEA_HexMode with strMode="ECB".

VBA/VB6 Syntax

nRet = TDEA_Hex(strOutput, strInput, strKey, bEncrypt)

C/C++ Syntax

Parameters

szOutput

[out] of sufficient length to receive the output.

szInput

[in] containing the input data in hexadecimal.

szKey

[in] containing the key in hexadecimal.

fEncrypt

[in] direction flag: set as ENCRYPT (True) to encrypt or DECRYPT (False) to decrypt.

Returns (VBA/C)

If successful, the return value is 0; otherwise it returns a non-zero error code.

.NET Equivalent

Tdea.Encrypt Method (String, String, Mode, String)
Tdea.Decrypt Method (String, String, Mode, String)
with mode=Mode.ECB.

Remarks

The length of the input string szInput must be a multiple of 16 hex characters long (i.e. representing a multiple of 8 bytes). If not, an error code will be returned. The key string szKey must be exactly 48 hex characters long (i.e. representing exactly 24 bytes). The parity bit is ignored. The output string szOutput must be set up with at least the same number of characters as the input string before calling. The variables szOutput and szInput should be different. Valid hexadecimal characters are [0-9A-Fa-f].

Example

    Dim nRet As Long
    Dim strOutput As String
    Dim strInput As String
    Dim strKey As String
    Dim bEncrypt As Boolean
    Dim sCorrect As String

    strInput = "8000000000000000"
    strKey = "010101010101010101010101010101010101010101010101"
    sCorrect = "95F8A5E5DD31D900"
    ' Set strOutput to be same length as strInput
    strOutput = String(Len(strInput), " ")

    Debug.Print "KY=" & strKey
    Debug.Print "PT=" & strInput
    ' Encrypt
    nRet = TDEA_Hex(strOutput, strInput, strKey, ENCRYPT)
    Debug.Print "CT=" & strOutput, "Return value=" & nRet
    Debug.Print "OK=" & sCorrect

    ' Decrypt back
    strInput = strOutput
    nRet = TDEA_Hex(strOutput, strInput, strKey, DECRYPT)
    Debug.Print "P'=" & strOutput & "Return value=" & nRet

This should result in output as follows:

KY=010101010101010101010101010101010101010101010101
PT=8000000000000000
CT=95F8A5E5DD31D900         Return value= 0
OK=95F8A5E5DD31D900
P'=8000000000000000         Return value= 0

See Also

TDEA_HexMode

[Contents] [Index]