5 c=and(rshift(c, 1),0x55555555)+and(c,0x55555555)
6 c=and(rshift(c, 2),0x33333333)+and(c,0x33333333)
7 c=and(rshift(c, 4),0x0f0f0f0f)+and(c,0x0f0f0f0f)
8 c=and(rshift(c, 8),0x00ff00ff)+and(c,0x00ff00ff)
9 c=and(rshift(c,16),0x0000ffff)+and(c,0x0000ffff)
14 for (ret=0,n=split(ip,a,"\."),x=1;x<=n;x++) ret=or(lshift(ret,8),a[x])
18 function int2ip(ip,ret,x) {
21 for(;x<3;ret=and(ip,255)"."ret,ip=rshift(ip,8),x++);
26 ipaddr=ip2int(ARGV[1])
27 netmask=ip2int(ARGV[2])
28 network=and(ipaddr,netmask)
29 broadcast=or(network,compl(netmask))
31 start=or(network,and(ip2int(ARGV[3]),compl(netmask)))
33 if (start<limit) start=limit
36 limit=or(network,compl(netmask))-1
37 if (end>limit) end=limit
39 print "IP="int2ip(ipaddr)
40 print "NETMASK="int2ip(netmask)
41 print "BROADCAST="int2ip(broadcast)
42 print "NETWORK="int2ip(network)
43 print "PREFIX="32-bitcount(compl(netmask))
46 # ipcalc <ip> <netmask> <start> <num>
49 print "START="int2ip(start)
50 print "END="int2ip(end)