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 |