[TUTORIAL][DELPHI] Piszemy prosty skaner portów

[p3o]

Witam w moim pierwszym tutorialu.
Traktował będzie on o pisaniu skanera portów
Skaner będzie oparty o standartowe komponenty dostępne w delphi. Do jego napisania nie użyłem socketów,
ale jeśli ktoś koniecznie chce, zmiana kodu jest bardzo łatwa.

Zasada działania jest prosta:
Po aktywacji timera TCPClient łączy się z portem - jeśli połączony dostajemy komunikat,
następnie TCPClient rozłącza się, zwiększa aktualny port o 1 i powtarza całą procedurę.

Więc do rzeczy:

1.Potrzebne:
-Delphi 7
-Wyobraźnia i mózg

2.Zaczynamy pisać:

Na formę wstawiamy:
3xEdit
2xButton
1xLabel
1xTimer /zakładka SYSTEM/
1xTCPClient /zakładka INTERNET/ /Niedostępny w Delphi 7 personal, dostępne tu: http://p3o.yoyo.pl/dclnet70.bpl /
1xMemo

U mnie wygląda to mniejwięcej tak:



Pod VAR /deklaracja zmiennych/ wklejamy:

**portmin:integer;
**portmax:integer;
**IP:string;
**port:integer;

Są to zmienne odpowiedzialne za adres IP, oraz porty /aktualny, początkowy, docelowy/

Klikamy 2x na Button1 i wklejamy kod:

** Memo1.Clear;
** IP:=Edit1.Text;
** portmin:=StrToInt(Edit2.Text);
** portmax:=StrToInt(Edit3.Text); 
** port:=portmin;
** TcpClient1.RemoteHost:=IP;
** Timer1.Enabled:=true;
** Memo1.Lines.Add('Skanowanie rozpoczęte');
** Button1.Enabled:=false;
** Button2.Enabled:=true;

Kod odpowiada za podanie IP do klienta, aktywowanie timera oraz włączenie/wyłączenie przycisków.
Funkcja StrToInt zamienia typ String na Integer.

Następnie klikamy 2x Button2 i wklepujemy:

** Timer1.Enabled:=false;
** Memo1.Lines.add('Skanowanie przerwane');
** Button1.Enabled:=true;
** Button2.Enabled:=false;

Tutaj deaktywujemy Timer oraz dajemy na Memo komunikat.

Po tym, w zdarzeniu OnTimer wklejmy kod:

** Label1.Caption:=IntToStr(port);
** TcpClient1.RemotePort:=IntToStr(port);
** if TcpClient1.Connect=True then

**** Memo1.Lines.Add(IntToStr(port)+' : open');
**** inc(port);

** if port > portmax then
**** begin
********Timer1.Enabled:=false;
********Memo1.Lines.Add('Skanowanie zakończone');
********Button1.Enabled:=true;
********Button2.Enabled:=false;
********port:=0;
end;

Jest to najważniejsza część skanera, odpowiada właśnie za sprawdzanie portów.
Timer co określoną ilość czasu /Interval/ wykonuje instrukcje zawarte w zdarzeniu onTimer /proponuję ustawić na 200/.
Pierwsza instrukcja warunkowa IF sprawdza czy jest połączenie z danym portem. Jeśli jest - daje na Memo komunikat oraz zwiękasza port o jeden /inc(port)/.
Druga zaś sprawdza czy nie port docelowy nie został osiągnięty. Jeśli tak, program deaktywuje timer i ustawia port aktualny na 0.


W FormCreate formy dajemy kod czyszczący Memo:

Memo1.Clear;

Po skompilowaniu, jak widać skaner działa:



Jeśli ktoś znalazł jakieś błędy, proszę pisać.

Pozdrawiam

[thc_flow]

Ja znalazłem..Nie napisałeś, że na edycji Presonal w/w komponentów nie ma

[p3o]

No tak, zaraz wrzuce je gdzies

[djmentos]

Nie, to nie jest dobry artykuł. Po pierwsze bardziej podchodzi pod gotowca.
Grunt, że coś innego niż Sockety.

[p3o]

Tak wiem, już opisałem kod i muszę jakoś zedytować mojego tutoriala.

[Thiefo]

Gdzie mam wstawić ten plik TCPClient ?

[djmentos]

Gdziekolwiek, pod warunkiem, że wpiszesz go do listy katalogów z bibliotekami w ustawieniach. A jak nie chcesz tego dopisywać do kopiuj do kaatalog Lib w folderze Delphi.