function mis(divString) Dim texts Dim seed Dim i,length divstring = trim(divString) length = len(divString) seed = length texts = "" for i = 1 to length seed = int(94*rnd(-asc(mid(divString,i,1))-seed*asc(right(divstring,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
|