you wrote it in german but anyway, i returned a thanks :P
[Release] Account Creat0Я
06/18/2012 22:39
pamz12#61
06/19/2012 11:29
katze123#62
kommen bestimmt lustige namen bei raus xD
06/19/2012 22:02
RunzelEier#63
vorallem die alters grenzen sind geil :D
von 1800 - 2000 :awesome:
von 1800 - 2000 :awesome:
06/26/2012 10:46
OnlyLT#64
Lol created acc for 1st time and it was blocked before i loged in for the first time, how is that posible? xDDD
06/26/2012 12:42
VaNilleZ#65
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.
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.
06/26/2012 16:17
meak1#66
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 : ','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
02/22/2013 00:20
meak1#67
Updated, cause someone asked about it. IDC about ur accounts, never hacked someone/i'm just boring and helping some leechers ;\
02/22/2013 05:57
valzzz40#68
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!:)
Just ignore those ppl, they don't know you!:)
05/25/2013 11:37
meak1#69
updated - email ip got changed.
05/25/2013 16:05
frnkrr#70
Instead of updating this, update the BH function from ur tool! xD
05/25/2013 21:28
valzzz40#71
Wow sound like your the boss of Meak, what it u make your own tools then make it perfect BH??Quote:
Instead of updating this, update the BH function from ur tool! xD
05/26/2013 10:28
frnkrr#72
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)
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)
05/26/2013 11:02
Birne123#73
So do it on your own if you cant wait
05/26/2013 12:14
frnkrr#74
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.Quote:
12/18/2013 17:01
SkanOner666#75
does this tool still work?
only getting this -> Your ID is OK - Account get Created! ;/
only getting this -> Your ID is OK - Account get Created! ;/