1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

procedure TMainForm.SetPassword;
var Pass : TStringList;
    PassCoder : TIdCoderMD5;
begin
   // Password vorbereiten
   ApplicationDirectory := ExtractFileDir(Application.ExeName);
   Pass := TStringList.Create;
   PassFile := ApplicationDirectory+'\DSCHAMBUL.CAT';
   PassCoder := TIdCoderMD5.Create(Self);
   if(FileExists(PassFile))then
   begin
   Pass.LoadFromFile(PassFile);
   Password := PassCoder.CodeString(Pass.Strings[0]);
   end
   else
   begin
   Pass.Add(PassCoder.CodeString('masterkey'));
   Pass.SaveToFile(PassFile);
   Password := Pass.Strings[0];
   end;
   Pass.Free;
   PassCoder.Free;
end;

procedure TLoginForm.OKBtnClick(Sender: TObject);
var PassCoder : TIdCoderMD5;
begin
PassCoder := TIdCoderMD5.Create(Self);
if(PassCoder.CodeString(Trim(PasswordEdit.Text)) = Password)then
begin
PasswordEdit.Text := '';
Login := True;
Close;
end
else
ShowMessage('Falsches Admin Passwort! Kein Zutritt!');
PassCoder.Free;
end;

procedure TPassChangeForm.OKBtnClick(Sender: TObject);
var  New, Rep : String;
     PassCoder : TIdCoderMD5;
begin
   PassCoder := TIdCoderMD5.Create(Self);
   if(PassCoder.CodeString(Trim(OldPasswordEdit.Text)) <>  Password)then
   ShowMessage('Admincreator Passwort stimmt nicht! Passwort kann nicht geändert werden!')
   else
   begin
   New := Trim(NewPasswordEdit.Text);
   Rep := Trim(NewPasswordRepeatEdit.Text);
   if(New <> Rep)then
   ShowMessage('Passwortwiederh. stimmt mit neum Passwort nicht überein!')
   else
   begin
   Login := True;
   Password := PassCoder.CodeString(Trim(NewPasswordEdit.Text));
   Close;
   end;
   end;
   PassCoder.Free;
end;