>604
んー、サンプルは荒らしツールだろ　　（笑
漏れのはちょっと変なスイッチとかゴチャゴチャ付いてるんでね
まあ、どっちにしてもまともなパケット飛ばすなら全部Perlで出来るから
やってみれ

１：%POSTにPOSTの内容、%HEADにヘッダの内容
２：%POSTのエスケープ s/([^ \w])/printf"%%%02X",ord$1/eg for(keys %POST);
３：%POSTを連結してlengthを取っておく
４：use IO::Socketしてサーバに繋ぐ
５：ヘッダから順に流し込む

もっともプリミティブなDUKE　　ｗ