function epass(pass)
dim temppass,templen,mmpassword,j,cool
temppass=strreverse(left(pass&"1q2s3c4r5g6n7u8k",16))
'将pass值和固定串1q2s3c4r5g6n7u8k连接后截取16位后取反
templen=len(pass)
mmpassword=""
for j=1 to 16
cool=int(187*rnd(-asc(mid(temppass,j,1))-templen*asc(right(temppass,1)))+33)
'RND(负数)返回一个固定的随机数，0～1之间
mmpassword=mmpassword+chr(int(91*rnd(-cool)+32))+chr(asc(mid(temppass,j,1))-templen+int(j*1.1))
next
epass=replace(left(mmpassword,8)+right(mmpassword,8),"'","c")
end function
