Алгоритм RC4 (перевести FASM -> TASM)

@Lankaa · Регистрация: 18.06.2017

Студворк — интернет-сервис помощи студентам

Дали задание реализовать алгоритм rc4 на ассемблере. Не очень хорошо понимаю его. На просторах интернета нашла реализованную функцию алгоритма, но она на FASM, а мне нужен TASM. Пыталась перевести код самостоятельно, но ничего не вышло.

Код на FASM

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
proc rc4, k, kn, d, dn
; k - ключ
; kn - размер ключа
; d - буфер
; dn - размер буфера
; ------------------------------------
    locals
        s rb 256
        v dd 256
    endl
 
    lea edi, [s]
    mov esi, edi
 
    xor ecx, ecx
    xor eax, eax
@@: stosb
    inc eax
    cmp eax, [v]
    jne @b
 
    xor edi, edi
@@: mov bl, byte[esi + ecx]
    add edi, ebx
 
    mov eax, ecx
    xor edx, edx
    mov ebx, [kn]
    div ebx
 
    mov eax, [k]
    mov bl, byte[eax + edx]
    add edi, ebx
 
    mov eax, edi
    mov ebx, [v]
    div ebx
 
    mov edi, edx
 
    mov bl, [esi + ecx]
    xchg [esi + edi], bl
    mov [esi + ecx], bl
 
    inc ecx
    cmp ecx, [v]
    jne @b
 
    xor ecx, ecx
    xor eax, eax
    xor edi, edi
 
@@: push eax
    inc ecx
    mov eax, ecx
    xor edx, edx
    mov ebx, [v]
    div ebx
    mov ecx, edx
 
    mov bl, byte[esi + ecx]
    add edi, ebx
    
    mov eax, edi
    mov ebx, [v]
    div ebx
    mov edi, edx
 
    mov bl, [esi + ecx]
    xchg [esi + edi], bl
    mov [esi + ecx], bl
 
    mov al, byte[esi + ecx]
    add al, byte[esi + edi]
    mov ebx, [v]
    div ebx
 
    mov bl, byte[esi + edx]
 
    pop eax
    add eax, [d]
    xor [eax], bl
    sub eax, [d]
 
    inc eax
    cmp eax, [dn]
    jne @b
 
    ret
endp

Попытки переделать по TASM

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
rc4 PROC
; k - ключ
; kn - размер ключа
; d - буфер
; dn - размер буфера
; ------------------------------------
 
    lea edi,  s ;загружает в edi  s
    mov esi, edi ;передаёт в esi  s
 
    xor ecx, ecx ;очищает ecx
    xor eax, eax ;очищает eax
A: stosb         ;содержимое al записывает  в edi, и прибавляет edi 1
    inc eax      ;прибавляет eax единицу
    cmp eax, v ;сравнивает eax c 256
    jne A        ;если не равны обратно к A
 
    xor edi, edi            ;очищает edi
 
B: 
    ;start j = j+s[i]+key[i%keyLength]%256
    mov bl, byte ptr[esi + ecx] ;записывает в bl  esi+ecx
    add edi, ebx            ;добавляет к edi ebx
 
    xor edx, edx            ;очищает edx
 
    mov eax, ecx            ;записывает в eax ecx
    mov ebx, kn           ;записывает в ebx  kn
    idiv ebx                 ;делит eax на ebx
 
    mov al, offset k            ;записывает в al k
    mov bl, byte ptr[eax + edx] ;записывает в bl  eax+edx
    add edi, ebx            ;добавляет к edi ebx
 
    mov eax, edi            ;записывает в eax edi
    mov ebx, v            ;записывает в ebx  v
    div ebx                 ;делит eax на ebx
    ;end
 
    mov edi, edx            ;записывает в edi edx
 
    mov bl, [esi + ecx]     ;записывает в bl  esi+ecx
    xchg [esi + edi], bl    ;меняет местами  и bl
    mov [esi + ecx], bl     ;записывает в  esi+ecx bl
 
    inc ecx                 ;прибавляет к ecx 1
    cmp ecx, v            ;сравнивает ecx  v
    jne B                   ;если не равны переходит на метку B
 
    xor ecx, ecx            ;очищает ecx
    xor eax, eax            ;очищает eax
    xor edi, edi            ;очищает edi
 
C: push eax                 ;отправляет eax в стек
    inc ecx                 ;прибавляет к ecx 1
    mov eax, ecx            ;записывает в eax ecx
    xor edx, edx            ;очищает edx
    mov ebx, v            ;записывает в ebx  v
    div ebx                 ;делит eax на ebx
    mov ecx, edx            ;записывает в ecx edx
 
    mov bl, byte ptr[esi + ecx] ;записывает в bl  esi+ecx
    add edi, ebx            ;добавляет к edi ebx
    
    mov eax, edi            ;записывает в eax edi
    mov ebx, v            ;записывает в ebx  v
    div ebx                 ;делит eax на ebx
    mov edi, edx            ;записывает в edi edx
 
    mov bl, [esi + ecx]     ;записывает в bl  esi+ecx
    xchg [esi + edi], bl    ;меняет местами  esi+edi и bl
    mov [esi + ecx], bl     ;записывает  esi+ecx bl
 
    mov al, byte ptr[esi + ecx] ;записывает в al  esi+ecx
    add al, byte ptr[esi + edi] ;добавляет в al  esi+edi
    mov ebx, v           ;записывает в ebx  v
    div ebx                 ;делит eax на ebx
 
    mov bl, byte ptr[esi + edx] ;записывает в bl  esi+edx
 
    pop eax                 ;забирает eax из стека
    add al, offset d             ;добавляет в al  d
    xor [eax], bl           ;xor eax с bl
    sub al, offset d             ;отнимает от al  d
 
    inc eax                 ;прибавляет к eax 1
    cmp al, offset dn            ;сравнивает al  dn
    jne C                   ;если не равны переходит на метку C
 
    ret
endp

ФедосеевПавел · 18.06.2017, 18:29

Исходник FASM под x32, а TASM последнее время при обучении используется для x16 DOS.
Поэтому простым копированием не обойтись.

@Lankaa · 18.06.2017, 18:50 **[ТС]**

Мы используем TASMx32.

Я добилась, чтобы код запустился, но он всё равно некорректно отрабатывает.

ФедосеевПавел · 18.06.2017, 19:05

А.
Тогда нужно
1. Объявить модель вызовов .model flat, stdcall
2. Объявить процедуру с аргументами rc4 PROC k:dword, kn:dword, d:dword, dn:dword
3. Объявить локальные переменные local s:byte[256], v:dword

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	18.06.2017, 18:29
	Исходник FASM под x32, а TASM последнее время при обучении используется для x16 DOS. Поэтому простым копированием не обойтись. 0

@Lankaa 0 / 0 / 0 Регистрация: 18.06.2017 Сообщений: 2
	18.06.2017, 18:50 [ТС]
	Мы используем TASMx32. Я добилась, чтобы код запустился, но он всё равно некорректно отрабатывает. 0

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	18.06.2017, 19:05
	А. Тогда нужно 1. Объявить модель вызовов `.model flat, stdcall` 2. Объявить процедуру с аргументами `rc4 PROC k:dword, kn:dword, d:dword, dn:dword` 3. Объявить локальные переменные `local s:byte[256], v:dword` 0