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

[himitsu]

Anscheined ja, aber Welcher, daß hängt von Seed ab.

[Master_RC]

Der Seed sollte 4 Zeichen lang sein, zumindest werden zur Überprüfung nur die ersten vier genommen

[himitsu]

Zitat von Master_RC:

Der Seed sollte 4 Zeichen lang sein, zumindest werden zur Überprüfung nur die ersten vier genommen

Stimmt nich ganz, der Seed ist immer 2 bis 4 Zeichen lang (vermutllich ist er aber immer 4, da der CD-Kay wohl mehr als 4 Zeichen lang sein wird) und er besteht aus den ersten (bis zu) 4 Zeichen des CD-Keys.

Im Grunde wir mit dem obrigen Code geprüft, ob der CD-Key einem Bestimmten Muster entspricht (sprich Authentisch ist).

[Vader]

hallo,

ich verstehe nur bahnhof !
wird da jetzt eine zahlenkombination generiert oder überprüft diese function nur etwas, ist das nur ein
ausschnitt von einem fertigen code für einen cd_key ?


mfg vader

[himitsu]

Diese Funktion generiert etwas, aber in Verbindung mit der IF-Abfrage wird der CD-Key überprüft.

[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

[Vader]

hallo,

das heißt jetzt die function giebt mir die zahl der eingabeedits vor und auch wieviel zahlen ich
in jedem edit eingeben muß,aber sie generiert mir keinen key wie zb: gf12-4ju2-d4f8-8tz1 !
ist das so richtig gedacht ?

mfg vader

[brechi]

die funktion generiert aus ein 4 zahlen als string ("0123") z.b. einen gültigen key

der wird mit dem key vergleichen den man eingegeben hat

[Vader]

hallo,
du sagst die function genriert aus 4 zahlen einen string, wie kann man den auslesen,möchte den generierten
string anschauen was da rausgekommen ist, wie muß man diese function dann aufrufen ?
mfg vader