Full Disclosure mailing list archives
[ElectronicSouls] - Powerful Portscanner
From: electronicsouls () hushmail com
Date: Sat, 30 Nov 2002 18:50:29 -0800
-----BEGIN PGP SIGNED MESSAGE----- Dear List, I wish you would all die. # cat BScan.pl #!/usr/bin/perl # # # # # # # # # # # # # # # # # # # # # # BScan - Simple TCP Port Scanner # # -- (C) BrainStorm [ElectronicSouls] # # # # irc.dugnet.net #ElectronicSouls # # # # # # # # # # # # # # # # # # # # # # use IO::Socket; $log = "Bscan.log"; if ($ARGV[0] eq "-h") { print " ..so u need help with a simple port scanner ?! damn go smash ya head on the keyboard lamer .. \n\n"; } if ($ARGV[0] eq "-l") { open (LOG, ">>$log"); } print "\n [ E l e c t r o n i c - S o u l s ] \n"; print "\n BScan.pl - PortScanner V1.0 - (C) BrainStorm\n\n\n"; if ($ARGV[0] eq "-l") { print "--- This scan will be logged ! \n\n"; } &get_host; sub get_host { print "[ X ] Enter Hostname/IP to scan : "; chomp ($host = <STDIN>); } while ($host eq $null) { print "[ - ] Invalid!\n\n"; &get_host; } if ($ARGV[0] eq "-l") { print LOG "Host: [$host]\n\n"; } &get_startport; sub get_startport { print "[ X ] Start port: "; chomp ($startport = <STDIN>); } $startport = ($startport - 1); while ($startport eq $null || $startport < 0) { print "[ - ] Invalid!\n\n"; &get_startport; } &get_openport; sub get_openport { print "[ X ] End port: "; chomp ($openport = <STDIN>); } while ($openport eq $null || $openport < $startport) { print "[ - ] Invalid.\n\n"; &get_openport; } if ($ARGV[0] eq "-l") { print LOG "[ X ] Scanned ports [$startport] to [$openport]\n\n"; } print "\n[ X ] Port scan of host $host started - please wait..\n"; port_scan: { $port++; last if $port > $openport; $socket = new IO::Socket::INET (Proto => "tcp", PeerAddr => $host, PeerPort => $port) or die goto port_scan; print "\n[!] Port[$port]: open"; if ($ARGV[0] eq "-l") { print LOG "[!] Port[$port]: open\n"; } close ($socket); $ports++; goto port_scan; } if ($ports > 0) { print "\n\n --- [$ports] open ports have been found !"; if ($ARGV[0] eq "-l") { print LOG "\n --- [$ports] open ports have been found !\n"; } } else { print "\n[ - ] No open ports were found."; if ($ARGV[0] eq "-l") { print LOG "[ - ]No open ports were found.\n"; } } print "\n\nScan complete.\n"; if ($ARGV[0] eq "-l") { print LOG "\nScan complete.\n\n"; close (LOG); } exit; # The Electronic Souls Crew [ElectronicSouls] (c) 2002 "True Immortal Blackhats" -----BEGIN PGP SIGNATURE----- Version: Hush 2.2 (Java) Note: This signature can be verified at https://www.hushtools.com/verify wmQEARECACQFAj3peRIdHGVsZWN0cm9uaWNzb3Vsc0BodXNobWFpbC5jb20ACgkQ39CI 8XTNSM5AyQCeKEUhxXge78ZFvZIG5C2Wwpks30gAoL6PSMhp41aoRBAAA3W/ae+zCuR1 =dGOe -----END PGP SIGNATURE----- Concerned about your privacy? Follow this link to get FREE encrypted email: https://www.hushmail.com/?l=2 Big $$$ to be made with the HushMail Affiliate Program: https://www.hushmail.com/about.php?subloc=affiliate&l=427 _______________________________________________ Full-Disclosure - We believe in it. Charter: http://lists.netsys.com/full-disclosure-charter.html
Current thread:
- [ElectronicSouls] - Powerful Portscanner electronicsouls (Nov 30)