| NET :: DNS :: Kit de herramientas NET :: DNS :: Toolkit son herramientas para trabajar con paquetes DNS. |
Descargar ahora |
NET :: DNS :: Kit de herramientas Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Michael Robinton
- Sitio web del editor:
- http://search.cpan.org/~miker/Net-DNS-Codes-0.09/Codes.pm
NET :: DNS :: Kit de herramientas Etiquetas
NET :: DNS :: Kit de herramientas Descripción
NET :: DNS :: Toolkit son herramientas para trabajar con paquetes DNS. NET :: DNS :: Toolkit son herramientas para trabajar con paquetes DNS.Synopsis Use Net :: DNS :: Toolkit QW (get1char get16 get32 put1char put11 put32 getIpv4 putiPv4 putiPv6 getipv6 getstring putstring dn_char gethead newhead getflags get_qdcount get_ancount get_n_count get_ancount get_ndcount get_ancount get_nscount get_arcount put_qdcount put_ancount put_qdcount put_ancount put_qdcount put_ancount PUT_NSCOUNT PUT_ARCOUNT INET_ATON INET_NTOA IPV6_ATON IPV6_N2X IPV6_N2D SEC2TETE TTLALPHA2NUM COLLAPSE STREK GET_NS GETTETEBEOFDAY); $ char = get1char ($ buffer, $ offset); ($ INT, $ NEWOFF) = get16 ($ buffer, $ offset); ($ LONG, $ NEWOFF) = get32 ($ buffer, $ offset); $ NEWOFF = PUT1CHAR ($ BUFFER, $ OFFSET, $ U_CHAR); $ NEWROFF = PUT16 ($ BUFFER, $ OFFSET, $ INT); $ NEWROFF = PUT32 ($ BUFFER, $ OFFSET, $ LONG); $ banderas = getflags ($ búfer); $ int = get_qdcount ($ buffer); $ int = get_ancount ($ buffer); $ int = get_nscount ($ buffer); $ int = get_arcount ($ buffer); $ newoff = put_qdcount ($ búfer, $ int); $ newoff = put_ancount ($ buffer, $ int); $ newoff = put_nscount ($ buffer, $ int); $ newoff = put_arcount ($ buffer, $ int); ($ NETADDR, $ NEWOFF) = GetIPV4 ($ buffer, $ offset); $ NEWROFF = PUTIPV4 ($ BUFFER, $ OFFSET, $ NETADDR); ($ IPv6ADDR, $ NEWOFF) = GetIPV6 ($ BUFFER, $ OFFSET); $ NEWROFF = PUTIPV6 ($ BUFFER, $ OFFSET, $ IPv6Addr); ($ offset, $ id, $ qr, $ opcode, $ aa, $ tc, $ rd, $ ra, $ mbz, $ ad, $ cd, $ rcode, $ qdcount, $ ancount, $ nscount, $ arcount) = Gethead ($ buffer); $ Newoff = Newhead ($ búfer, $ id, $ banderas, $ QDcount, $ Ancount, $ NSteunt, $ Arcount); ($ b, $ h, $ D, $ A) = parse_char ($ char); ($ nuevo, $ nombre) = dn_expand ($ buffer, $ offset); ($ NEWOFF, @ DNPTRS) = DN_COMP ($ BUFFER, $ OFFSET, $ nombre, @ dnptrs); $ dotquad = inet_nttoa ($ NETADDR); $ netaddr = inet_aton ($ dotquad); $ ipv6addr = ipv6_aton ($ ipv6_text); $ hex_text = ipv6_n2x ($ IPv6Addr); $ Dec_Text = IPv6_N2D ($ IPv6Addr); $ timetxt = sec2time ($ segundos); $ segundos = ttlalpha2num ($ timetext); $ Shorthost = colapso ($ zonename, $ longhost); $ Tag = Strip ($ P_TAG); @nameservers = get_ns (); ($ SECS, $ USECS) = gettimeofday (); Rutinas para elegir, examinar y juntar paquetes DNS. Se pueden usar para fines de diagnóstico o como bloques de construcción para aplicaciones DNS, como servidores DNS y clientes o para permitir que las aplicaciones de usuario interactúen directamente con servidores DNS remotos. Requisitos: · Perl
NET :: DNS :: Kit de herramientas Software relacionado