用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