Нарыл в инете скрипт
Код: Выделить всё
#!/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.
Помогите или исправить ошибку или может аналог на shell или bash.
Спасибо.