Jump to content
Raven

VB.NET Md5 Online Cracker

By Raven, in Programare

Recommended Posts

Raven Newbie

Raven

Posted
Posted 

Imports System.Text.RegularExpressions
Public Class Form1


    ' *********
    ' Autor : Raven
    ' Contact: raven_200155@yahoo.com
    ' *********


    Dim response, c, d, response2, response3, response4, response5, response6, response7 As String
    Dim objHTTP
    Dim url As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ToolStripStatusLabel1.Text = "Cracked Is Started!"


        url = "http://www.tydal.nu/php/sakerhet/md5.php?q=" + TextBox1.Text
        objHTTP = CreateObject("Microsoft.XMLHTTP")
        objHTTP.open("POST", url, False)
        objHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")


        Button1.Enabled = False
        Button1.Text = "Stop Crack!"
        ToolStripStatusLabel1.Text = "Cracked Is Stoped!"


        Button1.Enabled = True
        Button1.Text = "Start Crack!"
        ToolStripStatusLabel1.Text = "Welcome! to Md5 Online Cracker"
        objHTTP.send()

        response = (objHTTP.responseText)

        Call tydal1()

        Call gdata()

        Call md5decrypter()
        Call domain()
        Call md5live()
        Call hashcracking()
        Call milw0rm()
    End Sub

    Private Sub tydal()
        If response = "MD5-sträng!" Then
            ListBox2.Items.Add("www.tydal.nu: NotFound")
        ElseIf response = "träff." Then
            ListBox2.Items.Add("www.tydal.nu: NotFound")
        ElseIf c = "" Then
            ListBox2.Items.Add("www.tydal.nu: " + response)


        End If
    End Sub


    Private Sub tydal1()
        Dim a As String
        Dim rx As New Regex("(.*(?<=</b>))")
        Dim testStr As String
        testStr = response


        a = (rx.Match(testStr).Value)


        Dim s As String
        s = a

        Dim words() As String


        words = Split(s)

        Dim tempStr As String
        For i = 0 To UBound(words)

            tempStr = Replace(words(i), "<b>", "")
            tempStr = Replace(tempStr, "</b>", "")

            If Len(tempStr) > 0 Then
                response = tempStr



            End If

        Next
        Call tydal()
    End Sub




    Private Sub gdata()
        Dim http
        url = "http://gdataonline.com/qkhash.php?mode=txt&hash=" + TextBox1.Text
        http = CreateObject("Microsoft.XMLHTTP")
        http.open("GET", url, False)
        http.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")



        http.send()

        response2 = (http.responseText)
        Call gdata1()
        Call g()
    End Sub
    Private Sub gdata1()
        Dim a As String
        Dim rx As New Regex("((?<=<td width=\""35%\"">)(.*)(?<=</td>))")
        Dim testStr As String
        testStr = response2


        a = (rx.Match(testStr).Value)


        Dim s As String
        s = a

        Dim words() As String


        words = Split(s)

        Dim tempStr As String
        For i = 0 To UBound(words)

            tempStr = Replace(words(i), "</td>", "")
            tempStr = Replace(tempStr, "</b>", "")
            tempStr = Replace(tempStr, "<b>", "")
            If Len(tempStr) > 0 Then
                response2 = tempStr


            End If

        Next

    End Sub
    Public Sub g()
        If response2 = "????" Then
            ListBox2.Items.Add("www.gdataonline.com: NotFound")
        ElseIf response2 = "Hash not valid." Then
            ListBox2.Items.Add("www.gdataonline.com: Not Found")
        ElseIf c = "" Then
            ListBox2.Items.Add("www.gdataonline.com: " + response2)
        End If
    End Sub




    Private Sub md5decrypter()
        Dim url As String = "http://www.md5decrypter.com/"
        Dim http_request = CreateObject("Microsoft.XmlHttp")
        http_request.open("POST", url, False)
        http_request.setRequestHeader("Content-type", "application/x-www-form-urlencoded")

        http_request.setRequestHeader("Connection", "close")
        http_request.send("hash=" + TextBox1.Text)

        response3 = (http_request.ResponseText)
        Call md52()

    End Sub

    Private Sub md52()
        Dim a As String
        Dim rx As New Regex("((?<=<b class=.+>)(.*)(?<=</b>)(.*))")
        Dim testStr As String
        testStr = response3

        a = (rx.Match(testStr).Value)


        Dim s As String
        s = a

        Dim words() As String


        words = Split(s)

        Dim tempStr As String
        For i = 0 To UBound(words)

            tempStr = Replace(words(i), "</td>", "")
            tempStr = Replace(tempStr, "</b>", "")
            tempStr = Replace(tempStr, "Normal", "")
            tempStr = Replace(tempStr, "Text:", "")



            If Len(tempStr) > 0 Then
                response3 = (tempStr)


            End If


        Next
        Call e()

    End Sub
    Public Sub e()
        If response3 = "database" Then
            ListBox2.Items.Add("www.md5decryption.com: NotFound")
        ElseIf response3 = "our" Then
            ListBox2.Items.Add("www.md5decryption.com: NotFound")
        ElseIf c = "" Then
            ListBox2.Items.Add("www.md5decryption.com: " + response3)
        End If

    End Sub
    Private Sub domain()
        Dim url As String = "http://md5.ip-domain.com.cn/index.htm"
        Dim http_request = CreateObject("Microsoft.XmlHttp")
        http_request.open("POST", url, False)
        http_request.setRequestHeader("Content-type", "application/x-www-form-urlencoded")

        http_request.setRequestHeader("Connection", "close")
        http_request.send("text=" + TextBox1.Text)

        response4 = (http_request.ResponseText)
        Call domain3()
    End Sub
    Private Sub domain3()

        Dim a As String
        Dim rx As New Regex("((?<=<font color=red>)(.*)(?<=</font>))")
        Dim testStr As String
        testStr = response4
        a = (rx.Match(testStr).Value)


        Dim s As String
        s = a

        Dim words() As String


        words = Split(s)

        Dim tempStr As String
        For i = 0 To UBound(words)

            tempStr = Replace(words(i), "</font>", "")
            tempStr = Replace(tempStr, " ", "")



            If Len(tempStr) > 0 Then
                response4 = (tempStr)


            End If


        Next
        Call f()
    End Sub
    Private Sub f()
        If response4 = "MD5" Then
            ListBox2.Items.Add("www.md5.ip-domain.com.cn: NotFound")
        ElseIf response4 = "Lookup" Then
            ListBox2.Items.Add("www.md5.ip-domain.com.cn: NotFound")
        ElseIf c = "" Then
            ListBox2.Items.Add("www.md5.ip-domain.com.cn: " + response4)
        End If
    End Sub
    Private Sub md5live()
        Dim url As String = "http://md5live.com/index.php?format=md5&search=" + TextBox1.Text
        Dim http_request = CreateObject("Microsoft.XmlHttp")
        http_request.open("GET", url, False)
        http_request.setRequestHeader("Content-type", "application/x-www-form-urlencoded")

        http_request.setRequestHeader("Connection", "close")
        http_request.send()

        response5 = (http_request.ResponseText)
        Call md5live4()
    End Sub
    Private Sub md5live4()
        Dim b As String
        Dim a As String
        Dim rx As New Regex("((.+)(<br \/>))")

        Dim testStr As String
        testStr = response5
        a = (rx.Match(testStr).Value)

        Dim s As String
        s = a

        Dim words() As String


        words = Split(s)

        Dim tempStr As String
        For i = 0 To UBound(words)

            tempStr = Replace(words(i), "<br", "")

            tempStr = Replace(tempStr, "/>", "")

            If Len(tempStr) > 0 Then
                response5 = (tempStr)


            End If


        Next
        Call l()

    End Sub
    Private Sub l()



        If response5 = "found!" Then
            ListBox2.Items.Add("www.md5live.com: NotFound")

        ElseIf c = "" Then
            ListBox2.Items.Add("www.md5live.com: " + response5)
        End If

    End Sub
    Private Sub hashcracking()
        Dim url As String = "http://md5.hashcracking.com/search.php?md5=" + TextBox1.Text
        Dim http_request = CreateObject("Microsoft.XmlHttp")
        http_request.open("GET", url, False)
        http_request.setRequestHeader("Content-type", "application/x-www-form-urlencoded")

        http_request.setRequestHeader("Connection", "close")
        http_request.send()

        response6 = (http_request.ResponseText)
        Call hash6()
    End Sub
    Private Sub hash6()
        Dim b As String
        Dim a As String
        Dim rx As New Regex("((.*))")

        Dim testStr As String
        testStr = response6
        a = (rx.Match(testStr).Value)

        Dim s As String
        s = a

        Dim words() As String


        words = Split(s)

        Dim tempStr As String
        For i = 0 To UBound(words)

            tempStr = Replace(words(i), "Cleartext of", "")

            tempStr = Replace(tempStr, "/>", "")

            If Len(tempStr) > 0 Then
                response6 = (tempStr)


            End If


        Next
        Call j()

    End Sub
    Private Sub m()



        If response6 = "returned." Then
            ListBox2.Items.Add("www.md5.hashcracking.com: NotFound")


        ElseIf c = "" Then
            ListBox2.Items.Add("www.md5.hashcracking.com: " + response6)
        End If

    End Sub
    Private Sub milw0rm()

        Dim url As String = "http://milw0rm.com/cracker/search.php"
        Dim http_request = CreateObject("Microsoft.XmlHttp")
        http_request.open("POST", url, False)
        http_request.setRequestHeader("Content-type", "application/x-www-form-urlencoded")

        http_request.setRequestHeader("Connection", "close")
        http_request.send("hash=" + TextBox1.Text)

        response7 = (http_request.ResponseText)

        Call milw0rm5()
    End Sub

    Private Sub milw0rm5()

        Dim a As String
        Dim rx As New Regex("(</TD><TD align=\""middle\"" nowrap=\""nowrap\"" width=90>(.*)<\/TD><TD align=\""middle\"" nowrap=\""nowrap\"" width=90>cracked<\/TD><\/TR>)")

        Dim testStr As String
        testStr = response7
        a = (rx.Match(testStr).Value)

        Dim s As String
        s = a

        Dim words() As String


        words = Split(s)

        Dim tempStr As String
        For i = 0 To UBound(words)

            tempStr = Replace(words(i), "</TD><TD", "")

            tempStr = Replace(tempStr, "width=90>", "")
            tempStr = Replace(tempStr, "align=""middle""", "")
            tempStr = Replace(tempStr, "nowrap=""nowrap""", "")
            tempStr = Replace(tempStr, "cracked</TD></TR>", "")

            If Len(tempStr) > 0 Then
                response7 = (tempStr)



            End If


        Next

        Call j()
    End Sub
    Private Sub j()

        If c = "" Then
            ListBox2.Items.Add("www.milw0rm.com: " + response7)

        End If


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub
End Class

HaveFun! :D

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
Go to topic listing
×
×
  • Create New...