![](../004.gif)
Сканер портов? ЛЕГКО!
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, в которой я должен указать адрес жертвы и протокол.
Содержание Вперед на стр. 004-084-2