Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Лысков Игорь Витальевич Статус: Специалист Рейтинг: 216 ∙ повысить рейтинг >>

Зенченко Константин Николаевич Статус: Профессор Рейтинг: 140 ∙ повысить рейтинг >>

Шевченко Александр Владимирович Статус: 3-й класс Рейтинг: 23 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Assembler (Ассемблер)

Выпуск № 1142
от 24.12.2008, 05:05

Вопрос № 154857: Здравствуйте, профессиональные эксперты. Вопрос Лыскову Игорю Витальевичу. Помогите решить первое задание лабораторное работы №6: Написать и отладить программу, предусмотренную заданием, с использованием программного анализа флагов готовнос...

Вопрос № 154.857

Здравствуйте, профессиональные эксперты. Вопрос Лыскову Игорю Витальевичу. Помогите решить первое задание лабораторное работы №6: Написать и отладить программу, предусмотренную заданием, с использованием программного анализа флагов готовности ВУ. Вариант №7. Заранее - спасибо.

Отправлен: 18.12.2008, 17:26 Вопрос задал: Соболев Сергей Владимирович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Соболев Сергей Владимирович! Решение, подробнейшим образом прокомментированное, в приложении Приложение: RD #0 ;начальный адрес куда будем писать русские символы wr R0 ;сохраним rd #64 ;начальный адрес куда будем писать цифры wr R1 ;сохраним RDI #101 ;команда очистки буфера out 1 ; для клавиатуры out 11 ; и дисплея RDI #102 ; команда сброса ошибки out 1 ; для клавиатуры out 11 ; и для дисплея RDI #10 ; команда разрешения МВУ OUT 1 ; для клавиатуры без прерываний (по опросу) out 11 ; для монитора без автоувеличения адреса RDI #103 ; команда установки посимвольного ввода out 1 ; для клавиатуры LOOP:IN 2 ; читаем регистр состояния клавиатуры DIV #10 ; делим на 10, чтобы второй разряд готовности стал в первом разряде WR R3 ; сохраним DIV #2 ; разделим на 2 MUL #2 ; умножим на 2 SUB R3 ; отнимем сохранное JZ LOOP ; если четное, то нет кода в буфере, идем на цикл IN 0 ; считываем код с клавиатуры wr R2 ; сохраним sbi #48 ; <'0' js RESET ; игнорируем, на сброс клавиатуры rd R2 ; код sbi #58 ; >'9' jns CMPRUS ; проверим на русские буквы RD R1 ; цифру выводим в нижней части экрана, в R1 адрес, куда писать out 13 ; в регистр адреса adi #1 ; инкремент адреса wr R1 ; сохраним rd R2 ; код out 10 ; на дисплей! jmp RESET ; на сброс клавиатуры CMPRUS:RD R2 ; код, проверим на > 128 - там русские буквы SBI #128 ; сравним со 128 JS RESET ; < 128 игнорируем RD R0 ; русские буковки выводим в верхней части экрана, в R0 адрес, куда писать out 13 ; в регистр адреса adi #1 ; инкремент адреса wr R0 ; сохраним rd R2 ; код out 10 ; на дисплей! RESET:RDI #101 ; команда сброса out 1 ; в клавиатуру RDI #103 ; команда установки посимвольного ввода (сбрасывается при сбросе) out 1 ; в клавиатуру jmp LOOP ; на чтение состояния клавиатуры --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 19.12.2008, 17:50 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239075 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Блестяще! Спасибо Вам огромное.

Вопрос № 154.858

Здравствуйте, профессиональные эксперты. Вопрос Лыскову Игорю Витальевичу. Помогите решить второе задание лабораторное работы №6: Изменить первую программу таким образом, чтобы процессор реагировал на готовность ВУ с помощью подсистемы прерывания. Вариант №7. Заранее - спасибо.

