Hacking  
  Luty 18 2018 10:06:24  
 
Nawigacja
folder Portal
. Artykuły
. Download
. Forum
. Szukaj
. FAQ
. Regulamin
folder Hacking
. Gry Hakerskie
. Filmy
folder Delphi
. Kursy
. Faq
. Źródła
. Komponenty
. Artykuły
folderWebmaster
. JavaScripts
. Skrypty PHP
folderRóżne
. Kontakt
. Zlokalizuj ip
Aktualnie online
. Gości online: 4

. Użytkowników online: 0

. Łącznie użytkowników: 154,338
. Najnowszy użytkownik: Essay Online
Ostatnie artykuły
. Metoda ataku symlin...
. Asembler x86 w pigułce
. Binder plików z komp...
. [Asembler/MASM] Pobi...
. Braifuck 4 fun
Nawigacja
Artykuły » Delphi artykuły » Prosty skaner portów
Prosty skaner portów

Skaner portów


Witam. Jest to mój pierwszy własny artykuł także może nie być najlepszy.
Na początek powiem:

==========================================
NIE BIORE ZADNEJ ODPOWIEDZIALNOSCI ZA SZKODY
ZWIAZENE Z TYM KODEM I PROGRAMEM.

==========================================

Zapewne kazdy z Nas chciałby mieć własny skaner portów.
Dla tych którzy nie wiedzą co to jest zapewniam ze nic złego (nie dla każdego).
Sprawdza on tylko otwarte porty.
Można użyć go do sprawdzania swoich otwartych portów lub kogoś.
Zacząłem gadać i gadać więc zanim się rozgadam wżucamy na formę:

1 ClientSocket

1 Label (Caption: Adres IP)
2 Label (Caption: Port początkowy)
3 Label (Caption: Port końcowy)

1 Edit (Text: 127.0.0.1)
2 Edit (Text: 1)
3 Edit (Text: 6000)
4 Edit (Text: ) - to pozostawić puste

1 Listbox

1 Button (Caption: Skanuj)
2 Button (Caption: Zatrzymaj)
3 Button (Caption: Wyczyść)
4 Button (Caption: Wyjdź)

No to przechodzimy do pisania kodu:

Wywołujemy procedure OnActivate formy i tam wpisujemy:
Button2.Enabled := false

Nad implentation dodajemy:
var
portno:integer;


Wywołujemy procedurę OnClick buttona 1 i tam wpisujemu:
button1.enabled:=false;
edit1.enabled:=false;
edit2.enabled:=false;
edit3.enabled:=false;
edit4.enabled:=false;
button2.enabled:=true;
portno:=strtoint(edit2.text);
ClientSocket1.address:=edit1.text;
ClientSocket1.port:=portno;
ClientSocket1.active:=true;


Potem procedura OnClick buttona 2:
portno:=strtoint(edit3.text);
button1.enabled:=true;
edit1.enabled:=true;
edit2.enabled:=true;
edit3.enabled:=true;
edit4.enabled:=true;
button2.enabled:=false;


Procedura OnClick buttona 3:
edit4.text:='';
listbox1.items.clear;


Procedura OnClick buttona 4:
close;

Procedura OnConnect ClientSocket:
label son;
begin
listbox1.items.add('Otwarty port : '+inttostr(portno));
ClientSocket1.active:=false;
portno:=portno+1;
if portno > strtoint(edit3.text) then goto son else
ClientSocket1.address:=edit1.text;
ClientSocket1.port:=portno;
ClientSocket1.active:=true;
son:


Procedura OnError ClientSocket:
label son;
begin
errorcode:=0;
edit4.text:='Skanowany port : '+inttostr(portno);
ClientSocket1.active:=false;
portno:=portno+1;
if portno > strtoint(edit3.text) then goto son else
ClientSocket1.address:=edit1.text;
ClientSocket1.port:=portno;
ClientSocket1.active:=true;
son:

Mam nadzieje że dobrze. Jak coś to piszcie. Powiem tyle że na podstawie tego zrobiłem swój własny skaner portów. Kod można dowolnie modyfikować.
Do pobrania gotowy program z kodem źródłowym:B)

skaner.rar
Logowanie
Nazwa użytkownika

Hasło



Nie masz jeszcze konta?
Zarejestruj się

Nie możesz się zalogować?
Poproś o nowe hasło
Shoutbox
Musisz zalogować się, aby móc dodać wiadomość.

18-02-2018 09:19
http://images.goog
le.co.ve/url?q=htt
p://slotswall.ru http://maps.google
.com.vn/url?q=http
://ninjaslots.ru http://eezzoo.net/
__media__/js/netso
ltrademark.php?d=s
lotswall.ru http://www.safethi
tch.net/__

18-02-2018 07:34
http://nemi.pw/?ht
tp://slotsmotion.r
u http://egorlykraio
n.ru/go.php?url=ht
tp://ninjaslots.gq
https://trueproxy.
net/?https://slots
trust.ru http://ads.macdesk
tops.com/openads/a
dclick.php?banneri
d=59&

18-02-2018 05:54
http://www.shankwh
olesalers.com/admi
n/Portal/LinkClick
.aspx?tabid=39&link
=http://trislots.r
u http://paranoid.co
m/__media__/js/net
soltrademark.php?d
=slotshappy.ru http://www.courtne
ythornesmith.com

18-02-2018 04:16
http://143offroad.
com/__media__/js/n
etsoltrademark.php
?d=ninjaslots.ml http://maps.google
.so/url?q=http://s
lotsplus.ru http://www.altener
gy-pro.com/__media
__/js/netsoltradem
ark.php?d=trislots
.ru http:

18-02-2018 00:12
http://www.salonwa
nd.net/__media__/j
s/netsoltrademark.
php?d=insurtopusa.
com http://jobsmain.co
m/__media__/js/net
soltrademark.php?d
=ninjaslots.ru http://cewekmontok
.com/__media__/js/
netsoltrademark.ph
p

Licznik
32,343,305 unikalne wizyty