[Au3]Web.de Mail Creator [Source][Free]

Wie ihr am Topic vermutlich erkennt, stelle ich hier ein paar Zeilen zur Verf�gung.

Es handelt sich hierbei um den Sourcecode eines Web.de Mail Creators.
Ich poste das absichtlich nicht in die Freebies-Sektion, da es nur zu Lernzwecken gedacht ist.
Der eine oder andere kann damit bestimmt etwas anfangen.

Wichtig:
Das Programm funktioniert zwar vereinzelt, ist allerdings innerhalb weniger Minuten entstanden. Ist also nur zu Test-/Lernzwecken.

Wenn jemand meint die Copyright einfach zu �ndern, zu compilieren und dann auchnoch zu verkaufen, der wird eine Abmahnung erhalten.

Source:

Quote:

#RequireAdmin
#NoTrayIcon

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiStatusBar.au3>
#include <String.au3>
#include <GuiListView.au3>

#include "WinHTTP.au3"
#include "File.au3"
$hCAcc = 0
$hProxy = 0

$Form1 = GUICreate("Web.de Mail Creator", 285, 308, -1, -1)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
Dim $StatusBar1_PartsWidth[1] = [-1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, "� by Fl00d3R", 0)
$Input1 = GUICtrlCreateInput("", 16, 96, 201, 21)
$Input2 = GUICtrlCreateInput("Password", 8, 8, 265, 21)
$Group1 = GUICtrlCreateGroup("Mail", 8, 120, 265, 161)
$ListView1 = GUICtrlCreateListView("Mail|Passwort", 16, 136, 250, 134, BitOR($GUI_SS_DEFAULT_LISTVIEW, $WS_VSCROLL))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 123)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 123)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic("", 8, 40, 220, 50)
$Button1 = GUICtrlCreateButton(@CR & @CR & "Load" & @CR & "Proxy", 232, 32, 43, 89, $BS_MULTILINE)
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)

_loadCAPTCHA()
GUICtrlSetBkColor($Button1, 0x008000)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Input1
GUICtrlSetBkColor($Button1, 0xFF0000)
GUICtrlSetImage($Pic1, "")
_sendData()
GUICtrlSetData($Input1, "")
_loadCAPTCHA()
ToolTip("")
GUICtrlSetBkColor($Button1, 0x008000)
Case $Button1
If $hCAcc = 0 Then
If $hProxy = 1 Then
Sleep(0)
Else
Global $hProxyFilePath = FileOpenDialog("Load proxy...", @ScriptDir, "Textfile(*.txt)")
If @error = 1 Then
Sleep(0)
Else
$hProxy = 1
GUICtrlSetData($Button1, @CR & @CR & @CR & "")
GUICtrlSetImage($Pic1, "")
_loadCAPTCHA()
EndIf
EndIf
Else
For $l = 1 To $hCAcc
$hSAccounts = _GUICtrlListView_GetItemTextArray($ListView1, $l - 1)
FileWrite("Mails.txt", $hSAccounts[1] & ":" & $hSAccounts[2] & "" & @CRLF)
Next
MsgBox(64, "Saved", "Saved to Mails.txt")
EndIf
EndSwitch
WEnd

Func _loadCAPTCHA()
GUICtrlSetBkColor(-1, 0xFF0000)
Dim $useragents[10]
$useragents[0] = 'Lynx/2.8.4rel.1 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.6c'
$useragents[1] = 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)'
$useragents[2] = 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0.1) Gecko/20100101 Firefox/4.0.1'
$useragents[3] = 'Mozilla/5.0 (compatible; Konqueror/3.2; Linux 2.6.2) (KHTML, like Gecko)'
$useragents[4] = 'Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en) AppleWebKit/125.2 (KHTML, like Gecko) Safari/125.8'
$useragents[5] = 'Mozilla/5.0 (OS/2; U; Warp 4.5; de; rv:1.8.1.11) Gecko/20071129 PmWFx/2.0.0.11'
$useragents[6] = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/525.13 (KHTML, like Gecko) Chrome/0.A.B.C Safari/525.13'
$useragents[7] = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10'
$useragents[8] = 'Mozilla/5.0 (X11; U; Linux i586; en-US; rv:1.7.3) Gecko/20040924 Epiphany/1.4.4 (Ubuntu) '
$useragents[9] = 'Opera/9.80 (Macintosh; Intel Mac OS X; U; en) Presto/2.2.15 Version/10.00'

