Perl: the Markov chain saw | |
PerlMonks |
Re: Link Issueby dirac (Beadle) |
on Jul 08, 2005 at 15:42 UTC ( [id://473456]=note: print w/replies, xml ) | Need Help?? |
You can encrypt it with MD5
#!/usr/bin/perl -w use strict; use Digest::MD5 qw(md5_hex md5_base64); my $user = "User"; my $passwd = md5_hex("mypassword"); print $passwd,"\n"; print "<a href='login.pl?user=$user&passwd=$passwd'>all_names</a>\n"; my $storedPasswd = "mypassword"; my $digestStored = md5_hex($storedPasswd); print "Passwd OK\n" if $digestStored eq $passwd;
In Section
Seekers of Perl Wisdom
|
|