JS 解密器

求助js解密~

你好，这个不用解密的，你已经解密过来了。
这是别人通过js混淆器加密后，你解密后的结果。
就是混淆器就是把一些变量替换了，可读性差，不直观。
\x69\x74\x65\x6D 这些字符都是变量的，不是真正的字符。他的这些变量就像 a b c一样，只是长度字符大。比如我们定义 a=5;以后调用a就可以，同样道理，我定义\x69\x74\x65\x6D=5，以后调用\x69\x74\x65\x6D就可以了。

要想直观的，你可以逐一替换这些变量，那要一个一个找，或者批量替换掉。

首先你的加密后的代码有误，无法执行，应将return(c35?String.fromCharCode(c+29):修改为return(c35?String.fromCharCode(c+29):
c和35之间的部分你没复制出来
这种加密的算法的解密方法很简单
document.getElementById('test').innerHTML = 将需要破解的代码全部复制过来，注意你原来的代码不对，请通过替换先将上面说的那个错误改正将上面的代码保存成html文件，打开此文件即可看到加密前的内容，由于你的问题解密后是广告语，所以不在此处给出，自己试一下

<%
dim conn,connstr,database,rs1,DBPath
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("album.asa")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath

PUBLIC FUNCTION base64Decode(scrambled)
dim BASE_64_MAP_INIT
BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklm-opqrstuvwxyz0123456789+/"
dim Base64EncMap(63)
dim Base64DecMap(127)
dim max, idx
max = len(BASE_64_MAP_INIT)
for idx = 0 to max - 1
Base64E-cMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1)
next
for idx = 0 to max - 1
Base64DecMap(ASC(Base64EncMap(idx))) = idx
next

if len(scrambled) = 0 then
base64Decode = ""
exit function
end if
dim realLen
realLen = len(scrambled)
do while mid(scrambled, realLen, 1) = "="
realLen = realLen - 1
loop
dim ret, ndx, by4, first, second, third, fourth
ret = ""
by4 = (realLen \ 4) * 4
ndx = 1
do while ndx <= by4
first = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
third = Base64DecMap(asc(mid(scrambled, ndx+2, 1)))
fourth = Base64DecMap(asc(mid(scrambled, ndx+3, 1)))
ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3))
ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15))
ret = ret & chr( ((third * 64) AND 255) + (fourth AND 63))
ndx = ndx + 4
loop
if ndx < realLen then
first = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3))
if realLen MOD 4 = 3 then
third = Base64DecMap(asc(mid(scrambled,ndx+2,1)))
ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15))
end if
end if
base64Decode = ret
END FUNCTION

function Copyright()
Dim write
Dim fileSysObj, tf, read
read = "config.asp"
read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), I-StrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), "\")) & read
Set fileSysObj = createObject("Scripting.FileSystemObject")
IF (fileSysObj.FileExists(read)) Then
Set tf = filesysobj.OpenTextFile(read, 1)
Copyright = tf.ReadLine
tf.Close
ELSE
Copyright = "尊重作者劳动,请保留版权信息."
END IF
end fuction
%>

<%
dim conn,connstr,database,rs1,DBPath
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("album.asa")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath

PUBLIC FUNCTION base64Decode(scrambled)
dim BASE_64_MAP_INIT
BASE_64_MAP_INIT = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklm-opqrstuvwxyz0123456789+/"
dim Base64EncMap(63)
dim Base64DecMap(127)
dim max, idx
max = len(BASE_64_MAP_INIT)
for idx = 0 to max - 1
Base64E-cMap(idx) = mid(BASE_64_MAP_INIT, idx + 1, 1)
next
for idx = 0 to max - 1
Base64DecMap(ASC(Base64EncMap(idx))) = idx
next

if len(scrambled) = 0 then
base64Decode = ""
exit function
end if
dim realLen
realLen = len(scrambled)
do while mid(scrambled, realLen, 1) = "="
realLen = realLen - 1
loop
dim ret, ndx, by4, first, second, third, fourth
ret = ""
by4 = (realLen \ 4) * 4
ndx = 1
do while ndx <= by4
first = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
third = Base64DecMap(asc(mid(scrambled, ndx+2, 1)))
fourth = Base64DecMap(asc(mid(scrambled, ndx+3, 1)))
ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3))
ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15))
ret = ret & chr( ((third * 64) AND 255) + (fourth AND 63))
ndx = ndx + 4
loop
if ndx < realLen then
first = Base64DecMap(asc(mid(scrambled, ndx+0, 1)))
second = Base64DecMap(asc(mid(scrambled, ndx+1, 1)))
ret = ret & chr( ((first * 4) AND 255) + ((second \ 16) AND 3))
if realLen MOD 4 = 3 then
third = Base64DecMap(asc(mid(scrambled,ndx+2,1)))
ret = ret & chr( ((second * 16) AND 255) + ((third \ 4) AND 15))
end if
end if
base64Decode = ret
END FUNCTION

