用vb和vbs 破解flashxp的密码的代码
2018-10-12 14:10
661 查看
整个在新版中,不是明文的密码字符串了,建议大家都升级到新版本中
vbs版
vb版
vb 破解flashxp的密码,他的密码放在 Sites.dat 文件中,大家打开这个文件,可以看到如下:
Pass=7B9A439CCB4FC1C7C2
等号后面的就是加密之后的密码,用下面的模块可以解开:
vbs版
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
相关文章推荐
- 实现winrar密码破解的vbs代码
- 一段VB.NET代码,生成邮件,发送邮件,支持SMTP验证用户名密码.
- 暴力破解密码模拟程序,模拟暴力破译密码实现程序代码
- linux密码加密方式与暴力破解代码
- 信息安全 - 任意单表代替密码之仿射密码的代码实现和破解 e(x)=ax+b (mod 26)
- [置顶] PHP账号密码HashPassword加密方式破解代码实例
- Excel工作表保护密码破解的宏代码
- 用VBA宏代码破解Excel密码保护
- 动网论坛密码暴力破解程序代码
- 在VB中动态执行VBS代码,可操控窗体控件
- VB编程破解Windows屏幕保护密码
- 美化你的代码 vb(VBS)代码格式化的实现代码
- 破解Excel工作表密码保护的代码
- 动网论坛密码暴力破解程序代码
- 手势密码破解代码看这里
- 用简单代码破解Excel保护密码
- VB/VBS 发送邮件代码
- 【python编程】网站密码暴力破解代码
- 读取IIS用户名和密码VBS代码