Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^6: with CGI, How to have multiple usernames and passwords from a txt file (password.txt) file

by theravadamonk (Scribe)
on Sep 27, 2018 at 05:09 UTC ( [id://1223125]=note: print w/replies, xml ) Need Help??

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>";
       }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1223125]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2024-03-28 08:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found