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

оговорюсь ... база рачитана на работу одного пользователя и количество записей по ФИО не превышает 1500 .... (пока разработочный вариант)

Монстры ... если есть подводные камни в таком решении, поделитесь соображениями

Я хоть и гоблин, но...тоже не менстр.
Если все это работает, то какие камни могут быть?

ключевые слова

оговорюсь ... база рачитана на работу одного пользователя

зачем секретность ?
---
аксес не обеспечивает никакой защиты данных, нужно использовать другие инструменты...

Я сурёзно не МОНСТР , иначе бы разобрал ситуяйцию, извини - факт

Есть такой вариант - шифрование данных - но тоже морочно
То записывая в таблу зашифруй, то доставая из таблы - расшифруй........
но тада открыв базу трудно понять чё это тут написино???
это тоже от простых юзверов............

...при нашем (ихнем) уровне отказоустойчивости техники - ё....ся все в один прекрасный момент

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

Лишно я камушкав тута не вижу

камушки тут в том, что база в целом содержит заведомо валидные данные что упрощает задачи восстановления сведений (в функции количества записей).

если дополнить базу сгенерированными фальшивыми данными, в количестве на порядки превышающем валидные (для полуторатысяч записей это не слишком много)

задача восстановления значительно усложнится.

в общем случае такой подход защищает данные, конечно. но

декартово произведение записей таблиц гарантировано вернет гарантировано валидные данные

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

потом отделить варианты заведомо известные и уплотнить метаданные выборки - отобрать заведомо валидные сочетания по известным ФИО например, ФИО+город, телефон+город и т.п.

потом ранжировать варианты в функции статистической вероятности (например по дню рождения - сравнить с распеределением дней рождения в какой-то опорной статистической выборке и т.п.)

потом варианты легко уточняемые, лесенкой "степ-бай-степ" (по дню рождения, например, про номеру автомобиля, адресу, телефону, адресу и-мейл (например если и-мейл содержит признаки имени-фамилии и т.п.))

в конце концов возможно получить чистые или с небольшой "примесью" данные

это называется дэйта инвестигейшн или дэйта майнинг

ЗЫ

помится мы с osmor'ом на выставке Softool послушали презентацию системы Albatros - они какой-то схожий механизм используют - распределенное хранение данных, режут таблицы вдоль (как у тебя) и поперек и разбрасывают по разным БД.

не помю только точно как их потом собирают

они кажется на файрберде

ЗЗЫ

кстати - очень многое завист от того, как будут порезаны таблицы - как сгруппировать разные признаки - <имя+отчество+пол> - <фамилия+город+телефон> - <номер паспорта+дата рожденя> и т.п.

извиняюсь спросить, а сколько времени занимает такой анализ?

я так понимаю все зависит от от построения индексов порезанных табл ... или нет
вообще я частично отказался от этой затеи .. как ты правильно заметил "вот потеряешь свою индексную таблицу...."
хотя задумка на мой взгляд была неплохая

вот .... ну наконец-то дождался ключевой фразы "меру знать" .... это-то и хочу понять... что таким образом можно делать без ущерба основной цели, а чего делать категоречски нельзя !(?)

это как бы уже обсуждалось ... но ить проблема в жлобе хозяине рас, в отсутствии сиквел сервера два, требованиии сделать три .... заморачиваться с десятком ёкселёвских файлов желания нетути никакго, а вот аксовский вариант мну устраивает

юзеры могут скопировать таблу со связями ID во время работы, так что не факт изымания таблы даст результат.

таблу можно хранить вообще в другом фале MDB, доступ к которому осуществлять только програмно, тогда мороки с убрал-поставил таблу не будет, вот кода это добавит.

про повтор цитаты понял-

вот так я получил доступ из своегей клинсткой части, которая соединена с другой базой, доступ к другой базе и ее таблам.

