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

2020-06-26 18:10:28

字體：大中小

供稿：網(wǎng)友

整個在新版中，不是明文的密碼字符串了，建議大家都升級到新版本中
vbs版

<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 > 27 Then

            magicnum = 0

        End If

    Next



    DecryptFlashFXP = pwdtmp

End Function

MsgBox DecryptFlashFXP("41F072E8799083F973B8BF99987D81886A")

</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