hagen reddman dec

[darknes]

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