Отправлен: 18.12.2008, 17:26 Вопрос задал: Соболев Сергей Владимирович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Соболев Сергей Владимирович! Решение с прерываниями. Приложение: RD #27 ; адрес обработчика прерывания клавиатуры WR 100 ; запишем по адресу обработчика IRQ0 RD #0 ;начальный адрес куда будем писать русские символы wr R0 ;сохраним rd #64 ;начальный адрес куда будем писать цифры wr R1 ;сохраним RDI #101 ;команда очистки буфера out 1 ; для клавиатуры out 11 ; и дисплея RDI #102 ; команда сброса ошибки out 1 ; для клавиатуры out 11 ; и для дисплея RDI #11 ; команда разрешения МВУ и работы по прерыванию OUT 1 ; для клавиатуры RDI #10 ; команда разрешения МВУ out 11 ; для монитора без автоувеличения адреса RDI #103 ; команда установки посимвольного ввода out 1 ; для клавиатуры EI ; разрешаем прерывания от устройств (клавиатуры) LOOP: ; пустой цикл NOP ; вся работа в прерывании NOP JMP LOOP INT0:IN 0 ; считываем код с клавиатуры wr R2 ; сохраним sbi #48 ; <'0' js RESET ; игнорируем, на сброс клавиатуры rd R2 ; код sbi #58 ; >'9' jns CMPRUS ; проверим на русские буквы RD R1 ; цифру выводим в нижней части экрана, в R1 адрес, куда писать out 13 ; в регистр адреса adi #1 ; инкремент адреса wr R1 ; сохраним rd R2 ; код out 10 ; на дисплей! jmp RESET ; на сброс клавиатуры CMPRUS:RD R2 ; код, проверим на > 128 - там русские буквы SBI #128 ; сравним со 128 JS RESET ; < 128 игнорируем RD R0 ; русские буковки выводим в верхней части экрана, в R0 адрес, куда писать out 13 ; в регистр адреса adi #1 ; инкремент адреса wr R0 ; сохраним rd R2 ; код out 10 ; на дисплей! RESET:RDI #101 ; команда сброса out 1 ; в клавиатуру RDI #103 ; команда установки посимвольного ввода (сбрасывается при сбросе) out 1 ; в клавиатуру IRET ; возврат из прерывания --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 19.12.2008, 19:09 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239078 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Вопрос № 154.861

