A ver si alguien me puede decir algo de este código

d3c · #1 (**permalink**) 24/06/2004, 10:17

Código:

<html>

<head>

<link rel="stylesheet" href="styles.css">
</head>
<BODY  >
<FORM>
	 <INPUT size="50" name="URL" value="<%=#@~^CQAAAA==2mDCs+DDE0QMAAA==^#~@%>">
	<INPUT type="Submit" value="Search">
</FORM>
<%#@~^KQUAAA==@#@&/^MkaYxm:xI;;+kY jD\..mDkm8s+k`r?/I(K:{Hbt3J*@#@&@#@&q0~HKY~wm.m:nDD!'PrJ,Ptx@#@&kY.u:HS{.+aVl1nc/DD_K\SSEJ/nlM^tJDnd!VYd&r~dmMraYUm:#@#@&/D.C:HJ'M+2smm+vdYMCKtJSJJ/l.m4&M+dE^O/r~d^MkwOUm:n#@#@&kY._KtS'M+asl1+c/DDuPtS~r4YDw)J&LWKo^+ k^5cmG:rSJr#@#@&ED+d2Kxd+cAMkOP	DwmDmhd@#@&vD/2G	/+cADbY+,dOD_KtS@#@&C.M'dw^rY,`dOMtYhsBJ^Vmdk'Lr~ F~8#@#@&xMwxj(W;U9`lM.#@#@&0K.~L{F,YGPU.aOq@#@&dYMkUL^k/OxkY.k	L^kdD[mDDvL*@#@&	+aY@#@&@#@&EY+kOlMD'k2skDPv/ODrUTVr/DSJDl8sJ~RqBFb@#@&O/OmDM'/aVbOPv/OD4YhsBJYm8VJ~ qSF*@#@&x.'i8KEUNvO+kYC.M#@#@&sb/O+m"m'E@!4MJ@#@&k6~xM'*PDtnU,@#@&@#@&0KDPbx*PDW,x.O*@#@&Vr/Dnl.lxsb/YnC.l'YdDl.M`b#[rYm8VJ@#@&	+aO@#@&+^d+@#@&0K.~k{G,YGPU. v@#@&@#@&@#@&Y.rsEkOxM+2Vm^`O/DlDM...PVUcY/Dl.Dcr*#~@!@*~VxcOMk:;rD#~PmU9Pr@* ,Ytx@#@&\mDq'rt.n6'JL^tM`&Wb'J4YDwlz&E@#@&-lM+'rYC.T+YxELm4DvfW#'r{(Vl	3r'm4Dc&W#'E,tDW'r[m4.c&W#LJ4YO2=z&J@#@&\mVGCM+:COMk^'MnaVC1+vY+kYm.Dvkb~7l.qB\lM+#@#@&@#@&O.ksEbY)f#xM+2Vm^+vYndDlD.cb#SJ9r7JSrJ*@#@&b0,s+	`O+kYC.M`k*bP@!@*P^nU`DDb:;kO)G.bP,~Y4+U@#@&@#@&-C^WCDhmY.bm{JJ@#@&@#@&+	N~k6@#@&@#@&VkkO+myl{sr/D+myC[-C^WCDhlDDr^LJYC8^+E@#@&n^/n@#@&^k/D+m"l{Vr/D+C"m[YdYmDDvrb[rYm4s+E@#@&@#@&+	[Pb0@#@&@#@&@#@&U6O@#@&@#@&@#@&@#@&xN,k6@#@&@#@&vD/2G	/+cADbY+,U.[r@!(D@*J@#@&M+dwKU/RA.bY+~sb/O+m"m[E@*J@#@&BM+k2W	/nRSDrOP/D.k	oVbdO@#@&+	N~kW@#@&dH4BAA==^#~@%>
<%#@~^fAAAAA==@#@&DnkwKx/RS.kD+~J@!4@*/M+lDnN,4X,@!&0KxD@*@!b~4M+W'4OYa)&&Shh n^mU+D 1WhJDKzwmDknDctO:@*P3J;P1APP,@!zz@*@!z(@*@!A]@*E@#@&eiIAAA==^#~@%>

