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:

function TForm22.RandomPassword():String;
var str:String;
PLen : Integer;
begin
Randomize;
PLen := 8;

//string with all possible chars
str:='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890';
Result:='';

  repeat
  Result:=Result+str[Random(Length(str))+1];
  until(Length(Result)=PLen)

end;

procedure TForm14.InsertKdExt(Kundendaten : Client; KundenID: Integer);
var
md5_digi : TMD5digest;
begin

md5_digi := MD5String(Form22.RandomPassword);
....
Fieldbyname('kennwort').AsString := MD5DigestToStr(md5_digi);
....                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function gethashstr(pwd: String): String;
var hash:T4x4LongWordRecord;
    hashstr,S1:String;
    i:integer;
begin
     SetLength(hashstr,16);
     with TIdHashMessageDigest5.Create do begin
          hash:=HashValue(pwd);
          Move(hash,hashstr[1],16);
          for i := 1 to Length(hashstr) do
              S1 := S1 + Format('%02x', [Byte(hashstr[i])]);
          while Pos(' ', S1) > 0 do S1[Pos(' ', S1)] := '0';
          hashstr:=S1;
          result:=hashstr;
          Free;
          end;
end;                    

1:

Fieldbyname('kennwort').AsString := md5print(md5string(Form22.RandomPassword));                    

1:
2:
3:
4:

procedure TfrmMain.edtStringChange(Sender: TObject);
begin
    edtHash.Text := UpperCase(MD5Print(MD5String(edtString.Text)));
end;                    

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:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:

unit DM_Main;

interface

uses
  SysUtils, Classes, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset,
  ZConnection, IniFiles, MD5;

type
  TdmMain = class(TDataModule)
    ZConnection1: TZConnection;
    ZQuery_read: TZQuery;
    ZQuery_save: TZQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    FDatensatzID: string;
    FLoginIni: TCustomIniFile;
    FStartDir: string;
    FUserID: Integer;
  public
    function Login(const AUsername, APassword: string): Boolean;
    procedure Logout;
    procedure StoreLoginData(DoKeepData: boolean; const AUsername, APassword:
        string);
    { Public-Deklarationen }
    property DatensatzID: string read FDatensatzID write FDatensatzID;
    property LoginIni: TCustomIniFile read FLoginIni;
    property StartDir: string read FStartDir;
    property UserID: Integer read FUserID;
  end;

var
  dmMain: TdmMain;

implementation

{$R *.dfm}

var
  LoginDataName : string  = 'CamSoft.log';

procedure TdmMain.DataModuleCreate(Sender: TObject);
begin
  FStartDir := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));
  FLoginIni := TMemIniFile.Create(FStartDir + '\' + LoginDataName);
end;

procedure TdmMain.DataModuleDestroy(Sender: TObject);
begin
  FreeAndNil(FLoginIni);
end;

function TdmMain.MD5(Str: String): String;
var  
  s: string;  
  i: integer;  
begin  
  result := '';
  IdCoderMD51.Reset;  
  IdCoderMD51.AutoCompleteInput := True;  
  s := IdCoderMD51.CodeString(Str);  
  for i := 1 to Length(s) do  
  begin  
    result := result + LowerCase(IntToHex(BYTE(s[i]), 1));
  end;  
end;  

function TdmMain.Login(const AUsername, APassword: string): Boolean;
begin
  Result := False;
  hash := MD5(APassword);
  ZQuery_read.Active := False;
  ZQuery_read.SQL.Text := 'Select id,username,passwort from users ' +
                          'WHERE username = "' + AUsername + '" AND passwort = "' + APassword + '"';
  ZQuery_read.Active := True;

  if not ZQuery_read.EOF then
  begin
    FUserID := ZQuery_read.FieldByName('id').AsInteger;
    //ZQuery_save.SQL.Text := 'Insert Into stats Set ' +
    //                        'UserID = :USERID, ' +
    //                        'Login  = :LoginTime, ' +
    //                        'Start_Time = :StartTime ';

    //ZQuery_save.ParamByName('UserID').AsInteger   := FUserID;
    //ZQuery_save.ParamByName('LoginTime').AsString := DateTimeToStr(Now);  // oder gleich direkt TimeToStr(Time);
    //ZQuery_save.ParamByName('StartTime').AsFloat  := Now;  // oder gleich direkt TimeToStr(Time);
    //ZQuery_save.ExecSQL;

    { Den neu erstellten Datensatz finden und die Kontakt_ID bestimmen }
    ZQuery_save.SQL.Text := 'Select LAST_INSERT_ID()';
    ZQuery_save.Active   := True;
    FDatensatzID         := ZQuery_save.Fields[0].AsString;
    // success
    Result := True;
  end
end;

procedure TdmMain.Logout;
begin
    ZQuery_save.SQL.Text := 'Update stats ' +
                            'Set logout = :Logout, ' +
                            'End_Time   = :EndTime ' +
                            'Where ID = :DatensatzID ';

    ZQuery_save.ParamByName('Logout').AsString      := DateTimeToStr(Now);
    ZQuery_save.ParamByName('EndTime').AsFloat      := Now;
    ZQuery_save.ParamByName('DatensatzId').AsString := FDatensatzID;
    ZQuery_save.ExecSQL;
end;

procedure TdmMain.StoreLoginData(DoKeepData: boolean; const AUsername,
    APassword: string);
begin
  if DoKeepData then
  begin
    FLoginIni.WriteInteger('Global', 'KeepData', 1);
    FLoginIni.WriteString('Global', 'Name', AUsername);
    FLoginIni.WriteString('Global', 'PW', APassword);
  end
  else
  begin
    FLoginIni.WriteInteger('Global', 'KeepData', 0);
    FLoginIni.WriteString('Global', 'Name', '');
    FLoginIni.WriteString('Global', 'PW', '');
  end;
  FLoginIni.UpdateFile;
end;

end.                    

1:

function TdmMain.MD5(Str: String): String;                    

1:
2:
3:
4:
5:

function TdmMain.Login(const AUsername, APassword: string): Boolean;
begin
  Result := False;
  hash := MD5(APassword);
  ....                    

1:
2:

sPasswort   := PW_Schutz.PW_Hash(MD5String(Edit2.Text));   // MD-5 Hashwert generieren
IF ZQ_Login.FieldByName('PASSWORT').AsString = sPasswort // Mit gesetztem PW vergleichen