Сканер портов? ЛЕГКО!

Horrific (smirnandr@mail.ru)

Спецвыпуск Хакер, номер #004, стр. 004-084-1

Если Delphi уже запустился, то давай приступим к оформлению формы. Последовательно выполняй следующие действия: поставь на форму Panel из закладки "Standard" и измени его свойство Align на "alTop". Как менять свойства, я уже рассказывал в других статьях этого номера. Поэтому теперь я буду просто говорить, какие свойства изменить, а ты будешь выделять объект и искать такую строку в ObjectInspector (и, конечно же, ставить то, что я скажу :0) ).

Теперь поставь на форму RichEdit из закладки "Win32" и измени его свойство Align на "alClient". У тебя должно получиться нечто похожее на рисунок 1.

Теперь установи на Pantl1 три Label и один Edit из закладки "Standard". У всех Label-ов измени свойство "Caption" на:

Label1 - "Host address" (IP адрес жертвы).

Label2 - "First port" (первый порт).

Label3 - "Last port" (последний порт).

Можешь написать это на русском, но я предпочитаю такие вещи видеть на английском (да простит меня редактор :)).

Теперь установи на Pantl1 два компонента SpinEdit из закладки "Samples" и кнопку из закладки "Standard".

Постарайся все это разместить так, как на рисунке 2, для этого нужно немного поработать мышкой, перетаскивая объекты по панели Panel1.

Все, с оформлением покончено. Теперь переходим к программированию. Много мы писать не будем, нам понадобится только одна процедура. Дважды кликни по Button1, и она у тебя перед глазами появится. Дополни ее этим текстом:

procedure TScanPortForm.Button1Click(Sender: TObject);

var

index:Integer;

initdata:WSADATA;

ws:TSOCKET;

addrport:TSockAddrIn;

begin

RichEdit1.Lines.Clear;

WSAStartup($101, InitData);

socket(PF_INET, SOCK_STREAM,0);

addrport.sin_family := PF_INET;

addrport.sin_addr.s_addr := inet_addr(PChar(Edit1.Text));

index:=SpinEdit1.Value;

while index

begin

addrport.sin_port := htons(index);

if connect(ws,addrport,sizeof(addrport))=0 then

RichEdit1.Lines.Add('Port '+IntToStr(index)+' открыт');

Inc(index);

end;

RichEdit1.Lines.Add(' Готово');

closesocket(ws);

end;

На первый взгляд очень много. Но ничего страшного здесь нет. Сейчас я все аккуратно распишу. Давай рассмотрим каждую строчку в отдельности:

RichEdit1.Lines.Clear - очищает RichEdit1.

WSAStartup($101, InitData); - запускаем библиотеку winsock, которая используется для работы с сокетами. Я здесь работаю с сокетами через API, а не через ClientSocket, как в статье про троянов. Это сделано для увеличения скорости сканирования. Ты же не хочешь, чтобы тебя выловила наша доблестная милиция.

В качестве первого параметра ($101) указывается версия необходимого драйвера winsock.dll. Второй параметр нами не используется, поэтому там пустая переменная типа WSADATA.

socket(PF_INET, SOCK_STREAM,0) - открывает сеанс работы с сокетами. Кстати, сокет - это по-нашему гнездо. AF_INET говорит, что меня интересует один из протоколов TCP или UTP. SOCK_STREAM - указывает, что мне нужен протокол из семейства TCP. Третий параметр 0 означает TCP.

Дальше я заполняю структуру addrport, в которой я должен указать адрес жертвы и протокол.