#!/usr/local/bin/perl

#
# NullPost: The http agent of posting null character(%00)
#

use strict;
#use CGI::Carp qw(fatalsToBrowser);

#
# とりあえず弄るのは"設定終了"の部分までの変数
#

my $url		= 'http://www.hikarin.org/i0ch/test/bbs.cgi';
my $FROM	= '%00';
my $mail	= 'sage';
my $MESSAGE	= '%00';
my $bbs		= 'jikken';
my $key		= 1000000000;
my $proxy   = '';

#
# 設定終了
#

use LWP::UserAgent;
my $time	= time();
my $LWP		= LWP::UserAgent->new;

$LWP->proxy(['http'],$proxy) if $proxy;
$LWP->agent('Monazilla NullPost/1.0 Posting null character(%00)');

my $req = HTTP::Request->new(POST => $url);
$req->header('Referer' => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content("submit=書き込む&bbs=$bbs&key=$key&time=$time&FROM=$FROM&mail=$mail&MESSAGE=$MESSAGE");

my $res = $LWP->request($req);

print "Content-type: text/html\n\n";
if($res->is_success){
    print ${$res->content_ref};
}
else{
    print $res->error_as_HTML;
}

#
# お約束のこの最後
#
#　 （　・∀・）　　　|　|　ｶﾞｯ 
#　と　　　　）　 　 |　| 
#　　 Ｙ　/ノ　　　 人 
#　　　 /　）　 　 < 　>.__Λ∩ 
#　 ＿/し'　／／. Ｖ｀Д´）/　 
#　（＿フ彡　　　　　 　　/
#

1;