Na das ist doch schon der fertige Code (wurde dir aber auch schon gesagt) ... du mußt einfach nur diesen Code in dein Programm einbauen.
Also einfach ein Eingabeformular in dein Programm (mit den 2 Edit und den OK/-Abbrechen-Buttons).
Der wichtige Teil ist ja nur das:
Delphi-Quellcode:
if EdtBenKey.Text = MD5Print(MD5.MD5String(EdtBenName.Text)) then begin
// hier was machen, wenn passwort OK
end else begin
// und hier das, was gemacht werden soll, wenn der Code falsch ist
end;
Und was du machen willst, wenn der Key falsch ist, bleibt ja dir überlassen ... Programm beenden, zur Neueingabe auffordern...
PS: dieser Code ist recht "gut", denn jeder kann sich einen einfachen KeyGenerator zu deinem Programm erstellen. also einfach nur ein EditFeld, wo man irgendwas eingibt (was dann halt später bei Benutzername eingetragen werden soll) und kann sich dann mit der selben Funktion inen eigenen Key erstellen.
neuerKey := MD5Print(MD5.MD5String('irgendwas'));