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
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
转载于:https://blog.51cto.com/gzkhrh/340704