با سلام و خسته نباشید...

کاراکتر "1" وارد شده
خروجی هر بار

1B2M2Y8AsgTpgAmY7PhCfg==
2iu9I2HkRim3Dk3gBSXrow==
EfAyW18tUFDUZEO4PGLL8w==
LxmRa3JrT5O9ZLYm5gsqtQ==



Imports System
Imports System.Security.Cryptography
Imports System.Text
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim m As MD5 = MD5.Create()

Dim hash As Byte() = m.ComputeHash(Encoding.Default.GetBytes(TextBox1.T ext))
TextBox1.Text = (Convert.ToBase64String(hash))
End Sub

End Class



نظری در موردش دارید بفرمایید ؟؟؟