Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-05-2006
Avatar de ivan022481
ivan022481 ivan022481 is offline
Miembro
 
Registrado: abr 2006
Posts: 25
Poder: 0
ivan022481 Va por buen camino
Mail codificado

hola, ante todo, gracias por leer este hilo y mas gracias por contestarlo, el problema que se me presenta es el siguiente, tengo que obtener mails de una pagina, la idea es leer el codigo fuente, pero tengo un problema al querer tomar el mail, veran el mail me aparece en este formato:

Código:
<span class="email_address"><script type="text/javascript">eval(unescape('%64%6f%63%75%6d%65%6e%74%2e%77%72%69%74%65%28%27%3c%61%20%68%72%65%66%3d%22%6d%61%69%6c%74%6f%3a%61%6e%74%61%6e%64%75%6a%61%72%35%40%68%6f%74%6d%61%69%6c%2e%63%6f%6d%3f%73%75%62%6a%65%63%74%3d%41%50%52%49%4c%49%41%25%32%30%50%45%47%41%53%4f%25%32%30%36%35%30%25%32%30%65%69%25%32%30%32%30%30%34%22%20%3e%61%6e%74%61%6e%64%75%6a%61%72%35%40%68%6f%74%6d%61%69%6c%2e%63%6f%6d%3c%2f%61%3e%27%29%3b'))</script></span>
donde, creo, creer que los caracteres que estan entre los parentesis despues de la palabra unescape son los correspondientes, ahora, ¿hay una funcion en Delphi que me permita desglozar esos caracteres?, desde ya gracias
Responder Con Cita
  #2  
Antiguo 17-05-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Antes de nada decir que me parece tremendamente sospechoso querer obtener por codigo direcciones de correo de una pagina web, me suena a spam, pero por otro lado no estoy para juzgar a nadie

El caso es que el texto esta codificado con el mismo algoritmo que se utiliza para codificar las url. El cual es bastante sencillo de descifrar:

Código Delphi [-]
function URLDecode(s: string): string;
var
  i: integer;
  Ch: integer;
begin
  result := '';
  i := 1;
  while i <= Length(s) do
  begin
    if copy(s, i, 1) = '%' then
    begin
      Ch := StrToIntDef('$' + copy(s, i + 1, 2), -1);
      if (Ch > 0) and (Ch < 256) then
        result := result + Char(Ch);
      inc(i, 2);
    end
    else
      result := result + copy(s, i, 1);
    inc(i);
  end;
end;

En concreto si le aplicas la funcion anterior al texto que tu indicas nos queda esto:
Código:
document.write('<a href="mailto:antandujar5@hotmail.com?subject=APRILIA%20PEGASO%20650%20ei%202004" >antandujar5@hotmail.com</a>');
A partir de ahi usalo para lo que quieras
Responder Con Cita
  #3  
Antiguo 17-05-2006
Avatar de ivan022481
ivan022481 ivan022481 is offline
Miembro
 
Registrado: abr 2006
Posts: 25
Poder: 0
ivan022481 Va por buen camino
muchisimas gracias, es lo que andaba buscando, no te hagas problemas que no es para hacer spam ni ninguna dañinada. saludos, y nuevamente gracias
Responder Con Cita
  #4  
Antiguo 17-05-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Pues me dejas mas tranquilo
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
SQL Mail dango MS SQL Server 2 29-08-2005 18:57:38
mail y qreport davidgaldo Impresión 2 04-06-2004 17:37:21
envío de e-mail davidgaldo Internet 2 03-05-2004 21:07:49
mail to: nicocer C++ Builder 7 02-04-2004 23:42:25
Borrar MAIL MRSAM Internet 0 13-10-2003 21:35:57


La franja horaria es GMT +2. Ahora son las 14:43:59.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi