erlang icmp有什么好的建议？

laputa73

回复 9# q1208c


    可用带宽的话，有很多模型，不止pathchar
   http://gehaowei198317.blog.163.c ... 123201112111182435/
    而且也没必要用erlang吧，这个一旦并发，就不准了

q1208c

回复 11# laputa73


并发不是不准的原因, 是计算方法的问题.

pathchar, 我用过, 并不十分准确.

netperf 我也用过, 需要 一个 server, 但相对好一些.


我想用erlang的原因, 是因为前面我提到过的一个 监控系统的 原因 .

能够原生, 我就不想 port.     

shijiang1130

ping 的c源代码： 1. https://www.cs.utah.edu/~swalton ... part4/chap18/ping.c
c++ 2. http://research.microsoft.com/en ... mes/ping/ping.c.htm
mac 3. http://www.opensource.apple.com/ ... 1/ping.tproj/ping.c

shijiang1130

还有一个mini ping实现： http://git.busybox.net/busybox/plain/networking/ping.c

shijiang1130

1. sock = socket(AF_INET, SOCK_RAW, 1); /* 1 == ICMP */
2. xsendto(pingsock, G.packet, DEFDATALEN + ICMP_MINLEN, &lsa->u.sa, lsa->len);
3.

1. /* listen for replies */
   
2.         while (1) {
   
3. #if 0
   
4.                 struct sockaddr_in from;
   
5.                 socklen_t fromlen = sizeof(from);
   
6. 
   
7.                 c = recvfrom(pingsock, G.packet, sizeof(G.packet), 0,
   
8.                                 (struct sockaddr *) &from, &fromlen);
   
9. #else
   
10.                 c = recv(pingsock, G.packet, sizeof(G.packet), 0);
    
11. #endif
    
12.                 if (c < 0) {
    
13.                         if (errno != EINTR)
    
14.                                 bb_perror_msg("recvfrom");
    
15.                         continue;
    
16.                 }
    
17.                 if (c >= 76) {                        /* ip + icmp */
    
18.                         struct iphdr *iphdr = (struct iphdr *) G.packet;
    
19. 
    
20.                         pkt = (struct icmp *) (G.packet + (iphdr->ihl << 2));        /* skip ip hdr */
    
21.                         if (pkt->icmp_type == ICMP_ECHOREPLY)
    
22.                                 break;
    
23.                 }
    
24.         }
    
25.         if (ENABLE_FEATURE_CLEAN_UP)
    
26.                 close(pingsock);

复制代码

shijiang1130

这在erlang里有可能实现么？

shijiang1130

        case ICMP_ECHOREPLY:      return "Echo Reply";
        case ICMP_DEST_UNREACH:   return "Destination Unreachable";
        case ICMP_SOURCE_QUENCH:  return "Source Quench";
        case ICMP_REDIRECT:       return "Redirect (change route)";
        case ICMP_ECHO:           return "Echo Request";
        case ICMP_TIME_EXCEEDED:  return "Time Exceeded";
        case ICMP_PARAMETERPROB:  return "Parameter Problem";
        case ICMP_TIMESTAMP:      return "Timestamp Request";
        case ICMP_TIMESTAMPREPLY: return "Timestamp Reply";
        case ICMP_INFO_REQUEST:   return "Information Request";
        case ICMP_INFO_REPLY:     return "Information Reply";
        case ICMP_ADDRESS:        return "Address Mask Request";
        case ICMP_ADDRESSREPLY:   return "Address Mask Reply";
        default:                  return "unknown ICMP type";

shijiang1130

https://blogs.oracle.com/ksplice ... _doing_writing_your 这个有一个python的例子

shijiang1130

http://www.erlang.org/doc/man/inet.html 在erlang里估计得用inet模块来做， 据这篇文档说：《http://msdn.microsoft.com/en-us/ ... 8%28v=vs.85%29.aspx》：
Limitations on Raw Sockets

On Windows 7, Windows Vista, Windows XP with Service Pack 2 (SP2), and Windows XP with Service Pack 3 (SP3), the ability to send traffic over raw sockets has been restricted in several ways:
TCP data cannot be sent over raw sockets.
UDP datagrams with an invalid source address cannot be sent over raw sockets. The IP source address for any outgoing UDP datagram must exist on a network interface or the datagram is dropped. This change was made to limit the ability of malicious code to create distributed denial-of-service attacks and limits the ability to send spoofed packets (TCP/IP packets with a forged source IP address).
A call to the bind function with a raw socket for the IPPROTO_TCP protocol is not allowed.
Note  The bind function with a raw socket is allowed for other protocols (IPPROTO_IP, IPPROTO_UDP, or IPPROTO_SCTP, for example).
These above restrictions do not apply to Windows Server 2008 R2, Windows Server 2008 , Windows Server 2003, or to versions of the operating system earlier than Windows XP with SP2.

shijiang1130

1. use Socket;
   
2. my $pid = $ & 0xffff;
   
3. 
   
4. socket(SOCK,PF_INET,SOCK_RAW,getprotobyname('icmp'));
   
5. my $saddr = sockaddr_in(0,inet_aton('8.8.8.8'));
   
6. my $msg =  pack("C2 n3",8,0,0,$pid,1);
   
7. my $send_msg = checksum($msg);
   
8. 
   
9. $msg = pack("C2 n3",8,0,$send_msg,$pid,1);
   
10. send(SOCK,$msg,0,$saddr);
    
11. recv(SOCK,$buff,1500,0);
    
12. my($icmp_type, $icmp_subcode,$icmp_cksum,$icmp_pid,$icmp_seq) = unpack("C2 n3",substr($buff,20,8));
    
13.   close(SOCK) ;
    
14. 
    
15. sub checksum  {
    
16.   my ($msg) = @_;
    
17.   my ($len_msg, $num_short, $short, $chk);
    
18.   $len_msg = length($msg);
    
19.   $num_short = int($len_msg / 2);
    
20.   $chk = 0;
    
21.   foreach $short (unpack("n$num_short", $msg)){
    
22.     $chk += $short;
    
23.   }
    
24.   $chk += (unpack("C", substr($msg, $len_msg - 1, 1)) << 8) if $len_msg % 2;
    
25.   $chk = ($chk >> 16) + ($chk & 0xffff); # Fold high into low
    
26.   return(~(($chk >> 16) + $chk) & 0xffff); # Again and complement
    
27. }

复制代码