Autor Tema: Como Hago Spam (Leído 4920 veces)

cluster · « **en:** Miércoles 22 de Marzo de 2006, 23:28 »

hola compañeros del foro, algien me podria ayudar como hacer spam a una determinada region osea solo una ciudad, para promocionar un producto ya sea por correo electronico, telefonía móvil o telefonía IP. gracias por su atencion.

x.cyclop

¿Spam a una ciudad? Pones muchos e-mails, un bucle y con cualquier lenguaje de programación mandas los mensajes.

cluster

Citar

Pones muchos e-mails

de donde consigo lo mails, en la trama de los bits abra alguna informacion de cidudad?, o por el rango de direcciones ip que le dan a cada ciudad? o como hago.

su -

Lo de los correos buscas en red, busca en foros, logs...
Solo te puedo decir que ne Perl hay forma de saber poe el ip a que pais pertenese, pero por mail es imposible.
Yo puedo ser de Luxemburgo y tener una cuenta mail en imac (en US).
Asi que mejor mada correos y dises que es solo avil para tal region y pais.

cluster

se me ocurrio hacer un programa que recorra las páginas web con el dominio del pais porejemplo .ar y apartir de hay coger las direcciones de correo que normalmente creo que aparecen <a href="mailto:nombre@dominio.com"<>nombre</a> pero como lo hago alguna ayudita.

su -

usando yahoo busacas con un robot:
http://search.yahoo.com/search?p=www+%2B.a...tab-web-t&x=wrt

El problema es que hay dominios .ar.us
En que lenguaje lo vas a hacer?

Eternal Idol

No hagas spam ...

su -

Citar

No hagas spam ...

Je, je eso pense

acaso tendria que comprar un espasio en googles add?

x.cyclop

Tendrías que hacer un spider y recoger todos los e-mails que hay en la red, sustituyendo [at] por @, [dot] por . y cosas por el estilo.

su -

http://perl.codefetch.com/example/2t/spide...6-01.txt?qy=sol
Eso te ayudara

cluster

gracias su, tocara entrenar mi neocortex para aprender perl, en el buscador no encontre en otros lenguajes algo de Spidering.
ya que tienes experiencia en perl me podrias decir que hace algunos de los programas citados en la pagina. gracias

su -

Si, con gusto.
Mira, este programa extrae paginas de yahoo segun los urls de los paises, en este caso serian:
argentina => "http://ar.yahoo.com", asia => "http://asia.yahoo.com",
australia => "http://au.yahoo.com", newzealand => "http://au.yahoo.com",
brazil => "http://br.yahoo.com", canada => "http://ca.yahoo.com",
catalan => "http://ct.yahoo.com", china => "http://cn.yahoo.com",
denmark => "http://dk.yahoo.com", france => "http://fr.yahoo.com",
germany => "http://de.yahoo.com", hongkong => "http://hk.yahoo.com",
india => "http://in.yahoo.com", italy => "http://it.yahoo.com",
korea => "http://kr.yahoo.com", mexico => "http://mx.yahoo.com",
norway => "http://no.yahoo.com", singapore => "http://sg.yahoo.com",
spain => "http://es.yahoo.com", sweden => "http://se.yahoo.com",
taiwan => "http://tw.yahoo.com", uk => "http://uk.yahoo.com",
ireland => "http://uk.yahoo.com", us => "http://www.yahoo.com",
japan => "http://www.yahoo.co.jp",
us_chinese => "http://chinese.yahoo.com",
us_spanish => "http://espanol.yahoo.com"
Luego busca todas las extensiones de X pais (.jp para Japon, .es para España...)
En resumen, este prgrama se arrastra por las pagina de yahoo y recolecta links.
Con una pequña modificasion podras hacer esto pero con direcciones de correo

Pues bien, el secreto esta en LWP que es un API para navegar por servidores.
En la pagina oficial hay muchos spiders e ingenierias para buscar por Lycos AltaVista y otros.
Tambien hay 2 web browsers, que no son muy buenos que digamos (no sopotan css, javascript...) pero pueden ser una herramienta de mas

