[Tool]Web.de E-Mail Creator

[NUKER_PUMA]

Probier ich jetz mal, aber wäre besser wenn der von gmx wär

[.exTremez™]

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@[email protected]@freemail@anmeldung")
        Dim str As String = Me.GetSourceCodePost("https://user.web.de/all.jsf?mc=produkte@[email protected]@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 


[Train™]

geht der noch????

[Diablo_]

Originally Posted by Train™

geht der noch????

Teste es doch einfach.

[Train™]

funkt bei mir ned!

[iRofl]

Ich habs war mal so frei, und habs decopilt, ein paar sachen geändert, und er geht wunderbar!

[BeastSnake]

Hat jemand so ein tool? das geht danke

[.exTremez™]

Originally Posted by BeastSnake

Hat jemand so ein tool? das geht danke

• Decompilen
• Bissen umschreiben
• Ende

[NUKER_PUMA]

Sehr praktisch, währe bei Gmx aber besser

Trotzdem großes Lob

[Diablo_]

Falls die Nachrage für ein GMX Accountgenerator groß sein sollte, kann ich dafür einen Generator machen. Wenn ihr wollt.

Im Prinzip ist es doch aber egal ob Web.de oder GMX.net oder?

[MoepMeep]

Originally Posted by Diablo_

Falls die Nachrage für ein GMX Accountgenerator groß sein sollte, kann ich dafür einen Generator machen. Wenn ihr wollt.

Im Prinzip ist es doch aber egal ob Web.de oder GMX.net oder?

Theoretisch schon, praktisch wird sich zeigen

[Diablo_]

Originally Posted by MoepMeep

Theoretisch schon, praktisch wird sich zeigen

Was meinst du genau? Theoretisch wollen einige so einen Generator oder theoretisch ist es egal ob Web.de oder GMX.net?

Ich bin bei solchen Sachen immer in Perfektionist, was nicht heißt, dass meine Programme immer perfekt sind.

Allerdings kostet es schon ein bisschen Zeit und möchte es halt nicht umsonst machen.

[MoepMeep]

Theoretisch ist es egal welcher Email Anbieter.

[maskedman]

vielleicht einfach mal hochladen und nicht so neunmal klug schreiben was zu tun ist.. nicht jeder ist ein coder in dem gebiet...

[Lеlouch]

Funktioniert der noch?