Генерация паролей

Генерация случайного пароля и определение для него хэша.

Требует установленного Perl и пакета pwgen. Запрашивает пароль, выводит пароль, случайный ключ и хэш. Длина генерируемого пароля - 16 символов.

#!/usr/bin/perl -w
use strict;

my $pwgen = `which pwgen`;
chomp $pwgen;
die "Cann't find pwgen!\n" unless ($pwgen);

my $foo;
$foo = "$pwgen -cn 16 1";my $pass=`$foo`;
$foo = "$pwgen -cn 22 1";my $salt='$2a$08$'.`$foo`;
chomp $pass;chomp $salt;

print "Password [$pass]:";$foo=<>;chomp $foo;$pass=$foo if ($foo);

print "For password '$pass' and  salt '$salt'\n";
print "hash is '",crypt($pass,$salt),"'\n";

Дата создания: 2006-05-24 11:41:53 (Фетисов Н. А. (naf))
Последнее изменение: 2006-05-24 11:41:53 (Фетисов Н. А. (naf))
Владелец: Фетисов Н. А. (naf)
Версия: 1