Страница 8 из 12
Re: Текущие вопросы по Delphi
Добавлено: 07 мар 2008, 14:30
Medved
" писал(а):Вообще, в этом методе мне больше всего не нравится его неэкономичность.
Слушай, ты что, гиг шифровать собрался?Можно писать в несколько BMPшников, а один BMP файл размером в 2 метра поместит 250 кбайт текста =)
В крайнем случае, можно писать не в последний бит, а в последних 2 или 3. Но картинка будет сильнее отличаться от оригинала. Ещё я подумаю как кодить в видео и музыке
Re: Текущие вопросы по Delphi
Добавлено: 07 мар 2008, 16:10
MOTOCoder
Сори, я просто неправильно подсчитал.
Хотя все равно мне кажется, что здесь можно использовать что-нибудь попорще.
Шифрование данных: от чайников до спецслужб
Добавлено: 07 мар 2008, 22:17
Medved
" писал(а):можно использовать что-нибудь попорще.
Попроще можно, но зато при такой шифровке тяжело будет не только расшифровать файл, но и узнать в каком именно файле находится информация и находится ли она там вообще. А посылать эту информацию можно и через e-mail, мол, смотри какая красивая картинка! И кто узнает, что ты послал код для запуска ядерных боеголовок?
Re: Текущие вопросы по Delphi
Добавлено: 07 мар 2008, 22:21
C_O_D_E
Medved
Привет. Ты сам хоть компилировал свою гениальную кодировку?
{а то у меня появляются нехорошие предположения на счет своих рук! }
Re: Текущие вопросы по Delphi
Добавлено: 07 мар 2008, 22:23
Medved
" писал(а):Привет. Ты сам хоть компилировал свою гениальную кодировку?
компилировал, но не тестил и даже не запускал. Но ведь можно по содержанию понять,где ошибка?
Re: Текущие вопросы по Delphi
Добавлено: 07 мар 2008, 22:24
Medved
" писал(а):а то у меня появляются нехорошие предположения на счет своих рук!
Им стоит исчезнуть, я впопыхах доделал эту прогу и только скомпилил
Re: Шифрование данных: от чайников до спецслужб
Добавлено: 07 мар 2008, 22:30
MOTOCoder
Medved писал(а):Попроще можно, но зато при такой шифровке тяжело будет не только расшифровать файл, но и узнать в каком именно файле находится информация и находится ли она там вообще. А посылать эту информацию можно и через e-mail, мол, смотри какая красивая картинка! И кто узнает, что ты послал код для запуска ядерных боеголовок?
Ну если код для запуска боеголовок то это стоит того.
Но для более тривиальных вещей-не знаю.
Re: Текущие вопросы по Delphi
Добавлено: 07 мар 2008, 22:32
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.
Re: Текущие вопросы по Delphi
Добавлено: 07 мар 2008, 22:38
Medved
У меня компилится, (free pascal 2.2.0) но входит в бесконечный цикл о_О . Попробуйте вынести всё из процедуры codeanyinbmp и decodeanyfrombmp тупо в тело программы. я щас тоже это сделаю и сравним результаты!
o_O
Добавлено: 07 мар 2008, 22:49
Medved
Я провёл эту операцию, но входит в бесконечный цикл!
Вот файл, у кого винда, пройдите пошагово, скажите где циклит!