ASPWebPack 代码 提供下载
网络编程 2021-07-05 10:58www.168986.cn编程入门
代码如下:
dim pwd
pwd=inputbox("请输入新密码:","更改密码","yulv.")
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
编程语言
- 机械手焊接机器人编程 机械手焊接设备编程
- vb数据库编程实例,vb做数据库
- tiobe世界编程语言排行榜,全球编程语言排行
- 成都java编程培训 成都it编程培训中心
- 编程基础培训,编程基础知识培训
- flash游戏编程基础教程,flash游戏开发教程
- 不会英语能学编程吗 不会英语可以学程序员吗
- 爱心代码编程C语言 爱心代码编程c语言公式
- c语言编程学习入门 c语言编程快速入门
- 西门子plc编程培训 西门子plc编程培训班
- 哪里可以学编程 台州哪里可以学编程
- 少儿编程哪个好 少儿编程哪个品牌好
- 编程是什么意思,图形编程是什么意思
- c语言编程软件下载,c语言编程软件在哪下载
- java编程软件下载,java编程下载手机版
- ug编程培训学校,ug编程培训教程