/*********************************************************
 * Port Scanner sederhana menggunakan perl script.
 * 
 * 
 * Implementation of basic socket programming.
 *
 * oleh    : iko (iko94@yahoo.com)
 * release : apr,27,2004
 *
 * No Warranty. This tutorial is for educational use only, 
 * commercial use is prohibited.
 *
 **********************************************************/

Berikut ini adalah skrip perl sederhana yang berfungsi untuk
men-scan port pada suatu target server tertentu.
Sebenarnya skrip ini adalah penerapan socket programming 
tingkat dasar (i'm still lamer coder :) ).

Cara :
1. Simpan potongan skrip berikut pada portscanner.pl
2. chmod +x portscanner.pl
3. Jalankan dengan cara : 
    ./portscanner.pl [IP_TARGET] [PORT]
    ./portscanner.pl [IP_TARGET] [PORT_AWAL-PORT_AKHIR]
4. contoh :
    ./portscanner.pl 192.9.2.100 80
    ./portscanner.pl 192.9.2.100 21-25

Catatan :
1. Pada penggunaan scanning port-port tertentu, akan tetap
   masuk log  :( (misal 21,22,23)
2. Skrip ini mungkin lebih berguna untuk digunakan pada
   skrip lain yang memerlukan proses scanning port yang 
   relatif cepat.
2. Gunakan nmap jika menginginkan proses scanning yang
   lebih bervariasi dan aman.

--------------potong di sini---------------------
#!/usr/bin/perl
#

use Socket;

if ($#ARGV<0) {
  print "Eror sintak mu !!!\n";
  print "Contoh  $0 192.9.100.1 80\n";
  print "Atau  $0 192.9.100.1 21-25\n";
  die;
}

$host=$ARGV[0];
$server=inet_aton($host);
$portz=$ARGV[1];
if ($portz=~/-/) {
   @tmp = split/-/, $portz;
   $bp = $tmp[0];
   $ep = $tmp[1];
} else {
  $bp = $portz;
  $ep = $portz;
}

print "Sit & relax...\n\n";

$port1=$bp;
while ($port1<=$ep) {
    $port=$port1;
    portscan($port,$server);
    $port1++;
}

print "\nLihat hasilnya di open.log\n\n";

sub portscan {
socket (S,PF_INET,SOCK_STREAM,getprotobyname('tcp')||0) ||
     die("Socket problems\n");
if (connect(S,pack "SnA4x8",2,$port,$server)){
     print "Target $host : Port $port is open\n";
     open (LOGZ,">>open.log");
     print LOGZ "Target $host:port $port is open\n";
     close LOGZ;
}
else
{
     print "Target $host : Port $port is closed\n";
}

}
--------------potong di sini---------------------

TODO:
[*] Final.

Special greets :
[+] www.bosen.net
[+] ftp_geo
[+] Schizoprenic (XNuxer Research Center) --> BEBASKAN DIA !!!

iko berterimakasih kepada:
[+] qq
[+] tiyox
[+] keputih group
[+] everyone who shouting the freedom

iko tidak berterimakasih kepada:
[-] monopoli
[-] birokrasi
[-] para penjilat
[-] koruptor
[-] closed source
[-] kpu

[EOF]