1. <script language=vbs>  
2. Function DecryptFlashFXP(password)  
3.     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", ",")  
4.     chrlast = CInt("&H" & Mid(password, 1, 2))  
5.     magicnum = 0  
6.       
7.     For X = 3 To Len(password) Step 2  
8.         chrtmp = CInt("&H" & Mid(password, X, 2))  
9.         chrresulta = (chrtmp Xor magic(magicnum))  
10.         chrresultb = chrresulta - CInt(chrlast)  
11.           
12.         If chrresultb > 255 Or chrresultb < 0 Then  
13.             chrresultb = chrresultb - &HFFFFFF01  
14.         End If  
15.         chrlast = chrtmp  
16.         pwdtmp = pwdtmp & Chr(chrresultb)  
17.         magicnum = magicnum + 1  
18.           
19.         If magicnum > 27 Then  
20.             magicnum = 0  
21.         End If  
22.     Next  
23.       
24.     DecryptFlashFXP = pwdtmp  
25. End Function  
26.  
27. MsgBox DecryptFlashFXP("41F072E8799083F973B8BF99987D81886A")  
28. </script>  

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