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