Global $hSession = _WinHttpOpen($useragents[Random(0, 9, 1)])
If $hProxy = 1 Then
$hProxyFileLines = _FileCountLines($hProxyFilePath)
$ProxyIP = FileReadLine($hProxyFilePath, Random(1, $hProxyFileLines, 1))
Local $tWINHTTP_PROXY_INFO[2] = [DllStructCreate("DWORD dwAccessType;ptr lpszProxy;ptr lpszProxyBypass;"), DllStructCreate('wchar proxychars[' & StringLen($ProxyIP) + 1 & ']; wchar proxybypasschars[10]')]
DllStructSetData($tWINHTTP_PROXY_INFO[0], "dwAccessType", $WINHTTP_ACCESS_TYPE_NAMED_PROXY)
DllStructSetData($tWINHTTP_PROXY_INFO[0], "lpszProxy", DllStructGetPtr($tWINHTTP_PROXY_INFO[1], 'proxychars'))
DllStructSetData($tWINHTTP_PROXY_INFO[0], "lpszProxyBypass", DllStructGetPtr($tWINHTTP_PROXY_INFO[1], 'proxybypasschars'))
DllStructSetData($tWINHTTP_PROXY_INFO[1], "proxychars", $ProxyIP)
DllStructSetData($tWINHTTP_PROXY_INFO[1], "proxybypasschars", "localhost")
_WinHttpSetOption($hSession, $WINHTTP_OPTION_PROXY, $tWINHTTP_PROXY_INFO[0])
MsgBox(0,"",$ProxyIP)
EndIf
Global $hConnect = _WinHttpConnect($hSession, "registrierung.web.de")
Global $sHTML1 = _WinHttpSimpleRequest($hConnect, "GET", "?1&mc=hp@fm@modullink.produkte@freemail", "https://www.web.de")

$Captchalink = _StringBetween($sHTML1, '<img class="captcha" width="220" height="50" border="0" id="id8b" src=".', '"/>')
If Not IsArray($Captchalink) Then
MsgBox(16, "Error", "Can't connect")
Else
$bCaptcha = _WinHttpSimpleRequest($hConnect, "GET", $Captchalink[0], Default, Default, Default, Default, 2)

$hFile = FileOpen(@ScriptDir & "\captcha.png", 18)
FileWrite($hFile, $bCaptcha)
FileClose($hFile)

GUICtrlSetImage($Pic1, @ScriptDir & "\captcha.png")

FileDelete(@ScriptDir & "\captcha.png")
EndIf

EndFunc ;==>_loadCAPTCHA

Func _sendData()
$hRandomGender = Random(1, 2, 1)
If $hRandomGender = 1 Then
$hGender = 11
Else
$hGender = 9
EndIf

$hFirstname = FileReadLine("names.txt", Random(1, _FileCountLines("names.txt"), 1))
$hLastname = FileReadLine("names.txt", Random(1, _FileCountLines("names.txt"), 1))
$hCity = FileReadLine("cities.txt", Random(1, _FileCountLines("cities.txt"), 1))
$hStreet = FileReadLine("streets.txt", Random(1, _FileCountLines("streets.txt"), 1))
$hMail = $hFirstname & "." & $hLastname & Random(1, 99, 1)
$hName = FileReadLine("names.txt", Random(1, _FileCountLines("names.txt"), 1))

