Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Encrypted пароли

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

Guest

BANNED
Редактировать | Цитировать | Сообщить модератору
Как это сделать и что это такое.. Попобробнне как шифровать...

Отправлено: 15:00 08-05-2001
RQ

Dev administrator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
 
package security;
sub seedchar {
    ('a'..'z','A'..'Z','0'..'9','.','/')[rand(64)];
}
sub encrypt {
    local( $pass ) = $_[0];
    local($salt) = &seedchar.&seedchar;
    return crypt($pass,$salt);
}
sub checkpass {
    my( $passnew, $passold ) = @_;
    my($salt) = substr($passold, 0, 2);
    if (crypt($passnew, $salt) eq $passold){return 1;}  
    else {return 0;}
}
 


Всего записей: 768 | Зарегистр. 01-05-2001 | Отправлено: 15:27 08-05-2001
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Encrypted пароли


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru