VBNet - Форум - Работа с базой mdb

Вопрос: Работа с базой mdb Добавлено: 08.07.02 00:11

Автор вопроса: Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361

вот я запустил свое приложение при запуске оно расшифровало базу для работы, а при закрытии опять зашифровало я не знаю как сделать это. Коды для шифровки дешифровки у меня есть.
Ответить

Ответы Всего ответов: 9

Номер ответа: 1
Автор ответа:

Гибыч

Вопросов: 1
Ответов: 58

Профиль | | #1

Добавлено: 08.07.02 07:34

Шифруються данные базы данных или её файл?

Ответить

Номер ответа: 2 Автор ответа: Andrey999 ICQ: 30852361 Вопросов: 73 Ответов: 168	Web-сайт: www.radio-device.narod.ru Профиль \| \| #2	Добавлено: 08.07.02 12:14
	Шифруются данные базы Ответить

Номер ответа: 3
Автор ответа:

Гибыч

Вопросов: 1
Ответов: 58

Профиль | | #3

Добавлено: 08.07.02 15:23

Ежели это mdb то я бы лучше весь файл шифровал... чем данные в отдельности...

а ежели типа Сервер базы данных то просто во время работы нужные данные расшифровала поработала зашифровала и обратно положила...

Ответить

Номер ответа: 4
Автор ответа:

Andrey999

ICQ: 30852361

Вопросов: 73
Ответов: 168

Web-сайт: www.radio-device.narod.ru
Профиль | | #4

Добавлено: 08.07.02 15:40

А как тогда весь mdb файл шифровать?

Я уже достал наверно?

Ответить

Номер ответа: 5
Автор ответа:

Гибыч

Вопросов: 1
Ответов: 58

Профиль | | #5

Добавлено: 08.07.02 15:48

да не намана... я с криптованием сильно не работал... во с шифрованием файлов я не робил... ну по моему мона просто в zip с паролем кидать... енто ня всякий пожарный... или из ребят кто нить че нить вспомнит....

Ответить

Номер ответа: 6
Автор ответа:

Гибыч

Вопросов: 1
Ответов: 58

Профиль | | #6

Добавлено: 08.07.02 15:56

посмотри http://slanch.narod.ru/shifr.htm

Ответить

Номер ответа: 7
Автор ответа:

Гибыч

Вопросов: 1
Ответов: 58

Профиль | | #7

Добавлено: 08.07.02 16:03

ну и я тут в инете порыля - существует много различных утилит для шифрования - дешифрования файлов... могешь их поюзат... да и еще есть вроде в винде встроенный CryptoAPI который использовать мона...

ежели чего найду то отвечу...

Ответить

Номер ответа: 8
Автор ответа:

Stan

Вопросов: 0
Ответов: 12

Профиль | | #8

Добавлено: 08.07.02 20:15

Вoт 2 кoдa для шифрoвки и рaсшифрoвки
DB. Oни рaбoтaют с фaйлoм mdb.
Меня прoстo зaинтересoвaлa твoя прoблемa и
былo немнoгo времени.
Сaмa шифрoвкa нaмереннo прoстaя - дoрaбoтaй
сaм. Функция DescryptDB(рaсшифрoвкa) рaбoтaет перед oткрытием бaзы, a (шифрoвкa) - пoсле зaкрытия. Успехoв

'шифрoвкa

Public Function EncryptDB(ByVal strDB As String)
    Dim arrByte() As Byte
    Dim inFh As Integer
    Dim Ii As Long, lBNum As Long

    inFh = FreeFile()
    Open strDB For Binary As inFh
    arrByte = InputB(LOF(inFh), inFh)

    Err.Clear
    On Error Resume Next
    lBNum = UBound(arrByte)
    If Err.Number = 0 Then
        For Ii = 0 To lBNum
            Put #inFh, Ii + 1, arrByte(Ii) - 3
        Next Ii
    End If
    Close #inFh
End Function

'рaсшифрoвкa

Public Function DescryptDB(ByVal strDB As String)
    Dim arrByte() As Byte
    Dim inFh As Integer
    Dim Ii As Long, lBNum As Long

    inFh = FreeFile()
    Open strDB For Binary As inFh
    arrByte = InputB(LOF(inFh), inFh)

    Err.Clear
    On Error Resume Next
    lBNum = UBound(arrByte)
    If Err.Number = 0 Then
        For Ii = 0 To lBNum
            Put #inFh, Ii + 1, arrByte(Ii) + 3
        Next Ii
    End If
    Close #inFh
End Function

P.S. Функции пoчти идентичны - мoжешь oбъеденить

Ответить

Номер ответа: 9 Автор ответа: Andrey999 ICQ: 30852361 Вопросов: 73 Ответов: 168	Web-сайт: www.radio-device.narod.ru Профиль \| \| #9	Добавлено: 08.07.02 22:19
	Гибыч Проверь почту. Там коментарии. Ответить

Страница: 1 |