Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Creando paquetes UDP

  • 1 Respuestas
  • 1714 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado mr.blood

« en: Mayo 13, 2013, 07:39:40 pm »
De mr.blood para anonymousfree.com.ar

Como no queremos liarnos mas de lo necesario dejamos los checksum a 0.

Codigo cliente.

Código: Perl
  1. #!/usr/bin/perl
  2. use Socket;
  3. use strict;
  4.  
  5. #~ Datos
  6. my $data        =       "Hi!\n";
  7. #~ UDP Header
  8. my %udp         =       (sport=>(rand(3000)+5001), dport=>5000, len=>8+length($data), checksum=>0);
  9. #~ IP Header
  10. my %ip          =       (version=>4, IHL=>"45", ToS=>0, TL=>0, ID=>rand(20000), flags=>"010", FO=>"0"x13, TTL=>64,
  11.                                 Proto=>17, checksum=>0, saddr=>(gethostbyname("111.111.111.111"))[4],
  12.                                 daddr=>(gethostbyname("127.0.0.1"))[4]);
  13.  
  14. #~ Esto es cosa del protocolo IP, los flags y FO van "juntos"
  15. my $ip_flags_FO=$ip{flags}.$ip{FO};
  16.  
  17. #~ Preparamos el paquete
  18. my $paquete=pack("H2H2nnB16C2na4a4", $ip{IHL}, $ip{ToS}, $ip{TL}, $ip{ID},
  19.                         $ip_flags_FO, $ip{TTL}, $ip{Proto},
  20.                         $ip{checksum}, $ip{saddr},      $ip{daddr}).pack("nnnn",$udp{sport},
  21.                         $udp{dport}, $udp{len}, $udp{checksum}).pack("a*", $data);
  22.  
  23. #~ Creamos el descriptor en SOCK del tipo SOCK_RAW
  24. socket(SOCK, AF_INET, SOCK_RAW, 255);
  25. #~ Para que la funcion send sepa donde enviarlo
  26. my $destino = pack('Sna4x8', AF_INET, $udp{dport}, $ip{daddr});
  27. send(SOCK,$paquete,0,$destino);
  28.  

Fuentes:
http://rhosted.blogspot.com.es/2009/08/creating-udp-packetip-spoofing-through.html (Me apoye para los pack)
http://www.ietf.org/rfc/rfc791.txt (Me apoye para los pack tambien)
Propia (Horas mirando con Wireshark)
http://perldoc.perl.org/functions/pack.html

Sa1uDoS

P.D.: Como vereis por las fuentes los pack no son lo mio xD.

Desconectado PW[N]ED

  • *
  • Underc0der
  • Mensajes: 14
  • Actividad:
    0%
  • Reputación 0
  • PW[N]ED underc0de.-!
    • Ver Perfil
  • Skype: the.joker.crack
« Respuesta #1 en: Mayo 13, 2013, 09:09:15 pm »
Buen aporte hermano... :)

 

¿Te gustó el post? COMPARTILO!



Creando gráficos con Perl

Iniciado por ProcessKill

Respuestas: 0
Vistas: 1709
Último mensaje Febrero 24, 2010, 04:40:46 pm
por ProcessKill