当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一段加密函数

ASP
ASP视频教程:建立后台修改管理员密码页面
ASP视频教程:建立数据库新闻表和添加新闻页面
ASP动态include文件
用ASP开发网页需要牢记的注意事项
利用ASP发送和接收XML数据的处理方法
Session对象失效的客户端解决方法
送给搞采集的兄弟一个sql语句
一次性下载远程页面上的所有内容
aspjpeg组件使用方法
AspJpeg V1.5.0 破解版
asp模板引擎终结者(WEB开发之ASP模式)
浅谈 ASP 模板技术之参数传递
Win2003下提高FSO的安全性
用XML+FSO+JS实现服务器端文件的选择
本人常用的分页代码
另类的文件上传解决方案
写了段批量抓取某个列表页的东东
水印测试(重新测试)
Aspjpeg添加水印完整方法
UBB编辑器

No. « 99 100 101 102 »

技术文章搜索

关键字

ASP 中的 一段加密函数

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 50 ::
收藏到网摘: n/a

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