#!/usr/bin/perl

# ProxyJudge V2.35
#
# created by PRX4EVER
#
# http://prx4ever.virtualave.net/ps/

#-----// title tag //------#
$szTitle   = 'ProxyJudge V2.35';

#-----// BODY tag //------#
#$szBody    = 'bgcolor="#000000" text="#ffffff" link="#00ddff" vlink="#ddddff" alink="#0000ff"';
$szBody    = '';

#-----// Warning tag color //-----#
$szWarn    = 'red';

#-----// Suspection tag color //-----#
$szSuspect = 'orange';

#-----// Anony Level color //-----#
$szLevelColor = 'blue';

#-----// If you DO NOT use Cascading Style Sheet, comment out below line //-----#
$fszCSS = 'yes';

$szRH_Comment = "";

# # # # # # # # # #

if( $ARGV[0] eq 'ja' ||
    $ENV{'HTTP_USER_AGENT'} =~ /jp|ja/i ||
    $ENV{'HTTP_ACCEPT_LANGUAGE'} =~ /jp|ja/i ) {
  $fszJapanese = 'yes';
}
if( $ARGV[0] eq 'en' ) {
  $fszJapanese = '';
}

$szRemoteHost = $ENV{'REMOTE_HOST'};
$szRemoteAddr = $ENV{'REMOTE_ADDR'};
if( $szRemoteHost eq $szRemoteAddr || $szRemoteHost eq '' ) {
  $szRemoteHost
     = gethostbyaddr( pack( 'C4', split( /\./, $szRemoteAddr ) ), 2 );
  $szRemoteHost = $szRemoteAddr if( $szRemoteHost eq '' );
}

@aszValues = "";

while( ( $szName, $szValue ) = each %ENV ) {
  next if( $szName !~ /^HTTP_/ );
  $szValue =~ s/\t/ /g;
  push( @aszValues, "$szName=\t$szValue \t$szName=\t$szValue");
}

@aszEnvValues = sort( @aszValues );

if( $fszCSS eq 'yes' ) {
  $szColor  = "<STRONG style=\"color:";
  $szEndTag = "</STRONG>";
} else {
  $szColor  = "<FONT color=\"";
  $szEndTag = "</FONT>";
}

&remotehost_check();
&proxyenv_check();
&spillenv_check();

&judgement();

&html;

exit;

# # # # # # # # # #

