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

Строка в базе
Ј.¬ѓ
Реальное значение
Товар

Строка в базе
».ЈЏ‰•ИВ
Реальное значение
Компьютер

Строка в базе
абАБвгВГ
Реальное значение
‘!-Ќ‘”Ґо

Таблица прилагаеться

Может у вас идеи какие возникнут, а то что что словсем плохо... не знаю я как к такому Г подходить....

Я смотрел Refoxom.

Есть там такая штука ...

SET PROCEDURE TO InModuls
_SCREEN.CAPTION = 'Движения товара, Рабочая дата: '+DTOC(DATE())
CRYPTIC1 = CREATEOBJECT("Cryptic")
OPEN DATABASE mSklad SHARED
CRYPTIC1.ACCUSER = GETSYSTEMVAR('CurUser')
CSCREEN = GETSYSTEMVAR('cScreen')
IF TYPE('cScreen')='L'
CSCREEN = RGB(255, 255, 255)
ENDIF
CFORM = GETSYSTEMVAR('cForm')
IF TYPE('cForm')='L'
CFORM = RGB(212, 206, 200)
ENDIF
CFONT = GETSYSTEMVAR('cFont')
IF TYPE('cFont')='L'
CFONT = RGB(0, 0, 0)
ENDIF
CFIELD = GETSYSTEMVAR('cField')
IF TYPE('cField')='L'
CFIELD = RGB(255, 255, 255)
ENDIF
_SCREEN.BACKCOLOR = CSCREEN
CURRULE = 0
IF .NOT. GETSYSTEMVAR('Normal_End')
= MESSAGEBOX('Программа была завершена АВАРИЙНО, если будут проблемы обращайтесь!', 0, 'Внимание')
ENDIF
DO FORM AccesForm
= SETSYSTEMVAR('CurUser', CRYPTIC1.ACCUSER)
CURDATA = DATE()
CFIRMA = GETSYSTEMVAR('Firma')
IF .NOT. EMPTY(CRYPTIC1.ACCRULE)

Есть объект CRYPRIC вот с помощью методов этого объекта и делаеться шифрование. А где его исходник я не знаю...

Я вот еще подумал, может это стандартный метод?

CRYPTIC1 = CREATEOBJECT("Cryptic") не кто не пользовал?

Господа... откопал я методы которыми шифруеться... и расшифроуеться
FUNCTION crypt
LPARAMETERS CSTRING, CKEY
IF TYPE('cString')='C'
IF PARAMETERS()=1
CKEY = THIS.ACCSTRING
ENDIF
LOCAL LCENCRYPTEDSTREAM, LCFIELD, LCKEY, NLEN, I
LCENCRYPTEDSTREAM = ""
LCFIELD = ALLTRIM(CSTRING)
NLEN = LEN(CSTRING)-LEN(LCFIELD)
LCKEY = ALLTRIM(CKEY)+'odoLUJSEwdfhsjkdhJHNSdfkjsdHHk'
FOR I = 1 TO LEN(LCFIELD)
LCENCRYPTEDSTREAM = LCENCRYPTEDSTREAM+CHR(BITXOR(ASC(SUBSTR(LCFIELD, I, 1)), ASC(SUBSTR(LCKEY, I, 1))))
ENDFOR
RETURN LCENCRYPTEDSTREAM+SPACE(NLEN)
ELSE
IF PARAMETERS()=1
CKEY = THIS.ACCVALUE
ENDIF
RETURN CSTRING*CKEY
ENDIF
ENDFUNC
FUNCTION decrypt
LPARAMETERS CSTRING, CKEY
IF PARAMETERS()=1
CKEY = THIS.ACCVALUE
ENDIF
RETURN CSTRING/CKEY
ENDFUNC

Что тут твориться подскажите...

Я тоже так сначала подумал.... да не так всё просто...