encode.prg

人力资源Visual FoxPro 6.0

*——函数Encode
*——作用：对输入的指定的字符串进行编码
*——参数：sStr：要编码或者解码的字符串
*		  nCode：编码或者解码时使用的密钥
FUNCTION ENCODE(sStr,nCode)
	*——声明需要使用的本地变量
	LOCAL sTmpStr,cTempChr,i
	*——sTempStr：用来保存昨时的编码或者解码后的字符串
	*——cTempChr：用来保存编码或者解码后的字符
	*——i：循环计数
	*——对变量赋初值
	sTempStr=""
	cTempChr=""
	*——如果未指定密钥
	IF nCode=0
		nCode=184
	ENDIF
	*——对字符串的每个字符进行编码
	FOR i=1 TO LEN(ALLTRIM(sStr))
		cTempChr=BITXOR(ASC(SUBSTR(sStr,i,1)),nCode)
		sTempStr=sTempStr+ CHR(cTempChr)
	ENDFOR
	*——返回编码后的结果
	RETURN sTempStr
ENDFUNC