|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
программа для перехода по ссылки в письме на почте
Здраствуйте. есть файл .txt в котором содержатся адреса почты и пароль. mail;pass . Нужна программка которая бы заходила на каждый из адрессов проверяла почту и переходила на ссылку в письме. спасибо!
|
#2
|
||||
|
||||
брутфорс шоле?
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#3
|
|||
|
|||
нет. нужна программа. на всех этих мылах содержится примерно одно и то же письмо. программа должна заходить по всем им и переходить по ссылке. что то типо этого.
|
#4
|
||||
|
||||
Ну ну. Тогда вопрос - что надо? Разобрать файл на пары логин-пароль? Или стянуть письмо по POP3? Я думаю, тебе стоит побывать тут... http://74.125.87.105/
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#5
|
|||
|
|||
нужно чтобы программка заходила на почту, читала письмо. искала ссылку делала переход по ней. и так на следующий емайл.
|
#6
|
||||
|
||||
Ну, тогда вопрос стоит не "помогите", а "сделайте за меня", а это несколько в другой раздел...
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#7
|
|||
|
|||
Код:
procedure TForm1.ActivateClick(Sender: TObject); var NumOfMsgs, mailcicl:Integer; find:boolean; link:string; begin IdPOP31.Username:=login+'@rambler.ru'; IdPOP31.Password:=pass; IdPOP31.Host:='pop.rambler.ru'; IdPOP31.Port:=110; try IdPOP31.Connect; if IdPOP31.Connected then begin NumOfMsgs := idpop31.CheckMessages; Memo1.Lines.Add('Подключение к почте прошло успешно'); Memo1.Lines.Add(IntToStr(NumOfMsgs)+' сообщений'); find:=false; mailcicl:=1; while not(find) and (mailcicl<=NumOfMsgs) do begin IdMessage1.Clear; IdPOP31.RetrieveHeader(mailcicl, IdMessage1); if Pos('емайл', IdMessage1.From.Text)<>0 then begin find:=true; IdPOP31.Retrieve(mailcicl,IdMessage1); Memo1.Lines.Add('Найдено письм'); link:=Copy(IdMessage1.Body.Text, Pos('http', IdMessage1.Body.Text), 82); IdPOP31.Delete(mailcicl); IdHTTP1.Get(link); IdHTTP1.Get('линк'); IdHTTP1.Get('линк'); Data:=TStringList.Create; Data.Add('act=no_hash'); Data.Add('al=1'); Data.Add('full=1'); IdHTTP1.post('линк', Data); Data.Clear; Data.Add('act=reg_step'); Data.Add('al=1'); Data.Add('full=1'); Data.Add('step=1'); S:=IdHTTP1.post('линк', Data); Data.Free; link:=Copy(S, Pos('finish&hash', S)+12, 18); try IdHTTP1.Get('линк); except end; Memo1.Lines.Add('УРА :)'); Activate.Default:=false; Activate.Enabled:=false; GetRamblerCaptcha.Default:=true; end; inc(mailcicl); end; if not(find) and (NumOfMsgs>0) then Memo1.Lines.Add('Письма нет'); end except // on E:Exception do Memo1.Lines.Add('Ошибка подключения! '+E.Message); end; IdPOP31.Disconnect; end; |
#8
|
||||
|
||||
Гугли TStringList, Pos, Copy. Ничего сложного. Простой проход по строчкам в цикле.
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#9
|
|||
|
|||
можешь помочь сделать? Денежка будет=)
|
#10
|
||||
|
||||
Приблизительно как-то так:
Код:
var filename: string; login, pass: string; sl: TStringList; i: integer; begin sl := TStringList.Create; // Создаём наш стринглист filename := 'c:/list.txt'; // Тут задаём путь до списка, можно диалог или едит... sl.LoadFromFile(filename); // Загружаем... for i := 0 to sl.Count -1 do begin // Проходим по строкам login := sl[i]; // Задаём логину всю строчку, далее... if pos(';', login) > 0 then begin // Если в строке есть символ разделителя pass := copy(login, pos(';', login) +1, length(login)); // То копируем из этой строчки пароль login := copy(login, 1, pos(';', login) -1); // И обрезаем логин до разделителя end else continue; // Если разделитель не найден, пропускаем строчку. // Login, pass - юзаем и радуемся! end; // Конец прохода sl.Free; // Не забывает почистить за собой end; Если неправильно обрубает логин/пароль, поиграйся с +/-1 в строчках с отделением пароля от логина. Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 24.07.2010 в 22:58. |
#11
|
|||
|
|||
не совсем получается...напиши мне в icq...я тебе сообщение в личке оставил, ато до тебя не достучаться....
|
#12
|
||||
|
||||
Не совсем получается - это как? На какой строке ошибка, или какие результаты не устраивают?
В ICQ не бываю сейчас, пиши тут. Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#13
|
|||
|
|||
не совсем понял как адаптировать код этот под мой.
ругается на вот эту строчку Код:
IdPOP31.Username:=login+'@rambler.ru'; |
#14
|
||||
|
||||
Ругаться он может по-разному... Какие именно "неприличные слова" произносит?
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#15
|
|||
|
|||
Код:
[DCC Error] Unit1.pas(79): E2003 Undeclared identifier: 'IdPOP31' [DCC Error] Unit1.pas(80): E2066 Missing operator or semicolon [DCC Error] Unit1.pas(81): E2066 Missing operator or semicolon [DCC Error] Unit1.pas(82): E2066 Missing operator or semicolon [DCC Error] Unit1.pas(87): E2066 Missing operator or semicolon [DCC Error] Unit1.pas(88): E2029 'THEN' expected but identifier 'Connected' found [DCC Error] Unit1.pas(90): E2066 Missing operator or semicolon [DCC Error] Unit1.pas(97): E2003 Undeclared identifier: 'IdMessage1' [DCC Error] Unit1.pas(97): E2066 Missing operator or semicolon [DCC Error] Unit1.pas(98): E2066 Missing operator or semicolon [DCC Error] Unit1.pas(99): E2250 There is no overloaded version of 'Pos' that can be called with these arguments [DCC Error] Unit1.pas(102): E2066 Missing operator or semicolon [DCC Error] Unit1.pas(104): E2008 Incompatible types [DCC Error] Unit1.pas(122): E2029 'END' expected but 'TRY' found [DCC Error] Unit1.pas(122): E2029 ';' expected but 'TRY' found [DCC Error] Unit1.pas(125): E2029 '.' expected but ';' found [DCC Warning] Unit1.pas(130): W1011 Text after final 'END.' - ignored by compiler [DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'' Последний раз редактировалось visible, 25.07.2010 в 14:17. |