lists.openwall.net | lists / announce owl-users owl-dev john-users john-dev passwdqc-users yescrypt popa3d-users / oss-security kernel-hardening musl sabotage tlsify passwords / crypt-dev xvendor / Bugtraq Full-Disclosure linux-kernel linux-netdev linux-ext4 linux-hardening linux-cve-announce PHC | |
Open Source and information security mailing list archives
| ||
|
From: electronicsouls at hushmail.com (electronicsouls@...hmail.com) Subject: [ElectronicSouls] - Powerful Portscanner -----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
Powered by blists - more mailing lists