Подскажите по какому принципу шифруется текст

const BLOCKS = 11;
var
    flag : array[1..BLOCKS] of longint = (??????);
    key : string = ?????;
    f : file of longint;
    i, k, j : integer;
    part : longint;
    x : byte;
    alphabet : Set of '!'..'~' = ['!'..'~'];
begin
    assign(f, 'ciphertext.txt');
    rewrite(f);
    for i := 1 to BLOCKS do begin
        part := 0;
        j := 0;
        for k := 4 downto 1 do begin
            x := (flag[i] >> j) and $ff;
            if chr(x) in alphabet then begin
                part := part << 8;
                part := part or (((x - ord('!') + ord(key[k])) mod 94) + ord('!'));
                j := j + 8;
            end;
        end;
        write(f, part);
    end;
    close(f);
end.

{$mode objfpc}
 
const BLOCKS = 11;
var
    flag : array[1..BLOCKS] of longint =
     (1416128883,1601463672,1952413537,1935630949,1600482915,1868850532,1600222303,809066310,1700950645,1634892123,1315927901);
    key : string = 'ABCD';
    f : file of longint;
    i, k, j : integer;
    part : longint;
    x : byte;
    alphabet : Set of '!'..'~' = ['!'..'~'];
begin
    assign(f, 'ciphertext.txt');
    rewrite(f);
 
    for i := 1 to BLOCKS do begin
        part := 0;
        j := 0;
        for k := 4 downto 1 do begin
            x := (flag[i] >> j) and $ff;
            if chr(x) in alphabet then begin
                part := part << 8;
                part := part or (((x - ord('!') + ord(key[k])) mod 94) + ord('!'));
                j := j + 8;
            end;
        end;
        write(f, part);
    end;
    close(f);
end.

{$mode objfpc}
 
var
    key : string = 'ABCD';
    f : file of longint;
    i, k, j : integer;
    part : longint;
    x : byte;
    alphabet : Set of '!'..'~' = ['!'..'~'];
begin
 
    assign(f, 'ciphertext.txt');
    reset(f);
 
    while Not Eof(f) do begin
        Read(f, part);
        j := 0;
        for k := 1 to 4 do begin
            x := (part >> j) and $ff;
            if (x<>0) and (chr(x) in alphabet) then begin
                x :=((x - ord('!') + 94 + 94 - ord(key[k])) mod 94) + ord('!');
                if (x<>0) and (chr(x) in alphabet) then Write(chr(x))
                else begin WriteLn('Decode Error! halt!'); Close(f); Halt end;
                j := j + 8;
            end;
        end;
    end;
    close(f);
end.

{$mode objfpc}
 
var
    key : string = 'ABCD';
    f : file of longint;
    i, k, j : integer;
    part : longint;
    x : byte;
    alphabet : Set of '!'..'~' = ['!'..'~'];
begin
 
    assign(f, 'ciphertext.txt');
    reset(f);
 
    while Not Eof(f) do begin
        Read(f, part);
        j := 0;
        for k := 1 to 4 do begin
            x := (part >> j) and $ff;
            if (x<>0) and (chr(x) in alphabet) then begin
                x :=((x - ord('!') + 94 + 94 - ord(key[k])) mod 94) + ord('!');
                if (x<>0) and (chr(x) in alphabet) then Write(chr(x))
                else begin WriteLn('Decode Error! halt!'); Close(f); Halt end;
                j := j + 8;
            end;
        end;
    end;
    close(f);
end.