AES Encrypt String in VB.NET

by

A quick Google Search brings up the following functions: I’ve not tested whether the output they produce is correct, however they do appear to compile correctly.

Public Function AES_Encrypt(ByVal input As String, ByVal pass As String) As String
        Dim AES As New System.Security.Cryptography.RijndaelManaged
        Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim encrypted As String = ""
        Try
            Dim hash(31) As Byte
            Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
            Array.Copy(temp, 0, hash, 0, 16)
            Array.Copy(temp, 0, hash, 15, 16)
            AES.Key = hash
            AES.Mode = Security.Cryptography.CipherMode.ECB
            Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
            Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)
            encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
            Return encrypted
        Catch ex As Exception
        End Try
    End Function

Public Function AES_Decrypt(ByVal input As String, ByVal pass As String) As String
        Dim AES As New System.Security.Cryptography.RijndaelManaged
        Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim decrypted As String = ""
        Try
            Dim hash(31) As Byte
            Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
            Array.Copy(temp, 0, hash, 0, 16)
            Array.Copy(temp, 0, hash, 15, 16)
            AES.Key = hash
            AES.Mode = Security.Cryptography.CipherMode.ECB
            Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
            Dim Buffer As Byte() = Convert.FromBase64String(input)
            decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
            Return decrypted
        Catch ex As Exception
        End Try
    End Function

Sourced from: http://www.l33thackers.com/Thread-VB-NET-AES-Encryption

More Related Contents:

  1. How to use a string variable in a directory path
  2. How to set variable to a huge number
  3. How can i make my own command to my first console application in VB.NET? [closed]
  4. What is the difference between And and AndAlso in VB.NET?
  5. How to programmatically add controls to a form in VB.NET
  6. Declare global variables in Visual Studio 2010 and VB.NET
  7. Dynamic button click event handler
  8. Installshield Custom Dialogue Installer
  9. Option Strict on by default in VB.NET
  10. How to put data containing double-quotes in string variable? [duplicate]
  11. Clickable URL in a Winform Message Box?
  12. Doing math in vb.net like Eval in javascript
  13. Casting DataTypes with DirectCast, CType, TryCast
  14. Function call only works when MessageBox.Show() is included?
  15. How do I prevent a form from being resized by the user?
  16. VB.NET Function Return
  17. Saving ListBox with Additional information in My.settings
  18. Evaluate mathematical expression from a string using VB
  19. Using colons to put two statements on the same line in Visual Basic [closed]
  20. Why is it not necessary to indicate ByVal/ByRef anymore?
  21. Serilog – Output/Enrich All Messages with MethodName from which log entry was Called
  22. Get the output of a shell Command in VB.net
  23. Why is True equal to -1
  24. How to Generate Combinations of Elements of a List in .NET 4.0
  25. DataGridView Cascading/Dependent ComboBox Columns
  26. Detecting Enter keypress on VB.NET
  27. Nothing = String.Empty (Why are these equal?)
  28. VB Detect Idle time
  29. Help with Linq and Generics. Using GetValue inside a Query
  30. What is the difference between “instantiated” and “initialized”?

Leave a Comment