Keygen mit MD5 um Serial zu generieren !

[Delphiturbo]

Nun habe ich verstanden :wink:
Also was "Blackdarke" geschrieben hat ist nur um das Passwort zu komplizieren, damit Hacker oder der MD5 kennt, nicht drauf kommt :wink:

Also es geht nun nur um eine erweitere Funktion :mrgreen:

ich werde gleich ein Programm erstellen von Typ CrackMe :mrgreen:

Danke !

gruss

[OldGrumpy]

Zitat:

Zitat von Delphiturbo

ich werde gleich ein Programm erstellen von Typ CrackMe :mrgreen:

*gähn* Am längsten dauert dabei Runter- und wieder Hochladen.

[Delphiturbo]

Es funktioniert jetzt gut

Gibt es MD5 für Web oder NET ?
Ich möchte den Code als PHP in Web einbauen, damit die Kunden ihre Aktivierung direkt Online erhalten und nicht von mir. Soviel Zeit hat man nicht :mrgreen:

[Die Muhkuh]

In PHP gibt es die Funktion md5.

[Delphiturbo]

kann mir jemand denn einen Link um md5.php zu downloaden mit eine kleine Erklärung
für die Installation und einbauen in Web ?

Oder ist es auch so simple wie es in Delphi ?

[Die Muhkuh]

Ich sagte doch, dass es die Funktion md5 in PHP gibt. Da brauchst nichts runterladen...

Code:

$tohash = "Das ist ein Test";
$hashed = md5($tohash);
echo $hashed;

[Delphiturbo]

Tatsächlich :thumb:
Schon getestet, Ich bekomme das selbe Ergebnis wie von Delphi

Danke!

[Delphiturbo]

Wenn ich die Funktion zusamen in Button anlege dann funktioniert perfekt
wenn ich aber die Funktion über das Button aufrufe, dann geht nicht !!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if mein_serialgenerator(benutzername) = '12345' then
showMessage('OK');
end;

hier ist die Funktion :

Delphi-Quellcode:

function mein_serialgenerator(benutzername: string): string;
var
  mein_md5, mein_prekey, mein_serialkey: string;
const
  // Mögliche Sicherheitslücke: mein_seed kann man aus der EXE herauslesen. Aber ich will es ja einfach halten
  mein_seed := 'ABCD-Produkt-Produktversion-Edition';
begin
  // Dein Benutzername ist jetzt als MD5 festgehalten
  mein_md5 := md5(benutzername);

  // Damit jetzt nicht jeder daran herumspielt und einen eigenen md5 generiert, legst du einen Seed dazu und machst nochmal md5
  mein_prekey := md5(mein_seed + mein_md5);

  // Nun hast du aber 32 Zeichen. Tu das deinen Anwendern bitte nicht an.
  // Nimm die ersten 8 Zeichen meinetwegen. Das ist jetzt dein Serialkey, der aus dem Benutzernamen abgeleitet ist
  mein_serialkey := copy(mein_prekey, 0, 8);

  result := mein_serialkey;
end;

[der_kumpel]

das näxte mal aber besser genau beschreiben, was nicht geht (und nicht einfach sagen geht nicht).

Delphi-Quellcode:

function mein_serialgenerator(benutzername: string): string;
var
  mein_md5, mein_prekey, mein_serialkey: string;
const
  mein_seed : string = 'ABCD-Produkt-Produktversion-Edition';
begin
  mein_md5 := md5(benutzername);
  mein_prekey := md5(mein_seed + mein_md5);
  mein_serialkey := copy(mein_prekey, 0, 8);
  result := mein_serialkey;
end;

procedure TForm1.Button1Click(Sender: TObject);
var benutzername: string;
begin
  benutzername:='12345';
  ShowMessage(mein_serialgenerator(benutzername));
end;

[angos]

...rotz gelöscht :) nächstes mal les ich zuende