[其他] 如何输出两个ip之间所有ip

# -*- coding: utf-8 -*-
"""
Created on Fri Apr 27 01:45:55 2018
@author: codegay
python3 & 编辑器 == spyder
"""


# 把IP地址转换为一个自然数
def IPToN(ipaddr, sep='.'):
    ip = [int(i) for i in ipaddr.split(sep)]
    result = ip[0]*256**3 + ip[1]*256**2 + ip[2]*256 + ip[3]
    return result


# 把一个自然数转换成IP
def NToIP(natural, sep='.'):
    ip = int(natural)
    result = [ip >> 24, (ip & 0x00FF0000) >> 16, (ip & 0x0000FF00) >> 8, ip & 0x000000FF]
    result = sep.join(map(str, result))
    return result


def iprange(start, end, newline=''):
    result = [NToIP(n)+newline for n in range(IPToN(start), IPToN(end)+1)]
    return result

print(IPToN("58.217.200.112"))
print(IPToN("10.0.3.193"))

print(NToIP(987351152))

print(iprange("192.168.1.1", "192.168.1.255"))

with open("ip.txt") as f:
    lines = [r.rstrip().split(" ") for r in f.readlines()]
    for line in lines:
        with open("result.txt", "w+") as rf:
            rf.writelines(iprange(line[0], line[1], newline='\r\n'))
复制代码

@echo off&setlocal enabledelayedexpansion
set ip1=251.1.0.1
set ip2=251.2.0.1
>"iplist.txt" (for /l %%a in () do (
    if not defined t (
        set t=%ip1%
    ) else (
        set s=
        for /f "tokens=1-4 delims=." %%b in ("!t!") do set s=%%e %%d %%c %%b
        set c=0
        set "ip="
        for %%b in (!s!) do (
            if not defined ip (
                if %%b equ 255 (
                    set ip=0
                    set c=1
                ) else (
                    set /a d=%%b+1
                    set ip=!d!
                )
            ) else (
                if !c! equ 1 (
                    if %%b equ 255 (
                        set ip=0.!ip!
                    ) else (
                        set /a e=%%b+c
                        set ip=!e!.!ip!
                        set c=0
                    )
                ) else set ip=%%b.!ip!
            )
        )
        set t=!ip!
    )
    echo;!t!
    if not defined ip2 (
        if !t! equ 255.255.255.255 exit
    ) else (if !t! equ %ip2% exit)
))
复制代码

perl -ne "($start,$end)=map eval,split;for($ip=$start;$ip le $end;$ip=pack q/N/,1+unpack q/N/,$ip){printf qq/%vd\n/,$ip}" ip.txt
复制代码