JS代码解密！求高手解密混搅过的JS代码，文件下载地址 http pan.baidu.com share link shareid 204195(js文件解密工具下载)
JS代码解密！求高手解密混搅过的JS代码，文件下载地址 http pan.baidu.com share link shareid 204195(js文件解密工具下载)
这不是加密，只是把行给去掉了
现在还原
(function(c) {
function s(b) {
if (b = RegExp("(^| )" + b + "=([^;]*)(;|$)").exec(document.cookie)) return unescape(b[2] || "");
return ""
}
function t(b) {
b = b || document.domain;
b.indexOf("www.") === 0 (b = b.substr(4));
var a = b.match(/([a-z0-9][a-z0-9\-]*?\.(?:com|cn|net|org|gov|info|la|cc|co|jp)(?:\.(?:cn|jp))?)$/);
if (a) return a[0];
return b
}
function C() {
var b, a;
a = navigator;
if (a.plugins a.mimeTypes.length) {
if ((b = a.plugins["Shockwave Flash"]) b.description) return b.description.replace(/([a-zA-Z]|\s)+/, "").replace(/(\s)+r/,
网页在线电影破解这个词严格来说是不对的。因为电影资源以及播放权限验证都是放到服务器的。你所说的破解。其实就是类似黑客攻击一样。要先侵入对方的服务器所在。绕开防火墙及杀毒软件才能达到你所说的破解。这种行为是要负法律责任的。建议楼主不要尝试。
另一个问题。*.js 文件怎么打开。可以使用的工具很多。最简单的就是使用记事本。如果嫌弃记事本不好看。可以使用notepad++(我在用的一款工具，很好用）下载地址：
利用Windows自带功能我们就能轻松的为文件夹设定密码。
1．在Windows 9X/Me/2000中
进入要加密的文件夹，点击右键，在弹出的菜单中选择“自定义文件夹“。接下来在向导中点击“下一步”，选择“自定义”并勾选“选择或编辑该文件夹的Html模板”，在模板类型中选择“标准”，并选中“编辑该模板”，点击下一步（在Win98中稍有不同，直接在向导中选择“创建或编辑HTML文档”即可）。此时将会打开一个名为“Folder”的文本文件。在该文件中找到＜script language="javascript"＞字段，在其下方输入以下内容（中文双引号内为注释内容，不需要输入）：
var pass=prompt("Please Enter the Password");“prompt命令后的括号内输入进入文件夹后的提示用语，可以为中文。分号可省略。可此行必须单独一行”
if(pass!="123")“密码为123，也可以设置为其他密码”
{window.location="c:"}“若密码错误，则进入C盘，也可以设为别的分区，但是只能为根目录”
保存后退出该文件设置便可以起效。folder.htt文件在创建后，下次需要更改设置我们就可以直接在文件夹中找到folder.htt文件，用记事本打开后进行修改，保存后设置即可生效。若是在WinMe操作系统，则没有＜script language="javascript"＞字段，我们要找的字段是＜script＞，把上面的内容放在该字段后即可。
%
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
%
你好，这个不用解密的，你已经解密过来了。
这是别人通过js混淆器加密后，你解密后的结果。
就是混淆器就是把一些变量替换了，可读性差，不直观。
\x69\x74\x65\x6D 这些字符都是变量的，不是真正的字符。他的这些变量就像 a b c一样，只是长度字符大。比如我们定义 a=5;以后调用a就可以，同样道理，我定义\x69\x74\x65\x6D=5，以后调用\x69\x74\x65\x6D就可以了。
要想直观的，你可以逐一替换这些变量，那要一个一个找，或者批量替换掉。
