#!/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 reply to Re: Link Issue
by dirac
in thread Link Issue
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |