PROCEDURE password_jjm
 LPARAMETER CYPASSWORD
 CYPASSWORD =  ;
      IIF(LEN(CYPASSWORD) > 10,LEFT(CYPASSWORD,10),CYPASSWORD + SPACE(10 - LEN(CYPASSWORD)))
 CPASSWORD = ''
 FOR N = 1 TO 10
    CPASSWORD = CPASSWORD + CHR(BITXOR(ASC(SUBSTR(CYPASSWORD,N,1)),255))
 ENDFOR
 RETURN CPASSWORD
ENDPROC