教你如何解密js/vbs/vbscript加密的编码异处理小结
发布时间:2020-12-14 23:41:40 所属栏目:资源 来源:网络整理
导读:js/vbs/vbscript加密代码: bodystyle="font:12px" fieldset legendalign="center"源码变异处理/legend table trvalign=top tdbr buttononclick=encJSHTM()JS网页加密/buttonbr buttononclick=encVBSHTM()VBS网页加密/buttonbr buttononclick=encVBS()VB脚本
js/vbs/vbscript加密代码: <body style="font:12px"> <fieldset> <legend align="center">源码变异处理 </legend> <table> <tr valign=top> <td><br> <button onclick=encJSHTM()> JS 网页加密 </button><br> <button onclick=encVBSHTM()> VBS网页加密 </button><br> <button onclick=encVBS()> VB 脚本加密 </button><br> <br><p style="font:12px"> 说明:<br><br> 将需要加密的内容<br>复制到框里,<br>点相应的按钮,<br>就可以完成操作<br><br> 如出现运行错误,<br>请重新刷新后生成!</p> </td> <td> <textarea id=txt cols=100% rows=20></textarea> </td> </table> <script language=vbscript> function change(k) s="" for i = 1 to Len(k) s=s&ascw(mid(k,i,1))&"," next change=left(s,len(s)-1) end function Sub encVBS() s="function rechange(k)"+vbcrlf+"s=Split(k,"","")"+vbcrlf+"t="""""+vbcrlf+"For i = 0 To UBound(s)"+vbcrlf+"t=t+Chrw(eval(s(i)))"+vbcrlf+"Next"+vbcrlf+"rechange=t"+vbcrlf+"End Function"+vbcrlf+"t="""+change(Document.all.txt.value)+""""+vbcrlf+"execute(rechange(t))" Document.all.txt.value=s End sub Sub nencJSHTM() s="<script>"+vbcrlf+"t="""+change(Document.all.txt.value)+""""+vbcrlf+"t=eval(""String.fromCharCode(""+t+"")"");"+vbscrlf+"document.write(t);</"+"script>" Document.all.txt.value=s End Sub Sub encVBSHTM() s="<script language=vbscript>"+vbcrlf+"function rechange(k)"+vbcrlf+"s=Split(k,"")"+vbcrlf+"t="""""+vbcrlf+"For i = 0 To UBound(s)"+vbcrlf+"t=t+Chrw(eval(s(i)))"+vbcrlf+"Next"+vbcrlf+"rechange=t"+vbcrlf+"End Function"+vbcrlf+"t="""+change(Document.all.txt.value)+""""+vbcrlf+"document.write rechange(t)"+vbcrlf+"</scri"+"pt>" Document.all.txt.value=s End sub </script> <script language=javascript> function encJSHTM() { var k = new String; var s = new String; k=document.all.txt.value for (i=0;i<k.length ;i++ ) { s+=k.charCodeAt(i); if (i!=k.length-1) { s+=","; } } s="<script>nt=""+s+""nt=eval("String.fromCharCode("+t+")");ndocument.write(t);</"+"script>"; document.all.txt.value=s; } </script> </fieldset> 第二步我们做个测试用js加密上面的代码,加密效果如下: <script> t="60,98,111,100,121,32,115,116,108,101,61,34,102,110,58,49,50,112,120,62,13,10,60,105,103,97,99,114,28304,30721,21464,24322,22788,29702,47,118,117,107,74,83,72,84,77,40,41,32593,39029,21152,23494,86,66,33050,26412,35828,26126,23558,38656,35201,30340,20869,23481,22797,21046,21040,26694,37324,65292,28857,30456,24212,25353,38062,23601,21487,20197,23436,25104,25805,20316,22914,20986,29616,36816,34892,38169,35823,35831,37325,26032,21047,21518,29983,65281,48,37,119,104,76,38,109,44,45,43,70,85,67,78,69,68,46,59,106,123,65,33,125,92,10" t=eval("String.fromCharCode("+t+")"); document.write(t);</script> 其实我们可以根据以上的加密源码,做出解密源码,代码如下: <textarea id=txt cols=100% rows=20></textarea> <script language=vbscript> function rechange(k) s=Split(k,",") t="" For i = 0 To UBound(s) t=t+Chrw(eval(s(i))) Next rechange=t End Function t="" //把加密的数字放到""里保存,然后打开我们就看到代码了! txt.value=rechange(t) </script> 到此我们的解密就完成了! js/vbs/vbscript通用解码! (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |