请给位高手看一下我的程序那里出错了 谢谢啦

&&函数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
你这家伙。。。。。我先帮你搞出来好让人家看

我试了一下，好像要对ncode的值进行控制