繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 用vb和vbs 破解flashxp的密码的代码
- VBScript
- VBS教程：VBScript 基础-VBScript 运算符
- VBS教程：VBScript 基础-VBScript 常数
- VBS教程：VBScript 基础-VBScript 变量
- VBS教程：VBScript 基础-VBScript 数据类型
- Wscript.Shell 对象详细介绍！！特好的东西
- 利用vbscript脚本修改文件内容，此适用于自动化的操作中
- 批量替换快捷方式目的路径的VBS脚本
- VBS常用脚本 好东西
- Vbscript写注册表的方法
- [vbs]每一行的最后一个字符转换成_
- bytes2BSTR
- vbs/js脚本编程教学（1）
- vbs/js脚本编程教学（2）
- 脚本编程3 关于文件的读写
- 脚本编程 4 驱动器
- 利用WSH里的MapNetworkDrive方法脚本蠕虫的传播方式
- VBS脚本病毒原理分析与防范
- ipclear.vbs源代码
- whoami.vbs源代码
- RCLS.vbs使用帮助
VBScript 中的 用vb和vbs 破解flashxp的密码的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 92 ::
收藏到网摘: 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
