>SCATTER NAME loData MEMO BLANK > loData.Field = ENCRYPT(string,password) >APPEND BLANK >GATHER NAME loData MEMO > >?ENCRYPT(field,password) &&- return bad string, with unknown characters >>
>SCATTER NAME loData MEMO BLANK > loData.Field = ENCRYPT(string,password) >APPEND BLANK >AMEMBERS(laMbr,loData) >FOR lni=1 TO ALEN(laMbr,1) > lcPropName = laMbr[lni] > REPLACE &lcPropName WITH loData.&lcPropName >ENDFOR > >?ENCRYPT(field,password) &&- return correct value >>