CGI Scripting and Vulnerabilities COEN 351 Ecommerce Security

CGI Scripting and Vulnerabilities COEN 351: E-commerce Security

Setting up a test website under Windows n IIS n n Built into Windows Apache n n Easy download Requires installation and configuration

Test Website under Windows n Install Apache on Windows XP n n Install Active. Perl on Windows XP n n http: //httpd. apache. org/download. cgi http: //www. activestate. com/Products/Active. Perl/ Configure Apache n Use the instructions at n http: //www. cgi 101. com/book/connect/winxp. html

Test Website under Windows n Start the Apache web server for a quick test. n You might need to disable IIS. n n n Open up a command prompt and run the Apache. exe. n n n Go to Control Panel Administrative Tools Services and find IIS and stop it. (You can always restart it. ) After you are done, kill the process with Ctr+C. Then use your browser to go to localhost. If it works, you see a page. http: //www. cgi 101. com/book/connect/winxp. html

Test Website under Windows n Configuring Apache n n First create a directory that will contain your web pages. Then edit the configuration file. http: //www. cgi 101. com/book/connect/winxp. html

Test Website under Windows n Since we are creating unsafe websites, remember to stop the Apache webserver when you are connected to the internet. http: //www. cgi 101. com/book/connect/winxp. html

Test Website under Windows n IIS n n Install and activate service Set up directory for cgi pages. n n Executables need execute permission, scripts need script or execute permission. Need application mapping between the file name extension and the script. n IIS Manager (Administrative Tools IIS Manager)

Test Website under Windows Notice: If you are actually using your machine as a web-server, disable all unused extensions to lower your “attack surface”.

Test Website under Windows n n Do not start Perl scripts with the shebang: #!perl/bin/perl Instead print "HTTP/1. 0 200 OKn"; print "Content-type: text/htmlnn"; If you run a web-site, you need to take a number of precautions: n n n Use NTFS security attributes / user accounts to restrict access. Place web-site on a different partition. Do not use default sites. Remove examples. Patch automatically. …

CGI with Perl Fundamentals n You are now ready to create a webpage in your home directory n n index. html Next step is to try a cgi script. #!/perl/bin/perl -w. T print "Content-type: text/htmlnn"; print "<h 1>Hi</h 1>n"; Path to the perl executable. Different from UNIX!

CGI with Perl Fundamentals n Creating dynamic web-pages with PERL n n n Web server passes information to CGI scripts via environment variables. CGI scripts produce output by printing the HTTP message on STDOUT. CGI scripts do not need to printout full headers.

CGI with Perl Fundamentals

CGI with Perl Fundamentals n Only simple header. n n Notice the double lines. Print statement

CGI with Perl Fundamentals #! /perl/bin/perl -w. T use CGI: : Carp qw(warnings. To. Browser fatals. To. Browser); print <<EHTML; Content-type: text/html Shebang with path to Perl Sends diagnostic messages to the browser. Remove before posting it. <html> <head><title>Environmental Variables</title></head> <body> <h 1>Hi</h 1> <pre> Server $ENV{SERVER_NAME} Listening port $ENV{SERVER_PORT} Server software $ENV{SERVER_SOFTWARE} Server protocol $ENV{SERVER_PROTOCOL} CGI version $ENV{GATEWAY_INTERFACE} </pre> </body> </html> EHTML Environmental variables This allows you to just type in code instead of using individual print statements. The closing EHTML (or whatever token you choose) needs to be in the first position in the line and followed by an empty line.

CGI with Perl Fundamentals n Environmental Variables n n n n AUTH_TYPE CONTENT_LENGTH CONTENT_TYPE DOCUMENT_ROOT GATEWAY_INTERFACE PATH_INFO PATH_TRANSLATED

CGI with Perl Fundamentals n Environmental Variables n n QUERY_STRING REMOTE_ADDR REMOTE_HOST REMOTE_IDENT n n n Ident daemon: UNIX and IRC clients only REMOTE_USER REQUEST_METHOD

CGI with Perl Fundamentals n Environmental Variables n n SCRIPT_NAME SERVER_PROTOCOL SERVER_SOFTWARE

CGI with Perl Fundamentals n Additional CGI Environment Variables: n n n n n HTTP_ACCEPT_CHARSET HTTP_ACCEPT_ENCODING HTTP_ACCEPT_LANGUAGE HTTP_COOKIE HTTP_FROM HTTP_HOST HTTP_REFERER HTTP_USER_AGENT

CGI with Perl Fundamentals n Environmental Variables n Secure server adds many more environmental variables. n n X. 509 server / browser certificates HTTPS n n Used as a flag to indicate whether the connection is secure. Values vary by server n “ON”, “on”, “Off”, “off”

