CD_Keyfunction ?

[Vader]

hallo,

hab da eine function gelesen, wer kann die mir erklären ?

Delphi-Quellcode:

unction CDKey(Seed:String): String;const 
Key1:Array[0..9] of Char = ('2','5','8','9','5','a','1','3','6','7');      
Key2: Array[0..9] of Char = ('8','3','4','0','1','7','x','9','3','9');
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;
... if CDKey(Copy(Eingabe.Text,1,4)) = Eingabe.Text then  Caption := 'Richtig' else Caption := 'falscher Key';

wird da ein key generiert wenn ja welcher ?

mfg vader