http://undcemcs02.und.edu/~userid/513/1/http://undcemcs02.und.edu/~userid/create commands), and whatever languages‡, and
Requirements The gamestore includes the following features:
|
|
Check.plHelp button:
~/public_html/cgi-bin/demo/encrypt/Check.pl
|
|---|
|
|
#!/usr/bin/perl
use CGI;
$query = new CGI;
$act = $query->param('act');
$password = $query->param('password');
$interface = $query->url_param('interface');
if ( $act eq "Display source" ) {
if ( $password eq "password" ) {
print( "Content-type: text/plain\n\n" );
if ( $interface == 1 ) {
system( "cat 1.cgi;echo '\n\n\n\n\n';cat 1.pl;echo '\n\n\n\n\n';cat 1.java" );
}
elsif ( $interface == 2 ) {
system( "cat 2.cgi;echo '\n\n\n\n\n';cat 2.pl;echo '\n\n\n\n\n';cat 2.java" );
}
elsif ( $interface == 3 ) {
system( "cat 3.cgi;echo '\n\n\n\n\n';cat 3.pl;echo '\n\n\n\n\n';cat 3.java" );
}
elsif ( $interface == 4 ) {
system( "cat 4.cgi;echo '\n\n\n\n\n';cat 4.pl;echo '\n\n\n\n\n';cat 4.java" );
}
elsif ( $interface == 5 ) {
system( "cat 5.cgi;echo '\n\n\n\n\n';cat 5.pl;echo '\n\n\n\n\n';cat 5.java" );
}
elsif ( $interface == 6 ) {
system( "cat 6.cgi;echo '\n\n\n\n\n';cat 6.pl;echo '\n\n\n\n\n';cat 6.java" );
}
elsif ( $interface == 7 ) {
system( "cat 7.cgi;echo '\n\n\n\n\n';cat 7.pl;echo '\n\n\n\n\n';cat 7.java" );
}
else {
print( "\n\n\n No such interface: $interface" );
}
}
else {
print( "Content-type: text/html\n\n" );
print( "<center><font size='+2'><b>Wrong password: </b>" );
print( "<i>$password</i></font>" );
print( "<form><input type='button' value='Back' onclick='history.go(-1);return false;' /></center>" );
}
}
elsif ( $act eq "Help" ) {
print ( "Content-type: text/html\n\n" );
system( "cat Help.html" );
}
else {
print( "Content-type: text/html\n\n" );
print( "<center><font size='+2'><b>No such option: </b>" );
print( "<i>$act</i></font></center>" );
}
|
create table” have to be submitted, where SQL is Structured Query Language and DDL is Data Definition Language.
create commands of database implementation is NOT submitted.