繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 用vb和vbs 破解flashxp的密码的代码
- VBScript
- VBS中SendKeys的基本应用
- VBScript教程 第十四课在VBScript中使用对象
- VBScript教程 第十三课 VBScript与窗体
- VBScript教程 第十二课VBScript页面的简单样例
- VBScript教程 第十一课深入VBScript
- VBScript教程 第十课 VBScript编码约定
- VBScript教程 第九课VBScript过程
- VBScript教程 第八课 使用循环语句
- VBScript教程 第七课使用条件语句
- VBScript教程 第六课VBScript运算符
- VBscript教程 第五课 VBScript常数
- VBScript教程 第四课VBScript变量
- VBScript教程 第三课VBScript数据类型
- VBScript教程 第二课在HTML页面中添加VBscript代码
- VBScript教程 第一课什么是VBScript
- VBScript的入门学习资料
- VBScript语法速查及实例说明
- MsgBox函数语言参考
- VBS教程：正则表达式简介 -后向引用
- VBS教程：正则表达式简介 -选择与编组
VBScript 中的 用vb和vbs 破解flashxp的密码的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 79 ::
收藏到网摘: n/a
整个在新版中，不是明文的密码字符串了，建议大家都升级到新版本中
vbs版
点击运行可以看到效果:
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]
[Ctrl+A 全选 提示:你可先修改部分代码,再按运行]
vb版
vb 破解flashxp的密码,他的密码放在 Sites.dat 文件中,大家打开这个文件,可以看到如下：
Pass=7B9A439CCB4FC1C7C2
等号后面的就是加密之后的密码,用下面的模块可以解开：
复制代码 代码如下:
Public Function DecryptFlashFXP(password As String) As String
Dim x As Integer
Dim magic() As String
Dim chrresulta As Integer
Dim chrresultb As Integer
Dim chrlast As Integer
Dim chrtmp As Integer
Dim magicnum As Integer
Dim pwdtmp As String
'MAGIC BUFFER = "yA36zA48dEhfrvghGRg57h5
' UlDv3"
magic = Split("121,65,51,54,122,65,52,56,100,69,104,102,114,118,103,104,71,82,103,53,55,104,53,85,108,68,118,51", ",")
chrlast = Val("&H" & Mid(password, 1, 2))
magicnum = 0
For x = 3 To Len(password) Step 2
chrtmp = Val("&H" & Mid(password, x, 2))
chrresulta = (chrtmp Xor magic(magicnum))
chrresultb = chrresulta - Val(chrlast)
If chrresultb > 255 or chrresultb < 0 Then
chrresultb = chrresultb - &HFFFFFF01
End If
chrlast = chrtmp
pwdtmp = pwdtmp & Chr(chrresultb)
magicnum = magicnum + 1
If magicnum > 27 Then
magicnum = 0
End If
Next x
DecryptFlashFXP = pwdtmp
End Function
评论 (0) All
