SMF & Programmer > Programmer

Crack Md5 [vb]

(1/1)

Admin:
[mb]


--- โค๊ด: ---Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Private Function GenerateHash(ByVal strToHash As String) As String
        Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider
        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
        bytesToHash = md5Obj.ComputeHash(bytesToHash)
        Dim strResult As String = ""
        For Each b As Byte In bytesToHash
            strResult += b.ToString("x2")
        Next
        Return strResult
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = GenerateHash(TextBox1.Text) 'Output = MD5Hash(Input)
    End Sub
End Class


--- End code ---

[/mb]

dapad:
ใจจ้า

นำร่อง

[0] ดัชนีข้อความ