- MSDN/TechNetサブスクリプション 25
394 ：名無し~3.EXE[sage]：2010/10/05(火) 17:48:43 ID:etwuOle5 - $Base24str1 = "BCDFGHJKMPQRTVWXY2346789";
for($i=0;$i<length($Base24str1);$i++){$Base24{substr($Base24str1,$i,1)} = $i;}
$binstr = "**70**75**79**7A**76****71**00"; #ここにいれる
for($i=0;$i<15;$i++){$binstrs[$i] = unpack("C1",pack("H2",substr($binstr,$i * 2,2)));}
for($i=0;$i<25;$i++){
$k = 0;
for($j=14;-1 < $j;$j--){
$k = $k * 256 + $binstrs[$j];
$binstrs[$j] = int($k / 24);
$k = $k % 24;
}
$s = 24 - $i;
$pidrev[$s] = substr($Base24str1,$k,1);
}
$PID = "";
for($i=0;$i<25;$i++){
$PID .= $pidrev[$i];
$PID .= "-" if ((($i % 5) == 4) && ($i < 24));
}
print $PID."\n";
|