[visible]

Здраствуйте. есть файл .txt в котором содержатся адреса почты и пароль. mail;pass . Нужна программка которая бы заходила на каждый из адрессов проверяла почту и переходила на ссылку в письме. спасибо!

[PhoeniX]

брутфорс шоле?

[visible]

нет. нужна программа. на всех этих мылах содержится примерно одно и то же письмо. программа должна заходить по всем им и переходить по ссылке. что то типо этого.

[PhoeniX]

Ну ну. Тогда вопрос - что надо? Разобрать файл на пары логин-пароль? Или стянуть письмо по POP3? Я думаю, тебе стоит побывать тут... http://74.125.87.105/

[visible]

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

[PhoeniX]

Ну, тогда вопрос стоит не "помогите", а "сделайте за меня", а это несколько в другой раздел...

[visible]

Код:

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;

вот код. как можно подключить чтобы все майлы и пасы грузил из файла? спасибо.

[PhoeniX]

Гугли TStringList, Pos, Copy. Ничего сложного. Простой проход по строчкам в цикле.

[visible]

можешь помочь сделать? Денежка будет=)

[PhoeniX]

Приблизительно как-то так:

Код:

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 в строчках с отделением пароля от логина.

[visible]

не совсем получается...напиши мне в icq...я тебе сообщение в личке оставил, ато до тебя не достучаться....

[PhoeniX]

Не совсем получается - это как? На какой строке ошибка, или какие результаты не устраивают?

В ICQ не бываю сейчас, пиши тут.

[visible]

не совсем понял как адаптировать код этот под мой.
ругается на вот эту строчку

Код:

IdPOP31.Username:=login+'@rambler.ru';

[PhoeniX]

Ругаться он может по-разному... Какие именно "неприличные слова" произносит?

[visible]

Код:

[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''

ошибка при попытке собрать программу.