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.
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>
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 == ''
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
;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
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>")
funzt es den bei euch? weil da warn so beim senden sessionID's dabei aber denke sollte klappen^^
Bin mir halt nicht 100% sicher
Hatte ja 5 monate kal pause, davor wollt ich sonen ding auch machen aber dachte so, omgwtf nen captcha nein danke, jetzt wo ich es nochmal probiert habe, sah ich den captcha im quellcode lol
funzt es den bei euch? weil da warn so beim senden sessionID's dabei aber denke sollte klappen^^
Bin mir halt nicht 100% sicher
Hatte ja 5 monate kal pause, davor wollt ich sonen ding auch machen aber dachte so, omgwtf nen captcha nein danke, jetzt wo ich es nochmal probiert habe, sah ich den captcha im quellcode lol
![[Release] Account Creat0Я](https://www.elitepvpers.com/forum/iconimages/kal-hacks-bots-cheats-exploits/release-account-creat0_ltr.gif){kind=small}
did u even knows that Hitler wasnt from Germany? stupid kid
