passhs.prg

来自「查字典背单词系统」· PRG 代码 · 共 8 行

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