Enkripsi MD5, SHA, DES dan RSA dengan Bahasa VB.NET

Penulis pernah membahas cara enkripsi menggunakan algoritma MD5, SHA, DES dan RSA pada C#.NET, bagaimana dengan bahasa kembarannya yaitu VB.NET. Berikut ini caranya :

Jika anda menggunakan bahasa pemrograman VB.NET, sebenarnya anda juga dapat melakukan lebih banyak tipe enkripsi, baik MD5, SHA, DES, RSA dsb. Caranya gunakan kode program di bawah ini :

Jangan lupa menambahkan import library berikut :

Imports System.IO

Imports System.Security.Cryptography

Imports System.Text

Kemudian tambahkan kode program di bawah ini :

Dim str As String = "abcdef"

Dim enc As Encoder = System.Text.Encoding.Unicode.GetEncoder()

Dim unicodeText As Byte()

unicodeText = DirectCast(Array.CreateInstance(GetType(Byte), str.Length * 2), Byte())

enc.GetBytes(str.ToCharArray(), 0, str.Length, unicodeText, 0, True)

Dim objmd5 As MD5 = New MD5CryptoServiceProvider ' Untuk enkripsi MD5

'Dim objmd5 As MD5 = New SHA1CryptoServiceProvider() ' Untuk enkripsi SHA1

'Dim objmd5 As MD5 = New DESCryptoServiceProvider() ' Untuk enkripsi DES
'Dim objmd5 As MD5 = New RSACryptoServiceProvider ' Untuk enkripsi RSA
Dim result As Byte() = objmd5.ComputeHash(unicodeText)

Dim sb As StringBuilder = New StringBuilder()

Dim i As Integer

For i = 0 To result.Length - 1
    sb.Append(result(i).ToString("X2"))
Next

Me.Text = sb.ToString()

Anda dapat mengganti "abcdef" dengan kata yang anda butuhkan, dan menggunakan tipe enkripsi yang lain yang anda inginkan dengan mengaktifkan baris berikut :

'Dim objmd5 As MD5 = New MD5CryptoServiceProvider ' Untuk enkripsi MD5

'Dim objmd5 As MD5 = New SHA1CryptoServiceProvider() ' Untuk enkripsi SHA1

'Dim objmd5 As MD5 = New DESCryptoServiceProvider() ' Untuk enkripsi DES
'Dim objmd5 As MD5 = New RSACryptoServiceProvider ' Untuk enkripsi RSA