[HELP]MD5 Derypter[HELP]

terrorist · 06-21-2011, 11:11 PM

Can anybody help me please!
I want to create MD5 Decrypter
Some of these
[Image: attachment.php?attachmentid=84386&stc=1&d=1308566772]

Coder-san · 06-22-2011, 10:49 AM

You mean a multi-hash finder. That's pretty easy, just use a WebBrowser's GetElementByID function, etc. and fill forms to get results if there are any.

terrorist · 06-22-2011, 01:43 PM

I don't know this function and can you give me little sourse I want only example and after I add decrypter sites

Coder-san · 06-22-2011, 02:03 PM

Sure.
This is a quick example with cmd5.org:

Code:
Dim ButtonPressed As Boolean

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        WebBrowser1.Navigate("http://www.cmd5.org/")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If Not WebBrowser1.Url.AbsoluteUri = "http://www.cmd5.org/" Then Exit Sub
        If ButtonPressed = False Then FillForm("ctl00_ContentPlaceHolder1_TextBoxq", "ctl00_ContentPlaceHolder1_Button1", TextBox1.Text)
    End Sub

    Private Sub FillForm(ByVal TextFieldID As String, ByVal ButtonID As String, ByVal DesiredInput As String)
        With WebBrowser1.Document
            .GetElementById(TextFieldID).SetAttribute("value", DesiredInput)
            .GetElementById(ButtonID).InvokeMember("click")
        End With
        ButtonPressed = True
    End Sub

Use FireBug or similar to get the control id from a webpage.

terrorist · 06-22-2011, 04:12 PM

Thank you very much
And can you say me the VB6 sourse or where you learn this?

Coder-san · 06-22-2011, 04:35 PM

It's VB.Net, but a VB6 code will be similar.

terrorist · 06-22-2011, 04:45 PM

Please give me the projet please

Coder-san · 06-22-2011, 04:51 PM

Why? This is the whole code. Just drop a webbrowser1 and a Textbox1 on a form.
If you are not a programmer then this is not the way to start.

terrorist · 06-22-2011, 04:53 PM

I don't programer! but I know little of VB
VB 2008 I don't know

Coder-san · 06-22-2011, 05:35 PM

Then here is the same code in VB6:

Code:
Private Sub Form_Load()
    WebBrowser1.Navigate ("http://www.cmd5.org/")
    Text1.Tag = "0"
End Sub

Private Sub FillForm(ByVal TextFieldID As String, ByVal ButtonID As String, ByVal DesiredInput As String)
    With WebBrowser1.Document
        .GetElementById(TextFieldID).Value = DesiredInput
        .GetElementById(ButtonID).Click
    End With
    Text1.Tag = ""
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If Text1.Tag <> "" Then Call FillForm("ctl00_ContentPlaceHolder1_TextBoxq", "ctl00_ContentPlaceHolder1_Button1", Text1.Text)
End Sub

[HELP]MD5 Derypter[HELP]
Author Message