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
![[好文摘錄] 怎麼樣向老闆提問看上去不蠢？工作中的兩種思維如何通過問問題明确任務職場中有80%的時間花在溝通上，剩下的20%才是你完成任務的時間。學會問問題，是職場溝通中最重要的技能之一。[圖]](data:image/gif;base64,R0lGODlhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=)