Шифрования текста md5

И так если вам необходимо зашифровать текст ( или сгенерить пароль — криптованный при помощи алгоритма md5  )  данный скрипт будет кстати ,  его можно внедрять как модуль , видоизменять и т.д

 

#!/usr/bin/perl
if( $#ARGV != 0 )
{

print «usage: vcrypt password\n»;
exit 1;
}
my $salt = join », (‘.’, ‘/’, 0..9,’A’..’Z’, ‘a’..’z’)[rand 64, rand 64];
print crypt($ARGV[0], $salt) .»\n»;

Вот собственно и все