Example: Tdea.Unpad 

[VB6 equivalent: PAD_UnpadHex]

Dim strInputHex As String
Dim strOutputHex As String
strInputHex = "FFFFFFFFFF030303"
Console.WriteLine("Input data= '" & strInputHex & "'")
strOutputHex = Tdea.Unpad(strInputHex)
Console.WriteLine("Result=     '" & strOutputHex & "'")
strInputHex = "0808080808080808"
Console.WriteLine("Input data= '" & strInputHex & "'")
strOutputHex = Tdea.Unpad(strInputHex)
Console.WriteLine("Result=     '" & strOutputHex & "'")
' Bad input data results in the same data being returned
strInputHex = "FFFFFFFFFFFFFFFF"
Console.WriteLine("Input data= '" & strInputHex & "'")
strOutputHex = Tdea.Unpad(strInputHex)
Console.WriteLine("Result=     '" & strOutputHex & "'")
If Len(strOutputHex) = Len(strInputHex) Then
    Console.WriteLine("DECRYPTION ERROR")
End If

See Also:
Tdea.Unpad Method (String)

[Contents] [Index]