Java-Codeschnipsel entschlüsseln

[bttb930]

Delphi-Quellcode:

function Anschrift: string;
const
  schluessel: string = 'QWE61R8TZ5UIO7PAS2DFGHJK3LYXCV4BN0M9';
  code: string = 'W271C5N I2GBKW KYVL'#10#13'CWPBW2 & Y2IB2WIB2WG72'#10#13'V227LCT2WG75. 9'#10#13'ZDX6X 1Ü58VA5K';
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(code) do
    if (code[i] >= 'A') and (code[i] <= 'Z') then
      Result := Result + schluessel[Ord(code[i]) - Ord('A') + 10]
    else if (code[i] >= '0') and (code[i] <= '9') then
      Result := Result + schluessel[Ord(code[i]) - Ord('0')]
    else
      Result := Result + code[i];
end;