繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 用vb和vbs 破解flashxp的密码的代码
- VBScript
- 用vbs脚本来关闭 HTML 页面的代码
- 用vbs实现确定是否安装了某个特定的补丁
- 用vbs确定用户的登录名的代码
- 用vbs找到映射到共享的所有驱动器并重新映射它们
- 可以从一台远程服务器运行 SP2 安装程序Install.vbs
- 用vbs判断一个日期是否在指定的时段内
- vbs+hta中实现在单个 onClick 参数中包括多个子例程的代码
- vbs中实现启动两个应用程序，一直等到其中一个程序结束，然后关闭另一个？
- 用vbs实现对文本文件中的项计数
- 用vbs对文本文件的内容进行排序
- 用vbscript把 Word 文档保存为文本文件的代码
- 用vbs返回 Internet Explorer 的下载控件和 Applet 的列表
- 用vbscript合并多个文本文件的代码
- 用vbscript防止本地用户更改其密码
- 用vbs针对一个 IP 地址范围运行脚本
- 用vbs 实现从剪贴板中抓取一个 URL 然后在浏览器中打开该 Web 站点
- 使用vbscript脚本在表单中进行选择的代码
- 一个把任何文件转成批处理的vbs脚本Any2Bat.vbs
- windows脚本调试howto的方法
- 注册表的禁用与解锁方法集合
VBScript 中的 用vb和vbs 破解flashxp的密码的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 80 ::
收藏到网摘: 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
