Compartiendo script (para mejorarlo)

[caricatos]

Hola Aleph:
La verdad que aún no lo he probado, pero sí lo copie para probarlo más adelante. (Estoy actualizando mi página, y reparto el tiempo como puedo).
Lo que hice es ver mi viejo código y ahí va un copy and paste:

program
encriptar;

const
firma = '(PiS) Pirata Software.';

var
encripte: string;
letra : char;
lugar : byte;

procedure recoge_parametros;
var
i: byte;
begin
lugar := 0;
if paramcount = 0 then
encripte := firma
else
if paramcount = 1 then
encripte := paramstr(1)
else
begin
encripte := paramstr(1);
for i := 2 to paramcount do
encripte := encripte + ' ' + paramstr(i)
end;
end;

function actualizacion_de(caracter: char): char;
var
aux: byte;
begin
if lugar = length(encripte) then
lugar := 1
else
inc(lugar);
aux := ord(caracter) xor ord(encripte[lugar]);
if aux = 26 then
actualizacion_de := caracter
else
actualizacion_de := chr(aux)
end;

begin
recoge_parametros;
while not eof(input) do
begin
read(letra);
write(actualizacion_de(letra))
end
end.

Si lo compilas te diré que se trata de un filtro, o sea que hay que usar "tuberías", cuando lo usas por primera vez encripta y al usarlo por segunda desencripta.
Ejemplo:
encriptar < fichero.txt > encrip.txt
y para desencriptar:
encriptar < encrip.txt > fichero.txt

Como breve descripción te diré que encripta con la operación xor.

Cuando lea tu código te lo comento:

P.D.: estoy por poner en mi página algunas de las cosas que se vieron en este foro. Si sabes de algo interesante, por favor, cuéntamelo...