Help for this page

Select Code to Download


  1. or download this
    use Digest::MD5 qw(md5);
my $password = "passwd";
my $encr_pass = md5($password);
  2. or download this
    use Digest::SHA1 qw(sha1);
my $password = "passwd";
my $encr_pass = sha1($password);
  3. or download this
    use Digest;
my $password = "passwd";
my $digest = Digest->new("SHA1");
$digest->add($password);
my $encr_pass = $digest->digest();