Шифрование текста вертикальной решеткой!

[Anutka2611]

Всем доброго времени суток! Вобщем такая проблема: нужно написать прогу на АСМ-е для шифрования текста методом вертикальной решетки. Он заключается в следующем: берется решетка 10х10, туда вводится текст построчно(пробелы тоже учитываются), далее пользователем определяется 10-значный ключ(последовательность считывания текста из решётки по столбцам, т.е. 10 цифр в ключе - это номера столбцов от 0 до 9, при этом цифры не должны повторятся). Программа должна уметь шифровать и расшифровывать текст из файла, заменяя его на новый. При этом, если возможно, прога должна работать с любым текстом(имеющим размер более 64 кб), соответственно и решетка будет применяться к частям текста: сначала шифруются первые 100 символов, затем вторые 100 и т.д. Задача не из простых… Так что надеюсь на вашу помощь в написании кода.

[airyashov]

выкладывайте, что написали, оценим, поможем

[Serge_Bliznykov]

выкладывайте, что написали, оценим, поможем

угу. или, если этого всего нет, то можете к господину airyashov обратиться, он за вознаграждение сделает Вам программу..

to airyashov, ничего, что я Ваши услуги предлагаю?

[yuran666666]

;вот вообщем то для того чтобы показать в какую сторону двигаться код главной самой процедуры(шифровки-расшифровки)
;процедура собственно de_crypto, для дешифровки предлагаю патчить пару байт прямо "на лету"
;прикрутить надо есчо немного байтов и дело сделано (думаю сможете разобраться):
;непосредственно сам ввод ключа в программу,
;определения длины ключа,
;мэппинг файла,
;определение длины файла,
;выделение памяти под буфер для временного хранения шифруемого куска
;ну и есчо какихнть интерфейсных мелочей...
;только способ шифрования попахивает таким нафталином от которого нос набок сворачивается - даже банальный RC4, который
;реализовать будет ничуть не сложнее даст большую фору этому шифровщику


de_crypto proto, : dword
.data
crypto_buf db 16 dup (01h,02h,03h,04h,05h,06h,07h,08h,09 h,0ah,0bh,0ch,0dh,0eh,0fh,010h)
key db 15,14,13,12,11,10,9,8,7,6,5,4,3,2,1 ,0
sizekey equ $-key
temp_buf db sizekey*sizekey dup (0)
.code
start:
lea edi,temp_buf
lea esi,crypto_buf
mov ecx,sizekey
push offset key
call de_crypto
ret

de_crypto proc, akey : dword
pushad
mov edx,ecx
xor ebx,ebx
cld
pushad
columns:
pushad
movzx eax,byte ptr[key+ebx]
mov ecx,edx
dec edx
add esi,eax ; измененить на add edi,eax при расшифровке
@1:
movsb
add edi,edx
add esi,edx
loop @1
popad
inc edi ;измененить на inc esi при расшифровке
inc ebx
loop columns
popad
xchg esi,edi
imul ecx,ecx
rep movsb
popad
ret
de_crypto endp
end start