Flash > Delphi

[Ghostwalker]

Delphi-Quellcode:

  Function Decode(Key:string);
  var
    LC1 : integer;
    
  begin
    result := '';
    for lc1 = length(key) downto 1 do
      result := result+chr(155-ord(key[i]));
  end;

Bitte schön. (ist aber ungetestet aus dem stehgreif gecoded).