Md5 Oluşturucu Yapımı

,

Button1 Kodları;

1 2 3 4 5 6 7 8

Dim sec as New Security.Cryptography.MD5CryptoServiceProvider Dim textb As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text) Dim has As String textb = sec.ComputeHash(textb) For Each bt As Byte In textb has &=bt.ToString("x2") Next TextBox2.Text = has.ToString()

Button2 Kodları;

1	Clipboard.SetText(TextBox2.Text)