CD Key???

[Koregso]

Hi,

ich habe da ein Problem! Ich programmiere erst seit ein paar Wochen mit Delphi und möchte jetzt mein erstes Programm durch einen CD-Key schützen.

Der Ausgangswert des CD Keys soll der Name des Nutzers sein (Der Name steht in einem Eingabefeld Namens Edit1).

Die einzelnen Buchstaben sollen versch. Zahlen zugeordnet sein. (z.B. soll das A dann durch die Zahl 25 ersetzt werden oder das B durch die 02 usw.)

Der fertig generierte Key soll dann in einem Label Namens Label1 angezeigt werden.

Nun weiß ich allerdings net wie der Code lauten muss, damit das Programm den Key automatisch generiert.

[supermuckl]

geh mal zu torry.net und such nach AVlock gold

[Luckie]

Hallo Koregso.

Dieses Thema hatten wir schon des öfteren in der Vergangenheit. Bemüh mal die Suche und du solltest fündig werden.

[supermuckl]

achja herzlich willkommen bei DP

[Meflin]

also ein bisschen schwieriger würd ich die keygeneration dann doch machen. sonst kann sich ja jeder den key selbst ausrechnen
hier ein beispiel aus der delphi-source code library:

Zitat:

Wie kann ich einen CD-Key generieren?
Einen CD-Key für ein Shareware-Programm oder eine Demo-Version zu schreiben, ist grds. einfach: Ausgehend von einem Ausgangswert (Name des Nutzers, Zufallswert etc.) wird der Schlüssel berechnet. Ziel bei dieser Berechnung ist natürlich, dass ihre Grundlage nicht so einfach durchschaut wird.

Im folgenden wird ein einfacher CD-Key in der Form xxxx-xxxx-xxxx erstellt. Im Grundwert, "Seed", dürfen nur Zahlen stehen. Weitere Möglichkeiten um den Schlüssel zu generieren bieten z.B. Rechenoperationen, XOR oder Vertauschoperationen. Der Phantasie sind keine Grenzen gesetzt. Der Tipp soll lediglich als Anregung dienen.

Im Beispiel wird davon ausgegangen, dass sich der CD-Key in einer TEdit-Komponente namens "Eingabe" befindet.

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;

...

 if CDKey(Copy(Eingabe.Text,1,4)) = Eingabe.Text then
  Caption := 'Richtig' else Caption := 'falscher Key';

[Phoenix]

Hallo und herzlich Willkommen in der DP!

Tja. Das mit dem Codieren ist so eine Sache.
Da gibt es zugtausend verschiedene Möglichkeiten. So eine Frage wurde hier schon oft gestellt, und ich glaube keiner hat darauf eine wirklich komplette Antwort erhalten.

Du musst halt genau wissen, was Du machen willst. Wenn Du das weisst bekommst Du das auch in Quellcode verpackt; das Problem ist meistens, das Du wahrscheinlich selber den Algorithmus nicht kennst.