toxic-l33t.ddns.net Registration Tool + Part of source

[ReturnKratos]

Hay Today I want shot you a new tool for toxic-l33t.ddns.net

 

Public Class Form1
 
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim PageElements As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")
        For Each CurElements As HtmlElement In PageElements
            If CurElements.GetAttribute("alt").Contains("Immagine di verifica reCAPTCHA") Then
                Dim captchalink As String
                captchalink = captchalink & CurElements.GetAttribute("src")
                ListBox1.Items.Add(captchalink)
                Timer1.Start()
 
            End If
        Next
        Dim page As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("strong")
        For Each curpage As HtmlElement In page
            ListBox1.Items.Add(curpage.OuterText())
        Next
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ListBox1.SetSelected(0, True)
        WebBrowser2.Navigate(ListBox1.SelectedItem)
        ListBox1.SetSelected(0, False)
        ListBox1.SetSelected(5, True)
        Label4.Text = ListBox1.SelectedItem
        Timer1.Stop()
    End Sub
 
    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        TermsofUse.Show()
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True And TextBox3.Text = TextBox4.Text And TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" And TextBox5.Text <> "" And TextBox6.Text <> "" And TextBox7.Text <> "" Then
            Try
                WebBrowser1.Document.GetElementById("agree_tos").InvokeMember("click")
                WebBrowser1.Document.GetElementById("display_name").InnerText = TextBox2.Text
                WebBrowser1.Document.GetElementById("password_1").InnerText = TextBox3.Text
                WebBrowser1.Document.GetElementById("password_2").InnerText = TextBox4.Text
                WebBrowser1.Document.GetElementById("qa_answer").InnerText = TextBox5.Text
                WebBrowser1.Document.GetElementById("email_1").InnerText = TextBox7.Text
                WebBrowser1.Document.GetElementById("recaptcha_response_field").InnerText = TextBox6.Text
                WebBrowser1.Document.GetElementById("register_submit").InvokeMember("click")
                Timer3.Start()
            Catch ex As Exception
            End Try
        Else
            MsgBox("Cannot Input Your Credential Check it and retry")
        End If
        If CheckBox1.Checked = False Then
            MsgBox("You Must Select Terms of Use")
            TermsofUse.Show()
        ElseIf TextBox2.Text = "" Then
            MsgBox("Username Empty Field")
        ElseIf TextBox3.Text = "" Then
            MsgBox("Password Empty Field")
        ElseIf TextBox4.Text = "" Then
            MsgBox("Again Password Empty Field")
        ElseIf TextBox5.Text = "" Then
            MsgBox("Question Empty Field")
        ElseIf TextBox7.Text = "" Then
            MsgBox("Email Empty Field")
        ElseIf TextBox6.Text = "" Then
            MsgBox("CAPTCHA Empty Field")
        End If
    End Sub
 
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If Label4.Text <> "Question" Then
            ProgressBar1.Value = 100
        End If
        Label7.Text = ProgressBar1.Value & " %"
    End Sub
 
    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Dim RegCheck As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("p")
        Try
            For Each Find As HtmlElement In RegCheck
                ListBox2.Items.Add(Find.OuterText())
                Timer4.Start()
                Timer3.Stop()
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        MsgBox(ListBox2.Items(1) & ListBox2.Items(2) & ListBox2.Items(3))
        Timer4.Stop()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs)
 
    End Sub
 
    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        Dim PageElements As HtmlElementCollection = WebBrowser3.Document.GetElementsByTagName("a")
        For Each CurElements As HtmlElement In PageElements
            If CurElements.GetAttribute("title").Contains("Sign In") Then
                Dim ids As String
                ids = ids & CurElements.GetAttribute("id")
                WebBrowser3.Document.GetElementById(ids).InvokeMember("click")
            End If
        Next
        
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        WebBrowser3.Document.GetElementById("ips_username").InnerText = TextBox8.Text
        WebBrowser3.Document.GetElementById("ips_password").InnerText = TextBox9.Text
        If CheckBox2.Checked = True Then
            WebBrowser3.Document.GetElementById("inline_remember").InvokeMember("click")
            My.Settings.nick = TextBox8.Text
            My.Settings.pass = TextBox9.Text
            My.Settings.Save()
        End If
        Dim PageElements As HtmlElementCollection = WebBrowser3.Document.GetElementsByTagName("input")
        For Each CurElements As HtmlElement In PageElements
            <input type="submit" class="ipsButton" value="Sign In" tabindex="0">
            If CurElements.GetAttribute("value") = "Sign In" Then
                CurElements.InvokeMember("click")
            End If
        Next
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox8.Text = My.Settings.nick
        TextBox9.Text = My.Settings.pass
    End Sub
End Class
 
 
 
Download Link

 

2

 

 

Log V1 : Register Form

 

Log V2 : Login Form + Register Form