高手!!!!!!!!!!!!!!!!!!!!!!!!!请问这段代码是怎么写出来的?

Question

是Base64码么？
应该是加过密的吧。

Answer 1

据说是ScriptEncoder 不知道 C# 是不是也可以这样加密?怎么破戒

Answer 2

这是ASP程序用微软的一款加密软件弄出来的

Answer 3

解密
<%else
if rs("runsystem")<>rm then
dim filmurl,url,line,urlno
url ="SELECT * FROM url WHERE filmid = "&rs("id")&" ORDER BY id "
Set filmurl = Server.CreateObject("ADODB.Recordset")
filmurl.open url,Conn,3,1
urlno=filmurl.recordcount
if filmurl.eof then
response.write "<font color='red'>&Atilde;&raquo;&Oacute;&ETH;&Oacute;°&AElig;&not;&Igrave;á&sup1;&copy;&sup1;&Ucirc;&iquest;&acute;</font>"
elseif filmurl.recordcount=1 then
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font color='red'><b>&Egrave;&laquo;&frac14;&macr;</b></font></a>"
elseif filmurl.recordcount=2 then
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font color='red'><b>&Eacute;&Iuml;&frac14;&macr;</b></font></a>"
filmurl.movenext
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font color='red'><b>&Iuml;&Acirc;&frac14;&macr;</b></font></a>"
elseif filmurl.recordcount=3 then
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font color='red'><b>&Eacute;&Iuml;&frac14;&macr;</b></font></a>"
filmurl.movenext
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font colo?r='red'><b>&Ouml;&ETH;&frac14;&macr;</b></font></a>"
filmurl.movenext
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font color='red'><b>&Iuml;&Acirc;&frac14;&macr;</b></font></a>"
else
do while not filmurl.eof
for no=1 to urlno
if len(no)=1 then%>
                      <a href='url=<%=filmurl("url")%>'><font color='red'>[0<%=no%>]</font></a>&nbsp;&nbsp; 
                      <%else%>
                      <a href='url=<%=filmurl("url")%>'><font color='red'>[<%=no%>]</font></a>&nbsp;&nbsp; 
                      <%end if
filmurl.movenext
if filmurl.eof then exit do
next
response.write "<br>"
loop
filmurl.close
set filmurl=nothing
end if
end if
end if
%>
                      </font></div>

Answer 4

<%else
if rs("runsystem")<>rm then
dim filmurl,url,line,urlno
url ="SELECT * FROM url WHERE filmid = "&rs("id")&" ORDER BY id "
Set filmurl = Server.CreateObject("ADODB.Recordset")
filmurl.open url,Conn,3,1
urlno=filmurl.recordcount
if filmurl.eof then
response.write "<font color='red'>没有影片提供观看</font>"
elseif filmurl.recordcount=1 then
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font color='red'><b>全集</b></font></a>"
elseif filmurl.recordcount=2 then
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font color='red'><b>上集</b></font></a>"
filmurl.movenext
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font color='red'><b>下集</b></font></a>"
elseif filmurl.recordcount=3 then
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font color='red'><b>上集</b></font></a>"
filmurl.movenext
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font colo?r='red'><b>中集</b></font></a>"
filmurl.movenext
response.write " <a href='http://www.thorisport.com/media/play/rstars_movie_ver2r_show.asp?url="&filmurl("url")&"'><font color='red'><b>下集</b></font></a>"
else
do while not filmurl.eof
for no=1 to urlno
if len(no)=1 then%>
                      <a href='url=<%=filmurl("url")%>'><font color='red'>[0<%=no%>]</font></a>&nbsp;&nbsp;
                      <%else%>
                      <a href='url=<%=filmurl("url")%>'><font color='red'>[<%=no%>]</font></a>&nbsp;&nbsp;
                      <%end if
filmurl.movenext
if filmurl.eof then exit do
next
response.write "<br>"
loop
filmurl.close
set filmurl=nothing
end if
end if
end if
%>
                      </font></div>