ore.cgi
#ユーザー管理基礎
sub usercheckkiso{
$souzaiflag = 0;
while(<US>){
($checksaku, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $charadata) = split /<p>/;
if($saku eq $checksaku){
$userdata = $_;
@players = split(/<c>/, $charadata);
for($i=0; $i<9; $i++){
($d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $checksakusya, $checkkojin) = split(/<>/, $players[$i]);
if($sakusya eq $checksakusya && $kojin eq $checkkojin){
&set_cookie;
$souzaiflag = 1;
}
}
for($i=9; $i<18; $i++){
($d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $checksakusya, $checkkojin) = split(/<>/, $players[$i]);
if($sakusya eq $checksakusya && $kojin eq $checkkojin){
&set_cookie;
$souzaiflag = 1;
}
}
last;
}
$user_jun++;
}
↓
#ユーザー管理基礎
sub usercheckkiso{
$souzaiflag = 0;
while(<US>){
($checksaku, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $charadata) = split /<p>/;
if($saku eq $checksaku){
$userdata = $_;
@players = split(/<c>/, $charadata);
for($i=0; $i<9; $i++){
($d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $checksakusya, $checkkojin) = split(/<>/, $players[$i]);
if($sakusya eq $checksakusya && crypt ("$kojin", 'or') eq $checkkojin){
&set_cookie;
$souzaiflag = 1;
}
}
for($i=9; $i<18; $i++){
($d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $d, $checksakusya, $checkkojin) = split(/<>/, $players[$i]);
if($sakusya eq $checksakusya && crypt ("$kojin", 'or') eq $checkkojin){
&set_cookie;
$souzaiflag = 1;
}
}
last;
}
$user_jun++;
}
}#end sub
login.cgi
sub logintopを修正する
($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $box[$i], $hit[$i], $ten[$i], $hr[$i], $ste[$i], $err[$i], $for[$i], $gid[$i], $tbox[$i], $thit[$i], $tten[$i], $thr[$i], $tste[$i] ,$terr[$i], $tfor[$i], $tgid[$i]) = split(/<>/, $players[$i]);
if($kojin eq $kojin[$i] && $sakusya eq $sakusya[$i] && $sakusya ne "$no_player" && $sakusya ne "$sp_player"){ $ok = $i; }
if($sakusya[$i] ne "$no_player" && $sakusya[$i] ne "$sp_player"){ $nowpeople++; }
$namae[$i] = $yasyu[$i];
$sakusyatoku[$i] = $sakusya[$i];
↓
($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $box[$i], $hit[$i], $ten[$i], $hr[$i], $ste[$i], $err[$i], $for[$i], $gid[$i], $tbox[$i], $thit[$i], $tten[$i], $thr[$i], $tste[$i] ,$terr[$i], $tfor[$i], $tgid[$i]) = split(/<>/, $players[$i]);
if(crypt ("$kojin", 'or') eq $kojin[$i] && $sakusya eq $sakusya[$i] && $sakusya ne "$no_player" && $sakusya ne "$sp_player"){ $ok = $i; }
if($sakusya[$i] ne "$no_player" && $sakusya[$i] ne "$sp_player"){ $nowpeople++; }
$namae[$i] = $yasyu[$i];
$sakusyatoku[$i] = $sakusya[$i];
($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $pitwin[$i], $pitlose[$i], $kai[$i], $jiseki[$i], $san[$i], $four[$i], $hrp[$i], $save[$i], $tpitwin[$i], $tpitlose[$i], $tkai[$i], $tjiseki[$i], $tsan[$i], $tfour[$i], $thrp[$i], $tsave[$i]) = split(/<>/, $players[$i]);
if($kojin eq $kojin[$i] && $sakusya eq $sakusya[$i] && $sakusya ne "$no_player" && $sakusya ne "$sp_player"){ $ok = $i; }
if($sakusya[$i] ne "$no_player" && $sakusya[$i] ne "$sp_player"){ $nowpeople++; }
$namae[$i] = $pitch[$i];
$sakusyatoku[$i] = $sakusya[$i];
↓
($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $box[$i], $hit[$i], $ten[$i], $hr[$i], $ste[$i], $err[$i], $for[$i], $gid[$i], $tbox[$i], $thit[$i], $tten[$i], $thr[$i], $tste[$i] ,$terr[$i], $tfor[$i], $tgid[$i]) = split(/<>/, $players[$i]);
if(crypt ("$kojin", 'or') eq $kojin[$i] && $sakusya eq $sakusya[$i] && $sakusya ne "$no_player" && $sakusya ne "$sp_player"){ $ok = $i; }
if($sakusya[$i] ne "$no_player" && $sakusya[$i] ne "$sp_player"){ $nowpeople++; }
$namae[$i] = $yasyu[$i];
$sakusyatoku[$i] = $sakusya[$i];
sub trade2を修正する
# ユーザーファイルからデータ抽出＆選手名取得
for($u=0; $u<2; $u++){
if($u eq 0){ open(US,"+<$leaguefold/$userfile") || &error('指定されたファイルが開けません。'); }
else{ open(US,"+<$leaguefold/$userfile2") || &error('指定されたファイルが開けません。'); }
eval 'flock(US,1);';
@users = <US>;
for($j=0; $j<6; $j++){
($saku2[$j], $pass2[$j], $hom2[$j], $team2[$j], $icon2[$j], $kyuuzyou2[$j], $ryouyoku2[$j], $date2[$j], $ip2[$j], $teamdata2[$j], $pointdata2[$j], $bosstype2[$j], $charadata2[$j], $gamedata2[$j], $campflag2[$j]) = split(/<p>/, $users[$j]);
@players = split(/<c>/, $charadata2[$j]);
for($i=0; $i<9; $i++){
($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $box[$i], $hit[$i], $ten[$i], $hr[$i], $ste[$i], $err[$i], $for[$i], $gid[$i], $tbox[$i], $thit[$i], $tten[$i], $thr[$i], $tste[$i] ,$terr[$i], $tfor[$i], $tgid[$i], $ytitle1[$i], $ytitle2[$i], $ytitle3[$i], $ytitle4[$i], $ynew[$i], $ymvp[$i], $yallmvp[$i], $ybest[$i]) = split(/<>/, $players[$i]);
if($saku2[$j] eq $tteam1 && $sakusya[$i] eq $tname1 && $kojin[$i] eq $kojin){ $tsensyu1 = $yasyu[$i]; $nenpou[$i] += $nenpouup; if($nenpou[$i] > $max_nenpou){ $nenpou[$i] = $max_nenpou; } $kakiko1 = "$yasyu[$i]<>$cond[$i]<>$pow[$i]<>$mit[$i]<>$run[$i]<>$kat[$i]<>$def[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$keiyakunen<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$box[$i]<>$hit[$i]<>$ten[$i]<>$hr[$i]<>$ste[$i]<>$err[$i]<>$for[$i]<>$gid[$i]<>$tbox[$i]<>$thit[$i]<>$tten[$i]<>$thr[$i]<>$tste[$i]<>$terr[$i]<>$tfor[$i]<>$tgid[$i]<>$ytitle1[$i]<>$ytitle2[$i]<>$ytitle3[$i]<>$ytitle4[$i]<>$ynew[$i]<>$ymvp[$i]<>$yallmvp[$i]<>$ybest[$i]"; }
elsif($saku2[$j] eq $tteam2 && $sakusya[$i] eq $tname2){ $tsensyu2 = $yasyu[$i]; $nenpou[$i] += $nenpouup; if($nenpou[$i] > $max_nenpou){ $nenpou[$i] = $max_nenpou; } $kakiko2 = "$yasyu[$i]<>$cond[$i]<>$pow[$i]<>$mit[$i]<>$run[$i]<>$kat[$i]<>$def[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$keiyakunen<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$box[$i]<>$hit[$i]<>$ten[$i]<>$hr[$i]<>$ste[$i]<>$err[$i]<>$for[$i]<>$gid[$i]<>$tbox[$i]<>$thit[$i]<>$tten[$i]<>$thr[$i]<>$tste[$i]<>$terr[$i]<>$tfor[$i]<>$tgid[$i]<>$ytitle1[$i]<>$ytitle2[$i]<>$ytitle3[$i]<>$ytitle4[$i]<>$ynew[$i]<>$ymvp[$i]<>$yallmvp[$i]<>$ybest[$i]"; }
}
for($i=9; $i<18; $i++){
($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $pitwin[$i], $pitlose[$i], $kai[$i], $jiseki[$i], $san[$i], $four[$i], $hrp[$i], $save[$i], $tpitwin[$i], $tpitlose[$i], $tkai[$i], $tjiseki[$i], $tsan[$i], $tfour[$i], $thrp[$i], $tsave[$i], $ttitle1[$i], $ttitle2[$i], $ttitle3[$i], $ttitle4[$i], $tnew[$i], $tmvp[$i], $tallmvp[$i], $tbest[$i]) = split(/<>/, $players[$i]);
if($saku2[$j] eq $tteam1 && $sakusya[$i] eq $tname1 && $kojin[$i] eq $kojin){ $tsensyu1 = $pitch[$i]; $nenpou[$i] += $nenpouup; if($nenpou[$i] > $max_nenpou){ $nenpou[$i] = $max_nenpou; } $kakiko1 = "$pitch[$i]<>$cond[$i]<>$fas[$i]<>$hen1[$i]<>$henlv1[$i]<>$hen2[$i]<>$henlv2[$i]<>$hen3[$i]<>$henlv3[$i]<>$hen4[$i]<>$henlv4[$i]<>$hen5[$i]<>$henlv5[$i]<>$sei[$i]<>$def[$i]<>$sta[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$keiyakunen<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$pitwin[$i]<>$pitlose[$i]<>$kai[$i]<>$jiseki[$i]<>$san[$i]<>$four[$i]<>$hrp[$i]<>$save[$i]<>$tpitwin[$i]<>$tpitlose[$i]<>$tkai[$i]<>$tjiseki[$i]<>$tsan[$i]<>$tfour[$i]<>$thrp[$i]<>$tsave[$i]<>$ttitle1[$i]<>$ttitle2[$i]<>$ttitle3[$i]<>$ttitle4[$i]<>$tnew[$i]<>$tmvp[$i]<>$tallmvp[$i]<>$tbest[$i]"; }
elsif($saku2[$j] eq $tteam2 && $sakusya[$i] eq $tname2){ $tsensyu2 = $pitch[$i]; $nenpou[$i] += $nenpouup; if($nenpou[$i] > $max_nenpou){ $nenpou[$i] = $max_nenpou; } $kakiko2 = "$pitch[$i]<>$cond[$i]<>$fas[$i]<>$hen1[$i]<>$henlv1[$i]<>$hen2[$i]<>$henlv2[$i]<>$hen3[$i]<>$henlv3[$i]<>$hen4[$i]<>$henlv4[$i]<>$hen5[$i]<>$henlv5[$i]<>$sei[$i]<>$def[$i]<>$sta[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$keiyakunen<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$pitwin[$i]<>$pitlose[$i]<>$kai[$i]<>$jiseki[$i]<>$san[$i]<>$four[$i]<>$hrp[$i]<>$save[$i]<>$tpitwin[$i]<>$tpitlose[$i]<>$tkai[$i]<>$tjiseki[$i]<>$tsan[$i]<>$tfour[$i]<>$thrp[$i]<>$tsave[$i]<>$ttitle1[$i]<>$ttitle2[$i]<>$ttitle3[$i]<>$ttitle4[$i]<>$tnew[$i]<>$tmvp[$i]<>$tallmvp[$i]<>$tbest[$i]"; }
}
}
close(U2);
eval 'flock(US,8);';
}
↓
# ユーザーファイルからデータ抽出＆選手名取得
for($u=0; $u<2; $u++){
if($u eq 0){ open(US,"+<$leaguefold/$userfile") || &error('指定されたファイルが開けません。'); }
else{ open(US,"+<$leaguefold/$userfile2") || &error('指定されたファイルが開けません。'); }
eval 'flock(US,1);';
@users = <US>;
for($j=0; $j<6; $j++){
($saku2[$j], $pass2[$j], $hom2[$j], $team2[$j], $icon2[$j], $kyuuzyou2[$j], $ryouyoku2[$j], $date2[$j], $ip2[$j], $teamdata2[$j], $pointdata2[$j], $bosstype2[$j], $charadata2[$j], $gamedata2[$j], $campflag2[$j]) = split(/<p>/, $users[$j]);
@players = split(/<c>/, $charadata2[$j]);
for($i=0; $i<9; $i++){
($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $box[$i], $hit[$i], $ten[$i], $hr[$i], $ste[$i], $err[$i], $for[$i], $gid[$i], $tbox[$i], $thit[$i], $tten[$i], $thr[$i], $tste[$i] ,$terr[$i], $tfor[$i], $tgid[$i], $ytitle1[$i], $ytitle2[$i], $ytitle3[$i], $ytitle4[$i], $ynew[$i], $ymvp[$i], $yallmvp[$i], $ybest[$i]) = split(/<>/, $players[$i]);
if($saku2[$j] eq $tteam1 && $sakusya[$i] eq $tname1 && $kojin[$i] eq crypt ("$kojin", 'or')){ $tsensyu1 = $yasyu[$i]; $nenpou[$i] += $nenpouup; if($nenpou[$i] > $max_nenpou){ $nenpou[$i] = $max_nenpou; } $kakiko1 = "$yasyu[$i]<>$cond[$i]<>$pow[$i]<>$mit[$i]<>$run[$i]<>$kat[$i]<>$def[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$keiyakunen<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$box[$i]<>$hit[$i]<>$ten[$i]<>$hr[$i]<>$ste[$i]<>$err[$i]<>$for[$i]<>$gid[$i]<>$tbox[$i]<>$thit[$i]<>$tten[$i]<>$thr[$i]<>$tste[$i]<>$terr[$i]<>$tfor[$i]<>$tgid[$i]<>$ytitle1[$i]<>$ytitle2[$i]<>$ytitle3[$i]<>$ytitle4[$i]<>$ynew[$i]<>$ymvp[$i]<>$yallmvp[$i]<>$ybest[$i]"; }
elsif($saku2[$j] eq $tteam2 && $sakusya[$i] eq $tname2){ $tsensyu2 = $yasyu[$i]; $nenpou[$i] += $nenpouup; if($nenpou[$i] > $max_nenpou){ $nenpou[$i] = $max_nenpou; } $kakiko2 = "$yasyu[$i]<>$cond[$i]<>$pow[$i]<>$mit[$i]<>$run[$i]<>$kat[$i]<>$def[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$keiyakunen<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$box[$i]<>$hit[$i]<>$ten[$i]<>$hr[$i]<>$ste[$i]<>$err[$i]<>$for[$i]<>$gid[$i]<>$tbox[$i]<>$thit[$i]<>$tten[$i]<>$thr[$i]<>$tste[$i]<>$terr[$i]<>$tfor[$i]<>$tgid[$i]<>$ytitle1[$i]<>$ytitle2[$i]<>$ytitle3[$i]<>$ytitle4[$i]<>$ynew[$i]<>$ymvp[$i]<>$yallmvp[$i]<>$ybest[$i]"; }
}
for($i=9; $i<18; $i++){
($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $pitwin[$i], $pitlose[$i], $kai[$i], $jiseki[$i], $san[$i], $four[$i], $hrp[$i], $save[$i], $tpitwin[$i], $tpitlose[$i], $tkai[$i], $tjiseki[$i], $tsan[$i], $tfour[$i], $thrp[$i], $tsave[$i], $ttitle1[$i], $ttitle2[$i], $ttitle3[$i], $ttitle4[$i], $tnew[$i], $tmvp[$i], $tallmvp[$i], $tbest[$i]) = split(/<>/, $players[$i]);
if($saku2[$j] eq $tteam1 && $sakusya[$i] eq $tname1 && $kojin[$i] eq crypt ("$kojin", 'or')){ $tsensyu1 = $pitch[$i]; $nenpou[$i] += $nenpouup; if($nenpou[$i] > $max_nenpou){ $nenpou[$i] = $max_nenpou; } $kakiko1 = "$pitch[$i]<>$cond[$i]<>$fas[$i]<>$hen1[$i]<>$henlv1[$i]<>$hen2[$i]<>$henlv2[$i]<>$hen3[$i]<>$henlv3[$i]<>$hen4[$i]<>$henlv4[$i]<>$hen5[$i]<>$henlv5[$i]<>$sei[$i]<>$def[$i]<>$sta[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$keiyakunen<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$pitwin[$i]<>$pitlose[$i]<>$kai[$i]<>$jiseki[$i]<>$san[$i]<>$four[$i]<>$hrp[$i]<>$save[$i]<>$tpitwin[$i]<>$tpitlose[$i]<>$tkai[$i]<>$tjiseki[$i]<>$tsan[$i]<>$tfour[$i]<>$thrp[$i]<>$tsave[$i]<>$ttitle1[$i]<>$ttitle2[$i]<>$ttitle3[$i]<>$ttitle4[$i]<>$tnew[$i]<>$tmvp[$i]<>$tallmvp[$i]<>$tbest[$i]"; }
elsif($saku2[$j] eq $tteam2 && $sakusya[$i] eq $tname2){ $tsensyu2 = $pitch[$i]; $nenpou[$i] += $nenpouup; if($nenpou[$i] > $max_nenpou){ $nenpou[$i] = $max_nenpou; } $kakiko2 = "$pitch[$i]<>$cond[$i]<>$fas[$i]<>$hen1[$i]<>$henlv1[$i]<>$hen2[$i]<>$henlv2[$i]<>$hen3[$i]<>$henlv3[$i]<>$hen4[$i]<>$henlv4[$i]<>$hen5[$i]<>$henlv5[$i]<>$sei[$i]<>$def[$i]<>$sta[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host[$i]<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$keiyakunen<>$zen[$i]<>$camp[$i]<>$tok[$i]<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$pitwin[$i]<>$pitlose[$i]<>$kai[$i]<>$jiseki[$i]<>$san[$i]<>$four[$i]<>$hrp[$i]<>$save[$i]<>$tpitwin[$i]<>$tpitlose[$i]<>$tkai[$i]<>$tjiseki[$i]<>$tsan[$i]<>$tfour[$i]<>$thrp[$i]<>$tsave[$i]<>$ttitle1[$i]<>$ttitle2[$i]<>$ttitle3[$i]<>$ttitle4[$i]<>$tnew[$i]<>$tmvp[$i]<>$tallmvp[$i]<>$tbest[$i]"; }
}
}
close(U2);
eval 'flock(US,8);';
}
ore_login.cgi
sub campを修正する
for($i=9; $i<18; $i++){
($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i]) = split(/<>/, $players[$i]);
if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){ $no = $i; last; }
}
↓
for($i=9; $i<18; $i++){
($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i]) = split(/<>/, $players[$i]);
if($sakusya eq $sakusya[$i] && crypt ("$kojin", 'or') eq $kojin[$i]){ $no = $i; last; }
}
sub tokbuyを修正する
if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
for($t=0; $t<19; $t++){
$ff[$t] = substr("$tok[$i]", $t, 1);
}
$syojikin = $syoji[$i];
last;
}
}
↓
if($sakusya eq $sakusya[$i] && crypt ("$kojin", 'or') eq $kojin[$i]){
for($t=0; $t<19; $t++){
$ff[$t] = substr("$tok[$i]", $t, 1);
}
$syojikin = $syoji[$i];
last;
}
}
if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
for($t=0; $t<16; $t++){
$ff[$t] = substr("$tok[$i]", $t, 1);
}
$syojikin = $syoji[$i];
last;
}
}
↓
if($sakusya eq $sakusya[$i] && crypt ("$kojin", 'or') eq $kojin[$i]){
for($t=0; $t<16; $t++){
$ff[$t] = substr("$tok[$i]", $t, 1);
}
$syojikin = $syoji[$i];
last;
}
}
sub tokbuy2を修正する
for($i=0; $i<9; $i++){
($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i]) = split(/<>/, $players[$i]);
if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
$syojikin = $syoji[$i];
for($t=0; $t<19; $t++){
$ff[$t] = substr("$tok[$i]", $t, 1);
}
last;
}
}
↓
for($i=0; $i<9; $i++){
($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i]) = split(/<>/, $players[$i]);
if($sakusya eq $sakusya[$i] && crypt ("$kojin", 'or') eq $kojin[$i]){
$syojikin = $syoji[$i];
for($t=0; $t<19; $t++){
$ff[$t] = substr("$tok[$i]", $t, 1);
}
last;
}
}
for($i=9; $i<18; $i++){
($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i]) = split(/<>/, $players[$i]);
if($sakusya eq $sakusya[$i] && $kojin eq $kojin[$i]){
$syojikin = $syoji[$i];
for($t=0; $t<16; $t++){
$ff[$t] = substr("$tok[$i]", $t, 1);
}
last;
}
}
↓
for($i=9; $i<18; $i++){
($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i]) = split(/<>/, $players[$i]);
if($sakusya eq $sakusya[$i] && crypt ("$kojin", 'or') eq $kojin[$i]){
$syojikin = $syoji[$i];
for($t=0; $t<16; $t++){
$ff[$t] = substr("$tok[$i]", $t, 1);
}
last;
}
}
@players = split(/<c>/, $charadata[$j]);
for($i=0; $i<9; $i++){
($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $box[$i], $hit[$i], $ten[$i], $hr[$i], $ste[$i], $err[$i], $for[$i], $gid[$i], $tbox[$i], $thit[$i], $tten[$i], $thr[$i], $tste[$i] ,$terr[$i], $tfor[$i], $tgid[$i], $ytitle1[$i], $ytitle2[$i], $ytitle3[$i], $ytitle4[$i], $ynew[$i], $ymvp[$i], $yallmvp[$i], $ybest[$i]) = split(/<>/, $players[$i]);
if($i eq $ok && $sakusya[$i] eq $sakusya && $kojin eq $kojin[$i]){
$syoji[$i] -= $mainasu;
$players[$i] = "$id[$i]<>$jun[$i]<>$posit[$i]<>$yasyu[$i]<>$cond[$i]<>$pow[$i]<>$mit[$i]<>$run[$i]<>$kat[$i]<>$def[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$newtok<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$box[$i]<>$hit[$i]<>$ten[$i]<>$hr[$i]<>$ste[$i]<>$err[$i]<>$for[$i]<>$gid[$i]<>$tbox[$i]<>$thit[$i]<>$tten[$i]<>$thr[$i]<>$tste[$i]<>$terr[$i]<>$tfor[$i]<>$tgid[$i]<>$ytitle1[$i]<>$ytitle2[$i]<>$ytitle3[$i]<>$ytitle4[$i]<>$ynew[$i]<>$ymvp[$i]<>$yallmvp[$i]<>$ybest[$i]";
}
}
for($i=9; $i<18; $i++){
($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $pitwin[$i], $pitlose[$i], $kai[$i], $jiseki[$i], $san[$i], $four[$i], $hrp[$i], $save[$i], $tpitwin[$i], $tpitlose[$i], $tkai[$i], $tjiseki[$i], $tsan[$i], $tfour[$i], $thrp[$i], $tsave[$i], $ttitle1[$i], $ttitle2[$i], $ttitle3[$i], $ttitle4[$i], $tnew[$i], $tmvp[$i], $tallmvp[$i], $tbest[$i]) = split(/<>/, $players[$i]);
if($i eq $ok && $sakusya[$i] eq $sakusya && $kojin eq $kojin[$i]){
$syoji[$i] -= $mainasu;
$players[$i] = "$id[$i]<>$jun[$i]<>$posit[$i]<>$pitch[$i]<>$cond[$i]<>$fas[$i]<>$hen1[$i]<>$henlv1[$i]<>$hen2[$i]<>$henlv2[$i]<>$hen3[$i]<>$henlv3[$i]<>$hen4[$i]<>$henlv4[$i]<>$hen5[$i]<>$henlv5[$i]<>$sei[$i]<>$def[$i]<>$sta[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$newtok<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$pitwin[$i]<>$pitlose[$i]<>$kai[$i]<>$jiseki[$i]<>$san[$i]<>$four[$i]<>$hrp[$i]<>$save[$i]<>$tpitwin[$i]<>$tpitlose[$i]<>$tkai[$i]<>$tjiseki[$i]<>$tsan[$i]<>$tfour[$i]<>$thrp[$i]<>$tsave[$i]<>$ttitle1[$i]<>$ttitle2[$i]<>$ttitle3[$i]<>$ttitle4[$i]<>$tnew[$i]<>$tmvp[$i]<>$tallmvp[$i]<>$tbest[$i]";
}
}
↓
@players = split(/<c>/, $charadata[$j]);
for($i=0; $i<9; $i++){
($id[$i], $jun[$i], $posit[$i], $yasyu[$i], $cond[$i], $pow[$i], $mit[$i], $run[$i], $kat[$i], $def[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $box[$i], $hit[$i], $ten[$i], $hr[$i], $ste[$i], $err[$i], $for[$i], $gid[$i], $tbox[$i], $thit[$i], $tten[$i], $thr[$i], $tste[$i] ,$terr[$i], $tfor[$i], $tgid[$i], $ytitle1[$i], $ytitle2[$i], $ytitle3[$i], $ytitle4[$i], $ynew[$i], $ymvp[$i], $yallmvp[$i], $ybest[$i]) = split(/<>/, $players[$i]);
if($i eq $ok && $sakusya[$i] eq $sakusya && crypt ("$kojin", 'or') eq $kojin[$i]){
$syoji[$i] -= $mainasu;
$players[$i] = "$id[$i]<>$jun[$i]<>$posit[$i]<>$yasyu[$i]<>$cond[$i]<>$pow[$i]<>$mit[$i]<>$run[$i]<>$kat[$i]<>$def[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$newtok<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$box[$i]<>$hit[$i]<>$ten[$i]<>$hr[$i]<>$ste[$i]<>$err[$i]<>$for[$i]<>$gid[$i]<>$tbox[$i]<>$thit[$i]<>$tten[$i]<>$thr[$i]<>$tste[$i]<>$terr[$i]<>$tfor[$i]<>$tgid[$i]<>$ytitle1[$i]<>$ytitle2[$i]<>$ytitle3[$i]<>$ytitle4[$i]<>$ynew[$i]<>$ymvp[$i]<>$yallmvp[$i]<>$ybest[$i]";
}
}
for($i=9; $i<18; $i++){
($id[$i], $jun[$i], $posit[$i], $pitch[$i], $cond[$i], $fas[$i], $hen1[$i], $henlv1[$i], $hen2[$i], $henlv2[$i], $hen3[$i], $henlv3[$i], $hen4[$i], $henlv4[$i], $hen5[$i], $henlv5[$i], $sei[$i], $def[$i], $sta[$i], $sakusya[$i], $kojin[$i], $home[$i], $host[$i], $sayuu[$i], $nenrei[$i], $purei[$i], $ato[$i], $zen[$i], $camp[$i], $tok[$i], $foom[$i], $nenpou[$i], $syoji[$i], $allkai[$i], $pitwin[$i], $pitlose[$i], $kai[$i], $jiseki[$i], $san[$i], $four[$i], $hrp[$i], $save[$i], $tpitwin[$i], $tpitlose[$i], $tkai[$i], $tjiseki[$i], $tsan[$i], $tfour[$i], $thrp[$i], $tsave[$i], $ttitle1[$i], $ttitle2[$i], $ttitle3[$i], $ttitle4[$i], $tnew[$i], $tmvp[$i], $tallmvp[$i], $tbest[$i]) = split(/<>/, $players[$i]);
if($i eq $ok && $sakusya[$i] eq $sakusya && crypt ("$kojin", 'or') eq $kojin[$i]){
$syoji[$i] -= $mainasu;
$players[$i] = "$id[$i]<>$jun[$i]<>$posit[$i]<>$pitch[$i]<>$cond[$i]<>$fas[$i]<>$hen1[$i]<>$henlv1[$i]<>$hen2[$i]<>$henlv2[$i]<>$hen3[$i]<>$henlv3[$i]<>$hen4[$i]<>$henlv4[$i]<>$hen5[$i]<>$henlv5[$i]<>$sei[$i]<>$def[$i]<>$sta[$i]<>$sakusya[$i]<>$kojin[$i]<>$home[$i]<>$host<>$sayuu[$i]<>$nenrei[$i]<>$purei[$i]<>$ato[$i]<>$zen[$i]<>$camp[$i]<>$newtok<>$foom[$i]<>$nenpou[$i]<>$syoji[$i]<>$allkai[$i]<>$pitwin[$i]<>$pitlose[$i]<>$kai[$i]<>$jiseki[$i]<>$san[$i]<>$four[$i]<>$hrp[$i]<>$save[$i]<>$tpitwin[$i]<>$tpitlose[$i]<>$tkai[$i]<>$tjiseki[$i]<>$tsan[$i]<>$tfour[$i]<>$thrp[$i]<>$tsave[$i]<>$ttitle1[$i]<>$ttitle2[$i]<>$ttitle3[$i]<>$ttitle4[$i]<>$tnew[$i]<>$tmvp[$i]<>$tallmvp[$i]<>$tbest[$i]";
}
}
camp.cgi
sub gointaiを修正する
if($kojinn eq $kojin[$ok] && $sakusyaa eq $sakusya[$ok] && ($purei[$ok] >= 20 || $nenrei[$ok] >= 40 || $camp[$ok])){
↓
if(crypt ("$kojinn", 'or') eq $kojin[$ok] && $sakusyaa eq $sakusya[$ok] && ($purei[$ok] >= 20 || $nenrei[$ok] >= 40 || $camp[$ok])){
sub goisekiを修正する
if($sakusya[$ok] ne "$no_player" && $sakusya[$ok] ne "$sp_player" && $kojinn eq $kojin[$ok] && $sakusyaa eq $sakusya[$ok] && $nenrei[$ok] < 40 && $purei[$ok] < 20){
↓
if($sakusya[$ok] ne "$no_player" && $sakusya[$ok] ne "$sp_player" && crypt ("$kojinn", 'or') eq $kojin[$ok] && $sakusyaa eq $sakusya[$ok] && $nenrei[$ok] < 40 && $purei[$ok] < 20){
sub gocampを修正する
if($sakusya[$ok] ne "$no_player" && $kojinn eq $kojin[$ok] && $sakusyaa eq $sakusya[$ok]){
↓
if($sakusya[$ok] ne "$no_player" && crypt ("$kojinn", 'or') eq $kojin[$ok] && $sakusyaa eq $sakusya[$ok]){
sub gosaiを修正する
if($sakusya[$ok] ne "$no_player" && $sakusya[$ok] ne "$sp_player" && $kojinn eq $kojin[$ok] && $sakusyaa eq $sakusya[$ok] && $nenrei[$ok] < 40 && $purei[$ok] < 20){
↓
if($sakusya[$ok] ne "$no_player" && $sakusya[$ok] ne "$sp_player" && crypt ("$kojinn", 'or') eq $kojin[$ok] && $sakusyaa eq $sakusya[$ok] && $nenrei[$ok] < 40 && $purei[$ok] < 20){
sinki.cgi
sub recordを修正する
if((length($idd) < 1) || (length($idd) > 2) || $idd < 1 || $idd > 18){ &error("$errcomが正しくないよ。"); }
if((length($kojin) < 6) || (length($kojin) > $passleng)){ &error("パスワードの長さは6〜$passleng文字までにしてね。"); }
($home =~ /^http:\/\/[a-zA-Z0-9]+/) || ($home = '');
$kojin=crypt ("$kojin", 'or');
# 名前＆重複チェック
for($n=0; $n<2; $n++){
if($n eq 0){ open(US,"$leaguefold/$userfile") || &error('指定されたファイルが開けません。'); }
else{ open(US,"$leaguefold/$userfile2") || &error('指定されたファイルが開けません。'); }
eval 'flock(US,1);';
ore_else.cgi
sub passchangeを修正する
if($form{'sakusya'} eq $sakusya[$i] && $form{'oldpass'} eq $kojin[$i]){ $kojin[$i] = $form{'kojin'}; $cangeflag = 1; &set_cookie; }
↓
if($form{'sakusya'} eq $sakusya[$i] && crypt ("$form{'oldpass'}", 'or') eq $kojin[$i]){ $kojin[$i] = crypt ("$form{'kojin'}", 'or'); $cangeflag = 1; &set_cookie; }
計4箇所
以下をhenkan.cgiとして保存する
#---------ここから---------
#! /usr/bin/perl
require './ini.cgi';
$ypass=11;#デフォルトなら変える必要なし
$ppass=20;
for($h=0; $h<2; $h++){
if($h eq 0){ open(US,"+<$leaguefold/$userfile") || &error('指定されたファイルが開けません。'); }
else{ open(US,"+<$leaguefold/$userfile2") || &error('指定されたファイルが開けません。'); }
eval 'flock(US,2);';
@users = <US>;
for($j=0; $j<6; $j++){
($saku[$j], $pass[$j], $d[$j], $team[$j], $icon[$j], $kyuuzyou[$j], $ryouyoku[$j], $date[$j], $ip[$j], $teamdata[$j], $pointdata[$j], $bosstype[$j], $charadata[$j], $gamedata[$j], $campflag[$j]) = split(/<p>/, $users[$j]);
@players = split(/<c>/, $charadata[$j]);
for($i=0; $i<9; $i++){
@{$eachplayers[$i]} = split(/<>/, $players[$i]);
$eachplayers[$i][$ypass]=crypt ("$eachplayers[$i][11]", 'or');
$players[$i] = join('<>', @{$eachplayers[$i]});
}
for($i=9; $i<18; $i++){
@{$eachplayers[$i]} = split(/<>/, $players[$i]);
$eachplayers[$i][$ppass]=crypt ("$eachplayers[$i][11]", 'or');
$players[$i] = join('<>', @{$eachplayers[$i]});
}
$charadata[$j] = join('<c>', @players);
$users[$j] = "$saku[$j]<p>$pass[$j]<p><p>$team[$j]<p>$icon[$j]<p>$kyuuzyou[$j]<p>$ryouyoku[$j]<p>$date[$j]<p>127.0.0.1<p>$teamdata[$j]<p>$pointdata[$j]<p>$bosstype[$j]<p>$charadata[$j]<p>$gamedata[$j]<p>$campflag[$j]<p>\n";
}
truncate (US, 0);
seek(US,0,0); print US @users;
close(US);
eval 'flock(US,8);';
}
&header;
print <<"_EOF_";
プレイヤー全員のパスを暗号化しました。
_EOF_
##### ヘッダー表示
sub header{
print "Content-type: text/html\n\n";#コンテントタイプ出力
}#end header
1;
#---------ここまで---------
henkan.cgiでプレイヤーのパスを暗号化する。
ore.cgiと同じ階層において一回だけアクセスする。
データが壊れて外部に漏れても、暗号化しておけばログインされる被害がない。
注意点
必ずオフに改造・暗号化する。
$kojinnまたは$kojinをif文として使っているところを改造する様に注意すること。
ローカルで暗号化してwebサーバーにアップしたほうが無難。
フレームが無かったらココをクリックしてください