用vb和vbs 破解flashxp的密碼的代碼

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