Keygen mit MD5 um Serial zu generieren !

[Delphiturbo]

Zitat von Klaus01:

Hier findest Du die md5.pas,
die brauchst Du nur in das Projektverzeichnis kopieren
und die Unit in den uses Deines Projektes angeben.

Grüße
Klaus

Das habe ich gemacht. Wie kann nun MD5 in mein Code binden ?

hier ist ein Beispiel in DP gefunden, funktioniert leider nicht :

Delphi-Quellcode:

function erstelleKey(benutzername:string):string;
var z : string;
i : integer;
begin
If Length(benutzername) > 0 then begin     // wird halt geprüft ob überhaupt ein username eingegebn wurde
For I := 1 to Length(benutzername) do      //jeder buchstabe wird einzeln durchgegangen
z := z + IntToHex(Ord(benutzername) + $82);//buchstabe wird in ascii umgewandelt mit ord, dann wird 82 hinzuaddiert und anschliessend wieder in 
                                           //hex umgewandelt
result := z + benutzername[0]              //zum schluss werden all ergebnisse zusammengerechnet und nochmal der erste buchstabe des namens angehängt
end else result := 'eingabe darf nciht leer sein';
end;

Thema