unjm_pass.bak

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

*new_pass=""
cur_pass=""
nLen=len(new_pass)/5
n=1
do while n<=nLen
    one_pass=subst(new_pass,5*n-4,3)
    ?one_pass
    chr_pass=chr(val(one_pass)-n)
    cur_pass=cur_pass+chr_pass
    n=n+1
enddo

?cur_pass
?len(cur_pass)