$sHTML1 = _WinHttpSimpleSSlRequest($hConnect, "POST", "wicket/page?0-1.IFormSubmitListener-bodyContainer-brand~container~border-brand~container~border_body-signup~form-form", "https://registrierung.web.de/?0&mc=hp@fm@modullink.produkte@freemail", "id23_hf_0=&personaldataPanel%3Asalutation%3Achoic es=radio" & $hGender & "&personaldataPanel%3Afirst-name%3Atextfield=" & $hFirstname & "&personaldataPanel%3Alast-name%3Atextfield=" & $hLastname & "&personaldataPanel%3AcountryDependentZipCodeC ity-form%3Acountry%3Adropdown=DE&personaldataPanel%3Ac ountryDependentZipCodeCity-form%3AzipCodeAndCity%3AzipCode-textfield=" & Random(30000, 80000, 1) & "&personaldataPanel%3AcountryDependentZipCodeC ity-form%3AzipCodeAndCity%3Acity-textfield=" & $hCity & "&personaldataPanel%3AstreetAndStreetNumber%3Astre etName-textfield=" & $hStreet & "+&personaldataPanel%3AstreetAndStreetNumber%3Astr eetNumber-textfield=" & Random(1, 100, 1) & "&personaldataPanel%3Abirthday%3Abirthdata%3Abirth day-textfield=" & Random(1, 28, 1) & "&personaldataPanel%3Abirthday%3Abirthdata%3Abirth month-textfield=" & Random(1, 12, 1) & "&personaldataPanel%3Abirthday%3Abirthdata%3Abirth year-textfield=" & Random(1950, 1990, 1) & "&wishnamePanel%3Awishname%3AsubForm%3Aalias=" & $hMail & "&passwordPanel%3Apassword-form%3Apassword%3Atextfield=" & GUICtrlRead($Input2) & "&passwordPanel%3Apassword-form%3Apassword-confirm%3Atextfield=" & GUICtrlRead($Input2) & "&passwordPanel%3Aemail%3Atextfield=&passwordPanel %3AmobileNumberPanel%3Atextfield=&passwordPanel%3A challenge-parent%3Achallenge%3Adropdown=0&passwordPanel%3Aan swer%3Atextfield=" & $hName & "&captchaPanel%3Acaptcha-response%3Atextfield=" & GUICtrlRead($Input1))
_WinHttpCloseHandle($sHTML1)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hSession)
If StringInStr($sHTML1, "https://www3.oms.digitaledienste.web.de/freemail/willkommensgeschenk_warp/") Then
$hPositionT = _GUICtrlListView_AddItem($ListView1, $hMail & "@web.de", -1, $hMail & "@web.de:" & GUICtrlRead($Input2))
_GUICtrlListView_AddSubItem($ListView1, $hPositionT, GUICtrlRead($Input2), 1)
$hCAcc = $hCAcc + 1
GUICtrlSetData($Button1, @CR & @CR & @CR & "Save")
ElseIf StringInStr($sHTML1, "Ihre IP-Adresse kann aufgrund eines Missbrauchsfalles gesperrt sein,") Then
ToolTip("Can't create: " & $hMail & "@web.de" & @CRLF & "ip blocked", MouseGetPos(0), MouseGetPos(1), "Web.de Mail Creator by Fl00d3R", 3)
ElseIf StringInStr($sHTML1, "Eine oder mehrere Angaben konnten nicht verarbeitet werden") Then
ToolTip("Can't create: " & $hMail & "@web.de" & @CRLF & "wrong captcha", MouseGetPos(0), MouseGetPos(1), "Web.de Mail Creator by Fl00d3R", 3)
Else
ToolTip("Can't create: " & $hMail & "@web.de" & @CRLF & "unkown error", MouseGetPos(0), MouseGetPos(1), "Web.de Mail Creator by Fl00d3R", 3)
EndIf
EndFunc ;==>_sendData

Ein Bundle aller ben�tigten Dateien findet ihr im Anhang, dort passt auch die Struktur des Scripts, welche hier nicht stimmt.
Ein Virustotal-Link halte ich bei Textdateien f�r Sinnlos.

LG Fl00d3R