vlary
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:| есть спец. приблуда которая шифрует пароли в PBKDF2/SCRYPT HASHED... |
Есть приблуда. Попробуй эту перловку:
Код: use Crypt::ScryptKDF qw (scrypt_raw);
# ...здесь сам напишешь чтение аргументов, вызов функции
sub cisco9 {
if (defined $argsalt && length($argsalt)==14) { $salt = $argsalt; } else { $salt = randstr(14,\@i64); }
my $h = scrypt_raw($_[1],$salt,16384,1,1,32);
my $s = base64_wpa($h);
print "u-cisco9:\$9\$$salt\$$s:$u:0:$_[0]::\n";
} |
Для cisco8 используй функцию pp_PBKDF2
Код: sub cisco8 {
if (defined $argsalt && length($argsalt)==14) { $salt = $argsalt; } else { $salt = randstr(14,\@i64); }
my $wpaH = pp_pbkdf2($_[1],$salt,20000,"sha256",32);
my $s = base64_wpa($wpaH);
print "u-cisco8:\$8\$$salt\$$s:$u:0:$_[0]::\n";
}
|
Также есть написанный на сях модуль для Джона Зе Риппера: Ссылка
----------
Заслуженный SCOтовод, почетный SUNтехник и любитель Кошек |
|
Всего записей: 17278 | Зарегистр. 13-06-2007 | Отправлено: 02:13 03-11-2015 | Исправлено: vlary, 02:37 03-11-2015 |
|
