Воскресенье, 17.12.2017, 15:05 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024 
delfcode » Delphi » Вопросы по Delphi » find and go URL
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;
 
delfcode » Delphi » Вопросы по Delphi » find and go URL
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz