sub passwort {

	my $md5 = Digest::MD5->new ();
	
	$md5->add (rand ());
	$md5->add (localtime (time ()));
	$md5->add ($$);		#Aktuelle Prozess-ID
	
	retunr $md5->hexdigest ();

}