You last visited: Today at 09:11
Advertisement
NostaleAccountCreator (DE)
Discussion on NostaleAccountCreator (DE) within the Nostale forum part of the MMORPGs category.
09/18/2010, 15:51
#1
elite*gold: 1
Join Date: Feb 2009
Posts: 835
Received Thanks: 808
NostaleAccountCreator (DE)
Outdated!
Diese Version ist dedected, aber mit dem Code könnt ihr es ja wieder updaten.
Okay, die sind mir anscheinend auf den Fersen und iwi werden allen emails die ich nehme sofort gesperrt....
Ist nichts tolles und auch noch nicht sehr benutzer freundlich, aber wenn es einer brauchen kann hier:
#Email-bestätigung hinzugefügt...
#Source Code published
Danke an SEuBo & @night@
Code:
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <GDIPlus.au3>
#include <WinHTTP.au3>
#include <IE.au3>
#Include <String.au3>
Global $oForm, $oIE, $oQuery4, $captcha, $sub = 0,$o10m
$eRand = Random(50000,50000000,1)
$emailRand = $eRand&"@mailinator.com"
$email = $emailRand
Opt("GUIOnEventMode", 1)
InetGet("http://img263.imageshack.us/img263/626/logohkn.jpg",@TempDir & "logo.jpg")
$hGUI999 = GUICreate("G4m3Punks.0rg | Account Creator", 260, 378)
GUISetBkColor(0xFFFF00)
GUISetState()
GUISetOnEvent($GUI_EVENT_CLOSE, "_OnEventHandler")
$gplogo = GUICtrlCreatePic(@TempDir & "logo.jpg",20,0,0,0)
GUICtrlSetCursor ($gplogo, 0)
GUICtrlSetOnEvent($gplogo,"gp")
$Group1 = GUICtrlCreateGroup("Account Daten", 8, 70, 241, 90)
GUICtrlCreateLabel("Username:", 15,86, 50,12)
$Input1 = GUICtrlCreateInput("", 70, 84, 173, 21)
GUICtrlCreateLabel("Passwort:", 15,110, 50, 12)
$Input2 = GUICtrlCreateInput("", 70, 108, 173, 21)
GUICtrlCreateLabel("E-mail:", 15,135, 28, 12)
$Input3 = GUICtrlCreateInput("", 70, 132, 173, 21)
$checkb = GUICtrlCreateCheckbox("",50,135,15,15)
GUICtrlSetOnEvent($checkb,"checkbox")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Captcha", 0, 168, 257, 110)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Absenden", 16, 352, 225, 25)
GUICtrlSetOnEvent($Button1, "_OnEventHandler")
$Input4 = GUICtrlCreateInput("Captcha", 16, 252, 217, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$Group3 = GUICtrlCreateGroup("Status", 16, 280,217, 65)
$Label1 = GUICtrlCreateLabel("Keine Fehler", 96, 290, 100, 50)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
GUICtrlSetState($Input3, $GUI_DISABLE)
While 1
Sleep(1000)
WEnd
Func _OnEventHandler()
Switch @GUI_CtrlId
Case -3
FileDelete(@TempDir & "logo.bmp")
Exit
Case $Button1
_Register($sub)
EndSwitch
EndFunc ;==>_OnEventHandler
Func _Register(ByRef $iGotCaptcha)
Local Static $hSession, $hConnect
Local $sHTML, $hRequest, $bRecv, $hFile
If StringIsAlNum (GUICtrlRead($Input1)) = 0 Then
GUICtrlSetData($Label1,"Benutzername darf nur Ziffern von 0-9 und Zeichen von A-Z enthalten")
return
Else
GUICtrlSetData($Label1,"Benutzername: Okay!")
EndIf
If StringLen (GUICtrlRead($Input1)) < 5 or StringLen (GUICtrlRead($Input1)) > 16 Then
GUICtrlSetData($Label1,"Es sind nur 5-16 Zeichen im Benutzernamen erlaubt!")
return
Else
GUICtrlSetData($Label1,"Benutzername: Okay!")
Sleep(1000)
EndIf
If GUICtrlRead($checkb) = $GUI_UNCHECKED Then
GUICtrlSetData($Label1,"Email: Okay!")
$email = $emailRand
GUICtrlSetData($Input3,$emailRand)
Sleep(1000)
Else
If StringRegExp(GUICtrlRead($Input3),"\w+@\w+.\w+",2) = 1 Then
GUICtrlSetData($Label1,"Ungültige Email!")
return
Else
GUICtrlSetData($Label1,"Email: Okay!")
$email = GUICtrlRead($Input3)
Sleep(1000)
EndIf
EndIf
if StringIsAlNum (GUICtrlRead($Input2)) = 0 Then
GUICtrlSetData($Label1,"Passwort darf nur Ziffern von 0-9 und Zeichen von A-Z enthalten. ")
Return
EndIf
If StringIsAlpha(GUICtrlRead($Input2)) = 1 or StringIsInt(GUICtrlRead($Input2)) = 1 Then
GUICtrlSetData($Label1,"Passwort muss mindestens eine Zhal und einen Buchstaben enthalten.")
return
Else
GUICtrlSetData($Label1,"Passwort: Okay!")
EndIf
If StringLen (GUICtrlRead($Input2)) < 8 or StringLen (GUICtrlRead($Input2)) > 16 Then
GUICtrlSetData($Label1,"Es sind nur 8-16 Zeichen im Passwort erlaubt!")
return
Else
GUICtrlSetData($Label1,"Passwort: Okay!")
Sleep(1000)
EndIf
If $iGotCaptcha Then
$sHTML = _WinHTTPRequest($hConnect, "/user/register", "reg%5Busername%5D=" & GUICtrlRead($Input1) & "®%5Bemail%5D=" & $email & "®%5Bpassword%5D=" & GUICtrlRead($Input2) & "®%5Bagb%5D=1&captcha=" & GUICtrlRead($Input4) & "&SubmitRegisterForm=Anmelden")
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hSession)
FileDelete(@TempDir & "\~captcha.png")
FileDelete(@TempDir & "\~captcha.jpg")
_d($sHTML)
If GUICtrlRead($checkb) = $GUI_UNCHECKED Then
Mail()
Else
MsgBox(0,"Nostale Account Creator","Bestätigungsmail verschickt! Name: " & GUICtrlRead($Input1) & " Email: " & $email & " Passwort: " & GUICtrlRead($Input2) & "")
Exit
EndIf
Else
$hSession = _WinHttpOpen()
$hConnect = _WinHTTPConnect($hSession, "www.nostale.de")
_WinHTTPRequest($hConnect, "/user/register")
_WinHTTPRequest($hConnect, "/user/register", "reg%5Busername%5D=" & GUICtrlRead($Input1) & "®%5Bemail%5D=" & GUICtrlRead($Input3) & "®%5Bpassword%5D=" & GUICtrlRead($Input2) & "®%5Bagb%5D=1&SubmitRegisterForm=Anmelden")
;Captcha binär herunterladen
$hRequest = _WinHttpOpenRequest($hConnect, "GET", "/captcha/create", "HTTP/1.1", "http://www.nostale.de/user/register")
_WinHttpSendRequest($hRequest)
_WinHttpReceiveResponse($hRequest)
If _WinHttpQueryDataAvailable($hRequest) Then
Do
$bRecv &= _WinHttpReadData($hRequest, 2)
Until @error
EndIf
_WinHttpCloseHandle($hRequest)
;In Datei Speichern
$hFile = FileOpen(@TempDir & "\~captcha.png", 18)
FileWrite($hFile, $bRecv)
FileClose($hFile)
;zu jpg umwandeln
_GDIPlus_Startup()
_GDIPlus_ImageSaveToFile(_GDIPlus_ImageLoadFromFile(@TempDir & "\~captcha.png"),@TempDir & "\~captcha.jpg")
_GDIPlus_Shutdown()
GUICtrlCreatePic(@TempDir & "\~captcha.jpg",8,190,0,0)
$iGotCaptcha = 1
EndIf
EndFunc ;==>_Register
; #FUNCTION# ======================================================================================
; Name ..........: _WinHTTPRequest()
; Description ...: Easier use of WinHTTP. Handles your HTTP/HTTPs Request
; Syntax ........: _WinHTTPRequest($hConnect, $sSite[, $sPost = ""[, $sReferer = ""[, $sExtraHeader = ""[, $fUseHTTPS = False[, $sAcceptType = ""[, $fGetHeaderOnly = False]]]]]])
; Parameters ....: $hConnect - Handle returned from _WinHTTPConnect()
; $sSite - Page to send the request to, starting with a "/"
; $sPost - [optional] Postdata to send. If this parameter is used, _WinHTTPRequest will do a POST instead of GET (default:"")
; $sReferer - [optional] Referer to use. Use the format www.yourpage.com. (default:"")
; $sExtraHeader - [optional] Use this parameter to add certain Infos to your Request Headers (default:"")
; $fUseHTTPS - [optional] This flag indicates wether you want to use HTTPs or not (default:False)
; $sAcceptType - [optional] See _WinHTTPOpenRequest() (default:"")
; $fGetHeaderOnly - [optional] This flag indicates wether you want to retrieve Headers or not. (default:False)
; |False - Do not recieve Headers - Just get the Body
; |True - Recieve Headers only
; |-1 - Get both, Headers and Body
; Return values .: Success - Returns Body and/or Header, depending on $fGetHeaderOnly
; Failure - Returns 0
; Author ........: SEuBo
; Remarks .......: If you get an empty String as return, check the Header for a 302 Message from the server
; Example .......: Yes
; #include <WinHTTP.au3>
; #include "WinHTTPRequest.au3"
; $hSession = _WinHttpOpen() ; Open Session
; $hConnect = _WinHTTPConnect($hSession,"www.google.de") ; Connect to host
; _WinHTTPRequest($hConnect,"/imghp") ; GET-Request
; _WinHttpCloseHandle($hConnect) ; Close Connect
; _WinHttpCloseHandle($hSession) ; Close Session
; =================================================================================================
Func _WinHTTPRequest($hConnect, $sSite, $sPost = "", $sReferer = "", $sExtraHeader = "", $fUseHTTPS = False, $sAcceptType = "", $fGetHeaderOnly = False)
;Author: SEuBo
Local $hRequest, $sHTML, $sMode = "GET", $sOptional = $WINHTTP_NO_REQUEST_DATA, $sHeaders = $WINHTTP_NO_ADDITIONAL_HEADERS, _
$sAcceptTypes = $WINHTTP_DEFAULT_ACCEPT_TYPES, $iFlags = $WINHTTP_FLAG_ESCAPE_DISABLE, $sReferers = $WINHTTP_NO_REFERER
If $sPost <> "" Then
$sMode = "POST"
$sOptional = $sPost
$sHeaders = "Content-Type: application/x-www-form-urlencoded" & @CRLF
EndIf
If $sReferer Then $sReferers = $sReferer
If $sExtraHeader Then $sHeaders = $sExtraHeader
If $fUseHTTPS Then $iFlags = $WINHTTP_FLAG_SECURE
If $sAcceptType Then $sAcceptTypes = $sAcceptType
ConsoleWrite("WinHTTP Request <<< " & $sMode & " >>> ===========> " & $sSite & @TAB & @TAB & $sPost & @CRLF)
$hRequest = _WinHttpOpenRequest($hConnect, $sMode, $sSite, "HTTP/1.1", $sReferers, $sAcceptTypes, $iFlags) ; Anfrage an die Seite stellen
_WinHttpSendRequest($hRequest, $sHeaders, $sOptional) ; Anfrage senden.
_WinHttpReceiveResponse($hRequest) ; Warte auf Antwort des Servers
If _WinHttpQueryDataAvailable($hRequest) Then
If $fGetHeaderOnly Then
$sHTML &= _WinHttpQueryHeaders($hRequest)
If $fGetHeaderOnly > -1 Then _WinHttpCloseHandle($hRequest)
If $fGetHeaderOnly > -1 Then Return $sHTML
$sHTML &= @CRLF & @CRLF
EndIf
Do
$sHTML &= _WinHttpReadData($hRequest) ; Antwort aus dem Buffer lesen.
Until @error ; bis ein fehler auftritt (übertragung abgeschlossen)
_WinHttpCloseHandle($hRequest)
Return $sHTML
EndIf
Return 0
EndFunc ;==>_WinHTTPRequest
Func _d($sHTML)
FileDelete(@TempDir & "\~debug.html")
FileWrite(@TempDir & "\~debug.html", $sHTML)
ShellExecute(@TempDir & "\~debug.html")
EndFunc ;==>_d
#cs
Func errorCheck()
$hDownload = InetRead("http://www.nostale.de/user/register")
$miep = BinaryToString($hDownload)
$error_string = StringRegExp ($miep, '<div class="error">(.*?)</div>' , 1 )
EndFunc
#ce
Func gp()
ShellExecute("www.**************")
EndFunc
Func checkbox()
If GUICtrlRead($checkb) = $GUI_UNCHECKED Then
GUICtrlSetState($Input3, $GUI_DISABLE)
Else
GUICtrlSetState($Input3, $GUI_ENABLE)
EndIf
EndFunc
Func Mail()
$IE = _IECreate("http://www.mailinator.com/maildir.jsp?email="&$emailRand,0,0)
GUICtrlSetData($Label1,"Browser geöffnet!")
sleep(1000)
Do
Sleep (5000)
_IEAction($IE,"refresh")
$Text = _IEBodyReadText($IE)
GUICtrlSetData($Label1,"Warte auf email!")
Until StringRegExp($Text, "Willkommen bei NosTale!")
GUICtrlSetData($Label1,"Link_1 gefunden!")
sleep(1000)
$Text = BinaryToString(InetRead("http://www.mailinator.com/maildir.jsp?email="&$emailRand,1))
$msgid = _StringBetween($Text,"href=/displayemail.jsp?email="&$eRand&"&msgid=",">Willkommen bei ")
_IENavigate($IE,"http://www.mailinator.com/displayemail.jsp?email="&$eRand&"&msgid="&$msgid[0])
_IELoadWait($IE)
GUICtrlSetData($Label1,"Link_2 gefunden!")
$Text2 = _IEBodyReadText($IE)
sleep(1000)
$Link = StringRegExp($Text2,"http://www\.nostale\.de/user/authenticated/\w+/\w+",3)
GUICtrlSetData($Label1,"Bestätigunglink gefunden!")
sleep(1000)
_IEQuit($IE)
$akti = _IECreate($Link[0],0,1)
GUICtrlSetData($Label1,"Account automatisch aktiviert!")
sleep(1000)
MsgBox(0,"Nostale Account Creator","Account Aktiviert! Name: " & GUICtrlRead($Input1) & " Email: " & $email & " Passwort: " & GUICtrlRead($Input2) & "")
Exit
EndFunc
09/18/2010, 15:58
#2
elite*gold: 113
Join Date: Dec 2009
Posts: 16,685
Received Thanks: 4,451
Kannst du nicht noch einbauen dass er ne E-mail erstellt? ^^
09/18/2010, 16:10
#3
elite*gold: 1
Join Date: Feb 2009
Posts: 835
Received Thanks: 808
Joar, bin ich dran, aber iwi wird nicht kontrolliert ob ne Email da ist.
Aber Update kommt demnächst
09/18/2010, 16:16
#4
elite*gold: 112
Join Date: Jan 2010
Posts: 1,531
Received Thanks: 414
Wow
Und jetzt bitte nochmal ohne Captcha und eine Chebkbox ob er sich eine eigene Mail generieren soll, dann bist du genauso weit ich wie
09/18/2010, 16:32
#5
elite*gold: 113
Join Date: Dec 2009
Posts: 16,685
Received Thanks: 4,451
Freaky kannst du mir deinen schicken, bis der von Trojan soweit ist ?? ^^
09/18/2010, 16:39
#6
elite*gold: 112
Join Date: Jan 2010
Posts: 1,531
Received Thanks: 414
Nein, der ist für Privatzwecke wie z.B. Overpall
09/18/2010, 17:20
#7
elite*gold: 0
Join Date: Jul 2009
Posts: 86
Received Thanks: 205
Quote:
Originally Posted by
Trøjan
Ist nichts tolles und auch noch nicht sehr benutzer freundlich, aber wenn es einer brauchen kann hier:
Danke an SEuBo & @night@
it delete cookies?
09/18/2010, 17:29
#8
elite*gold: 1
Join Date: Feb 2009
Posts: 835
Received Thanks: 808
Quote:
Originally Posted by
¿Freaky¿
Wow
Und jetzt bitte nochmal ohne Captcha und eine Chebkbox ob er sich eine eigene Mail generieren soll, dann bist du genauso weit ich wie
Wie killst du den Captcha?
Haste ne eigene Funktion geschrieben oder nimmste nen anderen Dienst.
Quote:
Originally Posted by
asndjsk
it delete cookies?
No, it uses WinHTTP to download the captcha.
09/18/2010, 17:58
#9
elite*gold: 112
Join Date: Jan 2010
Posts: 1,531
Received Thanks: 414
Habe es früher mit einem anderen Dienst gemacht, jetzt aber mit Captchaknacker :P
01/22/2011, 22:07
#10
elite*gold: 1
Join Date: Feb 2009
Posts: 835
Received Thanks: 808
Hab mich seit langem nochmal dran gesetzt und ne Email bestätigung hinzugefügt.
Und der Sourcecode is auch dabei
Hf
01/22/2011, 23:23
#11
elite*gold: 15
Join Date: Oct 2010
Posts: 638
Received Thanks: 63
ähm das mit e-mail eht nicht so er erstellt zwar ein acc aber er aktiviert ihn nicht
01/23/2011, 08:43
#12
elite*gold: 32
Join Date: Jul 2010
Posts: 2,377
Received Thanks: 1,167
Im Source steht ja was von mailinator also muss man bei email nichts eingeben oder?
-> Ok! Geht schon^^
Danke Trojan du bist der beste damit kann ich mir in Sekunden 100 Accounts machen
So hier für alle die das nicht kapieren ;D
1. Das Teil downloaden/ bzw. Sourcecode in Autoit kopieren und speichern
2. (Als Administrator) starten
3. Name eingeben, aber möglichst einen, den keiner hat (z.B. äölkj098)
4. Passwort eingeben aber nicht ABC (sondern: *Zwischen 8 und 16 Zeichen erlaubt
* Mindestens ein Großbuchstabe oder eine Zahl)
5. Email -> Wenn sie automatisch bestätigt werden soll, dann gebt dort nichts ein.
6. Absenden klicken
7. Captcha eingeben
8. Absenden
(Sollte ein Fehler auftreten Schritte 3-8 Wiederholen)
9. Warten ;D (Es öffnet sich euer Browser - Auf Meldung warten, dass der Account aktiviert wurde^^)
10. Einloggen und Fun haben^^
01/23/2011, 11:03
#13
elite*gold: 15
Join Date: Oct 2010
Posts: 638
Received Thanks: 63
ähm für den code muss mann sich autoit downloaden?
01/23/2011, 11:05
#14
elite*gold: 0
Join Date: Dec 2010
Posts: 224
Received Thanks: 25
N1 Work
01/23/2011, 11:15
#15
elite*gold: 18
Join Date: May 2010
Posts: 616
Received Thanks: 179
Quote:
Originally Posted by
Arkido
ähm für den code muss mann sich autoit downloaden?
Wenn du den Code bearbeiten willst / umschreiben empfehle ich dir AutoIt zu loaden.
Wenn du jedoch den Acccreator nur nutzen willst dann lade dir die .exe
All times are GMT +2. The time now is 09:14 .
![Formica[RU]'s Avatar](https://www.elitepvpers.com/forum/customavatars/avatar1557346_1.gif){kind=avatar}
