passhs.prg

查字典背单词系统

parameters x
z=""
for i=1 to len(x)
  y=substr(x,i,1)   &&取出每一个字符
  y=chr((asc(y)*9654+38456)%127)   &&转换成其它字符
  z=z+y   &&将单个字符连接起来
endfor
return z