Imports System.Security.Cryptography
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim şifrele As System.Security.Cryptography.MD5
şifrele = MD5.Create()
Dim dizi() As Byte = System.Text.Encoding.UTF32.GetBytes(TextBox1.Text.ToCharArray())
Dim değerler() As Byte
değerler = şifrele.ComputeHash(dizi)
TextBox2.Text = Convert.ToBase64String(değerler)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim şifrele As System.Security.Cryptography.MD5
şifrele = MD5.Create()
Dim dizi() As Byte = System.Text.Encoding.UTF32.GetBytes(TextBox1.Text.ToCharArray())
Dim değerler() As Byte
değerler = şifrele.ComputeHash(dizi)
TextBox2.Text = Convert.ToBase64String(değerler)
End Sub
End Class
