Не раскажите поподробнее УВАЖАЕМЫЕ ПРОГРАММИСТЫ как сохранять пароль в Window авторификации. И если можно поподробнее раскажите про шифрование паролей при записи в реестр или в ini файл.

Если кто знает ссылки про это, или имеет примеры того как это сделать?. Если можно то поподробнее распишите предыдущий пример который привел RAdmin: (Я думаю, что это будет многим интрестно, да и такой материал будет не грех положить в DRKB)

Код

function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string; var I : Integer; begin Result := ''; for I := 1 to Length(InString) do begin   Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));   StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey; end; end; function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string; var I : Integer; begin Result := ''; for I := 1 to Length(InString) do begin   Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));   StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey; end; end;

writeprivateprofilestring('Settings','Password',Pchar( Encrypt('ПАРОЛЬ',16,12,12) ), Pchar('C:\My.Ini'));


{ Для расшифровки
Result := Decrypt(EncryPtedPassword,16,12,12);
}

Это сообщение отредактировал(а) Girder - 21.1.2005, 14:55

используй такой алгоритм
шифруй пароль и храни его в зашиврованном виде прямо в реестре.
Далее. Пользователь открывает программу, вводит пароль, ты шифруешь пароль пользователя и сравниваешь с тем, что записано ранее в реестре.
Только нужно шифровать необратимым алгоритмом, т.е., что зашифрованный пароль, который записан вреестре нельзя было расшифровать.
О шифровании или хешировании ищи по форуму, в FAQ`е, DRKB.

А может кто віложит алгорит необратимого шифрования, помоему он MD5 называется.

Спасибо большое за направление поиска!

Вот, недавно случайно наткнулся...
Тама про пароли что-то говорится...
здесь...

А про интерфейс CryptoAPI слышали?

CryptoAPI ломается, при желании.
Имхо лучше md5 реализовать в своей проге, благо, исходников готовых куча...