Key-Prüfung im Programm installieren

[Fritz01]

Algo, Verschlüsselung mit MD5 von Fichtner.

Benutzername eingeben, key wird erzeugt, kann wie folgt getestet werden.

procedure TMainForm.ButtonTestClick(Sender: TObject);
begin
if EdtBenKey.Text = MD5Print(MD5.MD5String(EdtBenName.Text)) then begin
{ Key OK }
showMessage ('Key ist OK');
end
else
showMessage ('Key nicht akzeptiert');
{ Key passt nicht }
end;

habe ich scho oben dargestellt und das funktioniert.

Nun habe ich ein Programm, welches nur nach Eingabe von Benutzername und dem von mir erzeugtem Key (aus diesem BenNamen) freigeschaltet werden soll.