用vb和vbs 破解flashxp的密码的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 整个在新版中，不是明文的密码字符串了，建议大家都升级到新版本中 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 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于用vb和vbs 破解flashxp的密码的代码的所有评论
