Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -T

...
if (is_tainted($realm)) { print "Realm: $realm is tainted!\n"; }

sub is_tainted { return ! eval { join('',@_), kill 0; 1; }; }
  2. or download this
    [chaka@pengy sec-cgi]# export SCRIPT_FILENAME=/home/httpd/sec-html/sur
+flo/
[chaka@pengy sec-cgi]# ./index.cgi
RE MATCH!
Realm: surflo is tainted!