Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
therealbop
5 / 5 / 2
Регистрация: 31.10.2014
Сообщений: 40
1

Post запрос. Регистрация на сайте Ucoz

31.10.2014, 02:06. Просмотров 688. Ответов 9
Метки нет (Все метки)

Приветствую. В общем тема такая: пишу регистратор Ucoz

Получаю все параметры для пост запроса со страницы регистрации
Расшифровываю sos параметр
Ввожу капчу
Отправляю пост запрос, который при успешной регистрации возвращает редирект 302 на страницу входа

Но как я уже не пытался, всегда пишет что капча не верная
Даже куки парсил и крепил

Прошу помочь, хотя бы подсказать в какую сторону двигаться дальше, уже всю голову поломал.

Вот код:
Кликните здесь для просмотра всего текста

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
var
  Form1: TForm1;
  parsact:string;
  parsssid:string;
  parsseckey:string;
  c1, c2, c3:string;
  sos: string;
 
function pars(html,start,ends:string):string; 
begin
while Pos(start, html) <> 0 do 
begin
Delete(html, 1, Pos(start, html) + Length(start) - 1);
Result:=Copy(html, 1, Pos(ends, html) - 1);
Application.ProcessMessages;
end;
end;
 
function DeCodeSos(s:string):string;
var
l,i,c,k:integer;
begin
 
