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....
