[Руководство] Пишем простой Acc - Account Creator!

Tantyr · 30.03.2012, 08:17

Привет всем. Продолжая свою линейку статей. Решила показать ну как же пишется аккаунт креатор. Я приведу пример простого Креатора на языке Autoit. Я не буду вдоваться во всякие тонкости, просто знайте что это работает.
Итак приступим.

В начале вам необходимо понять по какому принцыпу работает креатор(вообще-то это важно для всех читов).

Так же вы должны понимать по каким причинам креатор могут фиксануть.
Эта причина только одна(МНОГИХ ЭТО УДИВИТ, НО ЭТО ФАКТ)
- Это то что используемый вами домен (почты) добавят в БлэкЛист.

Теперь практика:
Создадим форму креатора с помощью Koda Form Designer (см. тему эту)
На ней расположим три текстовых поля и одну кнопку. Я назову их так:
$iButton3 - пусть будет полем Логина
$iButton4 - пароля
$iButton5 - email
Не забудьте в код добавить:
#include <IE.au3>
К другим #include.
Ниже приведен код показывающий как будут обрабатываться действия. Будем отсылать рег. форму при нажатии на кнопку.

Код:

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			_Reg()
	EndSwitch
WEnd
Func _Reg(); //Эта функция стартует после Нажатия кнопки
Здесь будет наша отправная форма.
EndFunc

Напишем как отправить Рег. форму на сайт.
Если вы откроете html код регистрационной страницы, то увидите там такое:

Код:

<form action="http://ru.alaplaya.net/users" class="new_user" id="new_user" method="post">

Это говорит о том что вы посылаете post запрос. Скажу сразу пост запрос всегда один и тот же. Так что смело берете мой и все ок.
POST запрос

Код:

$sdomain = "195.122.162.50"
			$iport = 80
			$sparameters = "user%5Blogin%5D=" & GUICtrlRead($iButton3) & "&user%5Bpassword%5D=" & GUICtrlRead($iButton4) & "&user%5Bpassword_confirmation%5D=" & GUICtrlRead($iButton4) & "&user%5Bnickname%5D=" & GUICtrlRead($iButton3) & "xx7&user%5Bemail%5D=" & GUICtrlRead($iButton5) & "&user%5Bemail_confirmation%5D=" & GUICtrlRead($iButton5) & "&user%5Bbirthday%283i%29%5D=1&user%5Bbirthday%282i%29%5D=1&user%5Bbirthday%281i%29%5D=1970&user%5Bgender%5D=m&user%5Bcountry_id%5D=36&user%5Bmedia_code_id%5D=8&user%5Bnewsletter%5D=0&user%5Bterms_of_service%5D=0&user%5Bterms_of_service%5D=1&user%5Busedform%5D=usernew"
			$srequest = "POST /users HTTP/1.1" & @CRLF
			$srequest &= "Accept: text/html, application/xhtml+xml, */*" & @CRLF
			$srequest &= "Referer: http://en.alaplaya.net/users/new" & @CRLF
			$srequest &= "Accept-Language: ru" & @CRLF
			$srequest &= "User-Agent: IE" & @CRLF
			$srequest &= "Content-Type: application/x-www-form-urlencoded" & @CRLF
			$srequest &= "Accept-Encoding: gzip, deflate" & @CRLF
			$srequest &= "Host: en.alaplaya.net" & @CRLF
			$srequest &= "Content-Length: " & StringLen($sparameters) & @CRLF
			$srequest &= "Connection: Keep-Alive" & @CRLF
			$srequest &= "Cache-Control: no-cache" & @CRLF
			$srequest &= @CRLF
			$srequest &= $sparameters
			If TCPStartup() = 0 Then
				MsgBox(16, "H81:0", "5 C40;>AL 70?CAB8BL TCP/UDP-A;C61K.")
				Exit 1
			EndIf
			$sip = TCPNameToIP($sdomain)
			If @error Then
				MsgBox(16, "H81:0", "5 C40;>AL ?>;CG8BL ip-04@5A A5@25@0.")
				Exit 2
			EndIf
			$isocket = TCPConnect($sip, $iport)
			If @error Then
				MsgBox(16, "H81:0", "5 C40;>AL A>545=8BLAO A A5@25@><.")
				Exit 3
			EndIf
			TCPSend($isocket, $srequest)
			If @error Then
				MsgBox(16, "H81:0", "5 C40;>AL >B?@028BL 70?@>A.")
				Exit 4
			EndIf
			$sdata = ""
			$itimer = TimerInit()
			Do
				$sbuffer = TCPRecv($isocket, 1024)
				$ierror = @error
				If NOT $sbuffer = "" Then
					$sdata &= $sbuffer
					$itimer = TimerInit()
				EndIf
			Until $ierror <> 0 OR TimerDiff($itimer) > 5000
			TCPCloseSocket($isocket)
			TCPShutdown()
			$adata = StringRegExp($sdata, "(?s)(.*?)\r\n\r\n(.*)", 3)

