Serial Problem

[mOzZzI]

Hai Leute;

hab ein Problem, ich habe einen KeyGen mit einen Algorhytmus, jetzt will ich das wenn ein Benutzer mein Programm vollfunktionsfähig haben möchte, möchte ich diesen KeyGen und den Algorhytmus damit benutzen, wie mache ich so was?

z.B. ich habe ein Edit und in dem wird der Serial reingeschrieben(vom Benutzer), und dann soll abgefragt werden, ob dieser Serial mit dem Algorhytmus zusammen passt...

Hier der Algorhytmus:

Delphi-Quellcode:

function CDKey(Seed:String): String;
const
  Key1:Array[0..9] of Char = ('T','5','A','9','R','6','C','0','W','7');
  Key2: Array[0..9] of Char = ('4','U','1','8','P','3','B','2','M','8');
var i: integer;
begin
  result := Seed + '-';
  for i:= 1 to length(Seed) do
    result := result + Key1[Ord(Seed[i])-48];
   result := result + '-';
  for i:= 1 to length(Seed) do
    result := result + Key2[Ord(Seed[i])-48];
end;

Delphi-Quellcode:

function RandomPassword(PLen:Integer):String;
var
  str:String;
begin
  Randomize;
  str:='0123456789';
  Result:='';
  repeat
    Result:=Result+str[Random(Length(str))+1];
  until(Length(Result)=PLen)
end;

und so ruft man ihn auf:

Edit2.Text := CDKey(Copy(RandomPassword(4),1,4)); Hoffe ihr könnt mir helfen....