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