The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"Md5 в Perl"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"Md5 в Perl" 
Сообщение от Hostik Искать по авторуВ закладки(ok) on 29-Июн-05, 10:25  (MSK)
Доброго времени суток, такой вопрос -
у меня в БД хранятся пароли пользователей в зашифрованном виде (md5)
есть страничка авторизации которая передает данные в перловый скрипт, требуется проверить правильность пароля, что-то типа
my $result=$dbh->prepare("select * from admins");
$result->execute;
my $name= $result->fetshrow_hashref();
if ($passwd eq ($name-{'passwd'})) {

что-то

}
как мне сделать чтобы $passwd он шифровал и сверял с данными в БД?
что-то типа if (md5($passwd)) тока как точно написать?

  Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

  • Md5 в Perl, mthawk, 10:36 , 29-Июн-05, (1)  
    • Md5 в Perl, PoizOn, 16:36 , 29-Июн-05, (2)  
  • Md5 в Perl, rWizard, 17:29 , 29-Июн-05, (3)  
    • Md5 в Perl, PoizOn, 17:44 , 29-Июн-05, (4)  

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "Md5 в Perl" 
Сообщение от mthawk emailИскать по авторуВ закладки(ok) on 29-Июн-05, 10:36  (MSK)
>Доброго времени суток, такой вопрос -
>у меня в БД хранятся пароли пользователей в зашифрованном виде (md5)
>есть страничка авторизации которая передает данные в перловый скрипт, требуется проверить правильность
>пароля, что-то типа
>my $result=$dbh->prepare("select * from admins");
>$result->execute;
>my $name= $result->fetshrow_hashref();
>if ($passwd eq ($name-{'passwd'})) {
>
>что-то
>
>}
>как мне сделать чтобы $passwd он шифровал и сверял с данными в
>БД?
>что-то типа if (md5($passwd)) тока как точно написать?

Воспользуйтесь модулем Digest::MD5

use Digest::MD5 qw(md5_hex);

$md=md5_hex(1234567890);

print "$md\n";

  Удалить Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Md5 в Perl" 
Сообщение от PoizOn emailИскать по авторуВ закладки(ok) on 29-Июн-05, 16:36  (MSK)
>>Доброго времени суток, такой вопрос -
>>у меня в БД хранятся пароли пользователей в зашифрованном виде (md5)
>>есть страничка авторизации которая передает данные в перловый скрипт, требуется проверить правильность
>>пароля, что-то типа
>>my $result=$dbh->prepare("select * from admins");
>>$result->execute;
>>my $name= $result->fetshrow_hashref();
>>if ($passwd eq ($name-{'passwd'})) {
>>
>>что-то
>>
>>}
>>как мне сделать чтобы $passwd он шифровал и сверял с данными в
>>БД?
>>что-то типа if (md5($passwd)) тока как точно написать?
>
>Воспользуйтесь модулем Digest::MD5
>
>use Digest::MD5 qw(md5_hex);
>
>$md=md5_hex(1234567890);
>
>print "$md\n";

Только не путайте md5 и md5_hex. Обычно применяется последний.

  Удалить Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "Md5 в Perl" 
Сообщение от rWizard emailИскать по авторуВ закладки(??) on 29-Июн-05, 17:29  (MSK)
SELECT count(login) FROM admins WHERE login='$login' AND pass_in_md5 = MD5('$passwd')
  Удалить Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

4. "Md5 в Perl" 
Сообщение от PoizOn emailИскать по авторуВ закладки(ok) on 29-Июн-05, 17:44  (MSK)
>SELECT count(login) FROM admins WHERE login='$login' AND pass_in_md5 = MD5('$passwd')
Оптимальное решение в данном случае.

  Удалить Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх


Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ]
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Спонсоры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2023 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру