Visual Basic Advanced Encryption Standard (AES) Example

Private Function EncryptFile(ByRef KeyBuffer As String, ByRef InFile As String, ByRef OutFile As String) As Integer
Dim Code As Integer
Dim Control As String
Dim Vector As String
' vector not used in ECB mode
Vector = Chr(0)
Control = "*"
' initialize for encryption in ECB mode
Code = aesInitAES(KeyBuffer, Vector, AES_ECB_MODE, AES_ENCRYPT, Control)
If Code < 0 Then
  EncryptFile = Code
  Exit Function
End If
' encrypt the file (InFile -> OutFile)
Code = aesEncryptFile(Control, InFile, OutFile)
EncryptFile = Code
End Function


• Works with console mode and GUI mode.
• Supports all Visual Basic compilers (VB 4/5/6 and Visual Studio).
• Includes 32-bit and 64-bits versions.
• Works with all 32 and 64 bit versions of Windows through Windows 10.
• AES4VB Product Page
  
• AES4VB Download Page

HOME PAGE
MARSHALLSOFT is a trademark of MarshallSoft Computing, Inc.