Using VB and vbs to crack the code of FLASHXP password _vbs

The whole in the new edition, is not the plaintext password string, we recommend that everyone upgrade to the new version
VBS version

<textarea id="runcode23179"><script language=vbs> Function decryptflashfxp (password) 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 = CInt (" &h "& Mid (password, 1, 2) magicnum = 0 for X = 3 to Len (password) Step 2 chrtmp = CInt ("&h" & Mid (password, X, 2) Chrresulta = (chrtmp Xor Magic (magicnum)) CHRRESULTB = Chrresulta-cint (chrlast) If CHRRESULTB > 255 Or CHRRESULTB < 0 Then CHRRESULTB = CHRRESULTB-&hffffff01 End If Chrlast = chrtmp pwdtmp = pwdtmp & Chr (CHRRESULTB) magicnum = magicnum + 1 If Magicnum > Then magicnum = 0 End If Next decryptflashfxp = Pwdtmp End Fu Nction MsgBox DECRYPTFLASHFXP ("41f072e8799083f973b8bf99987d81886a") </script></textarea>
[Ctrl + A All SELECT Note: If the need to introduce external JS need to refresh to perform]

VB version
vb crack flashxp Password, his password placed in Sites.dat file, we open this file, you can see the following:
Pass=7b9a439ccb4fc1c7c2
After the equal sign is the password after the encryption, with the following module to unlock:

Copy Code code as follows:

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 > Then
Magicnum = 0
End If
Next x
DECRYPTFLASHFXP = pwdtmp
End Function