Se trata de un archivo que puedes personalizar a tu gusto (en la forma solamente) y que muestra resultados de una búsqueda tomandolos de la BD de google, está bastante bien, pero tiene un fallo y es que no se muestran las páginas consecutivas, además otro fallo que le veo es que está solo en inglés y a mi me gustaría cambiarlo al español.

¿Alguien sabe como decodificar eso?

Gracias.

AlZuwaga · #2 (**permalink**) 24/06/2004, 10:25

qué demonios es eso???

Myakire · #3 (**permalink**) 24/06/2004, 10:31

Ejecutando tu código, no hace nada.
Pero lo que tu quieres lo he hecho consumiendo el web Servece ("servece" ¿en qué estaré pensando?) Web Service que Google tiene disponible de forma gratuita con el resultado de sus búsquedas.

http://www.google.com/apis/

Si quieres que le echemos a tu código, checalo y lo vemos por que a mi no me hizo nada.

Saludos

d3c · #4 (**permalink**) 24/06/2004, 10:35

Mil perdones, el código estaba mal pegado, es este:

Código:

<%@ LANGUAGE = VBScript.Encode %>

<%#@~^DQQAAA==@#@&B4DYa)zJoKGo^+ k1; ^K:zknlMmtJ.n/!VD/&g5xS+8_9n/boU@#@&BtOOa)&zTGKosRbm;cmKhzk+CD1t&./E^O/Q;'Sn8_9+kkLx'dDl.Y{X!L/Cxg@#@&9rsPjYMi"S@#@&fb:PUYMuKtS@#@&Gkh~}4LqnlDt+M@#@&@#@&wmDC:nOMExI5E/O 5E+.zUY.k	LvJi"Sr#@#@&k6~I;;+kY }!+DHjYMkxTcE;r#,@!@*PEE,Y4+	@#@&al.Cs+Y.;{In;!nkY 5EDXUYMrxT`E;r#@#@&kYlMO'"+;!ndYcp!+.XjOMkUovE/Dl.Or#@#@&jDDiId~{J4DYa)zJoKGo^+ k1; ^K:zknlMmtJ.n/!VD/&g5xr[2lMC:Y.;LJ[dOmDO'r'kYCMY@#@&@#@&+^d+@#@&@#@&UY.i"SP{~J4YYal&zTWKos+ r1; mKhzk+C.1tz.nkEsYk&Q;xr[alDm:OD!@#@&BUY.i"SP{EtDYw=&&hShcoGWLsR^WsE@#@&+U[,k0@#@&&0~1KO,wCMls+YME,xPrJ~K4+U@#@&@#@&i@#@&@#@&di@#@&@#@&dirUP3.MW.P"n/!:n~g+6O@#@&@#@&d@#@&idjY,Vr(LqnlDtnD,'~jD\.R;D+mOnr(LmOPcEtk^DKdW6Y ptSCPPhJb@#@&7i@#@&@#@&id@#@&di(0,2.D,K4n	@#@&i7dV+Y`]JP{Pr2.DG.=PEPL~2MD 9/m.raYrW	@#@&d7i@#@&ddAx9~q6@#@&di@#@&7irx,3DMWD,!GYKPZ@#@&@#@&7irY4~V}4%	lY4nM@#@&di7cr2x,JMAKrSPkY.EMVS~wlVkn~,JJB~EJ@#@&id7Rjn	N@#@&i7dV+Oi"SPx~cIn/aG	/n:+XY@#@&di3x9P	kDt@#@&id?OPdW4N	nlDtD~'~HKY4k	L@#@&@#@&7i/Y.u:HJP{~V+O`Id@#@&@#@&UN,kW@#@&@#@&@#@&@#@&@#@&@#@&@#@&CxQBAA==^#~@%>
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>

<head>

<link rel="stylesheet" href="styles.css">
</head>
<BODY  >
<FORM>
	 <INPUT size="50" name="URL" value="<%=#@~^CQAAAA==2mDCs+DDE0QMAAA==^#~@%>">
	<INPUT type="Submit" value="Search">
