&&函数encode 作用:对输入的指定的字符串进行编码 参数 sstr:要编码或者解码的字符串 ncode:编码或者解码时用到的密钥
FUNCTION encode(sstr,ncode)
LOCAL stmpstr,ctempchr,i &&stmpstr:用来保存编码或者解码后的字符串 ctempchr:用来保存编码或者解码后的字符 i:循环次数
stmpstr=""
ctempchr="" &&对变量赋予初值
&&如果没有指定密钥
IF ncode=0
ncode=123
ENDIF
&&对字符串的每个字符进行编码
FOR i=1 TO LEN(ALLTRIM(sstr))
ctempchr=BITXOR(ASC(SUBSTR(sstr,i,1)),ncode)
stmpstr=stmpstr+CHR(ctempchr)
ENDFOR
&&返回编码后的结果
RETURN stmpstr
ENDFUNC
你这家伙。。。。。我先帮你搞出来好让人家看