В данном коде реализована программа вывода системной даты и времени...она работает, но не так ка хотелось бы...помогите сделать, чтоб она выводилась в следущем формате пример: 11 часов 30 минут 25 секунд 17 декабря 2008 года чтоб оканчания менялись..( 1 час 31 минута 1 секунда).. Заранее признателен.. Приложение: Model Small 486 MASM Stack 100h Data wNumOff DW 10 Dup(0) ;Смещение строки, где будет содержаться печатаемое число bNewLine DB 13, 10, '0' ;Переменная для перехода на новую строчку в файле oclock db '0$' ;Объявляем переменные для вывода hours db ' часов $' minutes db ' минут $' seconds db ' секунд $' year db 'год $' mounth db ' месяц $' chislo db ' число $' datta db 'Дата: $' time db 'Время: $' perehod db 13, 10, '$' Stolbec db 1 ; номер строки Stroca db 1 ; номер столбца string1 db 6 dup (?),'$' ; буфер для хранения ASC2 Code Start: Mov AX, @Data Mov DS, AX ;Инициализация сегмента данных Mov AX, 3h Int 10h ;Очистка экрана Mov AH, 2Ch ;Получение времени Int 21h mov ah,09h mov dx,offset time int 21h CMP CH, 0 JE Usl Xor EAX, EAX ;Вывод часов Mov AL, CH Call Num_Out JMP EndUsl Usl: Mov AH,09h Mov DX,offset oclock Int 21h EndUsl: mov ah,09h mov dx,offset hours int 21h Mov AH, 2Ch ;Получение времени Int 21h Xor EAX, EAX ;Вывод минут Mov AL, CL Call Num_Out mov ah,09h mov dx,offset minutes int 21h Xor EAX, EAX ;Вывод секунд Mov AL, DL Call Num_Out mov ah,09h mov dx,offset seconds int 21h mov ah,09h ;Переход на следующую строку mov dx,offset perehod int 21h mov ah,09h mov dx,offset datta int 21h ; Чтение системной даты------------------------------------------- MOV AH, 2AH ;Функция чтения даты. INT 21H ;CX -год, DH - месяц, DL-день mov ax,cx ;сохраним месяц и день в AX push dx ;сохраним в стеке месяц и день call DEC_ASC2 ; переведем год в ASC2 Mov AH, 2Ah ;Получение даты Int 21h Xor EAX, EAX ;Вывод числа Mov AL, DL Call Num_Out mov ah,09h mov dx,offset chislo int 21h Mov AH, 2Ah ;Получение даты Int 21h Xor EAX, EAX ;Вывод месяца Mov AL, DH Call Num_Out mov ah,09h mov dx,offset mounth int 21h ;Выведем год на экран----------------------------------------------- mov Stolbec,24 mov Stroca,1 call Superkursor LEA DX, string1 ; в DX - адрес строки MOV AH, 09H ; Прерывание ДОС INT 21H ; для вывода на экран mov ah,09h mov dx,offset year int 21h Mov AH, 10h Int 16h ;Ожидание нажатия любой клавиши Mov AH, 4Ch Int 21h; Выход в DOS ;Процедуры Num_Out Proc CPP ;Процедура вывода данных на экран Uses EAX, EBX, ECX, EDX Xor DI, DI ;В DI будет длина выводимого числа Mov ECX, 10 ;Задаем делитель Push EAX ;Вычисляем длину выводимого числа Next_Length: Xor EDX, EDX Div ECX Inc DI Cmp EAX, 0 JNZ Next_Length Pop EAX ;Вычислили длину (В DI) Mov SI, wNumOff Add SI, DI Inc SI Next_Num: Xor EDX, EDX Div ECX Add DL, '0' Mov Byte PTR [SI], DL Dec SI Cmp EAX, 0 JNZ Next_Num Inc SI Mov AH, 40h Mov BX, 1 Mov CX, DI Mov DX, Offset SI Int 21h ;Записали число на экран Ret Num_Out EndP ;Конец процедуры ; Процедура позиционирования курсора Superkursor proc MOV AH,2 MOV BH,0 MOV DH,Stroca mov DL,Stolbec INT 10H ret Superkursor endp ; Процедура преобразования кода в ASC2 ;Берет значение из регистра AX переводит в ASC2 и помещает в буфер string1 DEC_ASC2 proc xor dx,dx mov si,0 mov bx, 10 xor cx, cx WS_calc_loop: xor dx, dx div bx or dx, '0' push dx inc cx test ax,ax jnz WS_calc_loop WS_form_loop: pop ax mov string1[si],al inc si loop WS_form_loop inc si mov string1[si],'$' ret DEC_ASC2 endp End Start ;Конец программы

