ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra/Deliantra/Util.pm
(Generate patch)

Comparing deliantra/Deliantra/Deliantra/Util.pm (file contents):
Revision 1.2 by root, Thu Nov 15 06:41:21 2012 UTC vs.
Revision 1.3 by root, Thu Nov 15 06:46:04 2012 UTC

… …
33 33
34 my $pw = shift; 34 my $pw = shift;
35 35
36 for (0..20) { 36 for (0..20) {
37 $pw = Digest::SHA3::sha3_512 $pw; 37 $pw = Digest::SHA3::sha3_512 $pw;
38 $pw = "deliantra$pw" x 32; 38 $pw = "deliantrakdf$pw" x 32;
39 $pw = Digest::SHA::sha512 $pw; 39 $pw = Digest::SHA::sha512 $pw;
40 } 40 }
41 41
42 $pw 42 $pw
43} 43}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines