Re: [PERL] MD5 Kryptering

["Erwin S. Andreasen" <sslug@sslug>]

On Mon, 18 Oct 1999, Lennart Hansen wrote:

> "Erwin S. Andreasen" wrote:
> 
> > Hent den fra www.cpan.org. Der er faktisk op til flere MD5 moduler at
> > finde der...
> 
> Tak, for linket, men jeg kunne ikke finde hvad jeg ledte efter... Jeg har brug
> for noget dokumention om hvordan jeg bruger dette modul, til at kryptere. Nogle
> foreslag ??? Source kode helst.

Har du installeret Digest::MD5 modulet fra cpan kan du jo skrive "perldoc
MD5::Digest" og få en manualside op som inkluderer flere eksempler.

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.

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";




-- 
==============================================================================
Erwin Andreasen   Herlev, Denmark <sslug@sslug>          UNIX System Programmer
<URL:http://www.andreasen.org>              <*>              Goodbye, Richard!
==============================================================================