ผู้เขียน หัวข้อ: Crack Md5 [vb]  (อ่าน 2765 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ Admin

  • Administrator
  • *****
  • กระทู้: 1415
  • Level:
    0%
  • Thank : 61
  • เพศ: ชาย
    • ดูรายละเอียด
    • สะกิดข่าว
Crack Md5 [vb]
« เมื่อ: กุมภาพันธ์ 21, 2012, 09:26:33 pm »
[mb]

โค๊ด: [Select]
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


[/mb]

ออฟไลน์ dapad

  • Download
  • *
  • กระทู้: 27
  • Level:
    0%
  • Thank : 0
    • ดูรายละเอียด
    • อีเมล์
Re: Crack Md5 [vb]
« ตอบกลับ #1 เมื่อ: เมษายน 21, 2012, 09:26:14 am »
ใจจ้า

 
แชร์บทความ...
โค้ดแบบ forum
(BBCode)
โค้ดแบบ site/blog
(HTML)