Отправлен: 18.12.2008, 17:33 Вопрос задал: Angel1731 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Angel1731! Позвольте предложить свой вариант Приложение: Model Small, C .Data time db 'Время: $' str_hour db 'час$' test_hour db 2,0,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,1,1 tail_hour dw dummy, hour_a, hour_ob hour_a db 'а$' hour_ob db 'ов' dummy db '$' str_minute db 'минут$' str_second db 'секунд$' date db 0dh,0ah,'Дата: $' arr_month dw yanuary, february, march, april, may, june dw july, august, september, october, november, december yanuary db 'января$' february db 'февраля$' march db 'марта$' april db 'апреля$' may db 'мая$' june db 'июня$' july db 'июля$' august db 'августа$' september db 'сентября$' october db 'октября$' november db 'ноября$' december db 'декабря$' str_year db 'года$' .Code .startup mov ax, @data mov ds, ax mov es, ax mov ah,09h mov dx,offset time int 21h Mov AH, 2Ch ;Получение времени Int 21h xor ax, ax mov al, ch call print_value, ax, offset print_hour mov al, cl call print_value, ax, offset print_minute mov al, dh call print_value, ax, offset print_second mov ah,09h mov dx,offset date int 21h Mov AH, 2ah ;Получение даты Int 21h xor ax, ax mov al, dl call print_value, ax, offset print_day mov al, dh call print_month, ax mov ax, cx call print_value, ax, offset print_year mov ah, 0 int 16h .exit 0 ; ; Функция вывода числа с "хвостиком" ; Параметры: value - выводимое число ; print_progtam - адрес подпрограммы, которая еще что-то добавит, ; она вызовится с параметором value, чтобы знать, ; что добавлять print_value proc value:word, print_program uses ax, cx, dx xor cx, cx mov bl, 10 div_loop: ; преобразование и вывод числа div bl inc cx push ax mov ah, 0 test ax, ax jnz div_loop pr_loop: pop ax mov al, ah or al, 30h int 29h loop pr_loop mov al, ' ' ; разделительный пробел int 29h call word ptr [print_program], value ; "хвостик" ret print_value endp ; ;для часов определим по таблице, что надо добавить к слову 'час' (час, часа, часов) print_hour proc num:word lea dx, str_hour mov ah, 9 int 21h mov si, num mov al, test_hour[si] mov ah, 0 shl ax, 1 mov si, ax mov dx, tail_hour[si] mov ah, 9 int 21h mov al, ' ' int 29h ret print_hour endp ; ;для минут и секунд обрабатывается одинаково ;в подпрограмме add_tail print_minute proc num:word lea dx, str_minute mov ah, 9 int 21h call add_tail, num mov al, ' ' int 29h ret print_minute endp ; ;для минут и секунд обрабатывается одинаково ;в подпрограмме add_tail print_second proc num:word lea dx, str_second mov ah, 9 int 21h call add_tail, num ret print_second endp ; ;если остаток от деления на 10 (число единиц) 0 или больше 4, то ничего не добавляем ; (остается 'минут', 'секунд') ;если 1, то 'минута', 'секунда' ;все остальное 'минуты', 'секунды' add_tail proc num:word mov ax, num aam cmp al, 4 ja print_tail_ret cmp al, 1 jb print_tail_ret JZ tail_a mov al, 'ы' int 29h jmp print_tail_ret tail_a: mov al, 'а' int 29h print_tail_ret: ret add_tail endp ; ;для дня не надо выводить ничего (только число) print_day proc num:word ret print_day endp ; ;для месяцев не надо выводить число (только название) ;просто берем из таблицы ;номер месяца начинается с 1! print_month proc num:word mov si, num dec si shl si, 1 mov dx, arr_month[si] mov ah, 9 int 21h mov al, ' ' int 29h ret print_month endp ; ;для года просто добавляем 'года' print_year proc num:word lea dx, str_year mov ah, 9 int 21h ret print_year endp ; End ;Конец программы --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 20.12.2008, 03:53 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239121 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.894

Уважаемые эксперты помогите решить задание по ассемблеру на тему програмирование циклов.. №19 Если число нулевых элементов поля 02bd-02da четно, тогда в ячейку с адресом 02аа поместить 200(в 10 системе счисления)

Отправлен: 18.12.2008, 19:55 Вопрос задал: Домиров Андрей Aлексеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Домиров Андрей Aлексеевич! Код: mov si,2bdh ;начальный адрес mov cx,1eh ; количество xor dx, dx ; число нулевых элементов iLoop: ;цикл lodsb ; читаем очередной байт cmp al,0 ;сравниваем с 0 jne next ; не 0 - обходим inc dx ; считаем нулевые байты next: loop iLoop ; по всем test dx,1 ; младший бит 1 - нечетнное число jnz exit ; ничего не делаем mov ds:[2aah], 200 ; пишем 200 exit: --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 19.12.2008, 05:40 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239026 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.895

