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

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

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

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

строка -латиница
aaa
значние
ЎЊ


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

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

А кому - то, что - то не видно?
Нормальный шрифт. Это реально зашифрованно. Кодировки и пр... здесь не причем

шифровали на фоксе...
Разбираюсь... пока не ясно что есть accString

**
PROCEDURE getaccstring
PRIVATE FLUSED, SEL
FLUSED = .F.
SEL = SELECT()
IF .NOT. USED('mUsers')
FLUSED = .T.
USE SHARED mUsers IN 0
ENDIF
SELECT MUSERS
LOCATE FOR NAME=THIS.ACCUSER
IF FOUND()
THIS.USERID = MUSERS.ID
THIS.ACCSTRING = THIS.CRYPT(MUSERS.PASSTRING, THIS.ACCSTRING)
IF THIS.CRYPT(GETSYSTEMVAR('Name'), THIS.ACCSTRING)<>'Ерунда всякая'
THIS.ACCSTRING = ''
THIS.ACCRULE = 0
ELSE
THIS.ACCRULE = MUSERS.RIGHTS
LOCAL V, I, T
T = LEFT(THIS.ACCSTRING, 5)
THIS.ACCVALUE = 0
FOR I = 1 TO LEN(T)
THIS.ACCVALUE = THIS.ACCVALUE+BITXOR(ASC(SUBSTR(T, I, 1)), THIS.ACCVALUE)
ENDFOR
ENDIF
ELSE
THIS.ACCSTRING = ''
ENDIF
IF FLUSED
USE IN MUSERS
ENDIF
SELECT (SEL)
ENDPROC
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
<EOF>

) всякое бывает..
Я похоже нашел ключик. Как ни странно он не совпадает тем, что в коде...ХМ...