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
  • 1324 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 No tienes permisos para ver links. Registrate o Entra con tu cuenta

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

Fuentes:
No tienes permisos para ver links. Registrate o Entra con tu cuenta (Me apoye para los pack)
No tienes permisos para ver links. Registrate o Entra con tu cuenta (Me apoye para los pack tambien)
Propia (Horas mirando con Wireshark)
No tienes permisos para ver links. Registrate o Entra con tu cuenta

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