Keygen mit MD5 um Serial zu generieren !

[Delphiturbo]

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

Also es geht nun nur um eine erweitere Funktion

ich werde gleich ein Programm erstellen von Typ CrackMe

Danke !

gruss

[OldGrumpy]

Zitat von Delphiturbo:

ich werde gleich ein Programm erstellen von Typ CrackMe

*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

[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
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