Help for this page

Select Code to Download


  1. or download this
    my $msg  = sha1_base64(
    join("^G", ("secret part", map {$cgi->param($_)} 
        grep {not m/^(?:usec|utime|tcode)$/} $cgi->param)));

my $code = $1 if $msg =~ m/(.{4})\z/;
  2. or download this
    print $cgi->header({type=>"image/png"});

...
}

print $gd->png;