USE IT ON YOUR OWN RISK, I UPDATED CAUSE SOMEONE ASKED
Me was borrrinngggg =PPPPP
I know the situation, u got Blocked and you are frustrated
And u hate the fucking Registration Page, so MUCH shit.... so LONG, it takes so much time..
- create new email
- type all those shit...it sucks
YES, here the resolution
Download and Hf
- Creates ur Account
New:
- Saves ur ID&PW&Email&Security Card in .html file ID - Name.html
Old:
- Saves ur SN&Email&ID&PW in Account.ini
Question:for what is this tool?
#Create Account on Kalonline.com very Easy and Fast#
#Edit: Old Source.
Me was borrrinngggg =PPPPP
I know the situation, u got Blocked and you are frustrated
And u hate the fucking Registration Page, so MUCH shit.... so LONG, it takes so much time..
- create new email
- type all those shit...it sucks
YES, here the resolution
Download and Hf
- Creates ur Account
New:
- Saves ur ID&PW&Email&Security Card in .html file ID - Name.html
Old:
- Saves ur SN&Email&ID&PW in Account.ini
Question:for what is this tool?
#Create Account on Kalonline.com very Easy and Fast#
#Edit: Old Source.
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
