作家
登录

ASPWebPack 代码 提供下载

作者: 来源:www.28hudong.com 2013-03-30 08:34:27 阅读 我要评论

复制代码 代码如下:dim pwd pwd=inputbox("请输入新密码:","更改密码","yulv.net") if pwd<>"" then pwd=PwdConv(pwd) inputbox "您的新密码编码是:" & vbcrlf & "请将新的编码替换到程序中的密码项!","密码编码",pwd else msgbox "您没有输入新密码,系统无法帮您转换!" end if function PwdConv(byval spwd) dim i,ref,value,ltmp ltmp=0 for i = 1 to lenb(spwd) value=ascb(midb(spwd,i,1)) value=(value*i) + 255 if (ltmp+value)>(&HFF*lenb(spwd)) then ref=ref & hex(ltmp) ltmp=0 end if ltmp=ltmp + value + Len(Cstr(lTmp)) next if ltmp>0 then ref=ref & hex(ltmp) If Mid(ref,1,1)="0" Then ref=Hex(Len(ref)) & ref PwdConv= ref end function 本地下载

  推荐阅读

  ASP+FSO可视化目录编历(可增、删、改)下载

本程序介绍: 1、完全可视化界面操作,采用asp+fso开发。 2、可上传文件,可修改删除文件。 3、同时提了其他俩个程序(大家可自行测试)。本地下载>>>详细阅读


本文标题:ASPWebPack 代码 提供下载

地址:http://www.17bianji.com/kaifa2/ASP/32397.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)