einfacher Keygenerator

[freak4fun]

Hallo!

Hier ein einfacher Keygenerator.

Was ist drin?

- Hash mit MD5
- Erzeugen und Testen

Viel Spass damit.

//05.01.2005 Neu Zip-Version
//

[freak4fun]

Hallo,
also ich hab jetzt eine Zip-Datei hochgeladen. Hier in der DP gehts bei mir wieder nicht, aber von meiner Seite lässt sich die selbe Datei öffnen und ausführen. Beides findt ihr im ersten Post.
Ich bitte um Rückmeldung.

Hatte schonmal jemand anders das Problem?

mfg
freak

[MrKnogge]

Ich hab mir mal den source gezogen, compiliert und getestet.

KeyErzeugen.exe:
funktioniert einwandfrei.

MyKeyGenProject.exe:
Wenn man einen zu kurzen key eingibt, so bekommt man einen EConvertError.

Aber für testzwecke und zum lernen allemal ausreichend !

[Die Muhkuh]

Hi,

also das ging jetzt zum runterladen.

Aber irgendwie ist das Programm nicht gerade so gut...
Man kann ja die Bindestriche im Key verändern und es geht trotzdem

Siehe hier.

[Nils_13]

Hi,

bei mir gibt es in WinRar auch immer Fehler, egal ob man die Dateien speichert oder öffnet.

[Alexander]

Der Fehler kommt aber nur bei der fertigen Anwendung, lad dir mal den Source runter, da funktioniert es...


@freak4fun Dein Key-Gen schaut ganz gut aus . Hilft mir bestimmt auch mal weiter

[freak4fun]

Hm... das war auch nur so mal eine schnelle Idee und dann musste ich sie zum Abschluss bringen. Sicher kann man noch vieles verbessern. Es ist auch nicht annähernd ein Schutz oder sonst was. Aber es hat Spaß gemacht und wenn es hier noch irgend jemanden weiterhilft, hat es sich doch gelohnt.

mfg
freak

[supermuckl]

[OT]
eventuell könntet ihr mal MD5 sums machen bevor hochgeladen, nachdem runtergeladen usw
falls da wirklich was mit der datenübertragung oderso net stimmt.
[/OT]

[PierreB]

Hi,

was muss ich verändern um den Seriennummernalgorithmus zu verändern ?
Diese Werte hier ?

Delphi-Quellcode:

  if Start then begin
    Ergebnis[1] := {26}ord('P')-ord('7')+1;
    Ergebnis[2] := {16}ord('X')-73+1;
    Ergebnis[3] := {21}ord('I')-ord('?')+10+1;
    Ergebnis[4] := {31}ord('q')-ord(')')-42+1;

Und wie muss ich das dann in der Kontrollabfrage auch dementsprechend ändern ?

Thanx

[freak4fun]

Ja, ganz genau. Wie kommst du damit klar?

Mf
freak

[PierreB]

Zitat von freak4fun:

Ja, ganz genau. Wie kommst du damit klar?

Mf
freak

Ähm naja, ein bisschen Quelltext interpretieren kann ich auch.

Nur komm ich mit den Rechenoperatoren nicht so ganz klar. Ich möchte das statt Ergebnis[1] := {26}ord('P')-ord('7')+1; der 26 die Summe 29 berechnet wird. Was muss ich das ändern ? Diese Berechnungsroutine versteh ich nicht so ganz. Und wenn ich dann das mit der 29 hab, wie muss ich das in der Abfrage ändern ?

Thanx