Selasa, 24 April 2012

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