#-----// REMOTE_HOST check //----#
sub remotehost_check {
  local( @aiHosts );

  if( $szRemoteHost eq $szRemoteAddr ) {
    $szRH_Result  = 'IP Addr.';
    if( $fszJapanese eq 'yes' ) {
      $szRH_Comment = 'IP &#1168;&#1118;&#1168;&#1049;&#1168;&#1084;&#1168;&#8470;¤«¤&#1081;&#1168;&#1067;&#1168;&#8470;&#1168;&#1048;&#1052;&#1109;¤¬°&#1098;¤±¤&#1050;¤¤¤&#1054;¤&#1047;&#1048;&#1029;&#1043;&#1047;¤&#1047;¤­¤&#1070;¤»¤&#1091;&#1038;&#1032;';
    } else {
      $szRH_Comment = 'I have no idea because DNS lookup failure.';
    }
    return;

  } else {
    $szCheck_RH = $szRemoteHost;
    if( $szCheck_RH =~ /www.*cache|www.*proxy|webcache|delegate|gatekeeper|firewall|proxy|cache|squid|^bbs|^http|^www|^web|^dns|^ftp|^mail|^news|^cgi|^gate|^server|^pop|^smtp|^w3\.|^ns\d{0,2}\.|^fw\d{0,2}\./i ) {
      $szCheck_RH   =~ s#$&#$szColor$szWarn">$&$szEndTag#;
      $szRH_Result  = 'Via a Proxy';
      if( $fszJapanese eq 'yes' ) {
        $szRH_Comment
      = " $szCheck_RH ¤&#1048;¤&#1055;¤¤¤«¤&#1051;¤&#1074; Proxy ¤&#1048;¤¤¤&#1043;¤&#1111;&#1168;&#1067;&#1168;&#8470;&#1168;&#1048;&#1052;&#1109;¤&#1047;¤&#8470;&#1038;&#1032;";
      } else {
        $szRH_Comment
      = " REMOTE_HOST includes proxy server word \"$szCheck_RH\".";
      }

    } elsif( $szCheck_RH =~ /server|gate|www|web|dns|ftp|mail|news|cgi|pop|smtp/i ) {
      $szCheck_RH   =~ s#$&#$szColor$szSuspect">$&$szEndTag#;
      $szRH_Result  = '?';
      if( $fszJapanese eq 'yes' ) {
        $szRH_Comment
      = " $szCheck_RH ¤&#1048;¤&#1055; Proxy ¤&#1054;¤&#1080;¤¦¤&#1050;&#1168;&#1067;&#1168;&#8470;&#1168;&#1048;&#1052;&#1109;¤&#1047;¤&#8470;&#1038;&#1032;";
      } else {
        $szRH_Comment
      = " REMOTE_HOST includes proxy server like word \"$szCheck_RH\".";
      }
    }

    @aiHosts = split( /\./, $szCheck_RH );
    if( $#aiHosts == 1 ) {
      $szCheck_RH = "$szColor$szSuspect\">$szCheck_RH$szEndTag";
      $szRH_Result  = '?';
      if( $fszJapanese eq 'yes' ) {
        $szRH_Comment
     = ' &#1168;&#1067;&#1168;&#8470;&#1168;&#1048;&#1052;&#1109;¤&#1051;&#1168;&#1060;&#1168;&#1082;&#1168;&#1028;&#1168;&#1049;¤¬&#1032;±¤&#1044;¤&#1043;¤&#1046;¤¤¤¦¤&#1054;¤&#1055;&#1046;°&#1045;&#1028;&#1168;&#1118;&#1168;&#1049;&#1168;&#1084;&#1168;&#8470;¤&#1043;¤&#1069;¤&#1031;¤&#1050;¤¤¤&#1047;¤&#8470;&#1038;&#1032;';
      } else {
        $szRH_Comment
     = " REMOTE_HOST includes only one period, it's dubious.";
      }
      return;

    } elsif( $szRH_Result ne 'Via a Proxy' ) {
      if( $aiHosts[0] !~ /\d/ ) {
        $aiHosts[0]    = "$szColor$szSuspect\">$aiHosts[0]$szEndTag";
        $szRH_Result   = '?';
        if( $fszJapanese eq 'yes' ) {
          $szRH_Comment .= ' &#1168;&#1067;&#1168;&#8470;&#1168;&#1048;&#1052;&#1109;¤&#1051;&#1111;&#1092;»&#1098;¤¬¤&#1050;¤¤¤&#1054;¤&#1055; Proxy ¤&#1054;¤&#1080;¤¦¤&#1047;¤&#8470;¤¬&#1038;&#1118;&#1110;&#1064;&#8470;»&#1045;&#1097;¤&#1054;&#1043;&#1112;&#1051;&#1094;¤&#1055;&#1168;&#1067;&#1168;&#8470;&#1168;&#1048;&#1052;&#1109;¤&#1051;&#1111;&#1092;»&#1098;¤¬¤&#1050;¤¤¤&#1110;¤&#1048;¤¬&#1042;&#1111;¤¤¤&#1054;¤&#1047;°&#1084;&#1110;µ¤&#1051; Proxy ¤&#1047;¤&#1118;¤&#1083;¤&#1048;¤&#1055;&#1105;&#1040;¤&#1025;¤&#1050;¤¤¤&#1047;¤&#8470;&#1038;&#1032;';
        } else {
          $szRH_Comment .= " REMOTE_HOST includes no numbers, it's dubious.";
        }
      } elsif( $aiHosts[0] =~ /\D\d$/ ) {
        $aiHosts[0]    = "$szColor$szSuspect\">$aiHosts[0]$szEndTag";
        $szRH_Result   = '?';
        if( $fszJapanese eq 'yes' ) {
          $szRH_Comment .= ' &#1168;&#1067;&#1168;&#8470;&#1168;&#1048;&#1052;&#1109;¤&#1054;&#1051;&#1094;&#1048;&#1096;¤&#1051;&#1032;±·&#1077;¤&#1054;&#1111;&#1092;»&#1098;¤&#1048;¤¤¤¦¤&#1054;¤&#1055; Proxy ¤&#1054;¤&#1080;¤¦¤&#1047;¤&#8470;¤¬&#1038;&#1118;&#1110;&#1064;&#8470;»&#1045;&#1097;¤&#1054;&#1043;&#1112;&#1051;&#1094;¤&#1055;&#1051;&#1094;&#1048;&#1096;¤&#1051;&#1111;&#1092;»&#1098;¤¬&#1032;±·&#1077;¤&#1054;¤&#1110;¤&#1048;¤¬&#1042;&#1111;¤¤¤&#1054;¤&#1047;°&#1084;&#1110;µ¤&#1051; Proxy ¤&#1047;¤&#1118;¤&#1083;¤&#1048;¤&#1055;&#1105;&#1040;¤&#1025;¤&#1050;¤¤¤&#1047;¤&#8470;&#1038;&#1032;';
        } else {
          $szRH_Comment
        .= " REMOTE_HOST includes only one number, it's dubious.";
        }
      }
      $szCheck_RH = join( '.', @aiHosts );
    }
  }
}

