密码生成.vbs

整站打包程序 功能不言而愈 通过asp网页 备份和覆盖整站数据

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