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 ret=xor(v, 0xffffffff)
31 slpos=index(ARGV[1],"/")
33 ipaddr=ip2int(ARGV[1])
34 netmask=ip2int(ARGV[2])
36 ipaddr=ip2int(substr(ARGV[1],0,slpos-1))
37 netmask=compl32(2**(32-int(substr(ARGV[1],slpos+1)))-1)
42 network=and(ipaddr,netmask)
43 broadcast=or(network,compl32(netmask))
45 start=or(network,and(ip2int(ARGV[3]),compl32(netmask)))
47 if (start<limit) start=limit
50 limit=or(network,compl32(netmask))-1
51 if (end>limit) end=limit
53 print "IP="int2ip(ipaddr)
54 print "NETMASK="int2ip(netmask)
55 print "BROADCAST="int2ip(broadcast)
56 print "NETWORK="int2ip(network)
57 print "PREFIX="32-bitcount(compl32(netmask))
60 # ipcalc <ip> <netmask> <start> <num>
63 print "START="int2ip(start)
64 print "END="int2ip(end)