Показать сообщение отдельно
  #7  
Старый 27.05.2014, 15:36
vankai14 vankai14 вне форума
Прохожий
 
Регистрация: 15.04.2014
Сообщения: 24
Версия Delphi: delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от icWasya
А что и сколько Вы пишете здесь ?
Код:
CloseF.Write('crypted.dat',fout[ifile]);

После чтения файла в массив fin[x..x] типа int64, в цикле от нуля до количества считанных из файла блоков к каждому fin[N] применяется ряд преобразований. ксорится с ключом keyround[N], потом замены и перестановки. и вот как раз результат всех этих преобразований пишется в массив FOUT[N]. Есть чуйка, что я как-то неправильно записываю выходной массив в файл 'crypted'. В результате по идее должен получиться файл непонятный. такой, что если исходный был *.txt, то если открыть его через блокнот, там непонятный символы. ИЛИ если исходный - *.jpg, то выходной открывая через imageviewer какой-нибудь, тоже непонятная картинка появится. Потом в результате расшифровки по тому же алгоритму, но с ключами в обратном порядке из FOUT получается FIN, полностью соответствующий исходному файлу. Расшифровку я дописал, но опять же получаются бредовые выходгные данные. может подскажите если я как-то неправильно файлы загружаю и выгружаю?
Ответить с цитированием