Código Delphi - Codificar String

//Codificar String

function Codifica(S: string): string; var Cod: string; I: integer; begin S := S + #13 + ' '; Cod := '; for I := 9 downto 1 do Cod := Cod + Copy( S, I, 1 ); S := Copy( Cod, 4, 3 ) + Copy( Cod, 1, 3 ) + Copy( Cod, 7, 3 ); Cod := '; for I := 1 to 9 do begin if (I mod 2) = 0 then begin if ord( S[I] ) = 255 then Cod := Cod + #0 else Cod := Cod + chr( ord( S[I] ) + 1 ); end else begin if ord( S[I] ) = 0 then Cod := Cod + chr( 255 ) else Cod := Cod + chr( ord( S[I] ) - 1 ); end; end; Codifica := Cod; end;