# # # # #

#-----// Proxy env. value,User-Agent, Keep-Alive check //----#
sub proxyenv_check {
  local( $szEnvValue, $szName, $szValue, $szNameStat, $szValueStat );
  $szComment  = "";
  foreach $szEnvValue ( @aszEnvValues ) {
    chop( $szEnvValue ) if( $szEnvValue =~ /\n$/ );
    ( $szName, $szValue, $szNameStat, $szValueStat )
      = split( /\t/, $szEnvValue );

    if( $szName eq 'HTTP_USER_AGENT=' && $szValue =~ /via/i ) {
      $szValueStat =~ s/via/$szColor$szWarn">via$szEndTag/i;
      $szResult    = 'Via a Proxy';
      if( $fszJapanese eq 'yes' ) {
        $szComment  .= ' Via ¤&#1043;¤&#1046;&#1038;&#1062;&#1038;&#1041;·&#1056;&#1053;&#1110;&#1038;&#1063;¤&#1043;¤&#1046;°&#1061;&#1052;&#1032;¤&#1047;¤&#8470;¤&#1080;&#1038;&#1032;';
      } else {
        $szComment  .= ' USER_AGENT includes "via".';
      }

    } elsif( $szName eq 'HTTP_CONNECTION=' ) {
      if( $szValue !~ /Keep-Alive/i ) {
        $szValueStat = "$szColor$szWarn\">$szValueStat$szEndTag";
        $szResult    = 'Anonymized' if( $szResult ne 'Via a Proxy' );
        if( $fszJapanese eq 'yes' ) {
          $szComment  .= ' °&#1084;&#1048;&#1052;&#1045;&#1028;¤&#1050;&#1168;&#1062;&#1168;&#1081;&#1168;¦&#1168;¶¤&#1040;¤&#1048; Keep-Alive ¤¬&#1029;&#1056;¤&#1070;¤&#8470;&#1038;&#1032;';
        } else {
          $szComment  .= " CONNECTION doesn't have \"Keep-Alive\".";
        }
      } else {
        $iNoProxy++;
        $fszKeepAlive = 'existed';
      }

    } elsif( $szName !~ /HTTP_(CONNECTION=|USER_AGENT=|HOST=|PRAGMA=|UA_|ACCEPT|REFERER=|MIME=|EXTENSION=|IF_MODIFIED_SINCE=|COOKIE=)/ ) {

      if( $szName !~ /HTTP_(VIA=|.ROXY_.ONNECTION=|X_FORWARDED_FOR=|FORWARDED=|CACHE_CONTROL=|CACHE_INFO=|FROM=|CLIENT_IP=|TE=|SP_HOST=|XONNECTION=)/ ) {
        $szNameStat =~ s/$szName/$szColor$szSuspect">$szName$szEndTag/i;
        $szResult   = 'Via a Proxy';
        if( $fszJapanese eq 'yes' ) {
          $szComment .= ' &#1052;&#1031;¤&#1050;&#1050;&#1057;&#1111;&#1092;¤¬&#1029;&#1056;¤&#1046;¤&#1070;¤&#8470;&#1038;&#1032;' if( $szComment !~ /&#1052;&#1031;¤&#1050;&#1050;&#1057;&#1111;&#1092;¤¬&#1029;&#1056;¤&#1046;¤&#1070;¤&#8470;&#1038;&#1032;/ );
        } else {
          $szComment .= ' Dubious valuable is detected.' if( $szComment !~ /Dubious/ );
        }
      } else {
        $szNameStat =~ s/$&/$szColor$szWarn">$&$szEndTag/i;
        $szResult   = 'Via a Proxy';
        if( $fszJapanese eq 'yes' ) {
          $szComment .= ' Proxy &#1050;&#1057;&#1111;&#1092;&#1029;&#1056;¤&#1046;¤&#1070;¤&#8470;&#1038;&#1032;' if( $szComment !~ /Proxy &#1050;&#1057;&#1111;&#1092;&#1029;&#1056;¤&#1046;¤&#1070;¤&#8470;&#1038;&#1032;/ );
        } else {
          $szComment .= ' Proxy servers valuable is detected.' if( $szComment !~ /Proxy/ );
        }
      }
    } else {
      $iNoProxy++ if( $szName !~ /HTTP_(CONNECTION=|HOST=|PRAGMA=|UA_|ACCEPT|REFERER=|MIME=|EXTENSION=|IF_MODIFIED_SINCE=|COOKIE=)/ );
    }
    $szEnvValue = "$szName\t$szValue\t$szNameStat\t$szValueStat\n";
  }
  return;
}

# # # # #

#-----// Spill IP addr. check //----#
sub spillenv_check {
  local( $szEnvValue, $szName, $szValue, $szNameStat, $szValueStat );
  local( $szSpill );
  local( $szHex, $szHexAddr );
  local( $szItselfHost, $szSpillHost );
  local( $sz2Host, $szIpTemp, $sz2Ip );
  local( %aszSeen, $iSpillNum );
  local( @aszTemp );

  foreach $szEnvValue ( @aszEnvValues ) {
    chop( $szEnvValue ) if( $szEnvValue =~ /\n$/ );
    ( $szName, $szValue, $szNameStat, $szValueStat ) = split( /\t/, $szEnvValue );

    if( $szName !~ /HTTP_(.ONNECTION=|USER_AGENT=|HOST=|PRAGMA=|UA_|ACCEPT|REFERER=|MIME=|EXTENSION=|.ROXY_.ONNECTION=|IF_MODIFIED_SINCE=|CACHE_CONTROL=|CACHE_INFO=)/ ) {
      $szSpill = $szValue;

      $szSpill =~ s/$szRemoteHost//g;
      $szSpill =~ s/$szRemoteAddr//g;

      $szSpill =~ s/\([^\(\)]+\)//g;
      $szSpill =~ s/ for / /ig;
      $szSpill =~ s/ by / /ig;
      $szSpill =~ s/ - / /g;
      $szSpill =~ s/-\@//g;

      #-----// HTTP_FORWARDED //----#
      if( $szSpill =~ m#http://# ) {
        while( $szSpill =~ s#http://([^:]+):##i ) {
          push( @aszItselfHost, "$1" );
        }
      }

      #-----// HTTP_VIA //----#
      if( $szName eq 'HTTP_VIA=' ) {
        while( $szSpill =~ s# ([^ :]+):# :#i ) {
          push( @aszItselfHost, "$1" );
        }
      }

      #-----// HTTP_X_FORWARDED_FOR //----#
      if( $szName eq 'HTTP_X_FORWARDED_FOR=' ) {
        while( $szSpill =~ s#(\d+\.\d+\.\d+\.\d+)\,*# #i ) {
          push( @aszSpillAddr, "$1" );
        }
      }

      #-----// HTTP_CLIENT_IP //----#
      if( $szName eq 'HTTP_CLIENT_IP=' ) {
        $szHex = $szSpill;
        if( $szHex !~ /\./ && $szHex =~ s/^([\dA-F]{2})([\dA-F]{2})([\dA-F]{2})([\dA-F]{2})/$1$2$3$4/i ) {
          $szHexAddr = join( '.', hex( $1 ), hex( $2 ), hex( $3 ), hex( $4 ) );
          push( @aszSpillAddr, "$szHexAddr" );
          $szValueStat .= " -&gt; $szHexAddr";
        }
      }
      $szSpill =~ s/:|\,|;|//g;

      #-----// IP addr. //----#
      if( $szSpill =~ s/[^a-zA-Z0-9_\-\.]*(\d+)\.(\d+)\.(\d+)\.(\d+)[^a-zA-Z0-9_\-\.]+/$1.$2.$3.$4/i ) {
        $szSpillAddr = "$1.$2.$3.$4";
        push( @aszSpillAddr, "$szSpillAddr" );
      }

      #-----// .***.*** //----#
      if( $szSpill =~ /\.[^\.]{2,3}\.[a-zA-Z]{2,3}[^a-zA-Z0-9_\-\.]+/ ) {
        $szSpill =~ s#([a-zA-Z0-9_\-\.]+)\.([^\.]{2,3})\.([a-zA-Z]{2,3})[^a-zA-Z0-9_\-\.]+#$1.$2.$3#i;
        $szSpillAddr = "$1.$2.$3";
        push( @aszSpillAddr, "$szSpillAddr" );

      #-----// .*** //----#
      } elsif( $szSpill =~ /\.[a-zA-Z]{2,3}[^a-zA-Z0-9_\-\.]+/ ) {
        $szSpill =~ s#([a-zA-Z0-9_\-\.]+)\.([a-zA-Z]{2,3})[^a-zA-Z0-9_\-\.]+#$1.$2#i;
        $szSpillAddr = "$1.$2";
        push( @aszSpillAddr, "$szSpillAddr" );
      }
    }
    $szEnvValue = "$szName\t$szValue\t$szNameStat\t$szValueStat";
  }
  foreach $szSpillAddr ( @aszSpillAddr ) {
    if( $szSpillAddr !~ /www.*cache|www.*proxy|webcache|delegate|gatekeeper|firewall|proxy|cache|squid|^bbs|^http|^www|^web|^dns|^ftp|^mail|^news|^cgi|^gate|^server|^pop|^smtp|^w3\.|^ns\d{0,2}\.|^fw\d{0,2}\./i ) {
      push( @aszTemp, $szSpillAddr );
    }
  }
  @aszSpillAddr = @aszTemp;

  #-----// Remove Proxy's IP addr. //----#
  foreach $szItselfHost ( @aszItselfHost ) {
    next if( $szItselfHost !~ /\./ );
    $szItselfHost =~ tr/A-Z/a-z/;
    chop( $szItselfHost ) if( $szItselfHost =~ /\n$/ );
    foreach $szSpillAddr ( @aszSpillAddr ) {
      $szSpillAddr =~ tr/A-Z/a-z/;
      chop( $szSpillAddr ) if( $szSpillAddr =~ /\n$/ );
      if( $szItselfHost !~ /[a-z]/ ) {
        $sz2Host = gethostbyaddr( pack( 'C4', split( /\./, $szItselfHost ) ), 2 );
      } else {
        $szIpTemp = ( gethostbyname( $szItselfHost ) )[4];
        $sz2Ip    = join( '.', unpack( 'C4', $szIpTemp ) );
      }
      if( $szItselfHost eq $szSpillAddr || $sz2Host eq $szSpillAddr || $sz2Ip eq $szSpillAddr ) {
        $szSpillAddr .= ":p";
        next;
      }
    }
    $szSpillAddr .= "\n";
  }

  foreach $szSpillAddr ( @aszSpillAddr ) {
    chop( $szSpillAddr ) if( $szSpillAddr =~ /\n$/ );
    #-----// Remove Local IP addr and Fake? IP addr //-----#
    if( $szSpillAddr =~ /^127\./ ||
        $szSpillAddr =~ /^172\.1[6-9]\./ ||
        $szSpillAddr =~ /^172\.2\d\./ ||
        $szSpillAddr =~ /^172\.3[0-2]\./ ||
        $szSpillAddr =~ /^10\./ ||
        $szSpillAddr =~ /^192\.168\./ ||
        $szSpillAddr =~ /\.0$/ ||
        $szSpillAddr =~ /^0\./ ||
        $szSpillAddr =~ /\.255$/ ||
        $szSpillAddr =~ /^255\./ ) {
      $szSpillAddr .= ':f';
      next;
    }
    #-----// Remove itself IP addr/host //-----#
    undef( $sz2Host );
    undef( $sz2Ip );
    undef( $szIpTemp );
    if( $szSpillAddr !~ /[a-z]/ ) {
      $sz2Host = gethostbyaddr( pack( 'C4', split( /\./, $szSpillAddr ) ), 2 );
    } else {
      $szIpTemp = ( gethostbyname( $szSpillAddr ) )[4];
      $sz2Ip    = join( '.', unpack( 'C4', $szIpTemp ) );
    }
    if( $sz2Host eq $szRemoteHost || $sz2Ip eq $szRemoteAddr ) {
      $szSpillAddr .= ":s";
    }
    unless( $aszSeen{$szSpillAddr}++ ) {}
    $szSpillAddr .= "\n";
  }
  foreach $szSpillAddr ( @aszSpillAddr ) {
    chop( $szSpillAddr ) if( $szSpillAddr =~ /\n$/ );
    if( $szSpillAddr !~ /:x|:f|:s|:p/ ) {
      $iSpillNum++;
      $szYourHost = $szSpillAddr;
    }
  }

  $szAddrTop = $szRemoteAddr;
  $szAddrTop =~ s/([^\.]+)\.([^\.]+)\.([^\.]+)\..+/$1\.$2\.$3\./;
  $szHostTop = $szRemoteHost;
  if( $szHostTop =~ /\.[^\.]{2,3}\.[^\.]{2,3}$/ ) {
    $szHostTop =~ s/[^\.]*\.*([^\.]+)\.([^\.]+)\.([^\.]+)$/$1\.$2\.$3/;
  } else {
    $szHostTop =~ s/[^\.]*\.*([^\.]+)\.([^\.]+)$/$1\.$2/;
  }

  if( $iSpillNum == 0 ) {
    $szYourHost = 'Anonymous';

  } elsif( $iSpillNum != 1 ) {
    undef( @aszTemp );
    while( ( $szSpillHost, $iSpillNum ) = each %aszSeen ) {
      next if( $szSpillHost =~ /^($szAddrTop[^\. ]+)/ );
      next if( $szSpillHost =~ /(\.{0,1}$szHostTop)$/ );
      push( @aszTemp, $szSpillHost );
    }
    $szYourHost = $aszTemp[0];
    $szYourHost = 'Anonymous' if( $szYourHost eq '' );

  } else {
    #-----// ***.***.***.??? //----#
    if( $szYourHost =~ /^($szAddrTop[^\. ]+)/ ) {
      $fszInner = 'true';

    #-----// ??...??.*** //----#
    } elsif( $szYourHost =~ /(\.{0,1}$szHostTop)$/ ) {
      $fszInner = 'true';
    }
  }
  return;
}

# # # # #

#-----// Judgement //----#
sub judgement {

  #-----// Low Suspect //----#
  if( $iNoProxy == 2 && $szResult eq '' ) {
    $szResult  = 'NoProxy!';
    if( $fszJapanese eq 'yes' ) {
      $szComment = 'Proxy ¤&#1043;¤&#1069;¤&#1031;¤&#1050;¤¤¤&#1047;¤&#8470;&#1038;&#1032;';
    } else {
      $szComment = 'Like no proxy server.';
    }
  } elsif( $szResult eq '' && $fszKeepAlive eq '' ) {
    $szResult   = 'Anonymized';
    if( $fszJapanese eq 'yes' ) {
      $szComment .= '°&#1084;&#1048;&#1052;&#1045;&#1028;¤&#1050;&#1168;&#1062;&#1168;&#1081;&#1168;¦&#1168;¶¤&#1040;¤&#1048; Connection=Keep-Alive ¤&#1047;¤&#8470;&#1038;&#1032;';
    } else {
      $szComment .= 'No "Connection=Keep-Alive" is dubious';
    }
  }

  #-----// NoProxy //----#
  if( $szResult eq 'NoProxy!' ) {
    if( $szRH_Result eq 'IP Addr.' ) {
      $szJudge    = '1';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = 'IP &#1168;&#1118;&#1168;&#1049;&#1168;&#1084;&#1168;&#8470;&#1049;&#1029;µ­¤&#1054;¤&#1074;¤&#1054;¤&#1055;µ®&#1029;&#1045;¤&#1047;¤&#8470;&#1038;&#1032;';
      } else {
        $szJComment = 'REMOTE_HOST that is IP addr. is precious.';
      }
    } elsif( $szRH_Result eq 'Via a Proxy' ) {
      $szJudge    = '3';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = 'HTTP &#1050;&#1057;&#1111;&#1092;¤&#1080;¤&#1082;&#1168;&#1067;&#1168;&#8470;&#1168;&#1048;&#1052;&#1109;¤&#1054;&#1168;&#1041;&#1168;§&#1168;&#1043;&#1168;&#1031;¤&#1054;¤&#1067;¤¦¤&#1090;&#1044;&#1052;&#1054;&#1075;&#1040;&#1080;¤&#1051;&#8470;&#1060;¤&#1087;¤&#1084;¤&#1083;¤&#1054;¤&#1047;&#1043;&#1085;°&#1061;&#1038;&#1032;';
      } else {
        $szJComment = 'HTTP valuables are checked first.';
      }
    } elsif( $szRH_Result eq '?' ) {
      $szJudge    = '2';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = '&#1109;&#1088;&#1050;&#1091;¤&#1090;&#1108;&#1065;¤«¤&#1031;&#1168;&#1041;&#1168;§&#1168;&#1043;&#1168;&#1031;¤µ¤&#1084;¤&#1083;&#1109;&#1084;&#8470;&#1079;¤&#1051;¤&#1055;&#1108;¤¤&#1082;¤&#1070;¤&#8470;&#1038;&#1032;';
      } else {
        $szJComment = 'Persistent valuables checkers may suspect.'
      }
    } else {
      $szJudge    = '2';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = '»&#1048;¤&#1025;¤&#1083; Proxy ¤&#1047;¤&#8470;&#1038;&#1032;';
      } else {
        $szJComment = 'Useful proxy server.';
      }
    }

  #-----// Anonymized //----#
  } elsif( $szResult eq 'Anonymized' ) {
    if( $szRH_Result eq 'IP Addr.' ) {
      $szJudge    = '2';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = '&#1053;&#1096;&#1053;&#1057;&#1030;&#1041;&#1043;&#1053;¤&#1118;¤&#1082;¤&#1047;¤&#8470;&#1038;&#1032;';
      } else {
        $szJComment = 'Nice. It it useful.';
      }
    } elsif( $szRH_Result eq 'Via a Proxy' ) {
      $szJudge    = '3';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = 'HTTP &#1050;&#1057;&#1111;&#1092;¤&#1080;¤&#1082;&#1168;&#1067;&#1168;&#8470;&#1168;&#1048;&#1052;&#1109;¤&#1054;&#1168;&#1041;&#1168;§&#1168;&#1043;&#1168;&#1031;¤&#1054;¤&#1067;¤¦¤&#1090;&#1044;&#1052;&#1054;&#1075;&#1040;&#1080;¤&#1051;&#8470;&#1060;¤&#1087;¤&#1084;¤&#1083;¤&#1054;¤&#1047;&#1043;&#1085;°&#1061;&#1038;&#1032;';
      } else {
        $szJComment = 'HTTP valuables are checked first.';
      }
    } elsif( $szRH_Result eq '?' ) {
      $szJudge    = '3';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = '&#1109;&#1088;&#1050;&#1091;¤&#1090;&#1108;&#1065;¤«¤&#1031;&#1168;&#1041;&#1168;§&#1168;&#1043;&#1168;&#1031;¤µ¤&#1084;¤&#1083;&#1109;&#1084;&#8470;&#1079;¤&#1051;¤&#1055;&#1108;¤¤&#1082;¤&#1070;¤&#8470;&#1038;&#1032;';
      } else {
        $szJComment = 'Persistent valuables checkers may suspect.';
      }
    } else {
      $szJudge    = '2';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = '¤&#1074;¤&#1043;¤&#1111;¤¤¤&#1050;¤¤¤&#1054;¤&#1047;¤&#1118;¤&#1070;¤&#1082;&#1052;µ&#1043;&#1075;¤&#1050;&#1053;&#1096;&#1053;&#1057;¤&#1090;¤·¤&#1046;¤&#1055;&#1168;¤&#1168;±¤&#1070;¤»¤&#1091;&#1038;&#1032;';
      } else {
        $szJComment = 'Useful proxy server.';
      }
    }

  #-----// Via a Proxy //----#
  } else {
    if( $szRH_Result eq 'IP Addr.' ) {
      $szJudge    = '3';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = '¤&#1070;¤&#1118;¤&#1070;¤&#1118;¤&#1047;¤&#8470;&#1038;&#1032;';
      } else {
        $szJComment = 'So-so.';
      }
    } elsif ($szRH_Result eq 'Via a Proxy') {
      $szJudge    = '5';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = '&#1047;&#1038;&#1030;&#1111;¤&#1051;¤&#1074; Proxy ¤&#1048;¤¤¤&#1043;¤&#1111;&#1169;¶¤&#1105;¤&#1047;¤&#8470;¤±¤&#1049;&#1038;&#1118;&#1043;&#1065;¤&#1031;¤&#1050;¤±¤&#1084;¤&#1056;»&#1048;¤&#1025;¤&#1070;¤&#8470;&#1038;&#1032;';
      } else {
        $szJComment = 'If it is not slow, it is useful.';
      }
    } elsif ($szRH_Result eq '?') {
      $szJudge    = '3';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = '&#1055;&#1110;¤&#1084;¤&#1046;¤¤¤&#1050;¤±¤&#1084;¤&#1056;&#1045;&#1047;¤¤¤&#1046;¤&#1046;¤&#1074;µ¤¤&#1051;¤&#1050;¤&#1083;¤&#1074;¤&#1054;¤&#1047;¤&#1074;¤&#1118;¤&#1082;¤&#1070;¤»¤&#1091;¤&#1053;&#1038;&#1032;';
      } else {
        $szJComment = 'So-so.';
      }
    } else {
      $szJudge    = '4';
      if( $fszJapanese eq 'yes' ) {
        $szJComment = '&#1043;&#1065;¤&#1031;¤&#1050;¤±¤&#1084;¤&#1056;&#1053;&#1096;&#1053;&#1057;&#1030;&#1044;¤&#1047;¤&#8470;&#1038;&#1032;';
      } else {
        $szJComment = 'If it is not slow, it is useful.';
      }
    }
  }

  #-----// SPILL //----#
  if( $szYourHost ne 'Anonymous' ) {
    $szJudge    .= '?';
    if( $fszInner eq 'true' ) {
      if( $fszJapanese eq 'yes' ) {
        $szJComment = '&#1046;&#1074;&#1049;&#1092; Proxy&#1038;©';
      } else {
        $szJComment = 'Internal proxy server?';
      }
    } else {
      if( $fszJapanese eq 'yes' ) {
        $szJComment = '&#1055;&#1110;¤&#1084;¤&#1046;¤&#1083;&#1038;©';
      } else {
        $szJComment = 'Spill your REMOTE_HOST?';
      }
    }
    $szJComment .= " ($szYourHost)";
  }
  return;
}
# # # # #