Как вы можете заметить вам ненадо ничего искать я же все за вас сделала.. Важную роль здесь играет Вот это:

Код:

"user%5Blogin%5D=" & GUICtrlRead($iButton3) & "&user%5Bpassword%5D=" & GUICtrlRead($iButton4) & "&user%5Bpassword_confirmation%5D=" & GUICtrlRead($iButton4) & "&user%5Bnickname%5D=" & GUICtrlRead($iButton3) & "xx7&user%5Bemail%5D=" & GUICtrlRead($iButton5) & "&user%5Bemail_confirmation%5D=" & GUICtrlRead($iButton5) & "&user%5Bbirthday%283i%29%5D=1&user%5Bbirthday%282i%29%5D=1&user%5Bbirthday%281i%29%5D=1970&user%5Bgender%5D=m&user%5Bcountry_id%5D=36&user%5Bmedia_code_id%5D=8&user%5Bnewsletter%5D=0&user%5Bterms_of_service%5D=0&user%5Bterms_of_service%5D=1&user%5Busedform%5D=usernew"

Это и есть те параметры аккаунта которые вы отправляете.

Разберемся по порядку:

user%5Blogin%5D=" & GUICtrlRead($iButton3) & " - как вы поняли это логин читается из поля iButton3(не думайте что это кнопка. Это текстовое поле т.к. можно задавать переменным любые названия) на вашей форме.
&user%5Bnickname%5D=" & GUICtrlRead($iButton3) & "xx7 - говорит о том что ваш nickname будет:
Ваш логин+xx7
Все остальные параметры также считываются с полей. Присмотритесь внимательно и выпоймете как я все тут сделала.
Так же запомните POST ЗАПРОС ДОЛЖЕН БЫТЬ ТОЛЬКО ТАКИМ ИНАЧЕ - НЕБУДЕТ РАБОТАТЬ.

В конце должно получится так:

Итог

