И снова записать байт, будь он неладен!

[Dummiel]

Хай, долгонько меня не было.

Работая в Clipper, FoxBase натыкался на такую защиту файла баз данных:
Программно записывается байт в файл БД на уровне машинного кода, и в системе DOS файл *.dbf становится нечитаемым промотрщиками типа dbview.
Это я и хотел узнать - как в VB сделать такую штуковину, чтобы *.mdb не читался Access-ом и всякими подобными прогами из ОС Windows.
Получается, это чуть ли не идеальная защита БД.
Алгоритм типа такого:
Отдельно записываем байт в *.mdb.
При входе в программу байт удаляется, файл сохраняется, прога работает с ним, как с обычным *.mdb. При выходе байт снова записывается, и он становится нечитаемым из-под Windows. Там чего-то с контрольной суммой не того получается.

НУ НЕ МОГУ Я ПО ДРУГОМУ ОБЪЯСНИТЬ!!!

[alibek]

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

Open "C:\db.mdb" For Binary As #1
buff$ = "FAKE"
Put #1, 0, buff$
Close #1
...
Open "C:\db.mdb" For Binary As #1
buff$ = Chr$(0) + Chr$(1) + Chr$(0) + Chr$(0)
Put #1, 0, buff$
Close #1

[Dummiel]

Спасибо, буду пробовать!