|
alex0097
|
Дата: Четверг, 05.12.2013, 07:42 | Сообщение # 1
|
Частый гость
Зарегистрирован: 11.07.2010
Группа: Пользователи
Сообщений: 50
Статус: 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 := '[email protected]'
else
result := response;
end;
|
| |
|
|
|
xXxSh@dowxXx
|
Дата: Четверг, 05.12.2013, 18:57 | Сообщение # 2
|
Продвинутый
Зарегистрирован: 22.01.2012
Группа: Проверенные
Сообщений: 541
Статус: Offline
|
если ты реализуешь поиск по исходному коду, то для определения нужной тебе ссылки ищи любые не изменяющиеся значения\параметры кода находящиеся рядом с нужной тебе ссылкой и уже от них отсчитывай взад\вперед количество символов или еще как нибудь, таким методом можно без труда отыскать нужную тебе ссылку, а вообще методов можно много придумать... |
| |
|
|
|
alex0097
|
Дата: Четверг, 05.12.2013, 22:18 | Сообщение # 3
|
|
Частый гость
Зарегистрирован: 11.07.2010
Группа: Пользователи
Сообщений: 50
Статус: 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 := '[email protected]'
else
result := response;
end;
|
| |
|
|