</FORM>
<%#@~^KQUAAA==@#@&/^MkaYxm:xI;;+kY jD\..mDkm8s+k`r?/I(K:{Hbt3J*@#@&@#@&q0~HKY~wm.m:nDD!'PrJ,Ptx@#@&kY.u:HS{.+aVl1nc/DD_K\SSEJ/nlM^tJDnd!VYd&r~dmMraYUm:#@#@&/D.C:HJ'M+2smm+vdYMCKtJSJJ/l.m4&M+dE^O/r~d^MkwOUm:n#@#@&kY._KtS'M+asl1+c/DDuPtS~r4YDw)J&LWKo^+ k^5cmG:rSJr#@#@&ED+d2Kxd+cAMkOP	DwmDmhd@#@&vD/2G	/+cADbY+,dOD_KtS@#@&C.M'dw^rY,`dOMtYhsBJ^Vmdk'Lr~ F~8#@#@&xMwxj(W;U9`lM.#@#@&0K.~L{F,YGPU.aOq@#@&dYMkUL^k/OxkY.k	L^kdD[mDDvL*@#@&	+aY@#@&@#@&EY+kOlMD'k2skDPv/ODrUTVr/DSJDl8sJ~RqBFb@#@&O/OmDM'/aVbOPv/OD4YhsBJYm8VJ~ qSF*@#@&x.'i8KEUNvO+kYC.M#@#@&sb/O+m"m'E@!4MJ@#@&k6~xM'*PDtnU,@#@&@#@&0KDPbx*PDW,x.O*@#@&Vr/Dnl.lxsb/YnC.l'YdDl.M`b#[rYm8VJ@#@&	+aO@#@&+^d+@#@&0K.~k{G,YGPU. v@#@&@#@&@#@&Y.rsEkOxM+2Vm^`O/DlDM...PVUcY/Dl.Dcr*#~@!@*~VxcOMk:;rD#~PmU9Pr@* ,Ytx@#@&\mDq'rt.n6'JL^tM`&Wb'J4YDwlz&E@#@&-lM+'rYC.T+YxELm4DvfW#'r{(Vl	3r'm4Dc&W#'E,tDW'r[m4.c&W#LJ4YO2=z&J@#@&\mVGCM+:COMk^'MnaVC1+vY+kYm.Dvkb~7l.qB\lM+#@#@&@#@&O.ksEbY)f#xM+2Vm^+vYndDlD.cb#SJ9r7JSrJ*@#@&b0,s+	`O+kYC.M`k*bP@!@*P^nU`DDb:;kO)G.bP,~Y4+U@#@&@#@&-C^WCDhmY.bm{JJ@#@&@#@&+	N~k6@#@&@#@&VkkO+myl{sr/D+myC[-C^WCDhlDDr^LJYC8^+E@#@&n^/n@#@&^k/D+m"l{Vr/D+C"m[YdYmDDvrb[rYm4s+E@#@&@#@&+	[Pb0@#@&@#@&@#@&U6O@#@&@#@&@#@&@#@&xN,k6@#@&@#@&vD/2G	/+cADbY+,U.[r@!(D@*J@#@&M+dwKU/RA.bY+~sb/O+m"m[E@*J@#@&BM+k2W	/nRSDrOP/D.k	oVbdO@#@&+	N~kW@#@&dH4BAA==^#~@%>
<%#@~^fAAAAA==@#@&DnkwKx/RS.kD+~J@!4@*/M+lDnN,4X,@!&0KxD@*@!b~4M+W'4OYa)&&Shh n^mU+D 1WhJDKzwmDknDctO:@*P3J;P1APP,@!zz@*@!z(@*@!A]@*E@#@&eiIAAA==^#~@%>

Je, je, je... Lo siento, no obstante gracias, ejecutarlo ahora y vereis como si funciona.

Myakire · #5 (**permalink**) 24/06/2004, 10:40

Pues no, sigue sin hacer nada.

d3c · #6 (**permalink**) 24/06/2004, 10:54

Myakire, tienes que subirlo a un servidor o ponerlo en una carpeta del IIS... Mira este enlace, aqui está el mismo código pero en un archivo:

