net :: libdnet. Dug Song의 libdnet 용 바인딩
지금 다운로드

net :: libdnet. 순위 및 요약

net :: libdnet. 태그

Perl 모듈 펄 제본 libdnet. 더그 송 libdnet 바인딩

net :: libdnet. 설명

파고 송의 libdnet에 대한 바인딩 net :: libdnet은 네트워크 주소 조작, 커널 ARP 캐시 및 라우트 테이블 조회 및 조작, 네트워크 방화벽 검색 및 조작, 네트워크 트래픽 차단을 포함하여 여러 개의 저수준 네트워킹 루틴에 대한 단순화 된 휴대용 인터페이스를 제공하는 Perl 모듈입니다. 터널 인터페이스 및 원시 IP 패킷 및 이더넷 프레임 전송을 통해 LIBPCAP.ALL에서 제공하는 기능을 보완하기위한 것입니다. 원래 및 쓸모없는 함수는 해제되지 않은 경우 문제가 발생할 때 표준 오류에 경고 메시지를 인쇄합니다. 쓸모없는 함수는 addr_cmp, addr_bcast, addr_net, arp_add, arp_get_get, intf_get, intf_get_src, intf_get_dst, route_add, route_delete, route_get.these osbsolete 함수가 계속 작동하여 역 호환성을 유지하지만 더 이상 사용하면 안됩니다. 새로운 API가 선호되어야합니다. 하나의 새로운 API가 있으며, 하나는 낮은 수준의 LibdNet 함수 일치하고 다른 하나는 Perl 객체 지향 프로그래밍과 일치하는 고급 API입니다. 이 최신 것은 매우 선호합니다. 슬리브 모듈은 낮은 수준의 API를 구현합니다. 하이 레벨 API는 다음 모듈을 사용하여 액세스 할 수 있습니다. net :: libdnet :: intf, net :: libdnet :: route, net :: libdnet :: fw, net :: libdnet :: arp, net :: libdnet : : eth, net :: libdnet :: IP 및 net :: libdnet :: tun.synopsis # # 이것은 모든 함수와 상수 # net :: libdnet을 사용합니다. # # 네트워크 인터페이스 조작 # !!! 조언 : net :: libdnet :: intf 대신 net :: libdnet qw (: intf)를 사용해야합니다. MY $ INTF = DNET_INTF_OPEN (); MY $ ETH = DNET_INTF_GET ($ intf, {intf_name => 'eth0'}); "IP :"인쇄하십시오. $ eth -> {intf_addr}. "\ n"; 인쇄 "Mac :". $ eth -> {intf_link_addr}. "\ n"; MY $ DST = DNET_INTF_GET_DST ($ INTF, '192.168.0.10'); "name :". $ dst -> {intf_name} "\ n"; "IP :"인쇄하십시오. $ dst -> {intf_addr}. "\ n"; "Mac :"인쇄하십시오. $ dst -> {intf_link_addr}. "\ n"; 내 $ src = dnet_intf_get_src ($ intf, '192.168.0.1'); "name :". $ src -> {intf_name} "\ n"; "IP :"인쇄하십시오. $ src -> {intf_addr}. "\ n"; 인쇄 "Mac :". $ src -> {intf_link_addr}. "\ n"; dnet_intf_close ($ intf); # # # ARP 캐시 조작 # !!! 조언 : Net :: libdnet :: arp 대신 # net :: libdnet qw (: ARP)를 사용해야합니다. MY $ ARP = DNET_ARP_OPEN (); 내 $ entry = dnet_arp_get ($ arp, {arp_pa => '10 .0.0.1 '}); "Mac :"인쇄하십시오. $ entry -> {arp_ha} "\ n"; dnet_arp_add ($ arp, {arp_ha => '00 : 11 : 22 : 33 : 44 : 55 ', arp_pa => '10 .0.0.10'}); dnet_arp_delete ($ arp, {arp_ha => '00 : 11 : 22 : 33 : 44 : 55 ', arp_pa => '10 .0.0.10'}); DNET_ARP_CLOSE ($ ARP); # # 루트 테이블 조작 # !!! 조언 : net :: libdnet :: lorting 대신 # net :: libdnet qw (: 경로)를 사용해야합니다. MY $ ROUTE = DNET_ROUTE_OPEN (); DNET_ROUTE_ADD ($ ROUTE, {ROUTE_GW => '10.0.0.1 ', ROUTE_DST =>'192.168.0.1 '}); DNET_ROUTE_DELETE ($ ROUTE, {ROUTE_GW => '10 .0.0.1 ', ROUTE_DST =>'192.168.0.1 '}); $ GET = DNET_ROUTE_GET ($ ROUTE, {ROUTE_DST => '192.168.0.10'}); "GW :"인쇄하십시오. $ get -> {route_gw}. "\ n"; DNET_ROUTE_CLOSE ($ ROUTE); # # 방화벽 규칙 조작 # !!! 조언 : 대신 net :: libdnet :: fw를 사용해야합니다. net :: libdnet qw (: fw : const); 내 $ fw = dnet_fw_open (); # 이것은 매우 복잡합니다. 이 규칙은 TCP를 10.0.0.1 # 0.0.0.1 # Net :: libdnet :: fw를 사용해야합니다. dnet_fw_add ($ fw, {fw_op => fw_dir_in, fw_proto => 6, fw_dst => '10 .0.0.1 '}); dnet_fw_delete ($ fw, {fw_op => fw_dir_in, fw_proto => 6, fw_dst => '10 .0.0.1 '}); DNET_FW_CLOSE ($ FW); # # # IP 레벨 # # !!! 조언 : Net :: libdnet :: IP 대신 # net :: libdnet qw (: IP)를 사용해야합니다. MY $ IP = DNET_IP_OPEN (); MY $ RAW = "\ x47 \ x47 \ x47 \ x47"; DNET_IP_SEND ($ IP, $ RAW, 길이 ($ RAW)); DNET_IP_CLOSE ($ IP); # # 이더넷 레벨 # # !!! 조언 : net :: libdnet :: eth 대신 # net :: libdnet qw (: eth)를 사용해야합니다. 내 $ eth = dnet_eth_open ( 'eth0'); DNET_ETH_SEND ($ eth, $ raw, 길이 ($ raw)); DNET_ETH_CLOSE ($ eth); # # 교통 차단 # # !!! 조언 : net :: libdnet :: tun 대신 # net :: libdnet qw (: Tun)를 사용해야합니다. MY $ TUN = DNET_TUN_OPEN ('10.0.0.10 ','192.168.0.10 ', 1500); MY $ BUF = DNET_TUN_RECV ($ TUN, 1500); # $ BUF DNET_TUN_SEND ($ TUN, $ BUF, 길이 ($ BUF))를 사용하여 물건을 수행하십시오. DNET_TUN_CLOSE ($ TUN); # # intf = {intf_len => 112, intf_len => intf_name => 'eth0', intf_name => nodef, intf_link_addr => '0000 : 11 : 22 : 33 : 44 : 55 ', intf_flags => 49, intf_addr => '10 .100.0.10 / 24', intf_alias_addrs => }; MY $ ARP = {ARP_PA => '10 .100.0.1 ', ARP_HA => '11 : 22 : 33 : 44 : 55 : 66'}; MY $ ROUTE = {ROUTE_GW => '10 .100.0.1 ', route_dst =>'0.0.0.0/0 '}; MY $ FW = {fw_dir => 2, fw_sport => , fw_dport => , fw_src => '0.0.0.0/0', fw_dst => '0.0.0.0/0', fw_proto => 6, fw_device => 'eth0', fw_op => 2}; 요구 사항 : · Perl.

net :: libdnet. 관련 소프트웨어