script Perl untuk scan port

[k1ngp3rl]

Bagi-bagi sript perl dapat dari darkgh0st.com...

#!/usr/bin/perl
use Socket;
system('cls');
system('title Port Scanner [C]oded by Gl4di4t0r ');
print q
{
#Port Scanner
[+]---------Port Scanner By GlaDiaT0R-------[+]
[+]-------------Coded By GlaDiat0R----------[+]
[+]--------Tunisian Hacker -----------------[+]
[+]------------Greetz to Allah--------------[+]
-----------------------------------------------
My Home Page: DarkGh0st.com

____ _ ____ _ _____ ___
/ ___| | __ _| _ \(_) __ |_ _/ _ \ _ __
| | _| |/ _` | | | | |/ _` || || | | | '__|
| |_| | | (_| | |_| | | (_| || || |_| | |
\____|_|\__,_|____/|_|\__,_||_| \___/|_|



};
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;

[nehasharma]

I am cheery to be here and this splendid article. I've found here a lot of interesting information for the knowledge I need. all that you provide for us, it was very valuable and supportive, you shake for sharing this astonishing post.

Independent Delhi Escorts

[blueclau]

In this situs scr888 mesin slot case the key team is the right team for situs scr888 casino you to choose. Just say if you choose a small team, surely situs scr888 slot online in this game there will be voor or goal deficit situs scr888 indonesia before the fight is over. So you will know situs scr888 slot online who the winner of this bet is. Handicap ball situs scr888 indonesia gambling games are also known as Voor or HDP. Where situs scr888 casino you yourself are voor, that is, as a player situs scr888 uang asli who is free to give and ask for the superiority situs scr888 casino of the goal first. For the voor market itself, it only applies from situs scr888 mesin slot the numbers 1/2 to 3. So it is certain before the game starts you can be situs scr888 slot online said to win or lose first. For example, you give situs scr888 indonesia voor 1 and choose a big team, if the match ends with a score of 1 – 1, then you are certain to lose

If you are a beginner and want to try betting situs scr888 slot online handicap gambling, you should first consider the following steps. Because even though it situs scr888 indonesia is considered easy, you still need the right strategy so that you do not easily situs scr888 casino lose.

[ashleykavi]

Using the Bitcoin cash wallet will provide you with a secure, easy, alternative way to store your funds. Uphold takes protection extremely seriously, incorporating the highest industry standards to secure your funds at all times. A customer service team is available to assist you 24 hours a day, 7 days a week.
plumbers near me |
appliance repair near me |
bitcoin cash wallet |
att email login |
att email login |
aol mail login |
aol mail login |
amazon.com/mytv |
dominos coupons |
frontier mail login |
bitcoin cash |
hotmail login |
heating and cooling |
commercial plumbing |
water heater repair |
gas line services