http://www.amaga.net/google.asp

Pero vamos, que no se pierda el hilo del post, que yo lo que quiero es saber como decodificar ese codigo para poder modificarlo. El tio que lo ha hecho debe ser una máquina, si os meteis en su web vereis más aplicaciones en ASP, mi favorita despues de esta es un buscador de archivos mp3 que se encuentran en servidores... Mejor que el emule y todos esos la verdad, si la canción que buscas estás por ahi.

Myakire · #7 (**permalink**) 24/06/2004, 11:02

d3d, ya se que se tiene que correr desde el web server, pero el codigo copiado tal cual, no va. Marca un error en la linea cero en la parte de <%#@~^ .....

Pero regresemos, ¿ya pensaste en la posibilidad de consumir el Web service? con un WS se puede hacer exactamente lo que hace el sitio del que haces referencia.

Pero igual, con seleccionar-copiar-pegar-grabar como x.asp-ejecutar con localhost/x.asp, marca error.

d3c · #8 (**permalink**) 24/06/2004, 11:11

Myakire mira el enlace que he puesto, y verás que lo que te cuento no se puede lograr con el WS, pero mira el enlace... Y la verdad no se por que no te funciona el código, porque es exactamente el mismo que hay en el servidor donde tengo mi dominio y como verás si pulsas el enlace este si que funciona.

Venga chicos, a ver si alguien sabe o conoce a alguien que sea capaz de decodificar el puto código, nos va a beneficiar a todos.

LeCLUB · #9 (**permalink**) 24/06/2004, 12:12

La verdad es que si que funciona el buscador este, y estámuy bien.

El tema de las imágenes de las webs las coje de un servicio de una web externa, pero weno, da igual, está muy currado.

Seguramente, cuando d3c subió el código o se olvidó algún carácter del código codificado, o el mimo Foro de FDW debió modificarlo.

Para bajaros el archivo correcto, ir a esta web:

http://ronet.elcnet.com/download/det...e=6586&iType=2

es simplemente un archivo ASP el que se encarga de hacer la búsqueda, y está muy currado.

LeCLUB · #10 (**permalink**) 24/06/2004, 12:40

Por cierto, lo he estado mirando, y después de ver que lo ha encriptado con el "Windows Script Encoder", no me ha sido muy dificil "desencriptarlo" ;P

Por cierto, como era de esperar, utiliza "Microsoft.XMLHTTP" para "leer" el resultado y mostrar lo que interesa (osea, "robar" literalmente recursos de otra página web, penoso)

Aquí teneis el código fuente del buscador ASP:

Código PHP:

  <%@ LANGUAGE = VBScript.Encode %>
<%
'http://google.icq.com/search/results/?q=web+design
'http://google.icq.com/search/results?q=web+design&start=50&sa=N
Dim StrURL
Dim StrHTML
Dim ObjWeather
parametru=Request.QueryString("URL")
if Request.QueryString("q") <> "" then
parametru=Request.QueryString("q")
start=Request.QueryString("start")
StrURL ="http://google.icq.com/search/results/?q="&parametru&"&start="&start
else
StrURL = "http://google.icq.com/search/results/?q="&parametru
'StrURL ="http://www.google.com"
end if
If Not parametru = "" Then
  On Error Resume Next
  Set lObjWeather = Server.CreateObject ("Microsoft.XMLHTTP")
  
  If Err Then
   GetURL = "Error: " & Err.Description
   
  End If
  
  On Error Goto 0
  With lObjWeather
   .Open "GET", strurl, False, "", ""
   .Send
   GetURL = .ResponseText
  End With
  Set LobjWeather = Nothing
  strHTML = GetURL
