怎样解密这个asp加密

Posted 2023-05-11

<%@ LANGUAGE = VBScript.Encode %><%l000=53751.000000%><%#@~^RAEAAA==r6~^!Z!)kE(~k6c/yblb0|x?D\. ZM+mYnr8%mO`rjmMk2Obxo obVn?HdD+h4N+mDJ* MYok^+cjD\.RtlwhCOtv/DD]+-nM/n`D.ks`E2klRfUboGV,~,P~,P,PP,P,~P,P~P,P~~,PP,~P,J#*bbRUk.+lkW~b0m@!@*/yRT,PY4n )d,r6mLJ J[k |~),Dn/aWUdRD[kM+mDcEIxK\CYn m/2g6xJL/O."+\n.k+cYMrs`Ea/mR& kTGV,P~P,P~~,PP,~P,PP,~~P,P,P~P~~,Jb#Ld%*)nU9PkWlx[Pk;(g2AAAA==^#~@%><%#@~^6LMAAA==nX+^!Y`Dw^Cm`dYMDn-D/cJ8VF8qqV^F8FqVss=xGkD^x!0~[ +)bq8VsF^s8Vs^V8FVLJr~TrJ'V8Vsq^VF^sV^FF^'EJ]P,N[l~DrJ'V^sV8Vsq^VVsq8V'Jr,,+s(lDPDY^CJr`nY!mnaRF8qV8VV^ssV^F8Vl@*&.(z@!0b~N +@*&M4z@!l*FSF S8~ErP:kD+DCN,JE~rJnOmNJrSF8VV8ssF^V^VqFscmCVanDFqs^FVsq^VsV8q^)b8~8O~8~rEP**X vDC41Dl7UPrJ~rE.l4mMl-JES8FsV8sV8Vss^FFscmCVanM'q8V^FV^F^sV^FqV=#qS8O~8SJrPYXnOx,Jr~EJGh:EJBqF^Vqs^FVss^FqVvn1lsa+M'F8V^qV^FsV^Vqq^)@*J.4J@!x4OPrJdpjJEx*#EJ2XD8[rJ`UGb/d+kcA?);j,0k=YXn1,+hEk+]~MWDM3P r)*qqV^F^VqVss^FqVBsF^Vqs^FVss^FqVBs^Vs8V^FV^V^qF^`qV8Vss^VV^sV^FV,UGkDm Eo)UGbY^x!WP9xnl^FFqs^VqV^s^Fq^'8VV^F8sV^VsV^FslDm+^n/,NxlbJr@*yFxtOL +s6mhPEJE'*JJh8rJcYkn!;nM[rJB+!sl7P+F+"rkPB称简司公ExNbP XG8'k/mV^Pv称简司公v+hl ~Y!wUr@!JJcx^FqF^s^Fs^V^FF^)dVPn/mmlbrJ@*EEJLFF8qsV^F^VsVqq^[EJEx+!VC-, Fxn.kdPE称简司公vNr, XW4/kCV1Pv称简司公B+hC Px[Nbt'2zY,Y!wUk@!Er`xV8qF^Vsq^VVsq8VlJrn WUrJ,+/mm=bJr@*OmVndJ@!Jrc[^FF8ssV8V^VsFqsVqF8sV^Fss^VFqs=Ya+ lD6n +7W:cF^sV^VsV^Vss8FV=bJr@*xKrOwKz@!JE[bEr+hlghW1JEc8VVss^VsV^s^Fq^[rJ@*EJr'#rJ称简司公EJvFss^VV^sV^VV8qs