Dim con As New ADODB.Connection Dim rsOrd As ADODB.Recordset Dim rsOrdDet As ADODB.Recordset Set rsOrd = New ADODB.Recordset Set rst_G = New ADODB.Recordset con.Provider = "MSDataShape" con.ConnectionString = "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\baza_client.mdb;User Id=admin;Password=;" con.Open rsOrd.StayInSync = False rsOrd.Open "SHAPE {select * from naimen} as Nam " & _ "APPEND ({select * from sklad} as Skla " & "RELATE kod_n TO naimen)", con

последняя строка это метод открытия 2-х связанных таблиц, т.е. может быть просто

rsOrd.Open "select * from naimen", con

открываем - декодируем/кодируем/вносим изменения и закрываем.

п.с. можно повесить глобальной переменной - открыли и висит в памяти, хотя кажется черевато.

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

ps ...да счас это все ведется на бумаге дедовским способом ...ну и сейф разумеется

вот попробуй
создай модуль класса назови его Cipher

Всунь туда код

Private mstrKey As String
Private mstrText As String

Public Property Let KeyString(strKey As String)
mstrKey = strKey
Initialize
End Property

Public Property Let Text(strText As String)
mstrText = strText
End Property

'Read text that was eintCrypted or decrypted
Public Property Get Text() As String
Text = mstrText
End Property

Public Sub DoXor()
Dim lngC As Long
Dim intB As Long
Dim lngN As Long
For lngN = 1 To Len(mstrText)
lngC = Asc(Mid(mstrText, lngN, 1))
intB = Int(Rnd * 256)
Mid(mstrText, lngN, 1) = Chr(lngC Xor intB)
Next lngN
End Sub

Public Sub Stretch()
Dim lngC As Long
Dim lngN As Long
Dim lngJ As Long
Dim lngK As Long
Dim lngA As Long
Dim strB As String
lngA = Len(mstrText)
strB = Space(lngA + (lngA + 2) \ 3)
For lngN = 1 To lngA
lngC = Asc(Mid(mstrText, lngN, 1))
lngJ = lngJ + 1
Mid(strB, lngJ, 1) = Chr((lngC And 63) + 59)
Select Case lngN Mod 3
Case 1
lngK = lngK Or ((lngC \ 64) * 16)
Case 2
lngK = lngK Or ((lngC \ 64) * 4)
Case 0
lngK = lngK Or (lngC \ 64)
lngJ = lngJ + 1
Mid(strB, lngJ, 1) = Chr(lngK + 59)
lngK = 0
End Select
Next lngN
If lngA Mod 3 Then
lngJ = lngJ + 1
Mid(strB, lngJ, 1) = Chr(lngK + 59)
End If
mstrText = strB
End Sub

Public Sub Shrink()
Dim lngC As Long
Dim lngD As Long
Dim lngE As Long
Dim lngA As Long
Dim lngB As Long
Dim lngN As Long
Dim lngJ As Long
Dim lngK As Long
Dim strB As String
lngA = Len(mstrText)
lngB = lngA - 1 - (lngA - 1) \ 4
If lngB <= 0 Then Exit Sub
strB = Space(lngB)
For lngN = 1 To lngB
lngJ = lngJ + 1
lngC = Asc(Mid(mstrText, lngJ, 1)) - 59
Select Case lngN Mod 3
Case 1
lngK = lngK + 4
If lngK > lngA Then lngK = lngA
lngE = Asc(Mid(mstrText, lngK, 1)) - 59
lngD = ((lngE \ 16) And 3) * 64
Case 2
lngD = ((lngE \ 4) And 3) * 64
Case 0
lngD = (lngE And 3) * 64
lngJ = lngJ + 1
End Select
Mid(strB, lngN, 1) = Chr(lngC Or lngD)
Next lngN
mstrText = strB
End Sub

Private Sub Initialize()

Dim lngN As Long
Randomize Rnd(-1)
For lngN = 1 To Len(mstrKey)
Randomize Rnd(-Rnd * Asc(Mid(mstrKey, lngN, 1)))
Next lngN
End Sub

хм.... всё-таки скатились до шифрования ...
РЕЗЮМЕ: тема себя исчерпала.... исходя из всех топиков , вытекает тема защиты, а такая однако уже есть