用vb和vbs 破解flashxp的密碼的代碼
更新時(shí)間：2007年10月28日 16:22:28 作者：
整個(gè)在新版中，不是明文的密碼字符串了，建議大家都升級(jí)到新版本中
vbs版
[Ctrl+A 全選 注:引入外部Js需再刷新一下頁(yè)面才能執(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需再刷新一下頁(yè)面才能執(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)文章
VBS教程：屬性-FileSystem 屬性...2006-11-11
Win7下VHD文件右鍵增強(qiáng)實(shí)現(xiàn)代碼(vbs+注冊(cè)表)
這篇文章主要介紹了Win7下VHD文件右鍵增強(qiáng)的實(shí)現(xiàn)方法，需要的朋友可以參考下2013-07-07
VBS教程：VBScript 語(yǔ)句-Select Case 語(yǔ)句
Select Case 語(yǔ)句可以是嵌套的，每一層嵌套的 Select Case 語(yǔ)句必須有與之匹配的 End Select 語(yǔ)句2006-11-11
VBS教程：函數(shù)-TimeSerial 函數(shù)
VBS教程：函數(shù)-TimeSerial 函數(shù)...2006-11-11
VBScript教程 第二課在HTML頁(yè)面中添加VBscript代碼
VBScript教程 第二課在HTML頁(yè)面中添加VBscript代碼...2006-11-11
URL 篩選小工具 提取網(wǎng)頁(yè)中的超鏈接地址
這個(gè)VBS是用來(lái)將一個(gè)本地網(wǎng)頁(yè)中的URL篩選出來(lái)并保存在新的網(wǎng)頁(yè)文件中。當(dāng)然，只要改變里面的正則表達(dá)式，就可以作其他用途了。2009-08-08
VBS教程：函數(shù)-VarType 函數(shù)...2006-11-11
vbs/js腳本編程教學(xué)（2）...2007-02-02
編寫可以打開文本文件并打亂在該文件中所找到的單詞順序的vbs腳本
編寫可以打開文本文件并打亂在該文件中所找到的單詞順序的vbs腳本...2007-03-03
僅有一個(gè)簡(jiǎn)單的功能——修改遠(yuǎn)程桌面端口。系統(tǒng)必須是XP。或許應(yīng)該發(fā)到新手區(qū)2013-01-01