Re: [PERL] MD5 Kryptering

[Lennart Hansen <sslug@sslug>]

"Erwin S. Andreasen" wrote:

> Det er jo et "digest" og ikke en krypteringen som sådan. 
> Det er en
> een-vejs transformation af nogle data ligesom standard 
> crypt() er i UNIX
> bare noget bedre. Den digest ender jo med altid at være 128 > bit. Du kan
> ikke fra de 128 bit komme tilbage til de oprindelige data.

Ja, jeg ved det, jeg skal bruge det til et program jeg er i gang med at
skrive til noget oprettelse af brugere.
 
> Fx her tager jeg en MD5 digest af "hej med dig" og 
> oversætter den til base64 så det kan sendes med tekst
> 
> $ perl -MDigest::MD5=md5_base64 -e 'print md5_base64("Hej  > med dig"), "\n"'
> 
> /CliLoK0sMmKVWrCJ1tVDQ
> 
> eller på den lange måde:
> 
> #!/usr/bin/perl -w
> use Digest::MD5 qw (md5_base64);
> 
> print md5_base64("Hej med dig"), "\n";
> 

Nååå.... *pling*, Mange tak for hjælpen.

	MVH
		Lennart Hansen