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