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