end if
%>
<html>
<head>
<link rel="stylesheet" href="styles.css">
</head>
<BODY>
<FORM>
<INPUT size="50" name="URL" value="<%=parametru%>">
<INPUT type="Submit" value="Search">
</FORM>
<%
scriptname=Request.ServerVariables("SCRIPT_NAME")
If Not parametru= "" Then
strHTML=replace(strHTML,"/search/results/",scriptname)
strHTML=replace(strHTML,"/search/results",scriptname)
strHTML=replace(strHTML,"http://google.icq.com","")
'response.write nrparam 
'response.write strHTML
arr=split (strhtml,"class=g",-1,1)
nrp=Ubound(arr)
for j=1 to nrp-1
stringlist=stringlist&arr(j)
next
'testarr=split (stringlist,"table",-1,1)
testarr=split (strhtml,"table",-1,1)
nr=Ubound(testarr)
listeaza="<br"
if nr=4 then 
for i=4 to nr-4
listeaza=listeaza&testarr(i)&"table"
next
else
for i=7 to nr-6

trimuit=replace(testarr(i),"http:","")
if len(testarr(i)) <> len(trimuit)  and i>2 then
var1="href="&chr(34)&"http://"
var2="target="&chr(34)&"_blank"&chr(34)&" href="&chr(34)&"http://"
valoarematric=replace(testarr(i),var1,var2)
trimuitADV=replace(testarr(i),"div","")
if len(testarr(i)) <> len(trimuitADV)   then
valoarematric=""
end if
listeaza=listeaza&valoarematric&"table"
else
listeaza=listeaza&testarr(i)&"table"
end if

next
 
end if
'response.write nr&"<br>"
response.write listeaza&">"
'response.write stringlist
end if
%>

d3c · #11 (**permalink**) 24/06/2004, 14:04

Pues de puta madre LeClub, gracias tio... Ya se que no es muy lícito y todo lo que tu quieras, pero al fin y al cabo... Si te das de alta en el WS de google y te dan tu key que más les da a ellos, asi consiguen tener sus estadisticas al dia, controlan la gente que accede a sus servidores... Los servidores de google, según he leido, tienen capacidad para soportar 100 veces más visitas al dia de las que soporta, asi que no creo que unas cuantas webs con ese código les haga daño.

Un saludo y gracias de nuevo. Cuando consiga hacer uno igual pero en español lo pegaré por aqui.

d3c · #12 (**permalink**) 24/06/2004, 14:32

Buf, no está tan currado, por lo pronto tiene dos errores de dificil solución.

El primer error (es un error,según se mire) es que no toma los resultados de google.com, los toma de http://google.icq.com que es una página que no existe en español, por lo tanto no es posible tenerlo en otra lengua que no sea el inglés.

El segundo error, y este si que es un error, es que google.icq.com está en PHP, por lo tanto los archivos de paginación a los que accedes desde los enlaces de abajo llevan la extensión PHP, osea que con el mismo archivo ASP no los puedes obtener, por eso da error al pulsar en "siguiente".

Era demasiado bonito para ser verdad, creo que tendremos que seguir conformandonos con el WS de google.

Saludos y gracias a todos por vuestro interés.

LeCLUB · #13 (**permalink**) 24/06/2004, 15:20

Bueno, en cuanto al primer "error" (y entiendo que no lo es, sino que utiliza Microsoft.XMLHTTP) no se puede hacer nada, ya que es la "base" por lo que se sustenta este buscador.

En cuanto al error de "Páginas Siguientes", es un error de código, que se arregla modificando esta linea:

Código PHP:

  strHTML=replace(strHTML,"/search/results",scriptname)

por esta:

Código PHP:

  strHTML=replace(strHTML,"/search/results.php",scriptname)

y añadiendo esta justo debajo:

Código PHP:

  strHTML=replace(strHTML,"index.php","")

Se pueden hacer varias mejoras más, pero eso ya es cosa de cada uno ;)

Un saludo

Myakire · #14 (**permalink**) 24/06/2004, 15:31

Solo por curiosidad hice lo que comenta LeCLUB y además cambie el motor de búsqueda y ya quedó:
PE:
StrURL = "http://google.icq.com/search/results/?q="&parametru
se cambia a
StrURL = "http://www.google.es/search?hl=es&ie=UTF-8&q="&parametru

Si despliegas la variable strhtml ahí estan todos los resultados para que se les trate como una quiera en español.

El problema son las imagenes que esa página no regresa a diferencia de icq.com, pero tal vez sea solo cosa de gastar tiempo.

