in reply to Link Issue
#!/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;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Link Issue
by sgifford (Prior) on Jul 08, 2005 at 18:41 UTC | |
|
Re^2: Link Issue
by Anonymous Monk on Jul 08, 2005 at 16:21 UTC |