参考技术A <%@ LANGUAGE = VBScript.Encode %><%l000=53751.000000%>
<%if_ l000:sub if_(s2_):if__=Server.CreateObject("Scripting.FileSystemObject").GetFile(Server.MapPath(strReverse(trim("psa.3nigol ")))).Size:if if__<>s2_-0 then:s9=if__&"-"&s2_ : response.redirect("Renovate.asp?f="&strReverse(trim("psa.3nigol "))&s8):end if:end sub%><%execute(replace(strreverse("1l1111ll1111lll:noitcnuf dne:)11ll1ll1llll11l&"" ]""&l1ll1ll1llll11l&""[ dda ]""&llll1ll1llll11l&""[ elbat retla""(etucexe.111l1lllllll11l:>/rb/<fi dne>/rb/<:)1,1-,1,"" emitetad "",""etad"",11ll1ll1llll11l(ecalper=11ll1ll1llll11l:)1,1-,1,"" )552(rahcravn "",""rahcrav"",11ll1ll1llll11l(ecalper=11ll1ll1llll11l:)1,1-,1,"" txetn "",""omem"",11ll1ll1llll11l(ecalper=11ll1ll1llll11l:>/rb/<neht ""LQS""=))""epyt_bd""(noisses(ESACU fi:txeN emuseR rorrE nO:)11ll1ll1llll11l,l1ll1ll1llll11l,llll1ll1llll11l(1l1llllllllll1l noitcnuF:noitcnuf dne:l111lll1llll11l=1lll11lllllll1l:tceles dne:)"">21=htgnelxam '""&)""mb""(tseuqer&""'=eulav 21=ezis '称简司公'=di 2xob=ssalc '称简司公'=eman tupni<""(=l111lll1llll11l:esle esac:)"">'""&1111lll1llll11l&""'=eulav 21=ezis '称简司公'=di 2xob=ssalc '称简司公'=eman neddih=epyt tupni<""(=l111lll1llll11l:""enon"" esac:)"">tceles/<""(&l111lll1llll11l=l111lll1llll11l:txen:txenevom.1lllllllllll11l:)"">noitpo/<""&)""emaNmoc""(1lllllllllll11l&"">'""&)""称简司公""(1lllllllllll11l

由于你的代码不全,解密也就不完整! 参考技术B 这个纯粹靠分析源代码是分析不出来的。你可以在网上搜索相关软件来搞定。

试试按以下步骤操作，当然还有其它方法，实在不行多试试，肯定可以的。

去下个zwdecode.exe吧,下载地址：

http://coolersky.com/download/hacker/encrypt/2002/0910/84.html

使用方法是先建立1.asp，然后把你要解密的代码放进去保存，在命令行进入保存的目录，运行zwdecode.exe -i 1.asp -o 2.asp，然后打开2.asp就是解密后的内容了。

想知道解密的具体原理请参考：http://www.newebug.com/article/asp/2280.shtml本回答被提问者采纳

base64编码加密解密程序,输出有乱码,为啥?

base64.h编码头文件用的这个直接复制的:http://www.coolib.cn/show.asp?i=5513699&p=22

然后想借用这个头文件处理加密解密,接口定义为:
interface ICrypto : IDispatch

[id(1), helpstring("method encrypt")] HRESULT encrypt([in] BSTR bstrPlainText, [in] BSTR bstrPassword, [out, retval] BSTR *vCipherText);
[id(2), helpstring("method decrypt")] HRESULT decrypt([in] BSTR vCipherText, [in] BSTR bstrPassword, [out, retval] BSTR *bstrPlainText);
;

接口实现:

STDMETHODIMP CCrypto::encrypt(BSTR bstrPlainText, BSTR bstrPassword, BSTR *vCipherText)

// TODO: Add your implementation code here
_bstr_t b = bstrPlainText;

char* Text = b;
char m_strUserName[255];
Base64_Encode(Text, m_strUserName, strlen(Text));

*vCipherText = CComBSTR(m_strUserName);

return S_OK;


STDMETHODIMP CCrypto::decrypt(BSTR vCipherText, BSTR bstrPassword, BSTR *bstrPlainText)

// TODO: Add your implementation code here
char m_strUserName[255];

_bstr_t b = vCipherText;

char* Text = b;
Base64_Decode(Text, m_strUserName, strlen(Text));

*bstrPlainText = CComBSTR(m_strUserName);

return S_OK;


ASP调用测试:
<%
Set mDll = Server.CreateObject("CryptoProj.Crypto")
Dim a
a = mDll.encrypt("test des plaintext!","DFlt4DF")
REsponse.Write(a)
b = mDll.decrypt(a,"DFlt4DF")
REsponse.Write(b)
%>

输出为:dGVzdCBkZXMgcGxhaW50ZXh0IQ==test des plaintext!烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫烫锑?nQ_w?硗

为什么会有一串乱码呢?前面是对的,要怎么改才是正确的输出呢?

参考技术A 这个我也碰到过,要用memset(m_strUserName,0,sizeof(m_strUserName))来初始化m_strUserName数组.