port scanner dengan delphi

Buat projek baru dari delphi. masukan kedalam form tiga buah edit kontrol, tiga buah button, dan satu buah memo.

kemudian ganti caption masing masing menjadi:
button 1=scan.
button2=stop.
button3=clear.
label1=Port awal.
labe2=Port Akhir.
label3=Adress.

Tempatkan masing masing kontrol sehingga tampak seperti gambar dibawah ini.

Atau anda boleh menempatkan sesuai selera anda.
Kemudian klik "memo1", pada object inspector, ganti properties ScrollBars dari "ssnone" menjadi "ssVertical.".

.

Jangan lupa tambahkan ttimer,serta ttcpclient kontrol. bagi yang tidak tahu "ttcpclient" ini dari tool palette berada pada katagori internet. dan untuk ttimer berada pada katagori system.
tempatkan keduanya terserah anda karena kedu komponen ini non visual. artinya tidak di munculkan saat pengeksekusian.

Klik 2 kali ditempat yang kosong pada form1.
masukan kode berikut:

memo1.Text:=' ';
timer1.Enabled:=false;
Tcpclient1.Active:=false;Pada variabel global tambahkan listing berikut :


pawal, pakhir, counter : integer;
nyambung : boolean;

klik 2x button1 (caption= scan) lalu tambahkan kode berikut :

timer1.Enabled :=true;
pawal:=strtoint(edit1.text);
pakhir:=strtoint(edit2.Text);

klik 2x button2 (caption stop) ketik:

Tcpclient1.active:=false;
timer1.Enabled:=false;

klik 2x button3 masukan

memo1.Clear;

klik 2x  timer1 masukan:

pawal:=pawal+1;
counter:=pawal;
label5.Caption:=inttostr(counter);Tcpclient1.RemoteHost:=edit3.Text;Tcpclient1.RemotePort:=inttostr(counter);Tcpclient1.Active:=true;
if nyambung then
begin
memo1.lines.Add('Port : '+inttostr(counter)+' Aktif');
end;Tcpclient1.Disconnect;Tcpclient1.Active :=false;

 if pawal=pakhir then
begin
timer1.Enabled:=false;
end;

klik ttcpclient1, pada object inspector di tab event, klik 2x event onconnect lalu ketikan :

nyambung:=true;

klik ttcpclient1, pada object inspector di tab event, klik 2x event onerror lalu ketikan :


nyambung:=false;

setelah semuanya dimasukan anda dapat mencoba mengeksekusi progarmnya.

untuk menggunakannya anda tinggal memasukan  angka satu pada label1 satu dan seribu pada label2 dan masukan ipaddres yang mau di scan. contoh:127.0.0.1(untuk local host). kemudian klik tombol scan.

so mudah-mudahan postingan ini bermanfaat.
Bagi yang males ngetik  bisa di download di sini.