【vfp开源代码栏目提醒】:网学会员在vfp开源代码频道为大家收集整理了encrydata.PRG提供大家参考,希望对大家有所帮助!
SET TALK OFF
CLEAR
ox=CREATEOBJECT("encryptString")
WITH ox
.encryptString="Visual FoxPro"
? .encryptString
.addEncrypt()
? .encryptString
.disEncrypt()
? .encryptString
ENDWITH
RELEASE ox
RETURN
DEFINE CLASS encryptString as Custom
encryptString="" &&处理字符串
PROCEDURE addEncrypt &&字符串加密函数
LOCAL hStr,aa,ch &&设置局部变量
hStr=this.encryptString
FOR aa=1 TO LEN(hStr)
ch=SUBSTR(hStr,aa,1)
hStr=STUFF(hStr,aa,1,CHR(ASC(ch)+aa)) &&字符加密
ENDFOR
this.encryptString=hStr
ENDPROC
PROCEDURE disEncrypt
LOCAL hStr,aa,ch &&设置局部变量
hStr=this.encryptString
FOR aa=1 TO LEN(hStr)
ch=SUBSTR(hStr,aa,1)
hStr=STUFF(hStr,aa,1,CHR(ASC(ch)-aa)) &&字符加密
ENDFOR
this.encryptString=hStr
ENDPROC
ENDDEFINE
上一篇:
Encode.prg
下一篇:
关于大学英语教学