血統解析2015

名前(Twitterユーザ名(@以降の半角英数字))等から、血統等を解析します。
名前を入力し、「血統解析」ボタンを押してみてください。

[insert_php]
extract($_GET);
extract($_POST);
extract($_COOKIE);
extract($_SERVER);

echo ‘

名前: 

‘;

// 未入力ならスルー
if($in !=””){

// START
$out = crc32($in);
if($out < 0)$out = $out * -1; $out2 = crc32($out); if($out2 < 0)$out2 = $out2 * -1; $out3 = crc32($out2); if($out3 < 0)$out3 = $out3 * -1; $out4 = crc32($out3); if($out4 < 0)$out4 = $out4 * -1; $out = sprintf("%d%d%d%d", $out, $out2, $out3, $out4); $handle = fopen ("/home/evian/evian.wp.xdomain.jp/public_html/wp-content/uploads/2015/09/titi.txt", "r"); $i = 0; $titi_r_s = 0; $j_s = 0; while (!feof ($handle)) { $buffer = fgets($handle, 4096); list($titi[$i],$titi_r[$i])=explode(",", $buffer); $titi_r_s+=$titi_r[$i]; $i++; } fclose ($handle); $para = floor($out[2].$out[4].$out[6].$out[8].$out[0]); while ($para > $titi_r_s) {
$para-=$titi_r_s;
}
for($j=0;$j<$i;$j++){ if($para < $j_s+=$titi_r[$j]){ $ans_titi = $titi[$j]; break; } } $handle = fopen ("/home/evian/evian.wp.xdomain.jp/public_html/wp-content/uploads/2015/09/haha_titi.txt", "r"); $i = 0; $titi_r_s = 0; $j_s = 0; while (!feof ($handle)) { $buffer = fgets($handle, 4096); list($titi[$i],$titi_r[$i])=explode(",", $buffer); $titi_r_s+=$titi_r[$i]; $i++; } fclose ($handle); $para = floor($out[1].$out[3].$out[5].$out[7].$out[9]); while ($para > $titi_r_s) {
$para-=$titi_r_s;
}
for($j=0;$j<$i;$j++){ if($para < $j_s+=$titi_r[$j]){ $ans_haha_titi = $titi[$j]; break; } } $ans_titi_e = urlencode(mb_convert_encoding($ans_titi, "EUC-JP", "auto")); $ans_haha_titi_e = urlencode(mb_convert_encoding($ans_haha_titi, "EUC-JP", "auto")); $para_sp=floor($out[10].$out[12].$out[14]); $para_st=floor($out[11].$out[13].$out[15]); if(floor($out[16]) == 0){ $para_om="セン"; $para_om2="セン"; }else if(floor($out[16]) < 5){ $para_om='‘;
$para_om2=”牡”;
}else{
$para_om=’‘;
$para_om2=”牝”;
}
if(floor($out[17].$out[18]) < 1){ $para_ke="白毛"; $para_ke2="realshiroge.gif"; }else if(floor($out[17].$out[18]) < 7){ $para_ke="青毛"; $para_ke2="realaoge.gif"; }else if(floor($out[17].$out[18]) < 15){ $para_ke="青鹿毛"; $para_ke2="realaokage.gif"; }else if(floor($out[17].$out[18]) < 25){ $para_ke="栃栗毛"; $para_ke2="realtochi.gif"; }else if(floor($out[17].$out[18]) < 37){ $para_ke="黒鹿毛"; $para_ke2="realkurokage.gif"; }else if(floor($out[17].$out[18]) < 51){ $para_ke="芦毛"; $para_ke2="realashige.gif"; }else if(floor($out[17].$out[18]) < 66){ $para_ke="栗毛"; $para_ke2="realkurige.gif"; }else{ $para_ke="鹿毛"; $para_ke2="realkage.gif"; } if(floor($out[19].$out[20]) < 3){ $para_sy="北海道"; }else if(floor($out[19].$out[20]) < 6){ $para_sy="岩手"; }else if(floor($out[19].$out[20]) < 9){ $para_sy="浦和"; }else if(floor($out[19].$out[20]) < 12){ $para_sy="船橋"; }else if(floor($out[19].$out[20]) < 15){ $para_sy="大井"; }else if(floor($out[19].$out[20]) < 18){ $para_sy="川崎"; }else if(floor($out[19].$out[20]) < 21){ $para_sy="金沢"; }else if(floor($out[19].$out[20]) < 24){ $para_sy="笠松"; }else if(floor($out[19].$out[20]) < 27){ $para_sy="愛知"; }else if(floor($out[19].$out[20]) < 30){ $para_sy="兵庫"; }else if(floor($out[19].$out[20]) < 33){ $para_sy="高知"; }else if(floor($out[19].$out[20]) < 36){ $para_sy="佐賀"; }else if(floor($out[19].$out[20]) < 68){ $para_sy="美浦"; }else{ $para_sy="栗東"; } echo "


\n”;
echo “

\n「”.$in.”」の血統解析結果
\n”;
echo “ 父 :”.$ans_titi.'(産駒検索)’.”
\n”;
echo “ 母父:”.$ans_haha_titi.'(同配合馬検索)’.”
\n”;
echo “ 性別:”.$para_om.”
\n”;
echo “ 毛色:”.$para_ke.”
\n”;
echo “ 所属:”.$para_sy.”
\n”;
echo “

\n”;
echo “


\n”;

$twitter = “「”.$in.”」は、父:”.$ans_titi.” 母父:”.$ans_haha_titi.” 性別:”.$para_om2.” 毛色:”.$para_ke.” 所属:”.$para_sy.”です。 #血統診断2015 http://goo.gl/2pTNDG”;
$twitter_e = urlencode($twitter);

echo ‘

 診断結果をつぶやく!

‘.”\n”;
echo ‘

 コピペ用
 

\n”;

$f=fopen(“/home/evian/evian.wp.xdomain.jp/public_html/wp-content/uploads/2015/09/blood.txt”,”a”);
flock($f,LOCK_EX);
$fi=$twitter.”\n”;
fputs($f,$fi);
fclose($f);
}

// END
function make_seed() {
list($usec, $sec) = explode(‘ ‘, microtime());
return (float) $sec + ((float) $usec * 100000);
}
[/insert_php]

Posted by admin