[HELP]MD5 Derypter[HELP] - Printable Version

[HELP]MD5 Derypter[HELP] - Printable Version

+- Sinisterly (https://sinister.ly)
+-- Forum: Coding (https://sinister.ly/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.ly/Forum-Visual-Basic-NET-Framework)
+--- Thread: [HELP]MD5 Derypter[HELP] (/Thread-HELP-MD5-Derypter-HELP)

Pages: 1 2 3

[HELP]MD5 Derypter[HELP] - terrorist - 06-21-2011

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

[Image: attachment.php?attachmentid=84386&stc=1&d=1308566772]

RE: [HELP]MD5 Derypter[HELP] - Coder-san - 06-22-2011

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.

RE: [HELP]MD5 Derypter[HELP] - terrorist - 06-22-2011

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

RE: [HELP]MD5 Derypter[HELP] - Coder-san - 06-22-2011

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.

RE: [HELP]MD5 Derypter[HELP] - terrorist - 06-22-2011

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

RE: [HELP]MD5 Derypter[HELP] - Coder-san - 06-22-2011

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

RE: [HELP]MD5 Derypter[HELP] - terrorist - 06-22-2011

Please give me the projet please

RE: [HELP]MD5 Derypter[HELP] - Coder-san - 06-22-2011

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.

RE: [HELP]MD5 Derypter[HELP] - terrorist - 06-22-2011

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

RE: [HELP]MD5 Derypter[HELP] - Coder-san - 06-22-2011

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