cluster

gracias su por lo que veo por este lado me va a tomar algo de tiempo hacer el robot, tocara darle al perl.

su -

En que lenguaje programas?
Haber si encuentro algo para facilitar esto

cluster

gracias su, pues puede ser vb net c# ,

su -

Niem, no he tenido mucho tiempo pero hise este programa en perl que extrae de href=mailto:algo@algo... de x sitio que le pongas.

Código: Text

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
sub browser {
  my &#036;url = shift;
  my @mails;
  my &#036;browser = LWP::UserAgent-&#62;new;
  &#036;browser-&#62;agent(&#34;solocodigoSpider/0.1&#34;);
  my &#036;req = HTTP::Request-&#62;new(GET =&#62; &#34;&#036;url&#34;);
  &#036;req-&#62;header('Accep' =&#62; 'text/html');
  my &#036;respuesta = &#036;browser-&#62;request(&#036;req);
  if(&#036;respuesta-&#62;is_success) {
    my &#036;pagina = &#036;respuesta-&#62;decoded_content;
    &#036;pagina =~ s/&#092;&#60;/ /g;
    &#036;pagina =~ s/&#092;&#62;/ /g;
    &#036;pagina =~ s/&#092;^M/ /g;
    &#036;pagina =~ s/&#092;// /g;
    &#036;pagina =~ s/br/ /g;
    &#036;pagina =~ s/tr/ /g;
    &#036;pagina =~ s/td/ /g;
    my @todo = split / /, &#036;pagina;
    foreach my &#036;palabra (@todo) {
      if(&#036;palabra =~ /^href=&#092;&#34;mailto:(.*)&#036;/){
        &#036;palabra =~ s/href=&#092;&#34;mailto://g;
        &#036;palabra =~ s/&#092;&#34;//g;
        push @mails, &#036;palabra;
      }
    }
  }
  else {
  die &#34;Error: &#34;, &#036;respuesta-&#62;status_line, &#34;&#092;n&#34;;
  }
  return @mails;
}
my @mail = browser(&#34;http://www.pagina_para_buscar.com&#34;);
print &#34;Mails: &#34;, @mail, &#34;&#092;n&#34;;
 
 

cluster

gracias su como se corre eso, pobemos con esta pagina

su -

ahorita hago la implementacio, es que este prgrama solo toma los mails de una sola pagina.
En el url escrives esto:
http://www.iana.org/root-whois/ar.htm
que es la pagina de text (no tiene nada de especial, solo la enconte en yahoo buscando @ .ar)
Neseita un interprete de Perl, si estas en Windows tienes que hacer esto:
Windows MSI para 95 98 y NT
Y esto: http://www.activestate.com/Products/ActivePerl/
Si estas en Unix nada.
Copia el codigo a tu editor preferido, lo guardas .pl y desde una terminal ejecutas

Código: Text

perl nombre_de_archivo.pl
 

O mucho mejor:
- Copia esto -

Código: Text

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
sub browser {
 my &#036;url = shift;
 my @mails;
 my &#036;browser = LWP::UserAgent-&#62;new;
 &#036;browser-&#62;agent(&#34;solocodigoSpider/0.1&#34;);
 my &#036;req = HTTP::Request-&#62;new(GET =&#62; &#34;&#036;url&#34;);
 &#036;req-&#62;header('Accep' =&#62; 'text/html');
 my &#036;respuesta = &#036;browser-&#62;request(&#036;req);
 if(&#036;respuesta-&#62;is_success) {
   my &#036;pagina = &#036;respuesta-&#62;decoded_content;
   &#036;pagina =~ s/&#092;&#60;/ /g;
   &#036;pagina =~ s/&#092;&#62;/ /g;
   &#036;pagina =~ s/&#092;^M/ /g;
   &#036;pagina =~ s/&#092;// /g;
   &#036;pagina =~ s/br/ /g;
   &#036;pagina =~ s/tr/ /g;
   &#036;pagina =~ s/td/ /g;
   my @todo = split / /, &#036;pagina;
   foreach my &#036;palabra (@todo) {
     if(&#036;palabra =~ /^href=&#092;&#34;mailto:(.*)&#036;/){
       &#036;palabra =~ s/href=&#092;&#34;mailto://g;
       &#036;palabra =~ s/&#092;&#34;//g;
       push @mails, &#036;palabra;
     }
   }
 }
 else {
 die &#34;Error: &#34;, &#036;respuesta-&#62;status_line, &#34;&#092;n&#34;;
 }
 return @mails;
}
die &#34;Como usar: perl encontrarmail.pl http://pagina.com&#34; unless @ARGV 
my @mail = browser(&#34;&#036;ARVG[0]&#34;);
print &#34;Mails: &#34;, @mail, &#34;&#092;n&#34;;
 

su -

OK, ahora devera cojer hasta los "mail at gmail dot com"

cluster

su me salio esto
C:\>perl mailget.pl http://www.iana.org/root-whois/ar.htm
Use of uninitialized value in string at mailget.pl line 42
Error: 400 URL missing
ha y donde publicaste extractor de correos no descargar el archivo
a otra pregunta como es el comando para adicionar el bin de perl es que se me olvido en DOS le doy path c:\perl\bin pero solo me lo activa a esa ventana como es que se hace para que quede fijo. gracias

su -

Perdon, no puse $ARVG[0] que es el link poreso te dise eso.
Lo del recurso es por que el ftp no soporta extension .pl o pl.zip, ya lo arregle.
http://www.solocodigo.com/vftp/Varios/GetMail/mailget.zip

Citar

a otra pregunta como es el comando para adicionar el bin de perl es que se me olvido en DOS le doy path c:\perl\bin pero solo me lo activa a esa ventana como es que se hace para que quede fijo. gracias

Para el secript:
#!c:/perl/bin
Para el autoexec.bat o .nt

Código: Text

PATH=C:&#092;WINDOWS;C:&#092;WINDOWS&#092;COMMAND;C:&#092;Perl&#092;bin;
 

O puedes:

Código: Text

PATH=C:&#092;WINDOWS;C:&#092;WINDOWS&#092;COMMAND;
PATH=%PATH%;C:&#092;Perl&#092;bin;
 

PD: El PATH C:\WINDOWS;C:\WINDOWS\COMMAND; ya esta en el autoexec, solo hay que agregar el de Perl

cluster

exelente, toca hacer como algunos ajustes prueba con esta pagina http://www.meteorobs.org/maillist/msg17958.html. bueno ahora el siguiente paso es enviar los correos donde se puedan enviar fotos y texto, y tratar que se meta por los links como una araña.

su -

OK, me gusta el reto y ya encontre un gran bug, gracias por la pagina, esta perfecta.
PD: El spider tiene que segir el robot.txt del server (las reglas de adonde puede y no puede entrat)?

cluster

como vamos

su - · « **Respuesta #24 en:** Lunes 3 de Abril de 2006, 03:44 »

Falta un poquito, cuando ingreso el URL y tomo links me los da normalmente bien, pero otras me lo da con "#" y tengo que mejorar otra cosita, si tiene css y rss tomara el link, eso es facil de cambiar, pero he tenido un virus (no mi maquina si no yo

) que no he podido, buno va como en el 80%, diria yo.
En fin, todo tiene presio:
Si te doy este codigo tendras que hacerme el favor de instalar pp en tu maquina y "compilar" el codigo en windows (con pp, en el link te explican como) y hacer un .zip para subirlo al ftp en el directorio Varios/MailGet.
Para que?
Pues para que sea mas funcional y no tengas que instalar Perl para poderlo usar.
PD: lo del presio es si quieres, si no no hay problema.
Pronto lo tendre listo.