复制代码 代码如下: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

 1/2    1