Hallo,
wie wärs damit:
Delphi-Quellcode:
function RSAUncrypt(KeyM,KeyF: Integer,CryptedText: string): string;
const
Offset = 47;
i: Integer;
begin
setlength(Result,length(CryptedText));
for i := 1 to length(CryptedText) do
Result[i] := Power(Ord(CryptedText[i])-Offset,KeyF) mod KeyM;
end;
Ich hoffe, durch M und F muss man nicht noch durchiterieren sondern die beiben konstant als Integer.
PS: Habt ihr denn Delphi nicht gelernt in der Schule?