Аутентификация пользователей через Веб-интерфейс

Аутентификация пользователей через Web интерфейс.

• шифруют пароль, введенный в веб-форме и сравнивают его с паролем в файле passwd или shadow
• используют pop3 аутентификацию.

• взять пару логин/пароль с Web-формы;
• зашифровать пароль тем же алгоритмом, что и на сервере;
• открыть файл shadow для сравнения пароля, там хранящегося с полученным с web-формы.
• Ежели результат сравнения положителен, аутентификация прошла успешна и увы в противном случае.
• Не забыть позакрывать все файлы.

#!/usr/bin/suidperl
#
# читаем форму
.........
&check_passwd;
sub check_passwd {
my $shadow = "/etc/shadow";
# ниже две строчки = переданные из формы пароль/логин
$plaintext = $form{'password'};
$username = $form{'login'};
# пытаемся открыть файл зашифрованных паролей (на нормальной системе
# он доступен только для чтения только root-ом.)
# и заодно попытаемся его залочить.
open (SHADOW, "<$shadow") or die "Internal system error: $!";
flock (SHADOW, 2) or die "Internal lock error: $!";
@shadows=;
flock SHADOW, 8;
# закроем shadow
close SHADOW;

foreach  $line(@shadows) {
chomp($line);
($currentuser, $currentpass, $restofline) = split /:/, $line, 3;
if ($currentuser eq $username)
#       Выдергиваем зашифрованный пароль из shadow
$saltedpass = $currentpass;
# 		Проверяем его стандартной функцией crypt
if ( crypt ($plaintext, $saltedpass) eq $saltedpass) {
print "Authentification for $username success!\n";
} else {
print "Authentification for $username failure!\n";
}
}
}
}

2. POP3 Аутентификация.

use Net::POP3;
&parse_form # Читаем из формы переданные пароль/логин
# Создаем объект
$pop = Net::POP3->new('popserver') || print "Cannot create connection\n";
# пробуем влогиниться
# в $res будет возвращен результат логина
$res = $pop->login($form{'login'},$form{'password'});
if ($res == undef) {
# неудача
print "Incorrect username or password!\n";
} else {
# влогинились
# делаем, что надо
#
# следующий код нарисован для того, чтобы хоть что-то
# делалось.
if ($res eq "0E0") {
# писем нет
print "You have $res messages in mailbox.\n";
} else {
# письма есть
print "You have $res messages in mailbox.\n";
}
}
#закрываем  соединение.
$pop->quit();