Algorythmus liefert verschiedene Werte? - #115181 (Allgemeines zu Perl)

topeg

2008-10-05 16:12

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Nebenbei
Deinen Code kann man auch kürzer schreiben:

Code (perl): (dl )

 sub file_algorithm
{
 return unpack('H*',reverse(substr(crypt (reverse (shift), '4%'),0,5)));
}

oder besser (die ersten 5 Zeichen nicht die letzten):

Code (perl): (dl )

 sub file_algorithm
{
 return unpack('H*',substr(reverse(crypt (reverse (shift), '4%')),0,5));
}

Das mal mit MD5
mit MD5:

Code (perl): (dl )

 sub file_algorithm
{
 use Digest::MD5 qw(md5);
 return unpack('H*',reverse(substr(md5(reverse(shift) xor '")§$/$00§"9&?4?+'),0,5)));
}