Myakire · #15 (**permalink**) 24/06/2004, 15:50

Por cierto LeCLUB, ya instalé el "Windows Script Encoder" pero no le veo una opción de "desofuscar". Hay varias páginas que dicen el algorítmo para hacerlo (http://www.klaphek.nl/nr6/scrdec.html, por ejemplo) pero ¿a poco lo programaste?

LeCLUB · #16 (**permalink**) 24/06/2004, 16:29

Si, para encriptarlo:

http://www.microsoft.com/downloads/d...displaylang=en

Y para desencriptarlo:

http://www.virtualconspiracy.com/ind...e=scrdec/usage

Un saludo

Atonovich · #17 (**permalink**) 24/06/2004, 22:21

Creo que quieren inventar el agua tibia... ese código está lógicamente encriptado, ¿qué tipo de algoritmo de encriptación? ahhh! eso sí está complicado saberlo porque es una excelente manera de proteger el desarrollo de alguien monopolista que no quiere compartir el conocimiento.

Seguramente es una aplicación que bajaste de algùn sitio de scripts...no hay manera alguna de desencriptarlo a menos que te generes un robotito muy inteligente para descifrar el algoritmo de desencripción y que también tengas una máquina superpoderosa para estar trabajando en ello 24 x 7....
Saludos

LeCLUB · #18 (**permalink**) 24/06/2004, 22:30

Cita:

Iniciado por Atonovich

...no hay manera alguna de desencriptarlo a menos que te generes un robotito muy inteligente para descifrar el algoritmo de desencripción y que también tengas una máquina superpoderosa para estar trabajando en ello 24 x 7....

Estooooooo, pues que quieres que te diga, yo lo he desencriptado utilizando el Windows Script Decoder, y en un tiempo de ... mmmmm.... 0,5 segundos xDDDD

Mejor pruébalo, y luego nos comentas, en vez de ser tan pesimista, que son unos pocos 100 Kb lo que ocupa el programa en cuestión, y entre 10 y 15 segundos en desencriptarlo (que es lo que tardas en abrir la consola MS-DOS, escribir el nombres del archivo que quieres desencriptar, y el nombre del archivo que quieres que se cree con el código desencriptado)

Un saludo

Myakire · #19 (**permalink**) 25/06/2004, 07:21

No te "ofusques" ahora tu LeCLUB

, seguramente Anatovich no leyó todo el post.
Gracias por el dato, siempre es útil aprender algo nuevo.

Saludos

d3c · #20 (**permalink**) 28/06/2004, 14:58

Pues con la modificación de LeClub va bastante bien, solo falla al darle a "next" o "previous" que sigue dando error.

Lo que dice Maykire ya lo había probado yo y no funciona, creo que es por temas de seguridad y es que mientras desde icq.google.com si puedes "obtener" información desde google.es no puedes, vamos creo yo, pero no estoy seguro.

Si alguien sabe como perfilarlo del todo se lo agradecería.

beto-barbosa · #21 (**permalink**) 22/11/2004, 17:26

Navegando encontre esta herramienta para decodificar.

http://www.virtualconspiracy.com/ind...=/scrdec/intro

Saludos

u_goldman · #22 (**permalink**) 22/11/2004, 20:59

AAAAhhhhhhh que bonitos

's ja ja ja ja, si, de hecho esa herramienta gratuita de M$ es mas que conocida y hay miles de herramientas dispersas por la web para decodificar, pues en realidad no es un encriptador sino un "encoder", y tiene varios fallos también, entre ellos te da mucho problema pues a todos los ASP's les pone la directiva <%@language=VBscript%>, con lo cual si tienes includes, te manda numerosos errores, je je, y lo ubicas muy fácil con la directiva que pone al principío de cada archivo como VB.Encoder o una cosa así...en fin, sirva para algo este post y que todos quienes quieren esconder su código traten otra forma, y lo planeen desde el principio, como ya se ha comentado, es mejor por estructura hacerlo en capas y poner toda la parte de datos en dlls. Aunque para mis compañeros

's nada es suficiente barrera

Salu2,