[Tool]Web.de E-Mail Creator

Hier der Sourcecode (Dann kannste dir das selbst umschreiben f�r GMX)

PHP Code:


			
Private CookieCon As CookieContainer
Private Rand As Random

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    If ((Me.TextBox2.TextLength > 0) And (Me.TextBox2.TextLength >= 7)) Then
        Me.Label7.Text = "Registrierung l" & ChrW(228) & "uft"
        Me.Label7.ForeColor = Color.DarkGreen
        Application.DoEvents
        If (Strings.InStr(Me.GetSourceCodePost("https://user.web.de/all.jsf", String.Concat(New String() { "step1%3Asalutation=1&step1%3Aprename=Midge&step1%3Aname=Roetzer&step1%3AstreetNo=Kreuzgasse+84&step1%3Aplz=13158&step1%3Acity=Berlin&step1%3Acountry=1&step1%3AdateOfBirth.day=08&step1%3AdateOfBirth.month=10&step1%3AdateOfBirth.year=1956&step1%3Ausername=", Me.TextBox1.Text, "&step1%3Apasswd=", Me.TextBox2.Text, "&step1%3Apasswd2=", Me.TextBox2.Text, "&step1%3Achallenges=1&step1%3AsecAnswer=Midge+Roetzer+&step1%3Aemail=&step1%3Amobil=&step1%3AcaptchaAnswer=", Me.TextBox3.Text, "&step1%3Aforward.x=118&step1%3Aforward.y=14&step1_SUBMIT=1&step1%3A_link_hidden_=" })), "Herzlich willkommen!", CompareMethod.Binary) > 0) Then
            Me.Label7.Text = "E-mail registriert!"
            Me.Label7.ForeColor = Color.DarkGreen
            Me.TextBox1.Enabled = True
            Me.Button2.Enabled = True
            Me.TextBox2.Enabled = False
            Me.TextBox3.Enabled = False
            Me.Button1.Enabled = False
        Else
            Me.Label7.Text = "Fehler!"
            Me.Label7.ForeColor = Color.DarkRed
        End If
    End If
    If (Me.Label7.Text = "E-mail registriert!") Then
        Me.TextBox2.Enabled = True
    End If
    If (Me.Label7.Text = "E-mail registriert!") Then
        Me.TextBox4.Enabled = True
    End If
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
    If ((Me.TextBox1.TextLength > 0) And (Me.TextBox1.TextLength >= 5)) Then
        Me.Label7.Text = "Verf" & ChrW(252) & "gbarkeit wird getestet"
        Me.Label7.ForeColor = Color.DarkGreen
        Application.DoEvents
        Me.GetSourceCode("https://user.web.de/all.jsf?mc=produkte@freemail@startseite.produkte@freemail@anmeldung")
        Dim str As String = Me.GetSourceCodePost("https://user.web.de/all.jsf?mc=produkte@freemail@startseite.produkte@freemail@anmeldun", ("step1%3Aprename=&step1%3Aname=&step1%3AstreetNo=&step1%3Aplz=&step1%3Acity=&step1%3Acountry=1&step1%3AdateOfBirth.day=&step1%3AdateOfBirth.month=&step1%3AdateOfBirth.year=&step1%3Ausername=" & Me.TextBox1.Text & "&step1%3Aavailable=Verf%C3%BCgbarkeit+pr%C3%BCfen&step1%3Apasswd=&step1%3Apasswd2=&step1%3Achallenges=1&step1%3AsecAnswer=&step1%3Aemail=&step1%3Amobil=&step1%3AcaptchaAnswer=&step1_SUBMIT=1&step1%3A_link_hidden_=")).Replace(ChrW(9), Nothing).Replace(ChrW(13) & ChrW(10), Nothing)
        If (Strings.InStr(str, "ico_success_24x24.gif", CompareMethod.Binary) > 0) Then
            Me.Label7.Text = "E-Mail-Adresse ist verf" & ChrW(252) & "gbar."
            Me.Label7.ForeColor = Color.DarkGreen
            Me.TextBox2.Text = String.Concat(New String() { Conversions.ToString(Me.Rand.Next(0, 9)), Conversions.ToString(Me.Rand.Next(0, 9)), Conversions.ToString(Me.Rand.Next(0, 9)), Conversions.ToString(Me.Rand.Next(0, 9)), Conversions.ToString(Me.Rand.Next(0, 9)), Conversions.ToString(Me.Rand.Next(0, 9)), Conversions.ToString(Me.Rand.Next(0, 9)) })
            Me.TextBox4.Text = (Me.TextBox1.Text & Me.Label2.Text)
            Me.TextBox1.Enabled = False
            Me.Button2.Enabled = False
            Me.TextBox3.Enabled = True
            Me.Button1.Enabled = True
            Me.Label7.Text = "Captcha wird geladen..."
            Application.DoEvents
            Dim url As String = ("https://user.web.de" & Strings.Split(str, "<img id=""captchaimg"" class=""bh"" src=""", -1, CompareMethod.Binary)(1).Split(New Char() { """"c })(0))
            Me.PictureBox1.Image = Me.GetImage(url)
            Me.Label7.Text = "Bitte geben Sie das Captcha ein!"
        Else
            Me.Label7.Text = "E-Mail-Adresse ist nicht verf" & ChrW(252) & "gbar."
            Me.Label7.ForeColor = Color.DarkRed
        End If
    End If
End Sub

Private Function GetImage(ByVal url As String) As Image
    Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
    request.Method = "GET"
    request.CookieContainer = Me.CookieCon
    request.Referer = "https://user.web.de/all.jsf"
    Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
    Dim reader As New StreamReader(response.GetResponseStream)
    Return Image.FromStream(reader.BaseStream)
End Function

Private Function GetSourceCode(ByVal url As String) As String
    Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
    request.Method = "GET"
    request.ContentType = "application/x-www-form-urlencoded"
    request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
    request.CookieContainer = Me.CookieCon
    request.Referer = "https://user.web.de/all.jsf"
    Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
    Dim reader As New StreamReader(response.GetResponseStream)
    Return reader.ReadToEnd
End Function

Private Function GetSourceCodePost(ByVal url As String, ByVal postdata As String) As String
    Dim bytes As Byte() = Encoding.ASCII.GetBytes(postdata)
    Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
    request.Method = "POST"
    request.ContentType = "application/x-www-form-urlencoded"
    request.ContentLength = bytes.Length
    request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
    request.CookieContainer = Me.CookieCon
    request.Referer = "https://user.web.de/all.jsf"
    request.GetRequestStream.Write(bytes, 0, bytes.Length)
    Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
    Dim reader As New StreamReader(response.GetResponseStream)
    Return reader.ReadToEnd
End Function

Und hier die ganzen Textboxen/Labels/Buttons etc. f�r die Form

PHP Code:


			
<DebuggerStepThrough> _
Private Sub InitializeComponent()
    Dim manager As New ComponentResourceManager(GetType(Form1))
    Me.Button1 = New Button
    Me.PictureBox1 = New PictureBox
    Me.Panel1 = New Panel
    Me.GroupBox1 = New GroupBox
    Me.Label8 = New Label
    Me.Label7 = New Label
    Me.Label6 = New Label
    Me.TextBox3 = New TextBox
    Me.Label5 = New Label
    Me.Label2 = New Label
    Me.Button2 = New Button
    Me.TextBox1 = New TextBox
    Me.Label1 = New Label
    Me.Label9 = New Label
    Me.Label10 = New Label
    Me.TextBox2 = New TextBox
    Me.TextBox4 = New TextBox
    DirectCast(Me.PictureBox1, ISupportInitialize).BeginInit
    Me.GroupBox1.SuspendLayout
    Me.SuspendLayout
    Me.Button1.Enabled = False
    Me.Button1.Font = New Font("Razer Regular", 8.999999!, FontStyle.Italic)
    Me.Button1.ForeColor = SystemColors.ActiveCaptionText
    Dim point2 As New Point(&H9A, &HE9)
    Me.Button1.Location = point2
    Me.Button1.Name = "Button1"
    Dim size2 As New Size(&H6F, &H21)
    Me.Button1.Size = size2
    Me.Button1.TabIndex = 0
    Me.Button1.Text = "Registrieren"
    Me.Button1.UseVisualStyleBackColor = True
    Me.PictureBox1.BorderStyle = BorderStyle.FixedSingle
    point2 = New Point(&H7E, 100)
    Me.PictureBox1.Location = point2
    Me.PictureBox1.Name = "PictureBox1"
    size2 = New Size(220, 50)
    Me.PictureBox1.Size = size2
    Me.PictureBox1.TabIndex = 1
    Me.PictureBox1.TabStop = False
    Me.Panel1.BackColor = Color.White
    Me.Panel1.BackgroundImage = DirectCast(manager.GetObject("Panel1.BackgroundImage"), Image)
    Me.Panel1.BackgroundImageLayout = ImageLayout.Center
    Me.Panel1.Dock = DockStyle.Top
    point2 = New Point(0, 0)
    Me.Panel1.Location = point2
    Me.Panel1.Name = "Panel1"
    size2 = New Size(&H1CA, &H4E)
    Me.Panel1.Size = size2
    Me.Panel1.TabIndex = 2
    Me.GroupBox1.BackColor = SystemColors.ActiveCaptionText
    Me.GroupBox1.Controls.Add(Me.TextBox4)
    Me.GroupBox1.Controls.Add(Me.TextBox2)
    Me.GroupBox1.Controls.Add(Me.Label10)
    Me.GroupBox1.Controls.Add(Me.Label9)
    Me.GroupBox1.Controls.Add(Me.Label8)
    Me.GroupBox1.Controls.Add(Me.Label7)
    Me.GroupBox1.Controls.Add(Me.Label6)
    Me.GroupBox1.Controls.Add(Me.TextBox3)
    Me.GroupBox1.Controls.Add(Me.Button1)
    Me.GroupBox1.Controls.Add(Me.Label5)
    Me.GroupBox1.Controls.Add(Me.PictureBox1)
    Me.GroupBox1.Controls.Add(Me.Label2)
    Me.GroupBox1.Controls.Add(Me.Button2)
    Me.GroupBox1.Controls.Add(Me.TextBox1)
    Me.GroupBox1.Controls.Add(Me.Label1)
    Me.GroupBox1.Font = New Font("Razer Regular", 8.999999!, FontStyle.Italic)
    Me.GroupBox1.ForeColor = SystemColors.Control
    point2 = New Point(5, &H54)
    Me.GroupBox1.Location = point2
    Me.GroupBox1.Name = "GroupBox1"
    size2 = New Size(&H1C0, &H17D)
    Me.GroupBox1.Size = size2
    Me.GroupBox1.TabIndex = 4
    Me.GroupBox1.TabStop = False
    Me.GroupBox1.Text = "Register"
    Me.Label8.AutoSize = True
    Me.Label8.Font = New Font("Razer Regular", 8.999999!, FontStyle.Italic)
    Me.Label8.ForeColor = SystemColors.Control
    point2 = New Point(&H160, &H16)
    Me.Label8.Location = point2
    Me.Label8.Name = "Label8"
    size2 = New Size(&H51, 15)
    Me.Label8.Size = size2
    Me.Label8.TabIndex = 11
    Me.Label8.Text = "(5 Zeichen!)"
    Me.Label7.AutoSize = True
    Me.Label7.Font = New Font("Arial", 9.75!, FontStyle.Bold, GraphicsUnit.Point, 0)
    Me.Label7.ForeColor = Color.DarkGreen
    point2 = New Point(&H7B, &HC5)
    Me.Label7.Location = point2
    Me.Label7.Name = "Label7"
    size2 = New Size(60, &H10)
    Me.Label7.Size = size2
    Me.Label7.TabIndex = 10
    Me.Label7.Text = "wartend"
    Me.Label6.AutoSize = True
    Me.Label6.Font = New Font("Razer Regular", 8.999999!, FontStyle.Italic)
    Me.Label6.ForeColor = SystemColors.Control
    point2 = New Point(15, &HC6)
    Me.Label6.Location = point2
    Me.Label6.Name = "Label6"
    size2 = New Size(&H39, 15)
    Me.Label6.Size = size2
    Me.Label6.TabIndex = 9
    Me.Label6.Text = "Status:"
    Me.TextBox3.Enabled = False
    Me.TextBox3.Font = New Font("Candara", 9!)
    point2 = New Point(&H7E, &H9C)
    Me.TextBox3.Location = point2
    Me.TextBox3.Name = "TextBox3"
    size2 = New Size(220, &H16)
    Me.TextBox3.Size = size2
    Me.TextBox3.TabIndex = 8
    Me.Label5.AutoSize = True
    Me.Label5.Font = New Font("Razer Regular", 8.999999!, FontStyle.Italic)
    Me.Label5.ForeColor = SystemColors.Control
    point2 = New Point(15, &H9D)
    Me.Label5.Location = point2
    Me.Label5.Name = "Label5"
    size2 = New Size(&H41, 15)
    Me.Label5.Size = size2
    Me.Label5.TabIndex = 7
    Me.Label5.Text = "Captcha:"
    Me.Label2.AutoSize = True
    Me.Label2.Font = New Font("Razer Regular", 8.999999!, FontStyle.Italic)
    Me.Label2.ForeColor = SystemColors.Control
    point2 = New Point(&H119, &H17)
    Me.Label2.Location = point2
    Me.Label2.Name = "Label2"
    size2 = New Size(&H39, 15)
    Me.Label2.Size = size2
    Me.Label2.TabIndex = 3
    Me.Label2.Text = "@web.de"
    Me.Button2.Font = New Font("Razer Regular", 8.999999!, FontStyle.Italic)
    Me.Button2.ForeColor = SystemColors.ActiveCaptionText
    point2 = New Point(&H9A, &H30)
    Me.Button2.Location = point2
    Me.Button2.Name = "Button2"
    size2 = New Size(&H6F, &H21)
    Me.Button2.Size = size2
    Me.Button2.TabIndex = 2
    Me.Button2.Text = "Get Captcha"
    Me.Button2.UseVisualStyleBackColor = True
    Me.TextBox1.Font = New Font("Candara", 9!, FontStyle.Regular, GraphicsUnit.Point, 0)
    point2 = New Point(&H7E, &H16)
    Me.TextBox1.Location = point2
    Me.TextBox1.Name = "TextBox1"
    size2 = New Size(&H95, &H16)
    Me.TextBox1.Size = size2
    Me.TextBox1.TabIndex = 1
    Me.Label1.AutoSize = True
    Me.Label1.Font = New Font("Razer Regular", 8.999999!, FontStyle.Italic, GraphicsUnit.Point, 0)
    Me.Label1.ForeColor = SystemColors.Control
    point2 = New Point(6, &H18)
    Me.Label1.Location = point2
    Me.Label1.Name = "Label1"
    size2 = New Size(110, 15)
    Me.Label1.Size = size2
    Me.Label1.TabIndex = 0
    Me.Label1.Text = "E-Mail Adresse:"
    Me.Label9.AutoSize = True
    Me.Label9.Font = New Font("Razer Regular", 8.999999!, FontStyle.Italic)
    Me.Label9.ForeColor = SystemColors.Control
    point2 = New Point(6, &H12B)
    Me.Label9.Location = point2
    Me.Label9.Name = "Label9"
    size2 = New Size(&H74, 15)
    Me.Label9.Size = size2
    Me.Label9.TabIndex = 12
    Me.Label9.Text = "E-Mail Adresse :"
    Me.Label10.AutoSize = True
    Me.Label10.Font = New Font("Razer Regular", 8.999999!, FontStyle.Italic)
    Me.Label10.ForeColor = SystemColors.Control
    point2 = New Point(&H2B, &H14C)
    Me.Label10.Location = point2
    Me.Label10.Name = "Label10"
    size2 = New Size(&H4F, 15)
    Me.Label10.Size = size2
    Me.Label10.TabIndex = 13
    Me.Label10.Text = "Passwort :"
    Me.TextBox2.Enabled = False
    Me.TextBox2.Font = New Font("Candara", 9!)
    point2 = New Point(&H7E, 330)
    Me.TextBox2.Location = point2
    Me.TextBox2.Name = "TextBox2"
    size2 = New Size(&HB0, &H16)
    Me.TextBox2.Size = size2
    Me.TextBox2.TabIndex = 14
    Me.TextBox4.Enabled = False
    Me.TextBox4.Font = New Font("Candara", 9!)
    point2 = New Point(&H7E, &H129)
    Me.TextBox4.Location = point2
    Me.TextBox4.Name = "TextBox4"
    size2 = New Size(&HB0, &H16)
    Me.TextBox4.Size = size2
    Me.TextBox4.TabIndex = 15
    Dim ef2 As New SizeF(6!, 13!)
    Me.AutoScaleDimensions = ef2
    Me.AutoScaleMode = AutoScaleMode.Font
    Me.BackColor = SystemColors.ActiveCaptionText
    size2 = New Size(&H1CA, &H1D7)
    Me.ClientSize = size2
    Me.Controls.Add(Me.GroupBox1)
    Me.Controls.Add(Me.Panel1)
    Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
    Me.Name = "Form1"
    Me.Text = "Web Account Creator     |by IceBaer   www.elitepvpers.com "
    DirectCast(Me.PictureBox1, ISupportInitialize).EndInit
    Me.GroupBox1.ResumeLayout(False)
    Me.GroupBox1.PerformLayout
    Me.ResumeLayout(False)
End Sub