exploit the possibilities
Home Files News &[SERVICES_TAB]About Contact Add New

cgivti.V2.pl

cgivti.V2.pl
Posted Aug 29, 2002
Authored by Lawrence Lavigne | Site neoerudition.net

This scanner searches for vulnerable web servers for Common Gateway Interface and Vermeer Technology Incorporated services. Version 2 allows for Class C IP generation done "On The Fly" and a timeout scheme added thanks to MaB of Efnets #programmers.

tags | web, cgi
systems | unix
SHA-256 | 77770362b50cb7fe074dde751149a9cfecd9db1fbc1b7b09fc46c9ec41d2715f

cgivti.V2.pl

Change Mirror Download
# Thanks to MaB of Efnets #programmers for helping clean up my code and reduce my 20 line Class C IP Generator
# to 10 lines of "On The Fly" code and his timeout scheme.

print<<__MENU;

NeoErudition Technologies
CGI VTI Mass Scanner

By: Lawrence Lavigne
MaB


__MENU

use strict;
use diagnostics;
use warnings;
use LWP::UserAgent;
my $hostsfile;
my $host;
my @hosts;
my $userresp;
my $url;
my $class;
my $x;
my @checks = ( "http://HOST/_vti_pvt/service.grp",
"http://HOST/_vti_pvt/authors.pwd",
"http://HOST/cgi-bin/password.txt",
"http://HOST/_vti_pvt/service.pwd",
"http://HOST/_vti_pvt/users.pwd",
"http://HOST/_vti_pvt/administrator.pwd",
"http://HOST/_vti_pvt/administrators.pwd",
"http://HOST/cgi-win/uploader.exe",
"http://HOST/cgi-bin/upload.pl",
"http://HOST/cgi-bin/whois_raw.cgi?",
"http://HOST/cgi-bin/passwd",
"http://HOST/cgi-bin/passwd.txt",
"http://HOST/cgi-bin/handler.cgi",
"http://HOST/cgi-bin/handler",
"http://HOST/cgi-bin/files.pl",
"http://HOST/msadc/Samples/SELECTOR/showcode.asp",
"http://HOST/msadc/Samples/selector/showcode.asp",
"http://HOST/session/adminlogin?");
my $ua = LWP::UserAgent->new(agent => "VTI Scan", env_proxy => 1, keep_alive => 1,timeout => 5);

print "Class C Range To Be Scanned (ie 10.1.101): ";
$class = <STDIN>;
chomp($class);
if ($class =~ /\d+\.\d+\.\d+/) {
print "Adding $class.* to hosts list...\n\n";
for ($x = 1; $x < 255; $x++) {
push @hosts, "$class.$x";
}
} else {
print "Error: Invalid class syntax.";
exit;
}

print qq(CGI/VTI Scan Initiated..\n);
print qq(Output Saved To CGIVTI.log.\n\n);
foreach $host (@hosts) {
foreach (@checks) {
$url = $_;
$url =~ s/HOST/$host/;
print qq(:: Checking $url...\n);
my $response = $ua->get($url);
if ($response->is_success) {
print $response->content;
open(OUT, ">>CGIVTI.log");
print OUT $url;
close OUT;
} else {
print qq(Not Vulnerable..\n\n);
}
}
}
<>








Login or Register to add favorites

File Archive:

March 2024

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Mar 1st
    16 Files
  • 2
    Mar 2nd
    0 Files
  • 3
    Mar 3rd
    0 Files
  • 4
    Mar 4th
    32 Files
  • 5
    Mar 5th
    28 Files
  • 6
    Mar 6th
    42 Files
  • 7
    Mar 7th
    17 Files
  • 8
    Mar 8th
    13 Files
  • 9
    Mar 9th
    0 Files
  • 10
    Mar 10th
    0 Files
  • 11
    Mar 11th
    15 Files
  • 12
    Mar 12th
    19 Files
  • 13
    Mar 13th
    21 Files
  • 14
    Mar 14th
    38 Files
  • 15
    Mar 15th
    15 Files
  • 16
    Mar 16th
    0 Files
  • 17
    Mar 17th
    0 Files
  • 18
    Mar 18th
    10 Files
  • 19
    Mar 19th
    32 Files
  • 20
    Mar 20th
    46 Files
  • 21
    Mar 21st
    16 Files
  • 22
    Mar 22nd
    13 Files
  • 23
    Mar 23rd
    0 Files
  • 24
    Mar 24th
    0 Files
  • 25
    Mar 25th
    12 Files
  • 26
    Mar 26th
    31 Files
  • 27
    Mar 27th
    19 Files
  • 28
    Mar 28th
    0 Files
  • 29
    Mar 29th
    0 Files
  • 30
    Mar 30th
    0 Files
  • 31
    Mar 31st
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2022 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close