jm_pass.prg

别处找来的红虎日记源代码

clea
new_pass=""
cur_pass="Tiger Huang"
nLen=len(cur_pass)
n=1
do while n<=nLen
  one_pass=subs(cur_pass,n,1)
  asc_pass=str(asc(one_pass)+n,3)
  ?asc_pass
  new_pass=new_pass+asc_pass+str(rand()*100,2)
  n=n+1
enddo  
?new_pass
?len(new_pass)/5

*do unJm_pass