【vfp开源代码栏目提醒】:网学会员为广大网友收集整理了,Encode.prg,希望对大家有所帮助!
*——函数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