Уважаемые эксперты помогите решить задание по ассемблеру на тему програмирование циклов. a) В поле байт с 0200 по 02а2 найти сумму всех элементов, меньше 3 и поместить ее в регистр Dx. b) В 25 ячейках отстоящих друг от друга через 2 байта - числа.Найти их сумму и умножить на 3.Результат поместить в ячейку с адресом 02А2.

Отправлен: 18.12.2008, 19:58 Вопрос задал: Домиров Андрей Aлексеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Домиров Андрей Aлексеевич! a) Код: mov si, 200h ; начальный адрес xor dx,dx ; здесь будем накапливать сумму xor ax,ax ; нам важно ah=0 mov cx,0a3h ; количество элементов iLoop: начало цикла lodsb ; читаем очередной в al cmp al, 3 ; сравним с 3 jae next ; >= обходим add dx, ax ; иначе складываем в DX next: loop iLoop ; на повтор б) Код: mov si, 200h ;какой-то там начальный адрес mov cx, 25 ; счетчик байт xor ax, ax ; подготовим регистр AX xor dx, dx ; сумма iLoo p: ;цикл mov al,[si] ; читаем очередной в al add si, 3 ; смещаем на следующий элемент add dx,ax ; накапливаем сумму loop iLoop ; по всем mov ax,dx ; ax = dx (вместо умножения на 3) shl ax,1 ; ax = dx*2 add ax,dx ; ax = dx*3 mov ds:[2a2h],ax ; сохраним в ячейке --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 19.12.2008, 05:33 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239025 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.900

Помогите сделать пожалуйста!!Объединить ASCIIZ-строки с адресами в AX и DX в одну по адресу в АХ. Признаком конца строки является нулевой ASCII-символ. Делал оператором movsb только заменяет строку

