Home page logo
/

fulldisclosure logo 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


  By Date           By Thread  

Current thread:
  • [ElectronicSouls] - Powerful Portscanner electronicsouls (Dec 01)
[ Nmap | Sec Tools | Mailing Lists | Site News | About/Contact | Advertising | Privacy ]
AlienVault