Added some more http ports and put the adding code in a loop as

generally http post and http are the same ports.

diff --git a/OPM/bopchecker.pl b/OPM/bopchecker.pl
index 649918b545f240b1e1b0bd46a7aa6fcc598c77e6..d9813e93bf969a8f8eaa00ba60a24c7b1a6b4e0f 100644 (file)
--- a/OPM/bopchecker.pl
+++ b/OPM/bopchecker.pl
@@ -27,16 +27,15 @@ my $numopen;
 my $select = new IO::Select ( \*STDIN );
 my $scan = OPM->new or die("Error loading OPM");
 
-$scan->addtype(OPM->TYPE_HTTP, 80);
-$scan->addtype(OPM->TYPE_HTTP, 3128);
-$scan->addtype(OPM->TYPE_HTTP, 8080);
+for(80, 81, 3128, 8080, 8081) {
+   $scan->addtype(OPM->TYPE_HTTP, $_);
+   $scan->addtype(OPM->TYPE_HTTPPOST, $_);
+}
+
 $scan->addtype(OPM->TYPE_SOCKS4, 1080);
 $scan->addtype(OPM->TYPE_SOCKS5, 1080);
 $scan->addtype(OPM->TYPE_ROUTER, 23);
 $scan->addtype(OPM->TYPE_WINGATE, 23);
-$scan->addtype(OPM->TYPE_HTTPPOST, 80);
-$scan->addtype(OPM->TYPE_HTTPPOST, 3128);
-$scan->addtype(OPM->TYPE_HTTPPOST, 8080);
 
 # XXX: make configurable           "lik-m-aid.blitzed.org"
 $scan->config(OPM->CONFIG_SCAN_IP, "203.56.139.100");