Meine delphi version ist delphi 7 lite full welche version das genau ist kann ich dir nicht sagen scheint eine gemodde version von delphi 7 second edition zu sein.
Genau deswegen verstehe ich nur bahnhof bei jedem anderen geht diese md5.pas nur bei mir nicht.
Hab erst gedacht es läge an den vista
api´s deswegen hab eine neuinstallation ohne diese
api´s gemacht selber fehler.
Rsa kann sehr woll md5 verwenden für C da ja
Encrypt Cipher_text = M ^ E MOD N
Decrypt Message text = C ^ D MOD N
Oder hab ich das jetzt auch falsch verstanden?
Wollte es so lösen :
Delphi-Quellcode:
function new_md5(s:string):string ;
var
t:THash_MD5;
begin
t:=THash_MD5.Create;
try
t.Init;
Result:=t.CalcBinary('s',TFormat_HEX);
t.Done;
finally
t.Free; //hier wird THash_MD5 freigelassen.
end;
end;
aber wenn ich das verwende bekomme ich einen range check error.
if (s <> '') and (s[1] <> '$') then