Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проверка подлиности пароля и имя пользователя в домене! [D6, Win95/98, WinME, NT4, Win2k, WinXP]

menart © (2004-05-24 17:44:00)
Как можно проверить сабж в доменой сети? Т.е. пользователь вводит пароль, нужно проверить зарегистрирован ли он в системе и верен ли пароль, после чего предоставить или лишить право входа в программу?

Внук (2004-05-28 16:21:00) [1]
Да на здоровье :))

menart (2004-05-28 15:54:00) [2]

> Внук © (28.05.04 11:17) [14]

Премного благодарен, еще раз большое спасибо!

Внук (2004-05-28 11:17:00) [3]
>>menart © (27.05.04 19:12) [13]
Лови :)

menart (2004-05-27 19:12:00) [4]
у меня ящик 15 мегов, хорошо если бы в тексовом формате и расширением txt, лил кидай в zip'е я где нибудь стащу... Заранее очень признателен ...

Внук (2004-05-27 18:51:00) [5]
В смысле - без Attach'a? Могу, но там довольно много :) Вот кладовка не работает, беда прямо.

menart (2004-05-27 15:53:00) [6]

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

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

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

Игорь Шевченко (2004-05-25 22:17:00) [8]

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

Нет.

menart (2004-05-25 17:37:00) [9]
я вроде немножко разобрался:
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

Morry (2004-05-25 16:12:00) [10]
>>Внук © (25.05.04 15:34) [6]

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

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

Внук (2004-05-25 15:34:00) [11]
>>Morry © (25.05.04 14:51) [4]
Можно, но этот способ обладает рядом существенных недостатков

Enter (2004-05-25 15:10:00) [12]
Удалено модератором
Примечание: Offtopic

Morry (2004-05-25 14:51:00) [13]
Если коротко то можно использовать
BOOL LogonUser(
LPTSTR lpszUsername,
LPTSTR lpszDomain,
LPTSTR lpszPassword,
DWORD dwLogonType,
DWORD dwLogonProvider,
PHANDLE phToken
);

Внук (2004-05-25 09:13:00) [14]
Очень рекомендую сходить вот сюда.
http://www.rsdn.ru/article/qna/baseserv/winauth.xml
Если останутся вопросы - пиши :)

menart (2004-05-24 19:18:00) [15]
А можно подсказать что это такое и с чем его едят? И буду черезвучайно признателен за небольшой примерчик...

Игорь Шевченко (2004-05-24 17:59:00) [16]
Через SSPI

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »