Курсовая работа: Шифрувальник та дешифрувальник

readln;

goto a;

end;

2:begin

ClearDevice;

CloseGraph;

RacShifr;

readln;

goto a;

end;

1:begin

ClearDevice;

CloseGraph;

bool:=true;

end;

end;

end;

end;

until bool;

end.

ІЛЮСТРАЦІЇ

Рисунок 1.1 – Меню програми

Рисунок 1.2 – Файл, який шифрується програмою

Рисунок 1.3 – Шифрування інформації програмою

Рисунок 1.4 – Файл, який містить зашифровану інформацію