Код:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Acc", 217, 190, 192, 124)
$Input1 = GUICtrlCreateInput("", 56, 32, 121, 21)
$Input2 = GUICtrlCreateInput("", 56, 64, 121, 21)
$Input3 = GUICtrlCreateInput("", 56, 96, 121, 21)
$Button1 = GUICtrlCreateButton("Регистрация", 104, 128, 75, 25)
$Label1 = GUICtrlCreateLabel("Логин", 8, 32, 35, 17)
$Label2 = GUICtrlCreateLabel("Пароль", 8, 64, 42, 17)
$Label3 = GUICtrlCreateLabel("Маил", 8, 96, 31, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			_Reg()
	EndSwitch
WEnd

Func _Reg(); //Эта функция стартует после Нажатия кнопки

$sdomain = "195.122.162.50"
			$iport = 80
			$sparameters = "user%5Blogin%5D=" & GUICtrlRead($Input1) & "&user%5Bpassword%5D=" & 

GUICtrlRead($Input2) & "&user%5Bpassword_confirmation%5D=" & GUICtrlRead($Input2) & "&user%5Bnickname%5D=" & 

GUICtrlRead($Input1) & "xx7&user%5Bemail%5D=" & GUICtrlRead($Input3) & "&user%5Bemail_confirmation%5D=" & 

GUICtrlRead($Input3) & "&user%5Bbirthday%283i%29%5D=1&user%5Bbirthday%282i%29%5D=1&user%5Bbirthday%281i

%29%5D=1970&user%5Bgender%5D=m&user%5Bcountry_id%5D=36&user%5Bmedia_code_id%5D=8&user%5Bnewsletter%5D=0&user

%5Bterms_of_service%5D=0&user%5Bterms_of_service%5D=1&user%5Busedform%5D=usernew"
			$srequest = "POST /users HTTP/1.1" & @CRLF
			$srequest &= "Accept: text/html, application/xhtml+xml, */*" & @CRLF
			$srequest &= "Referer: http://en.alaplaya.net/users/new" & @CRLF
			$srequest &= "Accept-Language: ru" & @CRLF
			$srequest &= "User-Agent: IE" & @CRLF
			$srequest &= "Content-Type: application/x-www-form-urlencoded" & @CRLF
			$srequest &= "Accept-Encoding: gzip, deflate" & @CRLF
			$srequest &= "Host: en.alaplaya.net" & @CRLF
			$srequest &= "Content-Length: " & StringLen($sparameters) & @CRLF
			$srequest &= "Connection: Keep-Alive" & @CRLF
			$srequest &= "Cache-Control: no-cache" & @CRLF
			$srequest &= @CRLF
			$srequest &= $sparameters
			If TCPStartup() = 0 Then
				MsgBox(16, "H81:0", "5 C40;>AL 70?CAB8BL TCP/UDP-A;C61K.")
				Exit 1
			EndIf
			$sip = TCPNameToIP($sdomain)
			If @error Then
				MsgBox(16, "H81:0", "5 C40;>AL ?>;CG8BL ip-04@5A A5@25@0.")
				Exit 2
			EndIf
			$isocket = TCPConnect($sip, $iport)
			If @error Then
				MsgBox(16, "H81:0", "5 C40;>AL A>545=8BLAO A A5@25@><.")
				Exit 3
			EndIf
			TCPSend($isocket, $srequest)
			If @error Then
				MsgBox(16, "H81:0", "5 C40;>AL >B?@028BL 70?@>A.")
				Exit 4
			EndIf
			$sdata = ""
			$itimer = TimerInit()
			Do
				$sbuffer = TCPRecv($isocket, 1024)
				$ierror = @error
				If NOT $sbuffer = "" Then
					$sdata &= $sbuffer
					$itimer = TimerInit()
				EndIf
			Until $ierror <> 0 OR TimerDiff($itimer) > 5000
			TCPCloseSocket($isocket)
			TCPShutdown()
			$adata = StringRegExp($sdata, "(?s)(.*?)\r\n\r\n(.*)", 3)

EndFunc

Т.к. это простой пример. То вам нужно будет подтверждать регистрацию в ручную. И иметь уже зарегистрированный маил.

.
Как писать POST запрос.

Потребность написания POST запроса есть всегда и под любой сайт. Чтобы его написать вам необходимо скачать программу для перехвата Get/post запросов. Для IE советую выбрать [Ссылки могут видеть только зарегистрированные пользователи. ]
Как же получить пост запрос(к примеру: на alaplaya.net для регистрации)?
Для этого вам необходимо открыть регистрационную форму, заполнить, активировать программу перехвата, и нажать кнопку регистрация. Тут ваша программа все запросы и отобразит. Берем первый POST запрос. Он будет выглядеть так:

Код:

POST /users HTTP/1.1
Accept: text/html, application/xhtml+xml, */*
Referer: [Ссылки могут видеть только зарегистрированные пользователи. ]
Accept-Language: ru-RU
User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
Host: s4.ru.alaplaya.net
Content-Length: 488
Connection: Keep-Alive
Cache-Control: no-cache
Cookie: __utma=...

user%5Blogin%5D=tester9&user%5Bpassword%5D=password&user%5Bpassword_confirmation%5D=password&user%5Bnickname%5D=tester888&user%5Bemail%5D=[Ссылки могут видеть только зарегистрированные пользователи. ]&user%5Bemail_confirmation%5D=[Ссылки могут видеть только зарегистрированные пользователи. ]&user%5Bbirthday%283i%29%5D=1&user%5Bbirthday%282i%29%5D=1&user%5Bbirthday%281i%29%5D=1950&user%5Bgender%5D=m&user%5Bcountry_id%5D=33&user%5Bmedia_code_id%5D=1&user%5Bnewsletter%5D=0&user%5Bnewsletter%5D=1&user%5Bterms_of_service%5D=0&user%5Bterms_of_service%5D=1&user%5Busedform%5D=usernew

Если вы посмотрите. то поймете что это все данные которые передаются пост запросом.
Их будем писать после заголовка в кавычках:$srequest &= ""
Cookie: __utma=... удаляем, она нам не нужна.
$sparameters = "" после этого заголовка мы пишем весь кошмар что находится под POST запросом.(то что начинается с - user%5Blogin)
Как вы видите если оставить все так то будет передаваться логин tester9. Чтобы данные брались с формы из поля Инпут вставим такое вместо tester9:
" & GUICtrlRead($iButton3) & ". Так же поступим и с другими данными...

Всем спасибо за внимание

IIraroK · 30.03.2012, 11:27

Класс пользователям будет полезно знать. Просто, понятно. Зачет !

З.Ы.: Для справки:

Цитата:


	Ваш логин+xx7

если ваш логин=Tymba, то никнейм будет Tymbaxx7.

bmzemlauauerope · 30.03.2012, 15:27

можеш готовый исходник выложить ?? а то я чет не полностью вьехал

*_*.CoRNeL.*_* · 30.03.2012, 16:47

Пример ещё проще для Autoit

PHP код:


			
$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
$oHTTP.Open("POST", 'http://s4.ru.alaplaya.net/users', False)
$oHTTP.SetRequestHeader("User-Agent", "*_*.CoRNeL.*_*")
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.Send("user%5Blogin%5D=" & GUICtrlRead($iButton3) & "&user%5Bpassword%5D=" & GUICtrlRead($iButton4) & "&user%5Bpassword_confirmation%5D=" & GUICtrlRead($iButton4) & "&user%5Bnickname%5D=" & GUICtrlRead($iButton3) & "&user%5Bemail%5D=" & GUICtrlRead($iButton5) & "&user%5Bemail_confirmation%5D=" & GUICtrlRead($iButton5) & "&user%5Bbirthday%283i%29%5D=1&user%5Bbirthday%282i%29%5D=1&user%5Bbirthday%281i%29%5D=1970&user%5Bgender%5D=m&user%5Bcountry_id%5D=36&user%5Bmedia_code_id%5D=8&user%5Bnewsletter%5D=0&user%5Bterms_of_service%5D=0&user%5Bterms_of_service%5D=1&user%5Busedform%5D=usernew")

Func MyErrFunc()
   SetError($oMyError.number)
   MsgBox(0,'',$oMyError.number,$oMyError.description)
   Return $oMyError.description
EndFunc   ;==>MyErrFunc

Аналог для Vbs
И не нужно устанавливать Autoit

PHP код:


			
Login = ""
Password = ""
Email = ""

On error resume next
Set oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
oHTTP.Open "POST", "http://s4.ru.alaplaya.net/users",False
oHTTP.SetRequestHeader "User-Agent","*_*.CoRNeL.*_*"
oHTTP.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
oHTTP.Send "user%5Blogin%5D=" & Login & "&user%5Bpassword%5D=" & Password & "&user%5Bpassword_confirmation%5D=" & Password & "&user%5Bnickname%5D=" & Login & "xx7&user%5Bemail%5D=" & Email & "&user%5Bemail_confirmation%5D=" & Email & "&user%5Bbirthday%283i%29%5D=1&user%5Bbirthday%282i%29%5D=1&user%5Bbirthday%281i%29%5D=1970&user%5Bgender%5D=m&user%5Bcountry_id%5D=36&user%5Bmedia_code_id%5D=8&user%5Bnewsletter%5D=0&user%5Bterms_of_service%5D=0&user%5Bterms_of_service%5D=1&user%5Busedform%5D=usernew"

~~malishka23~~ · 30.03.2012, 17:11

bmzemlauauerope,как так можно? Не дадут тебе исходник! Это неуважение к автору (-_-)

bmzemlauauerope · 30.03.2012, 17:20

Цитата:

Сообщение от malishka23


	bmzemlauauerope,как так можно? Не дадут тебе исходник! Это неуважение к автору (-_-)

я не понимаю, в чем именно проявляется неуважение ?
кака разница что автор выложит готовый креатор или выложит его исходник
я как программер на делфи очень интересуюсь методами которые используют люди для разрешения определенных задач

Tantyr · 30.03.2012, 18:56

Я бы выложила. щас.
ток аутоит установлю

Корнил - согласись каждому свое. И для начала я думаю моя статья будет полезна. Я уж не говорю о пакетном способе. С чего-то же надо рости

Добавлено через 15 минут
Так в первый пост добавила в Итог полный вид кода.

bmzemlauauerope · 30.03.2012, 19:46

Т.к. это простой пример. То вам нужно будет подтверждать регистрацию в ручную. И иметь уже зарегистрированный маил.
Всем спасибо за внимание .

Добавлено через 5 минут
и хотел спросить есть где уроки или пособия по кодам для этой программы ?

Tantyr · 30.03.2012, 20:07

нету вроде.
есть форум но я не сижу на нем.
я юзала справку и мозг.

bmzemlauauerope · 30.03.2012, 20:10

Цитата:

Сообщение от Tantyr


	нету вроде. есть форум но я не сижу на нем. я юзала справку и мозг.

уу справка то на инглише
и как вызвать окно редактирования кода ?

IIraroK · 31.03.2012, 09:48

Цитата:

Сообщение от bmzemlauauerope


	уу справка то на инглише и как вызвать окно редактирования кода ?

ты на делфи прогаешь так? А tantyr на autoit. А для аутоита можно скачать русскую справку

О корнилыч отписался, ток я думаю новичку все таки, понятней и проще будет по коду tantyr понять принцип программы....

Цитата:

Сообщение от bmzemlauauerope


	я не понимаю, в чем именно проявляется неуважение ? кака разница что автор выложит готовый креатор или выложит его исходник я как программер на делфи очень интересуюсь методами которые используют люди для разрешения определенных задач

Видешь ли автокреатов аккаунтов на mail.ru бесплатных нету

в основном все платные. Если дать исходный код, то начнут плодится программы от разных авторов(которые на халяву взяли и переделали под себя..) А tantyr не одну ночь угрохала на понятие и создание креатора на маил.ру... Я в этом просто уверен

Tantyr · 31.03.2012, 12:41

Так друзья. Сегодня добавлю в первый пост. как правильно писать POST запрос. Откуда для него берется информация. и т.д.

bmzemlauauerope · 31.03.2012, 15:42

кароч буду както пробывать если найду на делфи отправку пакетов (запросов) то мне будет намного удобней ))