encode.prg

来自「课程设计时做的一个工资管理系统。数据库编程的典型例子。值得收藏。」· PRG 代码 · 共 26 行

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