TDEA_FileHex

Encrypts or decrypts a file using a specified mode.

VB6/VBA

Debug.Print "Testing TDEA_FileHex ..."
Dim nRet As Long
nRet = TDEA_FileHex("bigfile.cbc", "bigfile.dat", _
    "fedcba9876543210fedcba9876543210fedcba9876543210", _
    ENCRYPT, "CBC", "0123456789abcdef")
Debug.Print nRet
' and decrypt it as a check
nRet = TDEA_FileHex("bigfile.chk", "bigfile.cbc", _
    "fedcba9876543210fedcba9876543210fedcba9876543210", _
    DECRYPT, "CBC", "0123456789abcdef")
Debug.Print nRet

Output

Testing TDEA_FileHex ...
 0 
 0 

VB.NET

Console.WriteLine("Testing TDEA_FileHex ...")
Dim nRet As Integer
nRet = Tdea.FileEncrypt("bigfile.cbc", "bigfile.dat", _
    "fedcba9876543210fedcba9876543210fedcba9876543210", _
    Mode.CBC, "0123456789abcdef")
Console.WriteLine(nRet)
' and decrypt it as a check
nRet = Tdea.FileDecrypt("bigfile.chk", "bigfile.cbc", _
    "fedcba9876543210fedcba9876543210fedcba9876543210", _
    Mode.CBC, "0123456789abcdef")
Console.WriteLine(nRet)

[Contents]