sorry, du mußt noch überall eine 1 addieren:
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 + 1]
else if (code[i] >= '0') and (code[i] <= '9') then
Result := Result + schluessel[Ord(code[i]) - Ord('0') + 1]
else
Result := Result + code[i + 1];
end;