|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как зашифровать файл XOR-ом?
Как зашифровать файл XOR-ом?
Нужно зашифровать каждый байт файла. Код:
procedure TForm1.Button1Click(Sender: TObject); var f:file; i:byte; begin AssignFile(f,OpenDialog1.FileName); reset(f); while not eof(f) do read (f,i); //тут хорим байт по идее... writeln(f,i); кто поможет ? Последний раз редактировалось Admin, 23.05.2010 в 17:49. |