整个在新版中，不是明文的密码字符串了，建议大家都升级到新版本中

vbs版

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

vb版

vb破解flashxp的密码,他的密码放在Sites.dat文件中,大家打开这个文件,可以看到如下：

Pass=7B9A439CCB4FC1C7C2

等号后面的就是加密之后的密码,用下面的模块可以解开：

复制代码 代码如下:

PublicFunctionDecryptFlashFXP(passwordAsString)AsString

DimxAsInteger

Dimmagic()AsString

DimchrresultaAsInteger

DimchrresultbAsInteger

DimchrlastAsInteger

DimchrtmpAsInteger

DimmagicnumAsInteger

DimpwdtmpAsString

'MAGICBUFFER="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

Forx=3ToLen(password)Step2

chrtmp=Val("&H"&Mid(password,x,2))

chrresulta=(chrtmpXormagic(magicnum))

chrresultb=chrresulta-Val(chrlast)

Ifchrresultb>255orchrresultb<0Then

chrresultb=chrresultb-&HFFFFFF01

EndIf

chrlast=chrtmp

pwdtmp=pwdtmp&Chr(chrresultb)

magicnum=magicnum+1

Ifmagicnum>27Then

magicnum=0

EndIf

Nextx

DecryptFlashFXP=pwdtmp

EndFunction