📄 en.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<title>MD5 Online TRANSL Datebases lookup of Tools</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="md5cs.css" rel="stylesheet" type="text/css">
<table class="tableborder1" border=1 cellSpacing="0" cellPadding="0" align="center" height="25" width="100%" bordercolor="#336600">
<tr>
<td width="0" height="5"> </td>
</tr>
<tr>
<td class="tablebody2" width="*" height="20">
<div align="left"></div>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" bgcolor="#CCCC99" width="5%"> </td>
<td valign="top" bgcolor="#CCCC99" height="20">
<div align="center"><font color="#336600"><b><font size="5" color="#FF6600">MD5
Online TRANSL Datebases lookup of Tools<font color="#333366" size="3">(<a href="index.ASP">chinese
VER</a>)</font></font></b></font></div>
</td>
<td valign="top" bgcolor="#CCCC99" style="line-height:140%;" width="5%"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" bgcolor="#CCCC99">
<div align="center">There be larger datebase in china about md5
<%
dim text,r1,md5text,r2,r3,r4,i
if request("action")="go" then
'if Request.QueryString("action")="go" then
text=request("text")
'r1=request("md5text")
if r1="" then
r1=md5(text)
end if
Set rsd=Server.CreateObject("Adodb.Recordset")
sqld="select * from md5 where text='"&text&"' ORDER BY ID DESC"
rsd.open sqld,conn,1,3
if rsd.EOF And rsd.BOF Then
rsd.addnew
rsd("text")=text
rsd("md5text")=r1
'rsd("ip")=Request.ServerVariables("REMOTE_ADDR")
rsd.update
rsd.close
set rsd=nothing
else
Set resd=Server.CreateObject("Adodb.Recordset")
seqld="select * from md5 where md5text LIKE '%"&r1&"%' ORDER BY ID DESC"
rEsd.open seqld,conn,1,3
if rEsd.EOF And rEsd.BOF Then
rEsd.addnew
rEsd("text")=text
rEsd("md5text")=r1
'rEsd("ip")=Request.ServerVariables("REMOTE_ADDR")
rEsd.update
rEsd.close
set rEsd=nothing
end if
end if
end if
function go()
end function
IP = Request.ServerVariables("REMOTE_ADDR")
Response.Write "<br><a href='http://ipseeker.cn/'><font color=green>YOUR IP ADDRESS("&ip&")</font></a>"
%>
</div>
</td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF" bordercolor="#CCCC99">
<div align="center">
<form name="form" action="home.asp?action=go" method="POST">
<p><br>
</p>
<div align="center">
<table width="63%" border="0" align="center">
<tr>
<td width="13%"> </td>
<td width="22%">
<div align="center">Text:</div>
</td>
<td width="49%">
<div align="center">
<input maxlength="100" size="32" name="text" value="<%=text%>" >
</div>
</td>
<td width="12%">
<div align="center">
<input type=submit name="go" value="ALTER" id="go" " >
</div>
</td>
<td width="4%"> </td>
</tr>
<tr>
<td width="13%"> </td>
<td width="22%">
<div align="center">MD5 HASH</div>
</td>
<td width="49%">
<div align="center">
<input size="32" name="r1" value="<%=r1%>">
</div>
</td>
<td width="12%"> </td>
<td width="4%"> </td>
</tr>
<tr>
<td width="13%"> </td>
<td width="22%">
<div align="center">LM MD5 HASH</div>
</td>
<td width="49%">
<div align="center">
<input size="32" name="r1" value="<%=mid(r1,9,16)%>">
</div>
</td>
<td width="12%"> </td>
<td width="4%"> </td>
</tr> <td width="13%"></form>
<form name="form2" action="home.asp?action=look" method="post">
<tr>
<td width="13%"> </td>
<td width="22%">
<div align="center">BE MD5 Text:</div>
</td>
<td width="49%">
<div align="center">
<input maxlength="64" size="32" name ="md5text" value="<%=md5text%>">
</div>
</td>
<td width="12%">
<div align="center">
<input type=submit name="look" value=" FIND ">
</div>
</td>
<td width="4%"> </td>
</tr>
</form>
<%
if request("action")="look" then
md5text=request("md5text")
r2=request("r2")
'if InStr(md5text,"1")=0 or InStr(md5text,"2")=0 then or InStr(md5text,"3")=0 or InStr(md5text,"4")=0 or InStr(md5text,"5")=0 or InStr(md5text,"6")=0 or InStr(md5text,"7")=0 or InStr(md5text,"8")=0 or InStr(md5text,"9")=0 or InStr(md5text,"0")=0 or InStr(md5text,"A")=0 or InStr(md5text,"B")=0 or InStr(md5text,"C")=0 or InStr(md5text,"D")=0 or InStr(md5text,"E")=0 or InStr(md5text,"F")=0 or InStr(md5text,"G")=0 or InStr(md5text,"H")=0 or InStr(md5text,"I")=0 or InStr(md5text,"J")=0 or InStr(md5text,"K")=0 or InStr(md5text,"L")=0 or InStr(md5text,"M")=0 or InStr(md5text,"N")=0 or InStr(md5text,"O")=0 or InStr(md5text,"P")=0 or InStr(md5text,"Q")=0 or InStr(md5text,"R")=0 or InStr(md5text,"S")=0 or InStr(md5text,"T")=0 or InStr(md5text,"U")=0 or InStr(md5text,"V")=0 or InStr(md5text,"W")=0 or InStr(md5text,"X")=0 or InStr(md5text,"Y")=0 or InStr(md5text,"Z")<>0 THEN
if InStr(md5text,"=")<>0 or InStr(md5text,"`")<>0 or InStr(md5text,"'")<>0 or InStr(md5text," ")<>0 or InStr(md5text," ")<>0 or InStr(md5text,"'")<>0 or InStr(md5text,chr(34))<>0 or InStr(md5text,"\")<>0 or InStr(md5text,",")<>0 or InStr(md5text,"<")<>0 or InStr(md5text,">")<>0 or InStr(md5text,"/")<>0 or InStr(md5text,":")<>0 or InStr(md5text,"(")<>0 or InStr(md5text,")")<>0 or InStr(md5text,"#")<>0 or InStr(md5text,"$")<>0 or InStr(md5text,"%")<>0 or InStr(md5text,"&")<>0 or InStr(md5text,"*")<>0 or InStr(md5text,"-")<>0 or InStr(md5text,"+")<>0 or InStr(md5text,"[")<>0 or InStr(md5text,"]")<>0 or InStr(md5text,"|")<>0 or InStr(md5text,"^")<>0 then
response.write "<script language='javascript'>"
response.write "alert('MD5 don't contain ~!~#%#%^^etc!');"
response.write "window.document.location.href='javascript:history.back()';"
response.write "</script>"
Response.End
end if
if InStr(md5text,"8F00B204E9800998")<>0 or md5text="7D9DC229D2921A40" then
r2="(NULL)"
end if
if len(md5text)>33 or len(md5text)<4 then
response.write "<script language='javascript'>"
response.write "alert('MD5 long error?')"
response.write "window.document.location.href='javascript:history.back()';"
response.write "</script>"
end if
i=1
set rs=server.createobject("adodb.recordset")
sql = "SELECT * FROM md5 where md5text LIKE '%"&md5text&"%' ORDER BY ID DESC"
rs.Open sql,conn,1,1
r4=Request.QueryString("md5text")
If rs.EOF And rs.BOF Then
r2="NO RESULT"
Else
md5text=rs("md5text")
do while not rs.eof
r2=rs("text")
'r3=r2&rs("text")
%>
<tr>
<td width="13%"> </td>
<td width="22%">
<div align="center">Result(<%=i%>):</div>
</td>
<td width="49%">
<div align="center">
<input size="32" name="rs2" value="<%=r2%>" color="red">
</div>
</td>
<td width="12%"> </td>
<td width="4%">
</td>
</tr>
<tr>
<td width="13%"> </td>
<td width="22%">
<div align="center">Raw data(<%=i%>):</div>
</td>
<td width="49%">
<div align="center">
<input size="32" name="rs2" value="<%=md5text%>" color="red">
</div>
</td>
<td width="12%"> </td>
<td width="4%">
</td>
</tr>
<%
rs.movenext
i=i+1
loop
end if
rs.close
Set rs=Nothing
end if
%>
</table>
</div>
<p> </p>
<p> </p>
</div></td>
</tr>
<tr>
<td></td>
</tr>
</table>
<table class="tableborder1" border=1 cellSpacing="0" cellPadding="0" align="center" height="25" width="100%" bordercolor="#336600">
<tr>
<td width="*" height="5"> </td>
</tr>
<tr>
<td class="tablebody2" width="*" height="20">
<div align="left"></div>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1">
<div align="center"></div>
</td>
</tr>
<tr>
<td height="20" bgcolor="#CCCC99">
<div align="center" class="style1">
<div align="center"><a href="http://www.86bed.cn"><font color="#336600">powered
by 86bed</font></a></div>
</div></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -