comment
IRC Chat
play_arrow
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
  • 1294 Vistas

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

Desconectado mr.blood

  • *
  • Underc0der
  • Mensajes: 73
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
  • Skype: red_ink@hotmail.es
« en: Mayo 13, 2013, 07:39:40 pm »
De mr.blood para You are not allowed to view links. Register or Login

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=>(You are not allowed to view links. Register or Login(3000)+5001), dport=>5000, len=>8+You are not allowed to view links. Register or Login($data), checksum=>0);
  9. #~ IP Header
  10. my %ip          =       (version=>4, IHL=>"45", ToS=>0, TL=>0, ID=>You are not allowed to view links. Register or Login(20000), flags=>"010", FO=>"0"x13, TTL=>64,
  11.                                 Proto=>17, checksum=>0, saddr=>(You are not allowed to view links. Register or Login("111.111.111.111"))[4],
  12.                                 daddr=>(You are not allowed to view links. Register or Login("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=You are not allowed to view links. Register or Login("H2H2nnB16C2na4a4", $ip{IHL}, $ip{ToS}, $ip{TL}, $ip{ID},
  19.                         $ip_flags_FO, $ip{TTL}, $ip{Proto},
  20.                         $ip{checksum}, $ip{saddr},      $ip{daddr}).You are not allowed to view links. Register or Login("nnnn",$udp{sport},
  21.                         $udp{dport}, $udp{len}, $udp{checksum}).You are not allowed to view links. Register or Login("a*", $data);
  22.  
  23. #~ Creamos el descriptor en SOCK del tipo SOCK_RAW
  24. You are not allowed to view links. Register or Login(SOCK, AF_INET, SOCK_RAW, 255);
  25. #~ Para que la funcion send sepa donde enviarlo
  26. my $destino = You are not allowed to view links. Register or Login('Sna4x8', AF_INET, $udp{dport}, $ip{daddr});
  27. You are not allowed to view links. Register or Login(SOCK,$paquete,0,$destino);
  28.  

Fuentes:
You are not allowed to view links. Register or Login (Me apoye para los pack)
You are not allowed to view links. Register or Login (Me apoye para los pack tambien)
Propia (Horas mirando con Wireshark)
You are not allowed to view links. Register or Login

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: 1146
Último mensaje Febrero 24, 2010, 04:40:46 pm
por ProcessKill