[Release] Account Creat0Я

[pamz12]

you wrote it in german but anyway, i returned a thanks :P

[katze123]

kommen bestimmt lustige namen bei raus xD

[RunzelEier]

vorallem die alters grenzen sind geil
von 1800 - 2000

[OnlyLT]

Lol created acc for 1st time and it was blocked before i loged in for the first time, how is that posible? xDDD

[VaNilleZ]

What about the name, you don't type the name into. Maybe that is the case?

You get mail and S/N, but for C/S you also need a valid ID, but without inserting your name you can't do much with it.

[meak1]

i needed to reinstall my pc and lost the new account creator but it wasnt much different, here u go fuck tard

PHP Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Unbenannt.ico
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include<String.au3>

;FileDelete(@ScriptDir & "\test.html")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("A.Creat0r by meak1", 242, 128, 232, 262)
$UserID = GUICtrlCreateInput("ID", 8, 16, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetLimit(-1, 12)
$Password = GUICtrlCreateInput("Password", 8, 45, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUICtrlSetLimit(-1, 8)
$CreateAccount = GUICtrlCreateButton("Create Account", 144, 14, 89, 53, 0)
$Label1 = GUICtrlCreateLabel("Status:", 8, 78, 37, 17)
$StatusInput = GUICtrlCreateInput("", 8, 96, 225, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $working
Dim $secureRKey
Dim $accountID
Dim $randNick,$accountPW,$randFname,$randNname,$randMale_female,$jahr ,$rMonat,$rDay,$rAddress,$rCity,$rQ2,$rMail,$EmailNumber,$SN,$Cookies
dim $currentprofile = "Accounts.ini"
dim $count = 1

Do
$nextX = IniRead ($currentprofile, "ID", $count, "")
if $nextX <> '' Then
    $count = $count + 1
EndIf
Until $nextX == ''

Xdeh()
Func Xdeh()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg

                Case $CreateAccount
                    Dim $randNick,$accountPW,$randFname,$randNname,$randMale_female,$jahr ,$rMonat,$rDay,$rAddress,$rCity,$rQ2,$rMail,$EmailNumber,$SN,$Cookies
            $working = 1
$accountID = GUICtrlRead($UserID,1)
$accountPW = GUICtrlRead($Password ,1)
$CheckID = "GET /User/WebIdCheck.asp?id=" & $accountID & " HTTP/1.1" & @CRLF & _
"Host: www.inixgame.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:2.0.1) Gecko/20100101 Firefox/4.0.1" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 115" & @CRLF & _
"Connection: keep-alive" & @CRLF & @CRLF


if StringLen($accountID) < 4 Then
    ;MsgBox(0,"","ID must be over 4 letters.")
        GUICtrlSetData($StatusInput,"ID must be over 4 letters.")
$working = 1
Xdeh()
Else
    $working = $working + 2
EndIf

if StringLen($accountPW) < 6 Then
    GUICtrlSetData($StatusInput,"Password must be over 6 letters.")
    ;MsgBox(0,"","Password must be over 6 letters.")
$working = 1
Xdeh()
Else
    $working = $working + 2
    EndIf




TCPStartup()
$socket=TCPConnect("222.111.213.23",80)
$recv=TCPSend($socket, $CheckID)
Do
$recv4=TCPRecv($socket, 1024)
Until $recv4 <> ''
Do
$recv4&=TCPRecv($socket, 1024)
Until @error OR StringInStr($recv4,"</html>")
Do
$YouMay= _StringBetween($recv4,' align=center>','</td></tr><script language=')
Until $YouMay <> ""

if($YouMay[0] = "You can't use this ID") Then
GUICtrlSetData($StatusInput,$YouMay[0])
$working = 1
Xdeh()
Else
GUICtrlSetData($StatusInput,"Your ID is OK - Account get Created!")
Sleep(2000)
    EndIf
TCPCloseSocket($socket)
TCPShutdown()
if $working > 4 Then
StartPage()
;MsgBox(0,"",$secureRKey[0])
For $i = 1 To 8
    $Buchstabe = Chr(Random(Asc("a"), Asc("z"), 1))
    $rCity &= $Buchstabe
Next
For $i = 1 To 8
    $Buchstabe = Chr(Random(Asc("a"), Asc("z"), 1))
    $randNick &= $Buchstabe
Next
    $randNick &= Random(1,999,1)
For $i = 1 To 5
    $Buchstabe = Chr(Random(Asc("a"), Asc("z"), 1))
    $randFname &= $Buchstabe
Next
For $i = 1 To 5
    $Buchstabe = Chr(Random(Asc("a"), Asc("z"), 1))
    $randNname &= $Buchstabe
Next
$randMale_female = Random(1,2,1)
if $randMale_female = 1 Then
    $randMale_female = "Female"
EndIf

if $randMale_female = 2 Then
    $randMale_female = "Male"
EndIf
$jahr = Random(1800,2000,1)
$rMonat = Random(1,12,1)
$rDay = Random(1,31,1)

For $i = 1 To 5
    $Buchstabe = Chr(Random(Asc("a"), Asc("z"), 1))
    $rAddress &= $Buchstabe
Next
$rAddress &= "+" & Random(1,250,1)

For $i = 1 To 3
    $Buchstabe = Chr(Random(Asc("a"), Asc("z"), 1))
    $rQ2 &= $Buchstabe
Next
;;MsgBox(0,"","create it!")
CreateIt()
RecvEmail()
EndIf
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
EndFunc

Func CreateIt()
    $secKey = "secureRKey=" & $secureRKey[0] & "&GameType=&id="& $accountID & "&NickName=" & $randNick & "&Pass1=" & $accountPW & "&Pass2=" & $accountPW & "&F_Name=" & $randFname & "&L_Name=" & $randNname & "&Gender=" & $randMale_female & "&Birth_YY=" & $jahr & "&Birth_MM=" & $rMonat &"&Birth_DD=" & $rDay &" &Nation=DE&Address="& $rAddress &"&City=" & $rCity & "    &Question1=5&Question2="& $rQ2 & "&SafeNum=" & $secureRKey[0] & "&image.x=15&image.y=10"
$Create = "POST /SSL/memberregstep4.asp HTTP/1.1" & @CRLF & _
"Host: www.inixgame.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:2.0.1) Gecko/20100101 Firefox/4.0.1" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 115" & @CRLF & _
"Connection: keep-alive" & @CRLF & _
"Cookie: " & $Cookies & @CRLF & _
"Content-Type: application/x-www-form-urlencoded" & @CRLF & _
"Content-Length: 258" & @CRLF & @CRLF & $secKey
;MsgBox(0,"",$secKey)
TCPStartup()
$socket=TCPConnect("222.111.213.23",80)
$recv=TCPSend($socket, $Create)
Do
$recv3=TCPRecv($socket, 1024)
Until $recv3 <> ''
Do
$recv3&=TCPRecv($socket, 1024)
Until @error OR StringInStr($recv3,"</html>")
IniWrite ($currentprofile, "ID", $count, $accountID)
IniWrite ($currentprofile, "PW", $count, $accountPW)
;FileWrite(@scriptdir & "\test.html", $recv3)
;MsgBox(0,"","complete!")
TCPCloseSocket($socket)
TCPShutdown()
    EndFunc

Func StartPage()
$Game = "GameType=00&confirmchk01=checkbox&confirmchk02=checkbox&confirmchk03=checkbox&confirmchk=checkbox"
$CreatePage = "POST /User/MemberRegStep3.asp HTTP/1.1" & @CRLF & _
"Host: www.inixgame.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:2.0.1) Gecko/20100101 Firefox/4.0.1" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 115" & @CRLF & _
"Connection: keep-alive" & @CRLF & _
"Content-Type: application/x-www-form-urlencoded" & @CRLF & _
"Content-Length: 97" & @CRLF & @CRLF & $Game

TCPStartup()
$socket=TCPConnect("222.111.213.23",80)
$recv=TCPSend($socket, $CreatePage)
Do
$recv2=TCPRecv($socket, 1024)
Until $recv2 <> ''
Do
$recv2&=TCPRecv($socket, 1024)
Until @error OR StringInStr($recv2,"</html>")
Do
$secureRKey= _StringBetween($recv2,'<input type="hidden" name="secureRKey" value="','">')
Until $secureRKey <> ""
$Cookies = GETCOOKIES($recv2)
;FileWrite(@scriptdir & "\test.html", $recv2)
TCPCloseSocket($socket)
TCPShutdown()
    EndFunc

    Func RecvEmail()
        For $i = 1 To 5
    $Buchstabe = Chr(Random(Asc("a"), Asc("z"), 1))
    $rMail &= $Buchstabe
Next
$rMail &= Random(1,999,1)
    $mail =    "GET /user/MemberRegMailSend.asp?Email="& $rMail & "@mailinator.com HTTP/1.1" & @CRLF & _
"Host: www.inixgame.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:2.0.1) Gecko/20100101 Firefox/4.0.1" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 115" & @CRLF & _
"Connection: keep-alive" & @CRLF & _
"Cookie: " & $Cookies & @CRLF & @CRLF

;MsgBox(0,"", $mail)
TCPStartup()
$socket=TCPConnect("222.111.213.23",80)
$recv=TCPSend($socket, $mail)
Do
$recv6=TCPRecv($socket, 1024)
Until $recv6 <> ''
Do
$recv6&=TCPRecv($socket, 1024)
Until @error OR StringInStr($recv6,"</html>") OR StringInStr($recv6,"</script>")

GUICtrlSetData($StatusInput,"Your secret number has been sent.")
Sleep(3000)
;FileWrite(@scriptdir & "\test.html", $recv6)
TCPCloseSocket($socket)
TCPShutdown()
;MsgBox(0,"","EMAIL: " & $rMail &"@mailinator.com")
IniWrite ($currentprofile, "EMAIL", $count, $rMail &"@mailinator.com")
Emails()
        EndFunc

Func Emails()
    ;;MsgBox(0,"Check","CHECKIT")
$GetEmails = "GET /maildir.jsp?email=" & $rMail & "&x=5&y=15 HTTP/1.1" & @CRLF & _
"Host: mailinator.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:2.0.1) Gecko/20100101 Firefox/4.0.1" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 115" & @CRLF & _
"Connection: keep-alive" & @CRLF & @CRLF
Do
TCPStartup()
$socket=TCPConnect("66.135.37.96",80)
$recv=TCPSend($socket, $GetEmails)
Do
$recv3=TCPRecv($socket, 1024)
Until $recv3 <> ''
Do
$recv3&=TCPRecv($socket, 1024)
Until @error OR StringInStr($recv3,"</html>")

$EmailNumber= _StringBetween($recv3,'<td bgcolor=#EEEEFF><b>global@ inixsoft.co.kr</b></td><td bgcolor=#EEEEFF align=center><a href=/displayemail.jsp?email=' & $rMail & '&msgid=','>KalOnline Authentication Number</a></td><td>')
GUICtrlSetData($StatusInput,"Waiting for Recviving Email - SN")
Until $EmailNumber <> ""
;MsgBox(0,"lol",$EmailNumber[0])
Sleep(3000)
;FileWrite(@scriptdir & "\test.html", $recv3)
;;MsgBox(0,"",$EmailNumber[0])

TCPCloseSocket($socket)
TCPShutdown()
GetMail()
EndFunc

Func GetMail()
    ;;MsgBox(0,"WORKS","GREATE")
    $Email = "GET /displayemail.jsp?email="& $rMail & "&msgid="& $EmailNumber[0] & " HTTP/1.1" & @CRLF & _
"Host: mailinator.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:2.0.1) Gecko/20100101 Firefox/4.0.1" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 115" & @CRLF & _
"Connection: keep-alive" & @CRLF & @CRLF
TCPStartup()
$socket=TCPConnect("66.135.37.96",80)
$recv=TCPSend($socket, $Email)
Do
$recv4=TCPRecv($socket, 1024)
Until $recv4 <> ''
Do
$recv4&=TCPRecv($socket, 1024)
Until @error OR StringInStr($recv4,"</html>")
Do
$SN= _StringBetween($recv4,'Secret Number&nbsp;:&nbsp;','Date of register')
Until $SN <> ""
GUICtrlSetData($StatusInput,"Recvived SN: " & $SN[0])
Sleep(3000)
;MsgBox(0,"","SN: "& $SN[0])
IniWrite ($currentprofile, "SN", $count, $SN[0])
;FileWrite(@scriptdir & "\test.html", $recv4)
TCPCloseSocket($socket)
TCPShutdown()
Register()
EndFunc

Func Register()

    $MemberID = "MemberID="& $accountID & "&NickName="& $randNick &"&Pass1=" & $accountPW &"&F_Name=" & $randFname &"&L_Name=" & $randNname& "&Gender="& $randMale_female& "&Nation=DE&Address="& $rAddress& "&City="& $rCity&"&BirthOK="& $jahr&"-"&$rMonat &"-"&$rDay &"&Question1=5&Question2=" & $rQ2 &"&GameType=00&UserEmail="&$rMail &"%40mailinator.com&UserGoldSN=" &$SN[0] &"&image.x=17&image.y=7"
$regis = "POST /SSL/do_memreg.asp HTTP/1.1" & @CRLF & _
"Host: www.inixgame.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows NT 6.0; rv:2.0.1) Gecko/20100101 Firefox/4.0.1" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 115" & @CRLF & _
"Connection: keep-alive" & @CRLF & _
"Cookie: " & $Cookies & @CRLF & _
"Content-Type: application/x-www-form-urlencoded" & @CRLF & _
"Content-Length: " & StringLen($MemberID) & @CRLF & @CRLF & $MemberID

TCPStartup()
$socket=TCPConnect("222.111.213.23",80)
$recv=TCPSend($socket, $regis)
Do
$recv8=TCPRecv($socket, 1024)
Until $recv8 <> ''
Do
$recv8&=TCPRecv($socket, 1024)
Until @error OR StringInStr($recv8,"</html>") OR StringInStr($recv8,"</script>")

Do
$EndMessage= _StringBetween($recv8,'<script language=javascript>    alert(',');    location.href')
Until $EndMessage <> ""
;FileWrite(@scriptdir & "\test.html", $recv8)
GUICtrlSetData($StatusInput,"Gold Member registration complete.")
TCPCloseSocket($socket)
TCPShutdown()
;;MsgBox(0,"",StringLen($MemberID) & @CRLF & "Account erstellt!" & @CRLF & $MemberID )
EndFunc

Func GETCOOKIES($SQUELLCODE)
    Local $SCOOKIES, $I, $ACOOKIES
    $SCOOKIES = ""
    $ACOOKIES = _STRINGBETWEEN($SQUELLCODE, "Set-Cookie: ", ";", 1)
    For $I = 0 To UBound($ACOOKIES) - 1
        $SCOOKIES &= $ACOOKIES[$I] & ";"
    Next
    Return $SCOOKIES
EndFunc 


[meak1]

Updated, cause someone asked about it. IDC about ur accounts, never hacked someone/i'm just boring and helping some leechers ;\

[valzzz40]

Thanks for the update. Can you please make for Korean server to, if posible? Its hard to make account there because of KSSN.

Just ignore those ppl, they don't know you!

[meak1]

updated - email ip got changed.

[frnkrr]

Instead of updating this, update the BH function from ur tool! xD

[valzzz40]

Originally Posted by frnkrr

Instead of updating this, update the BH function from ur tool! xD

Wow sound like your the boss of Meak, what it u make your own tools then make it perfect BH??

[frnkrr]

Ofcourse i tried it myself but im no programmer, and it was a joke..
For your information "xD" means im joking.

And i dont get why you say im the boss of Meak? Looks like your asslicking to Meak trying to speak/defend for him xD (= joke)

[Birne123]

So do it on your own if you cant wait

[frnkrr]

Originally Posted by Birne123

So do it on your own if you cant wait

Wow, what is going on today? If you read my post you'll see that i tried to change it but after days i gave up, so i have to wait.

[SkanOner666]

does this tool still work?
only getting this -> Your ID is OK - Account get Created! ;/