Beispiel: Kryptographische Hash-Funktionen

md5.pl

use Digest::MD2; use Digest::MD5; use Digest::SHA1; use IO::File; use strict; my %digests = ( 'md2' => sub { return new Digest::MD2 }, 'md5' => sub { return new Digest::MD5 }, 'sha1' => sub { return new Digest::SHA1 }, );

In der Perl-Bibliothek gibt es die Module Digest::MD5, Digest::SHA-1 und Digest::MD2 zur Berechnung der gleichnamigen kryptographischen Hash-Funktionen.

Hier wird ein Skript verwendet, das in Abhängigkeit des verwendeten Namens jeweils ein Objekt aus dem zugehörigen Modul kreiert. Da alle Objekte die gleiche Schnittstelle haben, ist der Rest des Programms unabhängig von der Wahl der Hash-Funktion.

	In der Perl-Bibliothek gibt es die Module `Digest::MD5`, `Digest::SHA-1` und `Digest::MD2` zur Berechnung der gleichnamigen kryptographischen Hash-Funktionen.
	Hier wird ein Skript verwendet, das in Abhängigkeit des verwendeten Namens jeweils ein Objekt aus dem zugehörigen Modul kreiert. Da alle Objekte die gleiche Schnittstelle haben, ist der Rest des Programms unabhängig von der Wahl der Hash-Funktion.