That websight is now my new tripper webservice.

  use LWP::UserAgent;
  $|= 1;
  
  my @chrs = ('a'..'z', 'A'..'Z', 0..9);
  my $filter = $ARGV[0] || q{.};
  
  while (1) {
      my $pass;
      $pass .= $chrs[rand @chrs] for 1..5;
      my $resp = LWP::UserAgent->new->post(
          "http://utilitymill.com/utility/Tripcode_Generator", [ PASSWORD => $pass, revision => 2]);
  
      my ($trip) = $resp->content =~ /off">(.*?)\s/;
      print "$pass\t$trip\n"
          if $trip =~ /$filter/;
  }