AES192_Bytes

Encrypts or decrypts an array of Bytes in one step in Electronic Codebook (EBC) mode.

@deprecated use AES192_BytesMode with strMode="ECB".

VBA/VB6 Syntax

nRet = AES192_Bytes(lpOutput(0), abData(0), nDataLen, abKey(0), bEncrypt) ' Note the "(0)" after the byte array parameters

C/C++ Syntax

Parameters

lpOutput

[out] array of sufficient length to receive the output.

lpInput

[in] array containing the input data.

nBytes

[in] equal to length of the input data in bytes.

lpKey

[in] array containing the key.

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

Aes192.Encrypt Method (Byte[], Byte[], Mode, Byte[])
Aes192.Decrypt Method (Byte[], Byte[], Mode, Byte[])
with mode=Mode.ECB.

Remarks

The input array lpData must be a multiple of the block size of 16 bytes long. If not, an error code will be returned. The key array abKey() must be exactly 24 bytes (i.e. 192 bits) long. The output array lpOutput must be at least as long as the input array. lpOutput and lpData may be the same.

This function is equivalent to

nRet = AES192_BytesMode(lpOutput(0), abData(0), nDataLen, abKey(0), bEncrypt, "ECB", 0)

Example

    Dim nRet As Long
    Dim strHexKey As String
    Dim sPlain As String
    Dim sCipher As String
    Dim abBlock() As Byte
    Dim abKey() As Byte
    Dim abPlain() As Byte
    Dim abCipher() As Byte
    Dim nBytes As Long
    
    'FIPS-197
    'C.2 AES-192 (Nk=6, Nr=12)
    'PLAINTEXT: 00112233445566778899aabbccddeeff
    'KEY: 000102030405060708090a0b0c0d0e0f1011121314151617
    strHexKey = "000102030405060708090a0b0c0d0e0f1011121314151617"
    sPlain = "00112233445566778899aabbccddeeff"
    sCipher = "dda97ca4864cdfe06eaf70a0ec0d7191"
    
    ' Convert input to bytes
    abKey = cnvBytesFromHexStr(strHexKey)
    abPlain = cnvBytesFromHexStr(sPlain)
    abCipher = cnvBytesFromHexStr(sCipher)
    
    abBlock = abPlain
    nBytes = UBound(abBlock) - LBound(abBlock) + 1
    Debug.Print "KY=" & cnvHexStrFromBytes(abKey)
    Debug.Print "PT=" & cnvHexStrFromBytes(abBlock)
    ' Encrypt in one-off process
    nRet = AES192_Bytes(abBlock(0), abBlock(0), nBytes, abKey(0), ENCRYPT)
    Debug.Print "CT=" & cnvHexStrFromBytes(abBlock)
    Debug.Print "OK=" & cnvHexStrFromBytes(abCipher)
    Debug.Assert (StrConv(abBlock, vbUnicode) = StrConv(abCipher, vbUnicode))
    
    ' Now decrypt back to plain text
    nRet = AES192_Bytes(abBlock(0), abBlock(0), nBytes, abKey(0), DECRYPT)
    Debug.Print "P'=" & cnvHexStrFromBytes(abBlock)
    Debug.Assert (StrConv(abBlock, vbUnicode) = StrConv(abPlain, vbUnicode))

This should result in output as follows:

KY=000102030405060708090A0B0C0D0E0F1011121314151617
PT=00112233445566778899AABBCCDDEEFF
CT=DDA97CA4864CDFE06EAF70A0EC0D7191
OK=DDA97CA4864CDFE06EAF70A0EC0D7191
P'=00112233445566778899AABBCCDDEEFF

See Also

AES192_BytesMode

[Contents] [Index]