Setting up Tor with Freecap and Proxomitron

[sidki3003]

Sorry eclipse, i'm not the right person to ask about such things.
Apparently the people who created the ProxyJudge script were analyzing a lot of headers.

In case it's helpful for someone, here is the crucial subroutine (Perl, Japanese, 2003):

Code:

#-----// Proxy env. value,User-Agent, Keep-Alive check //----#
sub proxyenv_check {
  local( $szEnvValue, $szName, $szValue, $szNameStat, $szValueStat );

  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 ¤Ã¤Æ¡Ö¡Á·Ðͳ¡×¤Ã¤Æ°ÕÌ£¤Ç¤¹¤è¡£';
      } 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  .= ' °ìÈÌŪ¤Ê¥Ö¥é¥¦¥¶¤À¤È Keep-Alive ¤¬½Ð¤Þ¤¹¡£';
        } 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 .= ' ̯¤ÊÊÑ¿ô¤¬½Ð¤Æ¤Þ¤¹¡£' if( $szComment !~ /̯¤ÊÊÑ¿ô¤¬½Ð¤Æ¤Þ¤¹¡£/ );
        } 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 ÊÑ¿ô½Ð¤Æ¤Þ¤¹¡£' if( $szComment !~ /Proxy ÊÑ¿ô½Ð¤Æ¤Þ¤¹¡£/ );
        } 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;
}