s:=StringReplace(s, '\', '',[rfReplaceAll, rfIgnoreCase]);
 
result:='';
l:=length(s);
k:=StrToInt(s[l]);
 
for i:=1 to l-1 do
begin
c:=ORD(s[i])-k;
result:=result+Char(c);
end;
end;
 
 
procedure TForm1.BitBtn1Click(Sender: TObject);
var
htp, cok: string;
MS: TMemoryStream;
PNG : TPNGObject;
kap4, sosd: string;
begin
htp:=idHTTP1.Get('http://cheat-master.ru/index/3');
cok:=IdHTTP1.Response.RawHeaders.Text;
{c1:=pars(cok, 'Set-Cookie: 0nobanuCoz=', 'GMT; domain=.cheat-master.ru;');
c2:=pars(cok, 'Set-Cookie: 0nobanuzll=', 'GMT; domain=.cheat-master.ru;');
c3:=pars(cok, 'Set-Cookie: ucvid=', 'GMT');}
sosd:=decodesos(pars(htp, '_dS(''',''');</script>'));
sos:=pars(sosd, 'value="', '"');
kap4:=pars(htp, 'align="absmiddle" src="','" onclick="this.src=');
parsseckey:=pars(htp,'name="seckey" value="' ,'"');
parsssid:=pars(htp,'name="ssid" value="' ,'" />');
parsact:=pars(htp, 'name="act" value="', '" />');
MS:= TMemoryStream.Create;
 PNG := TPNGObject.Create;
 IdHTTP1.Get('http://cheat-master.ru'+kap4, MS);
 MS.Position := 0;
 PNG.LoadFromStream(MS);
 Image1.Width:=PNG.Width;
 Image1.Height:=PNG.Height;
 Image1.Picture.Bitmap.Assign(PNG);
 MS.Free;
 PNG.Free;
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
var
PostData:TStringList;
begin
PostData:=TStringList.Create;
PostData.Add('jkd498=1');
PostData.Add('act='+parsact);
PostData.Add('ssid='+parsssid);
PostData.Add('jkd428=1');
PostData.Add('sos='+sos);
PostData.Add('user=testtestt');
PostData.Add('password=AaBbCc123');
PostData.Add('password1=AaBbCc123');
PostData.Add('name=Олег');
PostData.Add('email=inoinoinoiu@mail.ru');
PostData.Add('msn=');
PostData.Add('by=0');
PostData.Add('bm=0');
PostData.Add('bd=0');
PostData.Add('gender=1');
PostData.Add('country=31');
PostData.Add('city=');
PostData.Add('avatar=http://s59.ucoz.net/a/02/1262.jpg');
PostData.Add('avau=');
PostData.Add('signature=');
PostData.Add('code='+Edit1.Text);
PostData.Add('seckey='+parsseckey);
PostData.Add('a=4');
PostData.Add('s=0');
{idHTTP1.Request.CustomHeaders.Add('Cookie: 0nobanuCoz='+c1+'GMT; domain=.cheat-master.ru;');
idHTTP1.Request.CustomHeaders.Add('Cookie: 0nobanuzll='+c2+'GMT; domain=.cheat-master.ru;');
idHTTP1.Request.CustomHeaders.Add('Cookie: ucvid='+c3+'GMT');}
Memo1.Text:=idHTTP1.Post('http://cheat-master.ru/index/',PostData);
end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2014, 02:06
Ответы с готовыми решениями:

Авторизация на сайте ucoz
Ребят помогите пожалуйста конкретным примером авторизацие на сайте ucoz?

Авторизация на сайте ucoz
Мне нужно через программу авторизироваться на сайте ucoz. Не просто с...

Регистрация на сайте
ПРивет всем! Пишу прогу для регистрации на сайте вот код: unit Unit1; ...

Регистрация на сайте
Всем привет! Как исправить ошибку Код ошибки: &quot; Unit1.pas(89): E2250 There...

Регистрация на сайте
Здравствуйте, у меня такая проблема.. хочу зарегистрироваться на сайте, но при...

9
AndHacker
13 / 13 / 10
Регистрация: 11.09.2013
Сообщений: 157
Записей в блоге: 1
31.10.2014, 12:57 2
Я ранее такой идеи не встречал)
0
therealbop
5 / 5 / 2
Регистрация: 31.10.2014
Сообщений: 40
31.10.2014, 15:34  [ТС] 3
Не встречали клиентов для сайта? Таких как ВКБот и прочее?)
0
AndHacker
13 / 13 / 10
Регистрация: 11.09.2013
Сообщений: 157
Записей в блоге: 1
31.10.2014, 18:11 4
Встречал и пользовался, только с левого аккаунта. Не доверяю я таким программам.
Я так понял, этот код должен регистрировать аккаунт на юкозе?
0
therealbop
5 / 5 / 2
Регистрация: 31.10.2014
Сообщений: 40
31.10.2014, 19:04  [ТС] 5
Совершенно верно

Авторизацию, отправку сообщений, просмотр топиков уже сам допилю
Главное разобраться в чем проблема неправильной капчи, ведь она отправляется с точно такими же пост-данными как сгенерировала страница
0
therealbop
5 / 5 / 2
Регистрация: 31.10.2014
Сообщений: 40
25.11.2014, 19:07  [ТС] 6
Подниму, проблема не решена.
0
xADMIRALx
68 / 62 / 5
Регистрация: 09.06.2012
Сообщений: 291
26.11.2014, 00:08 7
Сайт на котором нужна регистрация http://cheat-master.ru/ ?
0
therealbop
5 / 5 / 2
Регистрация: 31.10.2014
Сообщений: 40
26.11.2014, 00:23  [ТС] 8
xADMIRALx, Да
0
xADMIRALx
68 / 62 / 5
Регистрация: 09.06.2012
Сообщений: 291
26.11.2014, 01:51 9
Редирект не получаю,но регистрация проходит

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdCookieManager, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, Vcl.ExtCtrls, Vcl.StdCtrls,PNGImage;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    Image1: TImage;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  parsact:string;
  parsssid:string;
  parsseckey:string;
  c1, c2, c3:string;
  sos: string;
 
implementation
 
{$R *.dfm}
 
function pars(html,start,ends:string):string;
begin
while Pos(start, html) <> 0 do
begin
Delete(html, 1, Pos(start, html) + Length(start) - 1);
Result:=Copy(html, 1, Pos(ends, html) - 1);
Application.ProcessMessages;
end;
end;
 
function DeCodeSos(s:string):string;
var
l,i,c,k:integer;
begin
 
s:=StringReplace(s, '\', '',[rfReplaceAll, rfIgnoreCase]);
 
result:='';
l:=length(s);
k:=StrToInt(s[l]);
 
for i:=1 to l-1 do
begin
c:=ORD(s[i])-k;
result:=result+Char(c);
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 var
htp, cok: string;
MS: TMemoryStream;
PNG :TPNGObject ;
kap4, sosd: string;
begin
 
htp:=idHTTP1.Get('http://cheat-master.ru/index/3');
cok:=IdHTTP1.Response.RawHeaders.Text;
{c1:=pars(cok, 'Set-Cookie: 0nobanuCoz=', 'GMT; domain=.cheat-master.ru;');
c2:=pars(cok, 'Set-Cookie: 0nobanuzll=', 'GMT; domain=.cheat-master.ru;');
c3:=pars(cok, 'Set-Cookie: ucvid=', 'GMT');}
sosd:=decodesos(pars(htp, '_dS(''',''');</script>'));
sos:=pars(sosd, 'value="', '"');
kap4:=pars(htp, ';m=',';tm');   ///secure/?k=1098404719369742265;m=usreg24157601;tm=1416954412
 
 
parsseckey:=pars(htp,'name="seckey" value="' ,'"');           //kap4 == seckey 1098404719369742265
parsssid:=pars(htp,'name="ssid" value="' ,'" />');            //http://cheat-master.ru/secure/?k=6952591652114687929;m=usreg24157601;tm=0.9971103507237207
parsact:=pars(htp, 'name="act" value="', '" />');
MS:= TMemoryStream.Create;
 PNG := TPNGObject.Create;
 IdHTTP1.Get('http://cheat-master.ru/secure/?k='+parsseckey +';m='+kap4+ ';tm=0.9971103507237207', MS);
 MS.Position := 0;
 PNG.LoadFromStream(MS);
 Image1.Width:=PNG.Width;
 Image1.Height:=PNG.Height;
 Image1.Picture.Bitmap.Assign(PNG);
 MS.Free;
 PNG.Free;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
PostData:TStringList;
begin
PostData:=TStringList.Create;
PostData.Add('jkd498=1');
PostData.Add('act='+parsact);
PostData.Add('ssid='+parsssid);
PostData.Add('jkd428=1');
PostData.Add('sos='+sos);
PostData.Add('user=Opankizdrastis');
PostData.Add('password=AaBbCcsss');
PostData.Add('password1=AaBbCcsss');
PostData.Add('name=Олег');
PostData.Add('email=siskisafwq2s@gmail.ru');
PostData.Add('msn=');
PostData.Add('by=1994');
PostData.Add('bm=3');
PostData.Add('bd=5');
PostData.Add('gender=1');
PostData.Add('country=31');
PostData.Add('city=');
PostData.Add('avatar=http://s59.ucoz.net/a/02/1262.jpg');
PostData.Add('avau=');
PostData.Add('signature=');
PostData.Add('code='+Edit1.Text);
PostData.Add('seckey='+parsseckey);
PostData.Add('a=4');
PostData.Add('s=0');
{idHTTP1.Request.CustomHeaders.Add('Cookie: 0nobanuCoz='+c1+'GMT; domain=.cheat-master.ru;');
idHTTP1.Request.CustomHeaders.Add('Cookie: 0nobanuzll='+c2+'GMT; domain=.cheat-master.ru;');
idHTTP1.Request.CustomHeaders.Add('Cookie: ucvid='+c3+'GMT');}
Memo1.Text:=idHTTP1.Post('http://cheat-master.ru/index/',PostData);
end;
 
end.
1
therealbop
5 / 5 / 2
Регистрация: 31.10.2014
Сообщений: 40
26.11.2014, 03:53  [ТС] 10
Спасибо огромное)
0
26.11.2014, 03:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.11.2014, 03:53

Регистрация на сайте - Delphi
Как сделать регистрацию на сайте ? Вот ссылка: смотрите есть ли на неё защиты...

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

Авторизация на сайте POST + SSL
Здравствуйте! Писал я программу, которая парсит сайт 1С и проверяет новые...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru