Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Сканирование диапазона на SMTP-сервис. Как???

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> Сканирование диапазона на SMTP-сервис. Как???

Имя

Сообщение

<< Старые топики Новые топики >>

Сканирование диапазона на SMTP-сервис. Как??? - 2007-02-23 22:53:16.136666

wilderwind

Сообщений: 269
Оценки: 0
Присоединился: 2006-05-28 13:41:45

Есть код:

strIPSubnet = "212.192.128."
Set objShell = CreateObject("WScript.Shell")
For strIPNode = 1 To 5
strComputer = strIPSubnet & strIPNode
    Set objScriptExec = objShell.Exec("telnet " & strComputer & " 25")
    Set ok = objScriptExec.StdOut.ReadAll()
    If (instrrev(ok,"220")=0) Then
    WScript.Echo strComputer & ": Сервер отвечает!"
    End If
Next

Цель - сканировать заданный диапазон на наличие SMTP-сервиса. 220 - код ответа SMTP, означающий что-то типа "всё окей, жду дальнейших команд".
Ну НИКАК этот код у меня не хочет работать

Это VBScript, но я буду благодарен за пример на любом языке, т.к. о общих чертах знаю почти все распространённые типа C, VB6, Delphi.
Необходимо сделать это с помощью считывания ответа из приложения telnet.exe

Post #: 1

RE: Сканирование диапазона на SMTP-сервис. Как??? - 2007-02-24 16:43:44.670000

Zmeu

Сообщений: 8
Оценки: 0
Присоединился: 2006-09-10 00:16:54

На С++

char szRecvBuf[1024];
if(szRecvBuf[0]=='2' && szRecvBuf[1]=='2' && szRecvBuf[2]=='0')
{
MessageBox(0,"OK","Message",0)
}

Если нужно скину полный исходник который отправляет письмо на почту с авторизацией.[>:]

Post #: 2

Страниц: [1]

Все форумы >> [Компилируемые языки] >> Сканирование диапазона на SMTP-сервис. Как???

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.