Сообщение №83714269

примерно так шифруется.
модератор, сотри это(нет), это очень секретно:

i=0;
while not(eof(File1)) {
Get(File1, n)
if (n%2==0){
Shift(n, 2);
else {
Shift(n, -2);
}
n=XOR(n);
Put(File2,n);
i=i+1;
}
erase(File1);
Create(File1);
for n=1 to i+1 {
Put(File1, '0');
}