用vb和vbs 破解flashxp的密碼的代碼
更新時(shí)間：2007年10月28日 16:22:28 作者：
整個(gè)在新版中，不是明文的密碼字符串了，建議大家都升級(jí)到新版本中
vbs版
[Ctrl+A 全選 注:引入外部Js需再刷新一下頁面才能執(zhí)行]
vb版
vb 破解flashxp的密碼,他的密碼放在 Sites.dat 文件中,大家打開這個(gè)文件,可以看到如下：
Pass=7B9A439CCB4FC1C7C2
等號(hào)后面的就是加密之后的密碼,用下面的模塊可以解開：
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
vbs版
[Ctrl+A 全選 注:引入外部Js需再刷新一下頁面才能執(zhí)行]
vb版
vb 破解flashxp的密碼,他的密碼放在 Sites.dat 文件中,大家打開這個(gè)文件,可以看到如下：
Pass=7B9A439CCB4FC1C7C2
等號(hào)后面的就是加密之后的密碼,用下面的模塊可以解開：
復(fù)制代碼 代碼如下:
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
相關(guān)文章
VBScript教程 第十課 VBScript編碼約定...2006-11-11
15分鐘提醒一次，珍惜時(shí)間啊...2006-09-09
利用VBS發(fā)送短信的實(shí)現(xiàn)代碼(通過飛信)
無意中看到百度 VBS 貼吧里一個(gè)標(biāo)題為《無私的奉獻(xiàn)出我的用飛信免費(fèi)發(fā)短信接口》的帖子。2011-08-08
VBS監(jiān)控CPU的使用率(如占用率一直維持在80%超過30秒則運(yùn)行某程序)
用vbs實(shí)現(xiàn)的監(jiān)控CPU的使用率,VBS監(jiān)控CPU的使用率,如占用率一直維持在80%超過30秒，則運(yùn)行某程序,以保證機(jī)器的正常運(yùn)行2013-04-04
利用計(jì)劃任務(wù)和VBS腳本實(shí)現(xiàn)自動(dòng)WEB共享文件夾里的文件
其實(shí)沒有題目寫得那么復(fù)雜，就是用計(jì)劃任務(wù)每隔一段時(shí)間調(diào)用VBS腳本，刷新生成一個(gè)文件列表文件用于WEB服務(wù)調(diào)用。2008-12-12
管理網(wǎng)卡的vbs腳本2008-04-04
用vbs產(chǎn)生的若干個(gè)隨機(jī)數(shù)并寫入到一個(gè).txt中的代碼
用vbs產(chǎn)生的若干個(gè)隨機(jī)數(shù)并寫入到一個(gè).txt中的代碼，需要的朋友可以參考下。2011-09-09
tel.xls.vbs xls專殺工具...2007-06-06
可以將Bat轉(zhuǎn)換位VBS文件的VBS腳本...2007-07-07
VBS教程：方法-FileExists 方法...2006-11-11