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

topeg
 2008-11-07 23:28
#116085 #116085
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Ach so noch was:
Du sprichst immer davon dass du es testest, aber nicht wie du es testest.

Ich habe meine eigenen Tests gemacht:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

#!/usr/bin/perl
use strict;
use warnings;
use Digest::MD5;

my $pass= "geheimesPasswort";
my $nick= "Ichbins";

my $md5 = Digest::MD5->new;
$md5 -> add("$nick\0$pass");
my $digest = $md5->hexdigest;
print "Digest is $digest\n";

$md5 = Digest::MD5->new;
$md5 -> add("Ichbins\0geheimesPasswort");
$digest = $md5->hexdigest;
print "Digest is $digest\n";

$md5 = Digest::MD5->new;
$md5 -> add($nick);
$md5 -> add("\0");
$md5 -> add($pass);
$digest = $md5->hexdigest;
print "Digest is $digest\n";

$md5 = Digest::MD5->new;
$md5 -> add("$nick\00$pass");
$digest = $md5->hexdigest;
print "Digest is $digest\n";

$md5 = Digest::MD5->new;
$md5 -> add("Ichbins\00geheimesPasswort");
$digest = $md5->hexdigest;
print "Digest is $digest\n";

$md5 = Digest::MD5->new;
$md5 -> add("$nick\x00$pass");
$digest = $md5->hexdigest;
print "Digest is $digest\n";

$md5 = Digest::MD5->new;
$md5 -> add("Ichbins\x00geheimesPasswort");
$digest = $md5->hexdigest;
print "Digest is $digest\n";
und das kam dabei raus:
Code: (dl )
1
2
3
4
5
6
7
Digest is 5c4b9e0bf6092b291ddb71c77c016392
Digest is 5c4b9e0bf6092b291ddb71c77c016392
Digest is 5c4b9e0bf6092b291ddb71c77c016392
Digest is 5c4b9e0bf6092b291ddb71c77c016392
Digest is 5c4b9e0bf6092b291ddb71c77c016392
Digest is 5c4b9e0bf6092b291ddb71c77c016392
Digest is 5c4b9e0bf6092b291ddb71c77c016392

View full thread perl md5 subroutine