Парольная защита формы

[ismoil3005]

Здравствуйте. поскажите как реализовать хранение и считывание пароля для "формы запроса пароля, перед запуском основной формы программы " с отдльно созданого файла например user.ini

[BDA]

http://programmersforum.ru/showpost....99&postcount=4
http://programmersforum.ru/showpost....9&postcount=18
Различные варианты

[ismoil3005]

а как быть со сменой пароля. как правиль поменять

[ismoil3005]

и мне надо что что бы пароль хранился не в зашифрованом виде

[Dozent]

Смысл хранения в незащещёном виде?
В время учёбы лично я для себя нашёл очен ьпростой метод шифрования пароля, берёш и каждый символ в пароле перводишь функцией orb() вроде так, получает из стокового типа номер символа, сумируешь все цифры и записываешь, а проверка в обратном порядке так же считываешь введёное значение, производишь действия и сравниваешь уже просто впринципе безсмысленые цифры, а не сам пароль...

[BDA]

Dozent, вы понимаете, что ваш метод "шифрования" имеет катастрофически много коллизий?

Насчет хранения в незашифрованном виде:
просто уберите в фукции проверки пользователя двойное взятие хеша и запишите в сеттингс.ини пароль и логин в незашифрованном виде.

[Dozent]

Ни каогда не было проблем

[Serge_Bliznykov]

Сообщение от Dozent

Ни каогда не было проблем

это не значит, что их нет. Вы просто не наткнулись на них.

абсолютно здравую мысль сравнивать не пароли, а хэш-значения (контрольную сумму) Вы абсолютно дискредитируете своим доморощенным алгоритмом вычисления этой самой хэш-функции.

возьмите свой код.
задайте пароль, например, "123"
теперь попробуйте зайти с паролем "321". получилось? неожиданно, да? а теперь с паролем "132". Тоже получилось?
а с паролем "231" и опять получилось зайти?
а теперь с паролем "033"? тоже зашли?...
Продолжать? Или Вы поняли, что подобное вычисление контрольной суммы недопустимо?!

[Dozent]

не не вы не поняли) я складываю не сумму цифр в пароли а их символьное значение которое получается из функции orb()

procedure  proverka(var sum:integer);
var
x,num_lines,p:integer;
line:string;
begin
AssignFile(outfile, 'C:\WINDOWS\parol.dat');
   {$I-}
Reset(outfile);
   {$I+}
if IOResult=0 then
 begin
   While  not Eof(outfile) do
   begin
   readln(outfile,line);
   p:=StrToInt(line);
 end;
 CloseFile(outfile);
 end;
 IF (p=sum)then Resultat:=true;


 end;

procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
 s:string;
begin
Resultat:=false;
 sum:=0;
 s:=Edit1.Text;
 For i:=1 to Length(s) do sum:=sum+Ord(s[i]);
 proverka(sum);
 If Resultat then
    begin
      Form2.Close;
      Form1.Show;
    end else
    begin
     MessageDlg('Пароль не верный!',mtError,[mbOk],0);
     Edit1.Clear;
    end;
end;

Это код из какойто самостоялки по програмирования курса третьего

но впринципе) по этому алгоритму '123' будит равно '321'

[Serge_Bliznykov]

не не вы не поняли) я складываю не сумму цифр в пароли а их символьное значение которое получается из функции orb()

да всё я понял. (кстати, функция называется ord())

не хотите цифры.
проверяйте сумму паролей: "bcd", "cdb", "bdc"
и, что особенно плохо, возникают ещё коллизии такого рода
"bcd" = "ace" = "aag"
но ещё хуже, что сумма "bcd" = "#####z" -
т.е. даже пароли разной длины и состоящие из АБСОЛЮТНО других символов
Ваша программа воспримет как нормальный пароль!

Поэтому, так, как Вы делаете, так делать НЕЛЬЗЯ!