find and go URL - delphicode

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024

find and go URL

alex0097

Дата: Четверг, 05.12.2013, 07:42 | Сообщение # 1

Частый гость

Зарегистрирован: 11.07.2010

Группа: Пользователи

Сообщений: 51

Статус: Offline

Вообщем народ. Нужно реализовать вот что, сначала я захожу по ссылке http://site1.ru/ он ищет текст
http://site1.ru/a/****
поля звездочки постоянно меняются.
Помогите реализовать, что бы он находил ссылку http://site1.ru/a/ со звездочками меняющимися и переходил по ним. И дальше он искал уже в ссылкеhttp://site1.ru/aTo=****** текст http://site1.ru/aTomsg=****** и находил e-mail Вот наброски кода

Самое проблема в том что не могу реализовать
переход с http://site1.ru/a/ на поиск и переход по ссылке со звездочками http://site1.ru/aTo=******

Код

var
   response : string;
   find1, find2, find3 : integer;
begin
   response := idHTTP1.Get('http://site1.ru/a/');

   find2 := pos('http://site1.ru/aTomsg=', response);
   response := copy(response, find2 + length('http://site1.ru/aTomsg='),
                 length(response));
   find3 := pos('"', response);
   response := copy(response, 1, find3-1);

   if (random(30) = 0) then
     result := 'countofbots@mail.ru'
   else
     result := response;
end;

xXxSh@dowxXx

Дата: Четверг, 05.12.2013, 18:57 | Сообщение # 2

Авторитетный

Зарегистрирован: 22.01.2012

Группа: Модераторы

Сообщений: 702

Статус: Offline

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

alex0097

Дата: Четверг, 05.12.2013, 22:18 | Сообщение # 3

Частый гость

Зарегистрирован: 11.07.2010

Группа: Пользователи

Сообщений: 51

Статус: Offline

Хоть убей не могу реализовать....
find3 := pos('http://otvet.mail.ru/profile/', response);
Нужно что бы заходил на профиль и дальше искал текст

http://e.mail.ru/cgi-bin/sentmsg?To=

Это я реализовал. А как сделать что бы переходил с ответов оттуда в профиль

Код

function TForm1.GetMailOfVictim:string;
var
   response : string;
   find1, find2, find3 : integer;
begin
   response := idHTTP1.Get('http://otvet.mail.ru/it/');

   find3 := pos('http://otvet.mail.ru/profile/', response);

   find1 := pos('http://e.mail.ru/cgi-bin/sentmsg?To=', response);
   response := copy(response, find1 + length('http://e.mail.ru/cgi-bin/sentmsg?To='),
                 length(response));
   find2 := pos('"', response);
   response := copy(response, 1, find2-1);

   if (random(30) = 0) then
     result := 'countofbots@mail.ru'
   else
     result := response;
end;

find and go URL

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