![[Release] Sminckes Char Creator V2](https://www.elitepvpers.com/forum/iconimages/s4-league-hacks-bots-cheats-exploits/release-sminckes-char-creator-v2_ltr.gif){kind=small}
Erstellt so viele Accounts, wie ihr könnt denn er wird nicht lange funktionieren weil die die E-Mail bestimmt auf die Blacklist setzen aber solange er geht habt Spaß
. Den Code halte ich bis zu seinem fix unter verschluss.BEI MIR GEHT ER NICHT MEHR
Code:
#include "WinHttp.au3"
$hGui = GUICreate("Sminckes Account Creator", 258, 60, 192, 124, -2067267584)
$hName = GUICtrlCreateInput("", 48, 8, 121, 21)
$hPass = GUICtrlCreateInput("", 48, 32, 121, 21, 160)
GUICtrlCreateLabel("Name:", 8, 10, 35, 17)
GUICtrlCreateLabel("Pass:", 8, 34, 30, 17)
$hRegister = GUICtrlCreateButton("Register", 176, 7, 75, 47)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hRegister
GUICtrlSetState($hRegister, 128)
$Name = GUICtrlRead($hName)
$Pass = GUICtrlRead($hPass)
Register($Name, $Pass)
$sLink = GetLink($Name)
Submit($Name, $Pass, $sLink)
MsgBox(64, "Sminckes Account Creator V2", "Registration Succesfull!")
GUICtrlSetState($hRegister, 64)
EndSwitch
WEnd
Func Register($sName, $sPass)
Local $sHost, $hAgent, $hConnect, $hRequest, $sPost
$sHost = "de.alaplaya.net"
$sPost = 'user%5Blogin%5D=' & $sName & '&user%5Bpassword%5D=' & $sPass & '&user%5Bpassword_confirmation%5D=' & $sPass & '&user%5Bnickname%5D=' & $sName & '&user%5Bemail%5D=' & $sName & '%40misterpinball.de&user%5Bemail_confirmation%5D=' & $sName & '%40misterpinball.de&user%5Bbirthday%283i%29%5D=' & Random(1, 28, 1) & '&user%5Bbirthday%282i%29%5D=' & Random(1, 12, 1) & '&user%5Bbirthday%281i%29%5D=' & Random(1960, 1990, 1) & '&user%5Bgender%5D=m&user%5Bcountry_id%5D=1&user%5Bnewsletter%5D=0&user%5Bterms_of_service%5D=1&user%5Bterms_of_service%5D=0&user%5Busedform%5D=usernew'
$hAgent = _WinHttpOpen("User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16")
$hConnect = _WinHttpConnect($hAgent, $sHost)
$hRequest = _WinHttpOpenRequest($hConnect, "POST", "/users", "HTTP/1.1", $sHost)
_WinHttpSendRequest($hRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $sPost)
_WinHttpCloseHandle($hRequest)
EndFunc
Func GetLink($sName)
Local $sHost, $hAgent, $hConnect, $hRequest, $sPost, $sHtml, $aLink, $hTimer = TimerInit()
$sHost = "www.spambog.com"
$sPost = 'ajaxRequest=false&content=inbox&strLoginUsername=' & $sName & '&intLoginDomainId=40&strLoginPassword=&btnLogin=Abrufen'
$hAgent = _WinHttpOpen("User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16")
$hConnect = _WinHttpConnect($hAgent, $sHost)
$hRequest = _WinHttpOpenRequest($hConnect, "POST", "/de/inbox.htm", "HTTP/1.1", $sHost)
Do
_WinHttpSendRequest($hRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $sPost)
_WinHttpReceiveResponse($hRequest)
$sHtml = ""
Do
$sHtml &= _WinHttpReadData($hRequest)
Until @error
Sleep(10)
If TimerDiff($hTimer) > 600000 Then
MsgBox(32, "Sminckes Char Creator V2", "An error has occurred!!!")
Exit
EndIf
Until StringInStr($sHtml, "Aktivierungslink")
_WinHttpCloseHandle($hRequest)
$aLink = StringRegExp($sHtml, "http://www\.spambog\.com(/de/message/view.+?.htm)", 3)
$hRequest = _WinHttpOpenRequest($hConnect, "GET", $aLink[0], "HTTP/1.1", $sHost)
_WinHttpSendRequest($hRequest)
_WinHttpReceiveResponse($hRequest)
$sHtml = ""
Do
$sHtml &= _WinHttpReadData($hRequest)
Until @error
_WinHttpCloseHandle($hRequest)
$aLink = StringRegExp($sHtml, 'http://anonym\.to/\?http://account\.alaplaya\.net(.+?)"', 3)
Return $aLink[0]
EndFunc
Func Submit($sName, $sPass, $sLink)
Local $sHost, $hAgent, $hConnect, $hRequest, $sPost, $sHtml
$sHost = "account.alaplaya.net"
$sPost = 'login=' & $sName & '&password=' & $sPass & '&commit=Login+'
$hAgent = _WinHttpOpen("User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16")
$hConnect = _WinHttpConnect($hAgent, $sHost)
$hRequest = _WinHttpOpenRequest($hConnect, "GET", $sLink, "HTTP/1.1", $sHost)
_WinHttpSendRequest($hRequest)
_WinHttpReceiveResponse($hRequest)
$sHtml = ""
Do
$sHtml &= _WinHttpReadData($hRequest)
Until @error
ClipPut($sHtml)
$hRequest = _WinHttpOpenRequest($hConnect, "POST", "/session", "HTTP/1.1", $sHost)
_WinHttpSendRequest($hRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $sPost)
_WinHttpCloseHandle($hRequest)
EndFunc
Thanks 
