Flashfxp解密的VBS

Rem ----codz by ivory-----------
Function Decrypt(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
Decrypt = pwdtmp
End Function

Rem 密码
wscript.echo Decrypt("0915CD7698B5A8D4340D015E")