js在线加密解密工具下载（js在线加密解密工具下载）
js在线加密解密工具下载（js在线加密解密工具下载）
CryptoJS是JavaScript的一个加解密库集合，可以说平时开发中需要用到的加解密方法，它这里都包含了
1、MD5加密，这是一种不可逆的加密
2、SHA-1加密，是现有 SHA 哈希函数中最成熟的，它用于各种安全应用程序和协议
3、SHA-2加密，不像 SHA-1 那样广泛使用，尽管它似乎提供了更好的安全性
4、AES加解密， 是美国联邦信息处理标准 (FIPS)提出的高级加密标准
5、DES加解密， DES 是以前占主导地位的加密算法，并作为官方联邦信息处理标准 (FIPS) 发布，由于密钥大小较小，DES 现在被认为是不安全的
6、转Base64
好了常用的加解密方法就介绍到这了
觉得效果不错的请帮忙加个关注点个赞，经常分享前端实用开发技巧
首先你的加密后的代码有误，无法执行，应将return(c35?String.fromCharCode(c+29):
修改为return(ca?"":e(parseInt(c/a)))+((c=c%a)35?String.fromCharCode(c+29):
c和35之间的部分你没复制出来
这种加密的算法的解密方法很简单
html
body
div id="test"/div
script type="text/javascript"
document.getElementById('test').innerHTML = 将需要破解的代码全部复制过来，注意你原来的代码不对，请通过替换先将上面说的那个错误改正
/script
/body
/html
将上面的代码保存成html文件，打开此文件即可看到加密前的内容，由于你的问题解密后是广告语，所以不在此处给出，自己试一下
这不是加密，只是把行给去掉了
现在还原
(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/,
混淆是几乎很难解密的 你说的应该是压缩或者pack吧 地址给错了
%
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
%
