Help for this page

Select Code to Download


  1. or download this
    my $var_username = param( "USERNAME" );
my $var_password = param( "PASSWORD" );
  2. or download this
    my $encrypted_password = Digest::MD5::md5_hex("$var_username" . "$var_
+password");
#print "encrypted_password : $encrypted_password \n"; # This shows the
+ encrypted password.
  3. or download this
    username,c0075ad4e26ec3dee225ccb6387b0b77
  4. or download this
    
 if ( ( $var_username eq $username ) && ( $encrypted_password eq $pass
+word ) ) {
...
   }
  5. or download this
    
#!/usr/bin/perl
...
   print "Access has been denied. <br>";
   }