Function encrypx(mstring,mcryp) If Vartype(mcryp) <> 'C' mcryp = 'mypass' Endif If ISNULL(mstring) OR empty(mstring) retval = '' ELSE Local lenstr,lencry,retval,lchaval,lcnxt,aaa retval = '' lcnxt = 0 aaa = 0 lenstr = Len(Alltrim(mstring)) lencry = Len(Alltrim(mcryp)) For aaa = 1 To lenstr If lcnxt > lencry lcnxt = 1 Else lcnxt = lcnxt+1 Endif retval = retval + Chr(Asc(Substr(mstring,aaa,1))+Asc(Substr(mcryp,lencry,1))) Endfor Endif Return retval Function decrypx(mstring,mcryp) If Vartype(mcryp) <> 'C' mcryp = 'mypass' ENDIF If Isnull(mstring) OR empty(mstring) retval = '' ELSE Local lenstr,lencry,retval,lchaval,lcnxt,aaa retval = '' lcnxt = 0 aaa = 0 lenstr = Len(Alltrim(mstring)) lencry = Len(Alltrim(mcryp)) For aaa = 1 To lenstr If lcnxt > lencry lcnxt = 1 Else lcnxt = lcnxt+1 Endif retval = retval + Chr(Asc(Substr(mstring,aaa,1))-Asc(Substr(mcryp,lencry,1))) Endfor Endif Return retval