erlang icmp有什么好的建議？

laputa73

回復(fù) 9# q1208c


    可用帶寬的話，有很多模型，不止pathchar
   http://gehaowei198317.blog.163.c ... 123201112111182435/
    而且也沒必要用erlang吧，這個一旦并發(fā)，就不準了

q1208c

回復(fù) 11# laputa73


并發(fā)不是不準的原因, 是計算方法的問題.

pathchar, 我用過, 并不十分準確.

netperf 我也用過, 需要 一個 server, 但相對好一些.


我想用erlang的原因, 是因為前面我提到過的一個 監(jiān)控系統(tǒng)的 原因 .

能夠原生, 我就不想 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實現(xiàn)： 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);

復(fù)制代碼

shijiang1130

這在erlang里有可能實現(xiàn)么？

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模塊來做， 據(jù)這篇文檔說：《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. }

復(fù)制代碼