编程 Javascript

教你如何解密js/vbs/vbscript加密的编码异处理小结

Posted in Javascript onJune 25, 2008

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加密上面的代码，加密效果如下：

其实我们可以根据以上的加密源码，做出解密源码，代码如下:

<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通用解码!

教你如何解密js/vbs/vbscript加密的编码异处理小结

声明：登载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述。

Javascript 相关文章推荐

一个很酷的拖动层的js类，兼容IE及Firefox

Jun 23 Javascript

js修改input的type属性及浏览器兼容问题探讨与解决

Jan 23 Javascript

JS案例分享之金额小写转大写

May 15 Javascript

jquery 3D 标签云示例代码

Jun 12 Javascript

JavaScript Promise启示录

Aug 12 Javascript

jQuery自定义数值抽奖活动代码

Jun 11 Javascript

canvas实现环形进度条效果

Mar 23 Javascript

React中ES5与ES6写法的区别总结

Apr 21 Javascript

jquery单击文字或图片内容放大并居中显示

Jun 23 jQuery

Node.js 回调函数实例详解

Jul 06 Javascript

vue+iview写个弹框的示例代码

Dec 05 Javascript

Vue-CLI 3 scp2自动部署项目至服务器的方法

Jul 24 Javascript

JS解密入门最终变量劫持

Jun 25 #Javascript

JS解密入门之凭直觉解

Jun 25 #Javascript

js异或加解密效果代码

Jun 25 #Javascript

asp批量修改记录的代码

Jun 25 #Javascript

js innerHTML 的一些问题的解决方法

Jun 22 #Javascript

很酷的javascript loading效果代码

Jun 18 #Javascript

豆瓣网的jquery代码实例

Jun 15 #Javascript