Вопросы шифрования

[Medved]

Вообще, в этом методе мне больше всего не нравится его неэкономичность.

Слушай, ты что, гиг шифровать собрался?Можно писать в несколько BMPшников, а один BMP файл размером в 2 метра поместит 250 кбайт текста =)
В крайнем случае, можно писать не в последний бит, а в последних 2 или 3. Но картинка будет сильнее отличаться от оригинала. Ещё я подумаю как кодить в видео и музыке

[MOTOCoder]

Сори, я просто неправильно подсчитал.
Хотя все равно мне кажется, что здесь можно использовать что-нибудь попорще.

[Medved]

можно использовать что-нибудь попорще.

Попроще можно, но зато при такой шифровке тяжело будет не только расшифровать файл, но и узнать в каком именно файле находится информация и находится ли она там вообще. А посылать эту информацию можно и через e-mail, мол, смотри какая красивая картинка! И кто узнает, что ты послал код для запуска ядерных боеголовок?

[C_O_D_E]

Medved
Привет. Ты сам хоть компилировал свою гениальную кодировку?

{а то у меня появляются нехорошие предположения на счет своих рук! }

[Medved]

Привет. Ты сам хоть компилировал свою гениальную кодировку?

компилировал, но не тестил и даже не запускал. Но ведь можно по содержанию понять,где ошибка?

[Medved]

а то у меня появляются нехорошие предположения на счет своих рук!

Им стоит исчезнуть, я впопыхах доделал эту прогу и только скомпилил

[MOTOCoder]

Попроще можно, но зато при такой шифровке тяжело будет не только расшифровать файл, но и узнать в каком именно файле находится информация и находится ли она там вообще. А посылать эту информацию можно и через e-mail, мол, смотри какая красивая картинка! И кто узнает, что ты послал код для запуска ядерных боеголовок?

Ну если код для запуска боеголовок то это стоит того.
Но для более тривиальных вещей-не знаю.

[C_O_D_E]

Значит, это либо мой паскаль либо мои ручки...
Ну, насколько я помню теорию (а ее я практически не помню, тут не в этом суть)
в параметрах процедуры не стоит указывать типы, т.е.
компилятор ругается на

Код: Выделить всё

Procedure CodeAnyInBMP(Var FileInText,FileInBMP,FileOutBMP:File {*} Of Byte);

на месте {*} требует ')'.
Когда ее ставишь, то

Код: Выделить всё

Begin
 For I:=1 To 1200 Do
 Begin
  Read(FileInBMP[b]{*,*}[/b]A);
  Write(FileOutBMP,A);
 End;

на месте выделенной запятой копилятор обзывается инвалидом File type.

[Medved]

У меня компилится, (free pascal 2.2.0) но входит в бесконечный цикл о_О . Попробуйте вынести всё из процедуры codeanyinbmp и decodeanyfrombmp тупо в тело программы. я щас тоже это сделаю и сравним результаты!

[Medved]

Я провёл эту операцию, но входит в бесконечный цикл!
Вот файл, у кого винда, пройдите пошагово, скажите где циклит!