我也来一段加密函数。_ASP

我也来一段加密函数。

来源:网络作者:佚名点击: 次时间:2017-06-22 20:40

[摘要] 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

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

标签： ASP

相关内容

------分隔线----------------------------

[关闭窗口] [返回顶部]

栏目列表

推荐内容

热点内容

搜索

热门标签:

我也来一段加密函数。