Perl md5sums via het web

[Digiover]

Kan iemand mij misschien in de juiste richting wijzen? ik heb een perl module geinstalleerd ("Digest::MD5::File" en "Digest::Perl::MD5") en ik ben op zoek naar een methode om een 'gewone' md5sum van een string te krijgen. Dus geen hexadecimale, geen binary, geen base64. De output zou gelijk moeten zijn aan de commandline

$ cat bla
abc123
$ md5sum bla
2c6c8ab6ba8b9c98a1939450eb4089ed bla

Terwijl de output via het web is:

e99a18c428cb38d5f260853678922e03

Met bijbehorende

use Digest::Perl::MD5 'md5_hex';
print 'Digest is ', md5_hex('abc123'), "\n";

[galious]

Ik ken de module niet, maar weet je zeker dat je in bla geen '\n' achter de 'abc123" heb staan?

Aloha,

Martin

[Digiover]

'bla' bevat enkel 'abc123', evenals de hetgeen dat in de functie gebruikt wordt.
Gebruik ik alleen md5('abc123') (i.p.v. md5_hex('abc123')), dan krijg ik binary output:

éšÄ(Ë8Õò`…6x’.

Misschien dat hier nog weer wat mee mogelijk is? Ik wil het namelijk gebruiken om van een hidden form-veld een hash te maken (md5 of sha1(*), maakt niet uit) en dit te vergelijken met een vooraf opgegeven string.
Zijn de waardes gelijk, dan is het goed en wordt de betreffende actie uitgevoerd.

(*) sha1 geeft exact hetzelfde probleem.

[galious]

Ik ben bang dat er toch een echt een '\n' in je bla-file staat. Als ik namelijk het volgende gebruik:

use Digest::MD5 qw(md5_hex);
print md5_hex("abc123\n");

Krijg ik de door jou gewenst hash eruit.

Aloha,

Martin

[Digiover]

Ik had het zelf ook net ontdekt, op aanwijzen van iemand op IRC / Usenet (nl.internet.www.server-side). Keertje beter kijken en tadaa
In iedergeval bedankt!