Creando paquetes UDP

  • 1 Respuestas
  • 1772 Vistas

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

Desconectado mr.blood

  • *
  • Underc0der
  • Mensajes: 73
  • Actividad:
    0%
  • Reputación 0
  • Skype: [email protected]
    • Ver Perfil

Creando paquetes UDP

  • 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.-!
  • Skype: the.joker.crack
    • Ver Perfil

Re:Creando paquetes UDP

  • en: Mayo 13, 2013, 09:09:15 pm
Buen aporte hermano... :)

 

Creando gráficos con Perl

Iniciado por ProcessKill

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