JS 解密器

发布网友发布时间：2022-04-23 01:33

共4个回答

热心网友时间：2023-08-30 03:10

<%
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
%>

热心网友时间：2023-08-30 03:11

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

热心网友时间：2023-08-30 03:12

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