Thread perl md5 subroutine (23 answers)
Opened by Gast at 2008-11-07 15:09

pq
 2008-11-07 17:15
#116066 #116066
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
ich suche noch nach deinem problem =)
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
$ perl -wle'
use Digest::MD5;
$pass= "geheimesPasswort";
$nick= "Ichbins";
$md5 = Digest::MD5->new;
$md5 -> add("$nick\0$pass");
$digest = $md5->hexdigest;
print "Digest is $digest";'
Digest is 5c4b9e0bf6092b291ddb71c77c016392
$ perl -wle'
use Digest::MD5;
$pass= "geheimesPasswort";
$nick= "Ichbins";
$md5 = Digest::MD5->new;
$md5 -> add("$nick$pass");
$digest = $md5->hexdigest;
print "Digest is $digest";'
Digest is 69b1ef3eaafc3823ae3b0b4280732ebb

die md5-summe wird über den kompletten string gebildet.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem

View full thread perl md5 subroutine