VB.NET MD5 Şifreleme Kodu

Evet arkadaşlar ilk kod paylaşımımı MD5 şifreleme koduyla yapacağım.Bir metnin MD5'ini almanızı sağlayacak kodu paylaşacağım.

Bir metnin MD5'ini alma kodu:

    Public Function MD5(ByVal yazi As String) As String
        Try
            Dim MD5şifreleyici As New System.Security.Cryptography.MD5CryptoServiceProvider
            Dim baytlar As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(yazi)
            Dim hash As Byte() = MD5şifreleyici.ComputeHash(baytlar)
            Dim kapasite As Integer = (hash.Length * 2 + (hash.Length / 8))
            Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder(kapasite)
            Dim I As Integer
            For I = 0 To hash.Length - 1
                sb.Append(BitConverter.ToString(hash, I, 1))
            Next I
            Return sb.ToString().TrimEnd(New Char() {" "c})
        Catch ex As Exception
            Return "0"
        End Try

yukarıdaki kod bir fonksiyon kodudur ve kodu

MD5(Şifrelenecek Metin)

koduyla aktif edebilirsiniz.

Örn:


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If YaziKutusu1.Text = "" Then
            MsgBox("Lütfen Şifrelemek İstediğiniz Metni Giriniz!", MsgBoxStyle.Exclamation, "Hata!")
        Else
           YaziKutusu2.Text = MD5(YaziKutusu1.Text)
        End If
    End Sub


Yukarıdaki kod YaziKutusu1'den aldığı metni şifreleyerek YaziKutusu2'ye gönderdi.

Örnek bir ss:

Bu kötü anlatım için kusura bakmayın.Anlatma yeteneğim 0'dır :)