Читать зашифрованный файл

[Dogmatos]

Есть массив данных, который шифруется с помощью ключа и оператора XOR.
Затем он записывается в файл.
Если данные не шифровать, то последующее их чтение из файла не составляет труда. Построчно, используя, например - "Line Input #1, Tmp".
В случае с шифрование данные могут быть записаны не в одну строчку, а в несколько, засчет того, что в них могут входить символы перевода каретки.

Ребяты, подскажите, пожалуйста, как реализовать побитовое чтени и запись данных, так, чтобы можно было достать мои данные правильным образом? Может есть какие-то решения?
Спасибо.

[RayShade]

Открывай файл как binary и проблем не будет.

[Dogmatos]

Да, я понимаю, что нужно открывать файл в режиме binary. И, соответственно, сохранять тоже в этом режиме. Но я не очень понимаю, как мне отследить когда возник конец стоки данных. Длинна каждой строки неопределенная и в зашифрованном виде может занимать несколько строк за счет перевода кореток, количество которых мне неизвестно.
Покажите, пожалуйста, какой-нибудь пример, если есть, буду признателен.
Может нужно ставить какие-то флаги в конце каждой строки данных и анализировать их или как?
Сразу скажу, что с бинарными файлами я еще не работал, и с трудом пока понимаю как работать с PUT и GET.
Спасибо

[Dogmatos]

Может, действительно, использовать специальный разделитель, например, "Вася Пупкин", между строками данных?

[RayShade]

Между строками и так есть разделитель - vbCrLF зачем выдумывать велосипед?

[Dogmatos]

Я поэтому и зашел в форум, чтобы велосипед не изобретать.
Вот и советуюсь с Вами.
Значит я так понял, что можно попробовать сделать следующее:
Записывать файл бинарно используя GET, в конце каждой строки данных вставлять vbCRLF
Затем, когда начну читать этот бинарный файл, используя GET, сканить файл до тех пор пока не встречу vbCRLF, что будет означать конец строки данных, затем далее до нового vbCRLF (конец второй строки данных) и т.д. ?
Или как-то по другому?

[gaidar]

Именно так. Либо использовать структуры (т.н. Types в VB).

Например:

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

Public Type EncData
        Data As String
        CRC As Long ' Если надо СRС
End Type


И записывать как массив типов. Тогда нужно заголовок, например такой:

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

Public Type EncDataHeader
        DataLen As Long
        Records As Long
End Type


[gaidar]

Это может быть через чур, но так описываются форматы файлов. Можно разработать свой собственный.

[gjghjc]

А если в результате кодирования и наложения маски я получу символ перевода каретки не там где надо а посередине строки?Я идиот! Убейте меня, кто-нибудь!?
Тогда как быть???