※ 引述《in2 (海带呀海带~~)》之铭言：
: ※ 引述《SmallBeeWayn (喵喵叫的蜜蜂猫)》之铭言：
: : 最近登入一个之前写的旧网站
: : 怎样都登不进去，一直在研究程式码哪里有问题了
: : 结果后来发现，因为我有纪录登入IP，是在MySQL中一个varchar(15)的纪录
: : 拿来记录IPv4("255.255.255.255")是刚好
: : 可是IPv6最长长度可以到39byte
: : ("ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff")
: : 从而导致登入失败...
: : 记录一下提醒给其他将网站转往IPv6的人...
: 题外话,
: 我以为一般都是用 ip2long() / long2ip() 这类的把 ipv4
: 转成 unsigned 32bit integer, 而不是用 string 存 15 bytes.
: 也有人改了个 ipv6 的版本,
: http://thesocialexpo.com/?a=SUBS_Blog_Display&id=12981930190593528
: 只不过有个问题是这样子会生出一个 unsigned 128bit integer,
: 比 mysql 最大的 BIGINT (64bit) 还长一倍,
: 不知道是要怎么存比较好呢 orz
网络上几个比较精简的ipv6 to binary都用到inet_pton
可是那个只有比较新的PHP有支援(win32 5.3.0+, else 5.1.0+)
所以我自己重写了一个，输出为长度16Byte的Binary String
支援标准IPv4(0.0.0.0),IPv6(0:0:0:0:0:0:0:0)及混和模式含:
::0.0.0.0, IPv6::0.0.0.0, IPv6::IPv6
纯IPv4会前补"::" ex.192.168.0.0 => ::192.168.0.0
如果缺"."会后补零 ex.192.168.0 => 192.168.0.0
缺":"且无"::"则是前补"::" ex.c0a8:0 => ::c0a8:0
若是前后都缺 ex.c0a8:192.168 => ::c0a8:192.168.0.0
====================以下为程式码====================
function ip2bin($ip) {
$ret=array_fill(0,8,0);
if(strpos($ip,":")!==false) { //IPv6
$ip6cs=strpos($ip,"::");
if($ip6cs!==false) {
$ip6s=explode(':',substr($ip,0,$ip6cs));
for($i=0;$i<count($ip6s);$i++) $ret[$i]=hexdec($ip6s[$i]);
$ip6s=explode(':',substr($ip,$ip6cs+2));
} else {
$ip6s=explode(':',$ip);
}
$ip6cs=count($ip6s)-1;
if(strpos($ip6s[$ip6cs],'.')) { //IPv6:IPv4
$a4=explode(".",$ip6s[$ip6cs]);
$ip6s[$ip6cs]=dechex($a4[0]*256+$a4[1]);
$ip6cs++;
$ip6s[$ip6cs]=dechex($a4[2]*256+$a4[3]);
}
for($i=0;$i<=$ip6cs;$i++) $ret[7-$ip6cs+$i]=hexdec($ip6s[$i]);
} else if(strpos($ip,'.')) { //IPv4
$a4=explode(".",$ip);
$ret[6]=$a4[0]*256+$a4[1];
$ret[7]=$a4[2]*256+$a4[3];
}
return pack("n*",$ret[0],$ret[1],$ret[2],$ret[3]
,$ret[4],$ret[5],$ret[6],$ret[7]);
}