CGI with Perl Fundamentals #!/perl/bin/perl -w. T use CGI qw(: standard); use CGI: : Carp qw(warnings. To. Browser fatals. To. Browser); my $email = "tjschwarz@scu. edu"; my $url = "http: //www. cse. scu. edu"; print header; print start_html("Scalars"); print <<End. HTML; <h 2>Hello</h 2> <p> My e-mail address is $email, and my web url is <a href="$url">$url</a>. </p> End. HTML print end_html;

CGI with Perl Fundamentals

CGI with Perl Fundamentals n CGI can output full or partial headers. n Partial headers: n n Content-type header Location header n n Specifies URL to redirect the client to. Status header n n One of E. g. “ 204 No response” Delimited by TWO new-lines

CGI with Perl Fundamentals

CGI with Perl Fundamentals n n When using a code, remember that the HTTP status message is not displayed. Therefore, you might want to formulate your own error page.

CGI with Perl Fundamentals n Complete Headers: n n n Need status line. Need Content-type line Need Server header. n n The last two are given to you as environmental variables. Called nph (non-parsed header) scripts

CGI with Perl Fundamentals n Perl Modules n Pre-written code. n n n Standard library modules. Other modules e. g. at Comprehensive Perl Archive Network. CGI. pm module n n Load with “use CGI qw(: standard); ” Has various function names: n n n header start_html end_html

CGI with Perl Fundamentals n CGI. pm module n print start_html(“hello”) n n Prints out: <html><head><title>hello</title></head><body> end_html n Prints out: </body></html>

CGI with Perl Fundamentals Imperative version use CGI qw(: standard); print header; print start_html("Hello World"); Object-Oriented Version use CGI; # don't need qw(: standard) $cgi = CGI->new; # ($cgi is now the object) print $cgi->header; # function call: $obj->function print $cgi->start_html("Hello World");

CGI with Perl Fundamentals n Forms n n Allow browser to post data to server. Uses GET or POST message

CGI with Perl Fundamentals

CGI with Perl Fundamentals n HTTP request is POST f 1. cgi HTTP/1. 1 Host: localhost Content-Length: 40 Content-Type: application/x-www-form-urlencode name=Thomas+Schwarz&email=tschwarz%40 scu. edu

CGI with Perl Fundamentals n HTTP request with GET would be GET /f 1. cgi? name=Thomas+Schwarz&email=tschwarz%40 scu. edu

CGI with Perl Fundamentals n To read a form: n n n Read the query string from $ENV{QUERY_STRING} If the $ENV{REQUEST_METHOD} is POST, determine the size of the request. Split the result on the “&” character. Split each name – value pair Decode the URL decoded characters in name and value. Associate each name with its values.

CGI with Perl Fundamentals n Using the CGI. pm module makes things much easier.

CGI with Perl Fundamentals

CGI Security n Security holes are exploited by user input. n We need to check user input against n n Buffer overflows etc. that cause a program to misbehave. Input that is interpreted differently than the designer expects it.

CGI Security n Interpretation example: n Assume that we call a program within a script and pass user-provided parameters to the program.

CGI Security n Interpretation Example #!usr/bin/perl –w use CGI my $App = /temp/app. exe’; my $q = new CGI; my $string = $q->param( “string” ); unless ( $string ) { error( $q, “Need string parameter”); } local *PIPE; open PIPE, “$App ”$string” |” or die “Cannot open pipe: $!”; print q->header(“text/plain” ); print while <PIPE>; close PIPE;

CGI Security n Interpretation Example n n n We first verify that the user enters a string. We use a pipe in order to stream the output of app to the page. The “print while <PIPE>; ” statement takes the output one line at a time and prints it out.

CGI Security n Interpretation Example #!usr/bin/perl –w use CGI my $App = /temp/app. exe’; my $q = new CGI; my $string = $q->param( “string” ); unless ( $string ) { error( $q, “Need string parameter”); } local *PIPE; open PIPE, “$App ”$string” |” or die “Cannot open pipe: $!”; print q->header(“text/plain” ); print while <PIPE>; close PIPE;

CGI Security n Interpretation Example n When Perl opens up a pipe, then user input is passed through a shell n n Assume users types in ‘rm -rf /’ on a Unix machine. The command would execute as if the following command would have been entered into a shell: n $ /temp/app. exe “ rm –rf /’ “

CGI Security n Interpretation Example n When Perl opens up a pipe, then user input is passed through a shell n n Assume users types in “; mail tjschwarz@scu. edu < /etc/passwd” on a Unix machine. The command would execute as if the following command would have been entered into a shell: n $ /temp/app. exe “”; mail tjschwarz@scu. edu < /etc/passwd