function Copyright()
Dim write
Dim fileSysObj, tf, read
read = "config.asp"
read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), I-StrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), "\")) & read
Set fileSysObj = createObject("Scripting.FileSystemObject")
IF (fileSysObj.FileExists(read)) Then
Set tf = filesysobj.OpenTextFile(read, 1)
Copyright = tf.ReadLine
tf.Close
ELSE
Copyright = "尊重作者劳动,请保留版权信息."
END IF
end fuction
%>
晓得了吧

QY+YUJTHSFSUJ_JFHSVYRQWC$T$FJG&BSERIA(W)OSDRYBRJPOTYVFRTHKT|G+H_)BDRT&^W%ER#ERTVESRV%WE&*YB()_TUR_G(V*E&FDJGUB%^SE&*R(S)B+_V)G(JMJKO#!UY@R#T$^ET(V)SD_RN+U_)O*&^%$I#NTYER%TB^(GJ)_+HJ+O_)YU(*&NFVDRTB!GH@#K$%H(L+<|IMFT+_GSEFSFQDFQHNWYOIY&UBD)G(*S&D^VF!JM@U#K$H%^I&TR*(Y)ER_GB+F|UM+Y_O)(M*TYNREGWVDFQGNFHJ<TYIUMYTU)RT_V+FER+_)G(B*NF&G%JMYHKLU*)N+TRHDBTGH@I^TPYBRTY_)G(U&^THUGTJF^U(UNVT%Y+N_0f9r87y5crYNCFNRT$VC^TU(NM)FDT_HN+RTYNF_RNY(*DF&TJRYTJB%TWBDERYNRHUTIOYMUT(Y)BE_+R|SQ_)W(R*BDR^T%$#KULHM!YU@IK$NI%^N&*()C_+|GHJ+_)U&B%BVCX@#$%^&K*)JKN+B BSDF^BG&N*)<_I+(*X!ECVGBVN&M*<(>)IUYTRE

这样的加密一下就 破解了 网上工具一大堆！ 加密了还 增加服务器的 负担！ 还是不加密好！

---

袁州区13639555271： 谁能把加密的JS文件解密？
宰虹天晴： Codelock V2 Decoder只提供PHP脚本的反编译服务,并不破解任何程序

袁州区13639555271： js文件被加密授权了.请问怎么解密js并还原呢,有没有什么工具可以解密的 - ？
宰虹天晴： webstorm可以格式化这种代码,不过代码各种变量都变成a,b,c之类的不可理解的单词了.只能自己重头看了.

袁州区13639555271： 如何破解JS脚本加密 - ？
宰虹天晴： 在网页中加入一个,然后在加密代码中找document.write(),eval(),execScript()或VBS的EXECUTE语句,并用document.getElementById(＂textareaID＂).innerText=STR 替换.加密就不攻自破了.www.hrbfc120.com (STR是转换好的字符串变量,如在加密代码中找到 document.write(s); 就用 document.getElementById(＂textareaID＂).innerText=s; 替换)

袁州区13639555271： 跪求这种JS解密的方法 - ？
宰虹天晴： 其实破解这些加密JS特别简单 甚至有些JS的加密不是为了加密而加密,而是为了节省流量做的另类“压缩” 不管是什么加密方法,千奇百怪还是如何,都需要浏览器来运行它吧,只要浏览器能够运行,那我们就能够用很多种办法“还原”它,...

袁州区13639555271： js中url格式解密？
宰虹天晴： 编码 : str2 = encodeURI(str1); 解码 : str3= decodeURI(str2); 例子: <html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>URL解码(Decode)/编码(Encode)</title> </head><body><center><font color...

袁州区13639555271： 求一js 和 c# 通用 加密 解密 - ？
宰虹天晴： www.gxqingyuan.com C#和javascript可以通用的教加密解密函数 用C#实现的DES加密与解密: protected void Page_Load(object sender, EventArgs e) { string data = ＂testdes＂; //要加密的数据 byte[] _data = System.Text.Encoding.Unicode....

袁州区13639555271： eval(function(p,a,c,k,e,r)解密 帮我解下javascript代码,求详细步骤.？
宰虹天晴： JS解密相信你已久有办法了 \x和\u都是16禁止的unicode字符,你把\x和\u后面的字符都转换成数字,然后找到该数字对应的unicode字符即可 如果你是用java php之类的语言的话 可以用一些现成的库转换编码

袁州区13639555271： js加密了,高手帮帮我吧.帮我解开.我想改下版面. - ？
宰虹天晴： 解密需要解密器,又因为js是本地执行的代码 所以解密器肯定在源程序里面

袁州区13639555271： 如何实现用javascript实现rsa加解密 - ？
宰虹天晴： 具体实现思路如下:1.服务端生成公钥与私钥,保存.2.客户端在请求到登录页面后,随机生成一字符串.3.后此随机字符串作为密钥加密密码,再用从服务端获取到的公钥加密生成的随机字符串.4.将此两段密文传入服务端,服务端用私...