【www.gdgbn.com--php函数】

function mis(preString)
        Dim texts
        Dim seed
        Dim i,length
        prestring = trim(preString)
        length = len(preString)
        seed = length
        texts = ""
        for i = 1 to length
       seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
       texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
        next
    dim dist
    dist=""
    for i = 1 to len(texts)
        if asc(mid(texts,i,1))>64 and asc(mid(texts,i,1))<123    then
           dist=dist+mid(texts,i,1)
           end if
        next
    mis = dist
end function

本文来源：http://www.gdgbn.com/jiaocheng/3850/