как зашифровать текстовой файл с паролем

[Obey177]

программа в делфи просит пароль если введен три раза не правильно проект закрывается пароль берется из файла Adaudi\p.txt вот код

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
    count: integer;


implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var s,p:string;
 f : TextFile;

begin

AssignFile(f, 'Adaudi\p.txt');
Reset(f); // открыть для чтения 
read(f,p);
s:=Edit1.Text;
if p=s then begin
form2.Close;
end
else
begin
ShowMessage('Вы ввели неправильный пароль ' + inttostr(count+1)
            + ' раз(а) ');
Edit1.Text:='';
Edit1.SetFocus;
inc(count);
 if count = 3 then
 begin
 ShowMessage('Вы ввели неправильный пароль ' + inttostr(count)
 + ' раза программа будет закрыта ');
     form2.Close;
 form1.Close;
    end;
 end;
end;
 
end.

[BDA]

Может быть доработаем тот примерчик?

[Stilet]

Предлагаю :http://www.programmersforum.ru/showthread.php?t=58277

[BDA]

Логин и пароль считываются из Settings.ini.
И тот и другой дважды зашифрованы sha1, т.е. строка в settings.ini - sha1(sha1(логин)).
Логин: admin
Пароль: qwerty

[SmileStar]

Пожалуйста,расскажите о методе шифрования который используется в данной программе.

[Serge_Bliznykov]

погуглите SHA1 или просто SHA

[makaka2]

Serge_Bliznykov, я так понял программа расшифровывает твой логин и пароль ?

[Serge_Bliznykov]

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

Serge_Bliznykov, я так понял программа расшифровывает твой логин и пароль ?

Во-первых, чего это он вдруг мой?!
я ни к данной программе, ни к логину/паролю отношения не имею.

во-вторых, нет, программа ничего не расшифровавает, только зашифровывает (точнее - берёт хэш).
Берёт введённые значения логина и пароля, получает от них хэш-значения через функцию SHA1 (см. "Secure Hash Algorithm 1 — алгоритм криптографического хеширования") (дважды) и сверяет полученные значения с тем, что в ини-файле. совпало - свой, не совпало - "Вы ввели неправильный логин\пароль"