форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под 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ообщить модератору | Наверх

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

Сообщения по теме

1. "Md5 в Perl"
Сообщение от mthawk (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 (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 (??) 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 (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 ]

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.