server übergreifend

[supermuckl]

Delphi-Quellcode:

function Tform1.makeMD5(input:String):string;
var
Digest: array[0..15] of byte;
KeyStr: string;
i: integer;
Hash: TDCP_md5;
s: string;
begin
Hash:= TDCP_md5.Create(Self);
KeyStr := input;
Hash.Init;
Hash.UpdateStr(KEyStr);
Hash.Final(Digest);
KeyStr := 'bla         ';
input := 'blubb        ';
for i:= 0 to 15 do
s:= s+ inttohex(Digest[i],2);
result := uppercase(s);
hash.free;
end;

das is der code der aus nem string einen md5 hash zaubert
allerdings müssen die dcpcrypt compos installiert sein und folgende libarys in die uses:
DCPcrypt2, DCPmd5;