CD_Keyfunction ?

[brechi]

und mit

Delphi-Quellcode:

function 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;

procedure TForm1.EingabeChange(Sender: TObject);
begin
   if CDKey(Copy(Eingabe.Text,1,4)) = Eingabe.Text then
     Caption := 'Richtig' else Caption := CDKey(Copy(Eingabe.Text,1,4));
end;

kannste dir anzeigen lassen wie der key aussehen muss
er wird aus den ersten 4 zeichen berechnet dann kommt ein - und dann wieder 4 zeichen und wieder - und wieder 4 zeichen
gültig sind alle 4er zahlenkombos