Скипт на perl, хеш пароля

И всё прочее, что касается HTML
Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
Аватара пользователя
kharkov_max
капитан
Сообщения: 1808
Зарегистрирован: 2008-10-03 14:56:40

Скипт на perl, хеш пароля

Непрочитанное сообщение kharkov_max » 2012-11-19 13:45:41

День добрый.

Нарыл в инете скрипт

Код: Выделить всё

#!/usr/bin/perl
use strict;
use warnings;
use MIME::Base64;
use Digest::SHA1  qw(sha1);

print "input your new serveradmin password: ";

my $newpass = <>;
chomp $newpass;

my $encoded = encode_base64(sha1($newpass));

print "password hash: $encoded\n";
Нужен для взятия хеша пароля и вставки его в БД.
Только у меня скрипт вываливается в ошибку, автор вроде использовал его на freebsd.

Код: Выделить всё

Can't locate Digest/SHA1.pm in @INC (@INC contains: /usr/local/lib/perl5/5.12.4/BSDPAN /usr/local/lib/perl5/site_perl/5.12.4/mach /usr/local/lib/perl5/site_perl/5.12.4 /usr/local/lib/perl5/5.12.4/mach /usr/local/lib/perl5/5.12.4 .) at ./ts3_password.pl line 5.
BEGIN failed--compilation aborted at ./ts3_password.pl line 5.
Предполагаю что что то недоставлено в perl.
Помогите или исправить ошибку или может аналог на shell или bash.

Спасибо.

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг HostFood.ru

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

Аватара пользователя
kharkov_max
капитан
Сообщения: 1808
Зарегистрирован: 2008-10-03 14:56:40

Re: Скипт на perl, хеш пароля

Непрочитанное сообщение kharkov_max » 2012-11-19 14:01:32

Вопрос решен.

Сделал

Код: Выделить всё

/root>>pkg_info | grep p5-Digest-SHA1
p5-Digest-SHA1-2.13 Perl interface to the SHA-1 Algorithm
[12:58]***:/root>>cd /usr/ports/security/p5-Digest-SHA1
[12:58]***:/usr/ports/security/p5-Digest-SHA1>>make reinstall clean