#-----// HTML Generate //----#
sub html {
  print <<"_HTML_";
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN"
"http://www.w3.org/TR/REC-html40/strict.dtd">
<HTML lang="jp">
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=EUC-JP">
<META http-equiv="Content-Style-Type" content="text/css">
<META http-equiv="Content-Script-Type" content="text/javascript">
<TITLE lang="en">$szTitle</TITLE>
<LINK rev="made" title="PRimaire C. Stallman"
      href="mailto:PRCS\@ProxyJudge.VirtualAve.Net">
<LINK rev="made" title="Ryuji Takei"
      href="mailto:cry\@cker.104.net">
<LINK rel="copyright" href="http://prx4ever.virtualave.net/ps/notice.html.ja">
<LINK rel="index" href="http://prx4ever.virtualave.net/ps/">
<STYLE type="text/css">
<!--
A.noborder:link{
        color:white;
        text-decoration:none;
}
A.noborder:visited{
        color:white;
        text-decoration:none;
}
A.noborder:active{
        color:white;
        text-decoration:none;
}
A.noborder:hover{
        color:white;
        text-decoration:none;
}
//-->
</STYLE>
</HEAD>

<BODY style="background:URL(./img/splash2.png)" $szBody>
_HTML_

  if( $fszJapanese eq 'yes' ) {
    print "[<A accesskey=\"a\" href=\"./prxjdg.cgi?en\">English</A>]\n";
  } else {
    print "[<A accesskey=\"a\" href=\"./prxjdg.cgi?ja\">Japanese</A>]\n";
  }
  print <<"_HTML_";
<DIV style="text-align:center">$szTitle</DIV>

<HR>

<PRE>
_HTML_
  if( $ARGV[0] eq 'debug' ) {
   print "itself_host : @aszItselfHost<HR>\n";
   print "spill_addr : @aszSpillAddr<HR>\n";
  }
  if( $szCheck_RH =~ /$szWarn"/ ) {
    print " $szColor$szWarn\">via$szEndTag  - REMOTE_HOST=$szCheck_RH\n";
  } elsif( $szCheck_RH =~ /$szSuspect"/ ) {
    print "  $szColor$szSuspect\">?$szEndTag   - REMOTE_HOST=$szCheck_RH\n";
  } else {
    print "        REMOTE_HOST=$szRemoteHost\n";
  }
  print "        REMOTE_ADDR=$szRemoteAddr\n\n";
  foreach $szEnvValue ( @aszEnvValues ) {
    $szEnvValue =~ s/^[^\t]+\t[^\t]+\t([^\t]+)\t([^\t]+)/$1$2/;
    if( $szYourHost ne 'Anonymous' && $szEnvValue =~ /$szYourHost/ ) {
      print "$szColor$szWarn\">SPILL$szEndTag - ";
      if( $szEnvValue !~ />$szYourHost</ ) {
        $szEnvValue =~ s/$szYourHost/$szColor$szWarn">$szYourHost$szEndTag/i;
      }
    } elsif( $szEnvValue =~ /$szWarn"/ ) {
      print " $szColor$szWarn\">via$szEndTag  - ";
    } elsif( $szEnvValue =~ /$szSuspect"/ ) {
      print "  $szColor$szSuspect\">?$szEndTag   - ";
    } else {
      print "        ";
    }
    print "$szEnvValue\n";
  }
  if( $szRH_Comment eq '' ) {
    if( $fszJapanese eq 'yes' ) {
      $szRH_Comment = "&#1046;&#1043;¤&#1051;&#1052;&#1076;&#1042;&#1082;¤&#1055;¤&#1050;¤¤¤&#1080;¤¦¤&#1047;¤&#8470;&#1038;&#1032;";
    } else {
      $szRH_Comment = "Maybe no problem.";
    }
  }
  if( $szComment eq '' ) {
    if( $fszJapanese eq 'yes' ) {
      $szComment = "&#1046;&#1043;¤&#1051;&#1052;&#1076;&#1042;&#1082;¤&#1055;¤&#1050;¤¤¤&#1080;¤¦¤&#1047;¤&#8470;&#1038;&#1032;";
    } else {
      $szComment = "Maybe no problem.";
    }
  }
  print <<"_HTML_";
</PRE>

<HR>

<UL>
<LI>REMOTE_HOST
<DL>
<DT>Result<DD>$szRH_Result
<DT>Comment<DD>$szRH_Comment
</DL>
<BR>
<LI>HTTP Env. Value
<DL>
<DT>Result<DD>$szResult
<DT>Comment<DD>$szComment
</DL>
<BR>
<LI>AnonyLevel : $szJudge<BR>
&nbsp; $szJComment
</UL>

<HR>

<DIV style="text-align:right">
prxjdg - created by <A accesskey="r" href="http://prx4ever.virtualave.net/ps/">PRX4EVER</A>
<BR>thanx to Team Cr[y]ackerz
</DIV>
</BODY>
</HTML>
_HTML_
  return;
}