CGI Security n Interpretation Example n n n A simplistic countermeasure checks the input for bad characters, before we pass user input to the pipe. This is a bad strategy because it only excludes possible attacks. Much better to positively identify good input. n n Before 9/11, visa to US was granted unless there was a positive reason to exclude some-one. (Bad list. ) After 9/11, visa to US demands proof of good attitudes. n Bad policy maybe for the US, but good policy for webservers (unless you eliminate legitimate traffic).

CGI Security n Interpretation Example #!usr/bin/perl –w use CGI my $App = /temp/app. exe’; my $q = new CGI; my $string = $q->param( “string” ); unless ( $string ) { error( $q, “Need string parameter”); } if ($string =~ /[‘$\” ‘ ; & … ] ) {error($q, “Bad input”); } local *PIPE; open PIPE, “$App ”$string” |” or die “Cannot open pipe: $!”; print q->header(“text/plain” ); print while <PIPE>; close PIPE;

CGI Security n Interpretation Example n We will only allow strings that are alphanumerical, have underscores, hyphens, periods, question marks, and exclamation points.

CGI Security n Interpretation Example #!usr/bin/perl –w use CGI my $App = /temp/app. exe’; my $q = new CGI; my $string = $q->param( “string” ); unless ( $string ) { error( $q, “Need string parameter”); } if ($string =~ /^[w. !? -]+$/ ) {error($q, “Bad input”); } local *PIPE; open PIPE, “$App ”$string” |” or die “Cannot open pipe: $!”; print q->header(“text/plain” ); print while <PIPE>; close PIPE;

CGI Security n Interpretation Example n This is much better. n n n But do we positively know that one could not write an attack string that way? More importantly, a minor change can destroy the security. Better not use this idea.

CGI Security n Interpretation Example n Prevent the root problem: n n Do not pass arguments through the shell. First fork. Then let child process call exec.

CGI Security n Interpretation Example #!usr/bin/perl –w use CGI my $App = /temp/app. exe’; my $q = new CGI; my $string = $q->param( “string” ); unless ( $string ) { error( $q, “Need string parameter”); } local *PIPE; my $pid = open PIPE, “-|”; die “Cannot fork $!” unless defined $pid; unless ( $pid ) { exec app, $ string or die “Cannot open pipe: $!”; print q->header(“text/plain” ); print while <PIPE>; close PIPE;

CGI Security n DO NOT TRUST INPUT n n Data in hidden fields can be changed by the user. Data in cookies can be changed.

Perl Taint Mode n n Perl offers some protection against user input. In taint mode, Perl will not allow any data from outside the application to affect anything outside the application. n Tainted variables can not be passed to n n n eval shell calls on the file system

Perl Taint Mode n n Tainted variables taint variables calculated from them. However, to make things work, you usually need to untaint variables: n If a variable matches with a regular expression using () groups, then they become untainted. if ($email =~ /(w{1}[w-. ]*)@([w-. ]+)/) { $email = "$1@$2"; } else { warn ("TAINTED DATA SENT BY $ENV{'REMOTE_ADDR'}: $email: $!"); $email = ""; # successful match did not occur }

CGI Security n Data Storage Issues n n n Danger: Opening files when the filename is dynamically generated based on user input. Move data files out of web server tree. Set file permissions. n Principle of minimal permission. n Files that only need to be read should be owned by nobody and should be write protected.

CGI Security n Learn the Odds and Ends n Email n n User should not be able to send email to anyone but a single entity. Otherwise, it is trivial to fake email coming from your organization.

Maintaining State n Query strings and extra path information n Hidden fields n n State information is lost when user leaves the website. Need to parse the query string Only with form submission. Cookies n n Persistent. Need user enabling cookies.

Maintaining State n With query strings: n n n Have a cgi script that handles every request for an html page. If the URL does not contain an identifier, then create a new identifier and give it to the user. Script parses all links in the HTML page and resets them to contain a query string.

Maintaining State n With query strings: n Running a cgi script with every browser request eats up resources. n n mod_perl, Fastcgi embed the Perl interpreter into the web server and perform better. Otherwise, preprocess the document. n I. e. every document is now dynamic.

Maintaining State n Hidden Fields n Form submission goes directly to cgi script.

Maintaining State n Client-side cookies n Cookies are set in the http header.

Maintaining State n Client-side cookies n Setting cookies within CGI module my $cookie = $q->cookie( -name => “thomas”, -value => 123456, -domain => “scu. edu” -expires => “+1 y”, -path => “/cig”, -secure => 1 ); print $q->header( -type => “text/html”, -cookie => $cookie );

Maintaining State n Client-side cookies

Maintaining State n Client-side cookies