| Вопрос: Двоичная вид файла | Добавлено: 14.05.05 13:09 |
Автор вопроса:  hak
|
| Нужно создать программу чтобы работала с файлами как с двоичным кодом. Допустим создать прогу что бы открывала любые файлы в двоичном виде 1 заменяла на 0; 0 заменяла на 1. Кто может подскажите, помогите. |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 14.05.05 14:02 |
|
dim b() as byte, f as integer, i as long
f=freefile open "file" for binary as #f redim b(1 to lof(f)) get #f,,b for i=lbound(b) to ubound(b) b(i)=b(i) xor &hff next put #f,1,b close #f |
||
|
Номер ответа: 2 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 14.05.05 17:26 |
| Круто, но лучше, наверное, работать не с Byte а с Long. | ||
|
Номер ответа: 3 Автор ответа: Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #3 | Добавлено: 14.05.05 22:09 |
| а зачем с Long? | ||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 14.05.05 22:15 |
| мда... не лучший способ шифрования файлов. Юзай лучше готовые решения (RC4, MD5, etc...) | ||
|
Номер ответа: 5 Автор ответа:  hak Вопросов: 5 Ответов: 12 |
Профиль | | #5 | Добавлено: 24.05.05 08:16 |
|
Большое спасибибо за помощь, а если усложнить задачу, вывести двоичный код в текстовое поле(т.е. 10010110) там я его изменяю и по нажатию кнопки записывается в файл???
Если сможешь помоги очень нужно и нужно срочно. |
||
|
Номер ответа: 6 Автор ответа: AндрейICQ: 259020622 Вопросов: 30 Ответов: 71 |
Профиль | | #6 | Добавлено: 24.05.05 19:26 |
|
Если реализовывать следующую задачу
создать прогу что бы открывала любые файлы в двоичном виде 1 заменяла на 0; 0 заменяла на 1 , (логическое отрицание) то можно с каждым байтом сделать следуйщее
C_byte=chr(255-asc(c_byte)) А если перевести в двоичное представление то есть 2 варианта(производительность проверь, если интересно): 1)как по книжным алгоритмам 2)Перевести в шеснарик встроеной функцией и установить соответсвие между каждой 16-й цифрой и 4мя дво-ми(15 условий соответственно). Сам наверно сделаеш? Есть реализация паскаль: procedure bin(m:longint;var u:string); var s,t,string; begin while m<>1 do begin str(m mod 2,t); s:=t+s; m:=m div 2; end; u:='1'+s;{Перевели в двоичный вид!!!!!} end; PS Если нужно шифрование спроси меня как. |
||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 25.05.05 00:40 |
|
PS Если нужно шифрование спроси меня как.
Пример с MD5 есть? |
||
|
Номер ответа: 8 Автор ответа: hakВопросов: 5 Ответов: 12 |
Профиль | | #8 | Добавлено: 25.05.05 08:00 |
| Большое спасибо так действительно работало бы гораздо быстрее НО мне нужно работать с чистым двоичным кодом, без ANSI, алгоритм у меня уже есть. Вопрос в другом - как просто без преобразований передать двоичный код в текстовое поле(10011001), а по нажатию кнопки записать (может через Put?) двоичный код в файл? Нужно очень!!! Заранее благодарен. | ||
Страница: 1 |