Проверка подлиности пароля и имя пользователя в домене!

← →
menart (2004-05-24 17:44) [0]

Как можно проверить сабж в доменой сети? Т.е. пользователь вводит пароль, нужно проверить зарегистрирован ли он в системе и верен ли пароль, после чего предоставить или лишить право входа в программу?

← →
Игорь Шевченко © (2004-05-24 17:59) [1]

Через SSPI

← →
menart © (2004-05-24 19:18) [2]

А можно подсказать что это такое и с чем его едят? И буду черезвучайно признателен за небольшой примерчик...

← →
Внук © (2004-05-25 09:13) [3]

Очень рекомендую сходить вот сюда.
http://www.rsdn.ru/article/qna/baseserv/winauth.xml
Если останутся вопросы - пиши :)

← →
Morry © (2004-05-25 14:51) [4]

Если коротко то можно использовать
BOOL LogonUser(
LPTSTR lpszUsername,
LPTSTR lpszDomain,
LPTSTR lpszPassword,
DWORD dwLogonType,
DWORD dwLogonProvider,
PHANDLE phToken
);

← →
Enter (2004-05-25 15:10) [5]

Удалено модератором
Примечание: Offtopic

← →
Внук © (2004-05-25 15:34) [6]

>>Morry © (25.05.04 14:51) [4]
Можно, но этот способ обладает рядом существенных недостатков

← →
Morry © (2004-05-25 16:12) [7]

>>Внук © (25.05.04 15:34) [6]

>>Morry © (25.05.04 14:51) [4]
>> Можно, но этот способ обладает рядом существенных недостатков

Да, уже прочитал на rsdn и проверил ;)
Кстати, чтобы не плодить ветки, вопрос в догонку. Можно ли полученный hToken установить для текущего процесса?

← →
menart © (2004-05-25 17:37) [8]

я вроде немножко разобрался:
var d: Thandle; begin if LogonUser(PChar(edit1.Text),PChar(edit2.Text), PChar(maskedit1.Text),LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, d) then showmessage("Угадал, негодник! ;)") else showmessage("Неугадал, ха-ха-ха! ;(") end;
но если не имеешь прав администратора в сети,
то проверить не получается, а как перевести SSPI
я не знаю...
взял из статьи
http://www.rsdn.ru/article/qna/baseserv/winauth.xml

← →
Игорь Шевченко © (2004-05-25 22:17) [9]

> Можно ли полученный hToken установить для текущего процесса?

Нет.

← →
Внук © (2004-05-26 09:53) [10]

>>menart © (25.05.04 17:37) [8]
У меня есть перевод на Delphi с поддержкой Unicode, то есть понимает в том числе и русские имена\пароли. Правда, проверку гостевой учетной записи я выбросил оттуда. Могу выслать по почте.

← →
menart © (2004-05-27 15:53) [11]

> Внук © (26.05.04 09:53) [10]
> >>menart © (25.05.04 17:37) [8]
> У меня есть перевод на Delphi с поддержкой Unicode, то
> есть понимает в том числе и русские имена\пароли. Правда,
> проверку гостевой учетной записи я выбросил оттуда. Могу
> выслать по почте.

Буду очень признателен... Мой майл menart@rambler.ru?
вышли пожайлуста текст незапаковоной, а то у нас на работе закрыто скачивание файлов из нета

В смысле - без Attach"a? Могу, но там довольно много :) Вот кладовка не работает, беда прямо.

у меня ящик 15 мегов, хорошо если бы в тексовом формате и расширением txt, лил кидай в zip"е я где нибудь стащу... Заранее очень признателен ...

Да на здоровье :))

Проверка подлиности пароля и имя пользователя в домене! Найти похожие ветки