Metode & Algoritma | List Tutorials | Source Code | About | Sitemap
Konsultan Tesis
Bimbingan dan Konsultasi Tesis Informatika bersama team Project Graduate Indonesia. Konsultasi hanya untuk yang sudah me-Like FB kami (Silahkan LIKE tombol ini jika belum).
. Scroll kebawah untuk memasukan kode AntiSpam Protection. Hasil konsultasi akan kami kirimkan ke email Anda.

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




.


Metode dan Algoritma | Enkripsi MD5, SHA, DES dan RSA dengan Bahasa VB.NET . Anda bisa melakukan konsultasi tentang Enkripsi MD5, SHA, DES dan RSA dengan Bahasa VB.NET melalui form di samping kanan !!!

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



Source Code ActionScript AS3 ASP.NET AJAX C / C++ C# Clipper COBOL ColdFusion DataFlex Delphi Emacs Lisp Fortran FoxPro Java J2ME JavaScript JScript Lingo MATLAB Perl PHP PostScript Python SQL VBScript Visual Basic 6.0 Visual Basic .NET Flash MySQL Oracle Android
Related Post :


Project-G
Judul: Enkripsi MD5, SHA, DES dan RSA dengan Bahasa VB.NET
Rating: 100% based on 99998 ratings. 5 user reviews.
Ditulis Oleh hank2

Anda sedang membaca artikel tentang Enkripsi MD5, SHA, DES dan RSA dengan Bahasa VB.NET, Semoga artikel tentang Enkripsi MD5, SHA, DES dan RSA dengan Bahasa VB.NET ini sangat bermanfaat bagi teman-teman semua, jangan lupa untuk mengunjungi lagi melalui link Enkripsi MD5, SHA, DES dan RSA dengan Bahasa VB.NET.


Posted by: Metode Algoritma Updated at: 16.30

{ 0 komentar... Views All / Send Comment! }

Posting Komentar

Label