Port Scanner

[Satanic2000]

#!/usr/bin/perl
#By chu)\-\!
#CanTact: scrty4hack [AT] yahoo [DoT] Com
#My Team: DarkGh0st.Com
use Socket;
system('cls');
system('title Port Scanner [C]oded by chu)\-\! * * *');
print q{
#Port Scanner
[+]--------- Port Scanner !-------[+]
[+]------------- Coded bY /0 ----------[+]
[+]--------No Hacker ! -----------------[+]
[+]------------Greetz to Allmighty--------------[+]
-----------------------------------------------


*____ _ * * * ____ *_ * * *_____ ___ * * *
/ ___| | __ _| *_ (_) __ |_ * _/ _ _ __
| | *_| |/ _` | | | | |/ _` || || | | | __|
| |_| | | (_| | |_| | | (_| || || |_| | | *
____|_|__,_|____/|_|__,_||_| ___/|_| *
* * * * * * * * * * * * * * * * * * * * * *


};
print "Enter IP: ";
my $x;
my $servip = <STDIN>;
chop $servip;

for($a=0;$a<=65000;$a++) {
* *$ip_addr = sockaddr_in($a, inet_aton($servip));
* *$protocol = getprotobyname("tcp");
socket(SOCK, PF_INET, SOCK_STREAM, $protocol);
if(connect(SOCK, $ip_addr))
* *{
* * * * print "[#] Port " . $a . " open\n";
* * * * $x++;
* * * *}
* * * * else {
* * * * close(SOCK);
* * * * *}
* *
}

sub Services
{
* *@open_ports = ($a);
* *
* *foreach $openports(@open_ports) {
* *$ipaddr = sockaddr_in($openports, inet_aton($servip));
* *$prot2 = getprotobyname("tcp");
* *socket(SCK2, PF_INET, SOCK_STREAM, $prot2);
* *connect(SCK2, $ipaddr);
* *recv(SCK2, $buff, 750, 0); #recv information

* *print($buff);

* *}
}
* *print "[+] Scan Finished!\n";
* *print "\nResults:\n===================\n";
* *print "Number of open ports: " . $x . "\n";

&Services;