Отправлен: 18.12.2008, 20:38 Вопрос задал: Artem--ua (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Artem--ua! Примерно так. Сначала ищем конец первой, потом добавляем вторую. Предполагаем, что ES указывает на сегмент данных Код: mov di, ax ; адрес сроки, куда добавляем mov al,0 ; ищем конечный нулевой байт mov cx,0ffffh ; заведомо большая величина repne scasb ; ищем al в es:di dec di ; теперь di показывает на 0 mov si, dx ; адрес второй строки copy_loop: копируем lodsb stosb cmp al,0 ; проверим на последний 0 jne copy_loop --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 19.12.2008, 05:18 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239023 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо!

Вопрос № 154.905

Здравствуйте! Помогите пожалуйста в решении следующей задачи: Составьте программу, которая преобразует исходный массив, содержащий символы “ ” (пробел), в массив без пробелов. Исходный массив содержит 16 однобайтных символов. В программе необходимо исполькозвать строковые функции. Если можно откоментируйте код. Заранее благодарен

Отправлен: 18.12.2008, 20:54 Вопрос задал: Byebye (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Лысков Игорь Витальевич Здравствуйте, Byebye! Примерно так: Код: model .tiny .data iarray db 'cvb ccx fgh s d' ;исходный массив oarray db 16 dup (?) ;результирующий .code lea si, iarray ;адрес исходного массива lea di, oarray ;адрес результирующего mov cx,16 ; число байт iLoop: ;циклим по байтам lodsb ; al = [si], si=si+1 cmp al,' ' ; пробел? je next ; обойдем stosb ; "непробел" копируем next: loop iLoop ; прдолжим mov ax,4c00h ;выход int 21h --------- Удачи!

Ответ отправил: Лысков Игорь Витальевич (статус: Специалист) Ответ отправлен: 19.12.2008, 05:07 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239022 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 154.935

Помогите пожалуйста с программой. Очень нужно сдать зачет вот собственно задание: разработать комплекс подпрограмм для шифрации/дешифрации. Первая подпрограмма шифрует, для этого очередной элемент ищется в таблице и заменяется на порядковый номер совпавшего табличного элемента. Вторая подпрограмма дешифрует информацию используя ту же таблицу. Размер элемента информации 4 тетрады(тетрада это полбайта) заранее огромное спасибо

Отправлен: 19.12.2008, 02:27 Вопрос задал: Токарев Дмитрий Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Trulala Здравствуйте, Токарев Дмитрий Сергеевич! TASM программа для ДОС Приложение: LOCALS ASSUME cs:code, ds:data, ss:stk ;------------ data SEGMENT cts DW SEG cipher_table_seg1 ;сегментный адрес таблицы шифрации test_string1 DB 'cipher me :) he-he 012345678' ;шифруемая информация test_string1_size = $-test_string1 test_string2 DB test_string1_size DUP (?) ;зашифрованная информация test_string3 DB test_string1_size DUP (?) ;расшифрованная информация data ENDS ;------------ 186 code SEGMENT entry_point: mov ax,SEG data mov ds,ax ;создание таблицы шифровки ;(размер элемента информации) = 2 байта ;(размер таблицы) = (к-во значений, которые может принимать элемент информации) * (размер элемента информации) = (0FFFFh + 1) * 2 = 20000h байт mov es,ds:cts xor di,di cld mov cx,8000h mov ax,0FFFFh ;создать первый сегмент таблицы create_cipher_table_s1: stosw dec ax loop create_cipher_table_s1 push es pop dx add dx,1000h mov es,dx xor di,di mov cx,8000h ;создать второй сегмент таблицы create_cipher_table_s2: stosw dec ax loop create_cipher_table_s2 ;шифрация push ds ;ciphered_data_addr:DWORD push OFFSET test_string2 push 0002h ;cipher_table_size:DWORD push 0000h push ds:cts ;cipher_table_addr:DWORD push 0000h push 0000h ;not_ciphered_data_size:DWORD push test_string1_size push ds ;not_ciphered_data_addr:DWORD push OFFSET test_string1 call Cipher ;(not_ciphered_data_addr:DWORD, not_ciphered_data_size:DWORD, cipher_table_addr:DWORD, cipher_table_size:DWORD, ciphered_data_addr:DWORD) ;дешифрация push ds ;deciphered_data_addr:DWORD push OFFSET test_string3 push ds:cts ;cipher_table_addr:DWORD push 0000h push 0000h ;ciphered_data_size:DWORD push test_string1_size push ds ;ciphered_data_addr:DWORD push OFFSET test_string2 call Decipher ;(ciphered_data_addr:DWORD, ciphered_data_size:DWORD, cipher_table_addr:DWORD, deciphered_data_addr:DWORD) nop mov ax,4C00h INT 21h ;--------------------- ;подпрограмма шифрации ;--------------------- Cipher PROC ;(not_ciphered_data_addr:DWORD - адрес шифруемой информации, not_ciphered_data_size:DWORD - размер шифруемой информации в байтах(должен быть кратен 2), cipher_table_addr:DWORD - адрес таблицы шифрования, cipher_table_size:DWORD - размер таблицы шифрования в байтах, ciphered_data_addr:DWORD - адрес зашифрованной информации) ARG @@not_ciphered_data_addr:DWORD, @@not_ciphered_data_size:DWORD, @@cipher_table_addr:DWORD, @@cipher_table_size:DWORD, @@ciphered_data_addr:DWORD = @@arg_size push bp mov bp,sp push ds push es push si push di push bx push cx push dx ;es:di -> шифруемые данные ;ds:si -> таблица шифрования ;dx - счётчик размера таблицы(младшая часть) ;bx - счётчик размера таблицы(старшая часть) ;cx - индекс элемента таблицы les di,@@not_ciphered_data_addr cipher_loop: mov ax,WORD PTR @@not_ciphered_data_size+2 test ax,ax jnz read_next_not_ciphered_data_element mov ax,WORD PTR @@not_ciphered_data_size test ax,ax jnz read_next_not_ciphered_data_element jmp @@exit read_next_not_ciphered_data_element: mov ax,es:[di] add di,2 jnc find_element_in_table ;следующий сегмент push ax mov ax,es add ax,1000h mov es,ax pop ax find_element_in_table: ;найти элемент в таблице lds si,@@cipher_table_addr mov dx,WORD PTR @@cipher_table_size mov bx,WORD PTR @@cipher_table_size+2 xor cx,cx cmp_with_cipher_table_element_loop: test dx,dx jnz cmp_with_cipher_table_element test bx,bx jnz cmp_with_cipher_table_element jmp @@exit cmp_with_cipher_table_element: cmp ax,ds:[si] je element_found add si,2 jnc modify_counter ;следующий сегмент push ax mov ax,ds add ax,1000h mov ds,ax pop ax modify_counter: sub dx,2 jnc modify_cipher_table_element_index dec bx modify_cipher_table_element_index: inc cx jmp cmp_with_cipher_table_element_loop element_found: lds si,@@ciphered_data_addr mov ds:[si],cx add WORD PTR @@ciphered_data_addr,2 jnc modify_not_ciphered_data_size add WORD PTR @@ciphered_data_addr+2,1000h modify_not_ciphered_data_size: sub WORD PTR @@not_ciphered_data_size,2 jnc j_cipher_loop dec WORD PTR @@not_ciphered_data_size+2 j_cipher_loop: jmp cipher_loop @exit: pop dx pop cx pop bx pop di pop si pop es pop ds pop bp ret @@arg_size Cipher ENDP ;----------------------- ;подпрограмма дешифрации ;----------------------- Decipher PROC ;(ciphered_data_addr:DWORD - адрес зашифрованной информации, ciphered_data_size:DWORD - размер зашифрованной информации в байтах, cipher_table_addr:DWORD - адрес таблицы шифрования, deciphered_data_addr:DWORD - адрес расшифрованной информации) ARG @@ciphered_data_addr:DWORD, @@ciphered_data_size:DWORD, @@cipher_table_addr:DWORD, @@deciphered_data_addr:DWORD = @@arg_size push bp mov bp,sp push ds push es push si push di push bx ;es:di -> дешифруемые данные ;ds:si -> таблица шифрования les di,@@ciphered_data_addr decipher_loop: mov ax,WORD PTR @@ciphered_data_size+2 test ax,ax jnz read_next_ciphered_data_element mov ax,WORD PTR @@ciphered_data_size test ax,ax jnz read_next_ciphered_data_element jmp @@exit read_next_ciphered_data_element: mov bx,es:[di] add di,2 jnc get_element_by_table_index ;следующий сегмент push ax mov ax,es add ax,1000h mov es,ax pop ax get_element_by_table_index: lds si,@@cipher_table_addr shl bx,1 jnc read_table_element ;следующий сегмент push ax mov ax,ds add ax,1000h mov ds,ax pop ax read_table_element: mov ax,ds:[bx+si] lds si,@@deciphered_data_addr mov ds:[si],ax add WORD PTR @@deciphered_data_addr,2 jnc modify_ciphered_data_size add WORD PTR @@deciphered_data_addr+2,1000h modify_ciphered_data_size: sub WORD PTR @@ciphered_data_size,2 jnc j_decipher_loop dec WORD PTR @@ciphered_data_size+2 j_decipher_loop: jmp decipher_loop @exit: pop bx pop di pop si pop es pop ds pop bp ret @@arg_size Decipher ENDP code ENDS ;таблица шифрации размером в 20000h байт (2 сегмента в памяти) ;------------------------ cipher_table_seg1 SEGMENT DW 8000h DUP (?) cipher_table_seg1 ENDS cipher_table_seg2 SEGMENT DW 8000h DUP (?) cipher_table_seg2 ENDS ;------------------------ stk SEGMENT PARA STACK DB 200h DUP(?) stk ENDS END entry_point

Ответ отправил: Trulala (статус: 3-й класс) Ответ отправлен: 22.12.2008, 21:31 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 239355 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru