Идентификаторы внутри цифровые или буквы есть? Буквы и даты к цифрам привести можно.
1. выстраиваешь все в строку 31125102357533302221244400255 - где каждый идентификатор: кол-во цифр и значение 112 => "3112", 251 => "51" и т.д.
2. делаешь какое-нибудь обратимое преобразование, например перетасовываешь цифры в хитром порядке или еще как. По сути этот алгоритм и даст криптостойкость твоему шифрованию. Можешь открытый-закрытый ключ использовать, но тогда длинный код в итоге будет.
3. Для уменьшения длины полученного переводишь частями в другую систему счисления например 62-х ричную (0-9, A-Z, a-z). Т.к. фокс точно работает только с 15-разрядными числами, то берешь 15 знаков. Например "311251023575333"
Переводишь обрезанное в 62-х ричную систему счисления:
311251023575333 => "1QNkQRL09"
запоминаешь кол-во знаков + строка => "91QNkQRL09" больше 9-ти не будет. Можешь "-" ставить.
4. Берешь следующие 15 и к п.3
Раскодировать в обратном порядке.
Когда-то делал конвертацию 62-10:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
func Conv10to62
lpara tnValue
local lcRet, lnCifra
lcRet=""
do while tnValue> 0
lnCifra=tnValue-int(tnValue/ 62 )* 62
tnValue=int(tnValue/ 62 )
do case
case lnCifra< 10
lcRet=chr(lnCifra+ 48 )+lcRet
case lnCifra< 36
lcRet=chr(lnCifra+ 55 )+lcRet
otherwise
lcRet=chr(lnCifra+ 61 )+lcRet
endcase
enddo
return lcRet
func Conv62to10
lpara tcValue
local lnRet, lnCifra
lnRet= 0
do while !empty(tcValue)
lnCifra=asc(tcValue)
tcValue=substr(tcValue, 2 )
do case
case lnCifra< 58
lnRet=lnRet* 62 +lnCifra- 48
case lnCifra< 91
lnRet=lnRet* 62 +lnCifra- 55
otherwise
lnRet=lnRet* 62 +lnCifra- 61
endcase
enddo
return lnRet
Можешь русские буквы взять, тогда 74-х ричная система счисления будет 10+32+32
Можешь генератор случайных чисел задействовать для добавления ненужной инфы, которая разнообразит даже одинаковые записи. Например брать не 15 а 14 и первый знак случайное число от 1-9. Обязательно первый, т.е. старший разряд.
Контрольный разряд добавь, чтобы ошибки оператора отлавливать.
