Автоматическая регистрация на рамблере

IngHack · 21 Sep 2011

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

procedure TForm1.Button2Click(Sender: TObject);
var
Data:TStringList;
slogin, sname, sfamily, spassword, sdomain, account: tstringlist;
login, name, domain, family, password: string;
float : single;
int, i : Integer;
begin
for i := 1 to 1000000 do
begin
int := 1 + Random(9999999); // Эти 100 значений дают диапазон 0..999
end;
//---------------------------------------]
slogin:=TStringList.Create;
slogin.LoadFromFile('logins.txt');
//---------------------------------------]
sname:=TStringList.Create;
sname.LoadFromFile('names.txt');
//---------------------------------------]
sfamily:=TStringList.Create;
sfamily.LoadFromFile('familys.txt');
//---------------------------------------]
sdomain:=TStringList.Create;
sdomain.LoadFromFile('domains.txt');
//---------------------------------------]
spassword:=TStringList.Create;
spassword.LoadFromFile('passwords.txt');
//---------------------------------------]
account:=TStringList.Create;
assignfile(AccountsFile, 'accounts.txt');
//---------------------------------------]
login:=slogin[Round(random*slogin.count)]+IntToStr(int);
name:=sname[Round(random*sname.count)];
family:=sfamily[Round(random*sfamily.count)];
domain:=sdomain[Round(random*sdomain.count)];
password:=spassword[Round(random*spassword.count)];
s:=idhttp1.Get('http://id.rambler.ru/script/newuser.cgi');
Data:=TStringList.Create;
Data.Add('skin=id');
Data.Add('back=');
Data.Add('back_immediate=');
Data.Add('uniq_id='+uniq_id);
Data.Add('action=register');
Data.Add('user.fname='+name);
Data.Add('user.lname='+family);
Data.Add('user.gender=1');
Data.Add('user.bday=12');
Data.Add('user.bmonth=12');
Data.Add('user.byear=1990');
Data.Add('user.news=1');
Data.Add('user.login='+login);
Data.Add('user.domain='+Domain);
Data.Add('x.emailfree='+login+'@'+domain);
Data.Add('user.password1='+password);
Data.Add('user.password2='+password);
Data.Add('user.question=Почтовый индекс ваших родителей');
Data.Add('user.own_question=');
Data.Add('user.answer=188694');
Data.Add('user.email2=');
Data.Add('user.captcha='+CaptchaEdit.Text);
S:=IdHTTP1.Post('http://id.rambler.ru/script/newuser.cgi', Data);
if Pos('logout', S)<>0 then
begin
MyItem := SortListView1.Items.Add;
MyItem.Caption := login;
MyItem.SubItems.Add(password);
MyItem.ImageIndex := 1;
SendMessage(SortListView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
append(AccountsFile);
writeln(AccountsFile, login+';'+password);
closefile(AccountsFile);
end
else
sleep(1);
end;
Click to expand...

Ошибка: 500 Internal Server Error ! Я не пойму что я не так отправляю? Все параметры отправки проверил сниффером.

Ins3t · 21 Sep 2011

круто код оформил.

MTV · 21 Sep 2011

IngHack said:

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

var Data:TStringList; slogin, sname, sfamily, spassword, sdomain, account: tstringlist; login, name, domain, family, password: string; float : single; int, i : Integer; begin for i := 1 to 1000000 do begin int := 1 + Random(9999999); // Эти 100 значений дают диапазон 0..999 end; //---------------------------------------] slogin:=TStringList.Create; slogin.LoadFromFile('logins.txt'); //---------------------------------------] sname:=TStringList.Create; sname.LoadFromFile('names.txt'); //---------------------------------------] sfamily:=TStringList.Create; sfamily.LoadFromFile('familys.txt'); //---------------------------------------] sdomain:=TStringList.Create; sdomain.LoadFromFile('domains.txt'); //---------------------------------------] spassword:=TStringList.Create; spassword.LoadFromFile('passwords.txt'); //---------------------------------------] account:=TStringList.Create; assignfile(AccountsFile, 'accounts.txt'); //---------------------------------------] login:=slogin[Round(random*slogin.count)]+IntToStr(int); name:=sname[Round(random*sname.count)]; family:=sfamily[Round(random*sfamily.count)]; domain:=sdomain[Round(random*sdomain.count)]; password:=spassword[Round(random*spassword.count)]; s:=idhttp1.Get('http://id.rambler.ru/script/newuser.cgi'); Data:=TStringList.Create; Data.Add('skin=id'); Data.Add('back='); Data.Add('back_immediate='); Data.Add('uniq_id='+uniq_id); Data.Add('action=register'); Data.Add('user.fname='+name); Data.Add('user.lname='+family); Data.Add('user.gender=1'); Data.Add('user.bday=12'); Data.Add('user.bmonth=12'); Data.Add('user.byear=1990'); Data.Add('user.news=1'); Data.Add('user.login='+login); Data.Add('user.domain='+Domain); Data.Add('x.emailfree='+login+'@'+domain); Data.Add('user.password1='+password); Data.Add('user.password2='+password); Data.Add('user.question=Почтовый индекс ваших родителей'); Data.Add('user.own_question='); Data.Add('user.answer=188694'); Data.Add('user.email2='); Data.Add('user.captcha='+CaptchaEdit.Text); S:=IdHTTP1.Post('http://id.rambler.ru/script/newuser.cgi', Data); if Pos('logout', S)<>0 then begin MyItem := SortListView1.Items.Add; MyItem.Caption := login; MyItem.SubItems.Add(password); MyItem.ImageIndex := 1; SendMessage(SortListView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0); append(AccountsFile); writeln(AccountsFile, login+';'+password); closefile(AccountsFile); end else sleep(1);

Ошибка: 500 Internal Server Error ! Я не пойму что я не так отправляю? Все параметры отправки проверил сниффером.
Click to expand...

О да.Чел ты лучший!

IngHack · 21 Sep 2011

спасибо! но я бы хотел увидеть ответы по лучше на данную тему!

FalseBit · 21 Sep 2011

ты сначала код нормально оформи, а не эту сплошную прозу.

xophet · 21 Sep 2011

IngHack said:

спасибо! но я бы хотел увидеть ответы по лучше на данную тему!
Click to expand...

вставь сначала код в сообщение, потом выдели его и нажми кнопку "code" или сам разбей по строкам

___________
upd: не по теме, но вижу где ты насоздавал кучу стринглистов, а убивать их кто будет?
upd2: по теме: может куки нужны? я лично хз, ща спать собираюсь, но посмотри-подумай.
возьми beyondCompare (допустим) и сравни запросы\ответы (оригинал с твоим) и устрани малейшие различия (я всегда так делаю когда "на обум" не помогает)

shadowrun · 21 Sep 2011

на рамблере - одна из простейших рег, которой не нужны ни кукисы, ни паршенные парамметры. Займись изучением кода а не копипастом.

1n0y · 21 Sep 2011

for i := 1 to 1000000 do
begin
int := 1 + Random(9999999); // Эти 100 значений дают диапазон 0..999
end;
Click to expand...

О_о что-что?

xophet · 21 Sep 2011

1n0y said:

О_о что-что?
Click to expand...

да-да, я тоже фпалил)))

IngHack · 22 Sep 2011

ну? никто незнает?

IngHack · 22 Sep 2011

1n0y said:

О_о что-что?
Click to expand...

блин это добавляется в логин + NNNNNNNNN значение - adekvat923182456

shadowrun said:

на рамблере - одна из простейших рег, которой не нужны ни кукисы, ни паршенные парамметры. Займись изучением кода а не копипастом.
Click to expand...

Да какой копипаст?!!! Я просто сменил код! Там много изменений внёс. Это не назовёшь копипаст, только частично отправку POST копировал а дальше сам!!!

Автоматическая регистрация на рамблере

IngHack New Member

Ins3t Харьковчанин

MTV New Member

IngHack New Member

FalseBit New Member

xophet Member

shadowrun Banned

1n0y Active Member

xophet Member

IngHack New Member

IngHack New Member

Useful Searches

Автоматическая регистрация на рамблере

IngHack New Member

Ins3t Харьковчанин

MTV New Member

IngHack New Member

FalseBit New Member

xophet Member

shadowrun Banned

1n0y Active Member

xophet Member

IngHack New Member

IngHack New Member