criptografia reversa deste código

function GetKey(S: string): string;
var
I, T: Integer;
begin
T := 0;
for I := 1 to Length(S) do
T := T + (StrToInt(´$´ + S[I]) * I);
Result := Format(´¬.2x´, [T mod 256]);
end;

Tenho esse codigo que usei para criptogafar uma string, como faço
ao inverso no caso para eu obter a string normal novamente.
Obrigado a tds