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)
|
0 yorum:
Yorum Gönder