Keygen mit MD5 um Serial zu generieren !

[der_kumpel]

das näxte mal aber besser genau beschreiben, was nicht geht (und nicht einfach sagen geht nicht).

Delphi-Quellcode:

function mein_serialgenerator(benutzername: string): string;
var
  mein_md5, mein_prekey, mein_serialkey: string;
const
  mein_seed : string = 'ABCD-Produkt-Produktversion-Edition';
begin
  mein_md5 := md5(benutzername);
  mein_prekey := md5(mein_seed + mein_md5);
  mein_serialkey := copy(mein_prekey, 0, 8);
  result := mein_serialkey;
end;

procedure TForm1.Button1Click(Sender: TObject);
var benutzername: string;
begin
  benutzername:='12345';
  ShowMessage(mein_serialgenerator(benutzername));
end;