PAD_HexBlock

Creates a hex-encoded input block suitably padded for encryption by a block cipher in ECB or CBC mode.

VB6/VBA

Debug.Print "Testing PAD_HexBlock ..."
Dim strInputHex As String
Dim strOutputHex As String
' Pad an empty string
Debug.Print "Input data= '" & strInputHex & "'"
' Pad for Triple DES block
strOutputHex = padHexString(strInputHex, API_BLK_TDEA_BYTES)
Debug.Print "Padded data='" & strOutputHex & "'"
' Prepare test input 5 bytes long
strInputHex = "FFFFFFFFFF"
Debug.Print "Input data= '" & strInputHex & "'"
' Pad for Triple DES block
strOutputHex = padHexString(strInputHex, API_BLK_TDEA_BYTES)
Debug.Print "Padded data='" & strOutputHex & "'"

Output

Testing PAD_HexBlock ...
Input data= ''
Padded data='0808080808080808'
Input data= 'FFFFFFFFFF'
Padded data='FFFFFFFFFF030303'

VB.NET

Console.WriteLine("Testing PAD_HexBlock ...")
Dim strInputHex As String
Dim strOutputHex As String
' Pad an empty string
' [VB.NET] In .NET we have to explicitly set the string
strInputHex = ""
Console.WriteLine("Input data= '" & strInputHex & "'")
' Pad for Triple DES block
strOutputHex = Tdea.Pad(strInputHex)
Console.WriteLine("Padded data='" & strOutputHex & "'")
' Prepare test input 5 bytes long
strInputHex = "FFFFFFFFFF"
Console.WriteLine("Input data= '" & strInputHex & "'")
' Pad for Triple DES block
strOutputHex = Tdea.Pad(strInputHex)
Console.WriteLine("Padded data='" & strOutputHex & "'")

[Contents]