Управление паролем

[Galiya28]

7.jpg
Помгите написать прогу на дельфи по блок-схеме

[Stilet]

Примерно так:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses         inifiles,  windows,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var s,v:string;
begin
 with TIniFile.Create(ExtractFilePath(ParamStr(0))+'q') do begin
   repeat
     s:=InputBox('Pass','Input pass','');
     v:=ReadString('main','pass','')
   until (v=s)or(v='');
   if MessageBox(GetForegroundWindow,'Новый пасс?','Внимание',MB_YESNO)=IDYES then
    ReadString('main','pass',InputBox('Pass','Input new pass',''));
   free;
 end;
end;

end.

[Человек_Борща]

Ещё можно так:

uses
  SysUtils;

var
  PassStorage: string;
  s: string;
  b: Boolean;

function ReadPwdFile: string;
var
  f: TextFile;
  s: string;
begin
  Result := '';
  AssignFile(f, 'pass.txt');
  Reset(f);
  try
    ReadLn(f, s);
    Result := Trim(s);
  finally
    CloseFile(f);
  end;
end;

procedure WritePwdFile(const aPwd: string);
var
  f: TextFile;
begin
  AssignFile(f, 'pass.txt');
  try
    Rewrite(f);
    WriteLn(f, Trim(aPwd));
    PassStorage := Trim(aPwd);
  finally
    CloseFile(f);
  end;
end;

begin
  Writeln('Reading passwordfrom file...');
  PassStorage := ReadPwdFile;
  if (PassStorage = EmptyStr) then
    PassStorage := 'root';
  Writeln('App ready.');
  repeat
    Writeln('Enter true password: ');
    Readln(s);
    s := Trim(s);
    b := (s = PassStorage);
    if not b then
      Writeln('Wrong password!');
  until b;
  WriteLn('Do you wan to setup a new password? y/n');
  Readln(s);
  s := Trim(s);
  if (s = 'y') then
  begin
    Writeln('Enter a new password: ');
    Readln(s);
    WritePwdFile(s);
    Writeln('New password saved.');
  end;

  if (s = 'n') then
    Writeln('Starting some application...');

  Writeln('Application job done. Press enter to exit..');
  Readln;
end.