BSCAS -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.157]

правила раздела Алгоритмы

1. Помните, что название темы должно хоть как-то отражать ее содержимое (не создавайте темы с заголовком ПОМОГИТЕ, HELP и т.д.). Злоупотребление заглавными буквами в заголовках тем ЗАПРЕЩЕНО.
2. При создании темы постарайтесь, как можно более точно описать проблему, а не ограничиваться общими понятиями и определениями.
3. Приводимые фрагменты исходного кода старайтесь выделять тегами code.../code
4. Помните, чем подробнее Вы опишете свою проблему, тем быстрее получите вразумительный совет
5. Запрещено поднимать неактуальные темы (ПРИМЕР: запрещено отвечать на вопрос из серии "срочно надо", заданный в 2003 году)
6. И не забывайте о кнопочках TRANSLIT и РУССКАЯ КЛАВИАТУРА, если не можете писать в русской раскладке

Модераторы: Akina, shadeofgray

Новое голосование

BSCAS

Member_3696

Сообщ. #1 , 28.03.03, 09:50

Unregistered

Все эту тему можно закрывать :

.Так можно разговаривать до бесконечности и толку никакого не будет.Официально шифр носит название BSCAS

.Вот небольшие тесты:

На вход: 0x62 0x62 0x62 0x62 0x62 0x62 0x62 0x62 ("bbbbbbbb") На выходе: 0xF5 0x66 0xF8 0x61 0x60 0x62 0xE1 0x0C

Это специально для тех кто говорил о частоте повтарения символов и прочую муть.

А теперь посмотрим что у нас получится если мы изменим один байтик в ключе :

На вход: 0x62 0x62 0x62 0x62 0x62 0x62 0x62 0x62 ("bbbbbbbb") На выходе: 0x30 0x66 0xF9 0x62 0x70 0x64 0xF5 0x32

Разница я полагаю чуствуется.Но это так все мелочи.Что касается шифрования не блока данных а например одного байта. Что ж, тоже не проблема.Дописываем нули

На вход: 0x41 0x00 0x00 0x00 0x00 0x00 0x00 0x00 ("A") На выходе : 0xE5 0x4B 0x59 0x05 0x97 0x0B 0x06 0x22

Классно правда!?

.Так что, парни, счет становится 1:0 в мою пользу.Этот алгоритм вам не взять.И не надо сходу тут делать какие-то высказывания по поводу взлома до конца не вникнув в сам алгоритм.Большинство алгоритмов построены на математике и ломаются с ее же помощью у меня тут ее как таковой нет

.
И последнее.Была немного улутшена программная реализация.В частности функция Set_Old_Bits и были повыкинуты ненужные push -и и pop -и ;D.Оканчательный вариант:

Copyrights (C) Written by Zveruga,Belarus Minsk 2003 All rights reserved ;Статус регистров: ;ecx - число входящих блоков к шифрации дешифрации ;edi - указатель на ключ ;edx - индекс строк ;ebx - индекс столбцов ;esi - указатель на входной блок данных ;eax - используется от болды ;D ;Bit_0 db 0 ;Bit_1 db 0 ;Bit_2 db 0 ;Bit_3 db 0 ;Bit_4 db 0 ;Bit_5 db 0 ;Bit_6 db 0 ;Bit_7 db 0 ;New_Bit_0 db 0 ;New_Bit_1 db 0 ;New_Bit_2 db 0 ;New_Bit_3 db 0 ;New_Bit_4 db 0 ;New_Bit_5 db 0 ;New_Bit_6 db 0 ;New_Bit_7 db 0 Right_Offset proc ror byte ptr [esi + edx],01h ;ротация вправо call Set_Old_Bits ;Установка все битов call Vertical_Roter_Up ;Вертикальная ротация вверх call Set_New_Bits ;устанавливаем новые биты ret Right_Offset endp Left_Offset proc rol byte ptr [esi + edx],01h ;ротация влево call Set_Old_Bits ;установка всех битов call Vertical_Roter_Down ;вертикальное смещение вниз call Set_New_Bits ;Устанавливываем новые биты ret Left_Offset endp Set_Old_Bits proc push eax xor eax,eax mov al,byte ptr [esi] mov Bit_0,0 bt ax,bx adc Bit_0,0 mov al,byte ptr [esi + 01h] mov Bit_1,0 bt ax,bx adc Bit_1,0 mov al,byte ptr [esi + 02h] mov Bit_2,0 bt ax,bx adc Bit_2,0 mov al,byte ptr [esi + 03h] mov Bit_3,0 bt ax,bx adc Bit_3,0 mov al,byte ptr [esi + 04h] mov Bit_4,0 bt ax,bx adc Bit_4,0 mov al,byte ptr [esi + 05h] mov Bit_5,0 bt ax,bx adc Bit_5,0 mov al,byte ptr [esi + 06h] mov Bit_6,0 bt ax,bx adc Bit_6,0 mov al,byte ptr [esi + 07h] mov Bit_7,0 bt ax,bx adc Bit_7,0 pop eax ret Set_Old_Bits endp Set_New_Bits proc push eax xor eax,eax mov al,byte ptr [esi] ;Загрузка первого байта из блока cmp New_Bit_0 , 1 ;Проверка бита je Set_Bit_0 ;Да установить btr ax,bx ;Сбросить jmp Byte_1 ;Выход Set_Bit_0: bts ax,bx ;Установка Byte_1: mov byte ptr [esi],al mov al,byte ptr [esi + 01h] cmp New_Bit_1 , 1 je Set_Bit_1 btr ax,bx jmp Byte_2 Set_Bit_1: bts ax,bx Byte_2: mov byte ptr [esi + 01h],al mov al,byte ptr [esi + 02h] cmp New_Bit_2 , 1 je Set_Bit_2 btr ax,bx jmp Byte_3 Set_Bit_2: bts ax,bx Byte_3: mov byte ptr [esi+ 02h],al mov al,byte ptr [esi + 03h] cmp New_Bit_3 , 1 je Set_Bit_3 btr ax,bx jmp Byte_4 Set_Bit_3: bts ax,bx Byte_4: mov byte ptr [esi + 03h],al mov al,byte ptr [esi + 04h] cmp New_Bit_4 , 1 je Set_Bit_4 btr ax,bx jmp Byte_5 Set_Bit_4: bts ax,bx Byte_5: mov byte ptr [esi + 04h],al mov al,byte ptr [esi + 05h] cmp New_Bit_5 , 1 je Set_Bit_5 btr ax,bx jmp Byte_6 Set_Bit_5: bts ax,bx Byte_6: mov byte ptr [esi + 05h],al mov al,byte ptr [esi + 06h] cmp New_Bit_6 , 1 je Set_Bit_6 btr ax,bx jmp Byte_7 Set_Bit_6: bts ax,bx Byte_7: mov byte ptr [esi + 06h],al mov al,byte ptr [esi + 07h] cmp New_Bit_7 , 1 je Set_Bit_7 btr ax,bx jmp Exit Set_Bit_7: bts ax,bx Exit: mov byte ptr [esi+07h],al pop eax ret Set_New_Bits endp Xor_Blocks proc mov al,byte ptr [esi] ;операция xor с байтом блока ключа, блок на блок :) xor al,byte ptr [edi] xchg al,[esi] mov al,byte ptr [esi + 01h] xor al,byte ptr [edi + 01h] xchg al,[esi + 01h] mov al,byte ptr [esi + 02h] xor al,byte ptr [edi + 02h] xchg al,[esi + 02h] mov al,byte ptr [esi + 03h] xor al,byte ptr [edi + 03h] xchg al,[esi + 03h] mov al,byte ptr [esi + 04h] xor al,byte ptr [edi + 04h] xchg al,[esi + 04h] mov al,byte ptr [esi + 05h] xor al,byte ptr [edi + 05h] xchg al,[esi + 05h] mov al,byte ptr [esi + 06h] xor al,byte ptr [edi + 06h] xchg al,[esi + 06h] mov al,byte ptr [esi + 07h] xor al,byte ptr [edi + 07h] xchg al,[esi + 07h] ret Xor_Blocks endp Deshifr_Down_Offset proc call Set_Old_Bits call Vertical_Roter_Down call Set_New_Bits rol byte ptr [esi + edx],01h ret Deshifr_Down_Offset endp Deshifr_Up_Offset proc call Set_Old_Bits call Vertical_Roter_Up call Set_New_Bits ror byte ptr [esi + edx],01h ret Deshifr_Up_Offset endp Vertical_Roter_Down proc push eax xor eax,eax mov al,Bit_0 mov New_Bit_1,al mov al,Bit_1 mov New_Bit_2,al mov al,Bit_2 mov New_Bit_3,al mov al,Bit_3 mov New_Bit_4,al mov al,Bit_4 mov New_Bit_5,al mov al,Bit_5 mov New_Bit_6,al mov al,Bit_6 mov New_Bit_7,al mov al,Bit_7 mov New_Bit_0,al pop eax ret Vertical_Roter_Down endp Vertical_Roter_Up proc push eax xor eax,eax mov al,Bit_7 mov New_Bit_6,al mov al,Bit_6 mov New_Bit_5,al mov al,Bit_5 mov New_Bit_4,al mov al,Bit_4 mov New_Bit_3,al mov al,Bit_3 mov New_Bit_2,al mov al,Bit_2 mov New_Bit_1,al mov al,Bit_1 mov New_Bit_0,al mov al,Bit_0 mov New_Bit_7,al pop eax ret Vertical_Roter_Up endp BSCAS_Shifr proc pusha Shifr_Octo_Byte: push edi ;Сохранить указател на ключ push ecx ;сахраним число входных блоков xor ebx,ebx ;Обнуляем регистры на всякие пожарные xor eax,eax xor edx,edx mov cl,08h ;8 блоков подключей Key_Block: push ecx ;сохранить число блоков mov cl,08h ;число подключей @Loop_Per_Key: ;цикл по прохаждению подключей push ecx ;сохранить число подключей mov al,byte ptr [edi + edx] ;подключ в al mov cl,08h ;пробег по байту @Loop_Per_Byte_Of_Key: bt ax,bx jc _LeftOffset ;Бит установлен ? call Right_Offset ;Нет не установлен jmp Next_Bit_Of_Key _LeftOffset: call Left_Offset Next_Bit_Of_Key: inc bx ;следущий бит ключа loop @Loop_Per_Byte_Of_Key xor ebx,ebx ;обнулим индекс столбцов inc edx ;увеличим индекс строк pop ecx ;восстановим стчечик подключей loop @Loop_Per_Key call Xor_Blocks ;операция xor над блоками pop ecx ;восстановим счетчик блоков xor edx,edx ;обнулим индекс строк xor ebx,ebx add edi,08h ;переместим указатель на следущий блок ключей loop Key_Block pop ecx ;восстановим число входных блоков pop edi ;восстановим указатель на ключ add esi,08h ;перейдем к следующему блоку loop Shifr_Octo_Byte popa ret BSCAS_Shifr endp BSCAS_Deshifr proc pusha xor eax,eax ;очищаем eax,edx,ebx ( мусор нам не нужен :) ) xor ebx,ebx xor edx,edx add edi,56 ;перемещаем указатель на последний блок ключа Deshifr_Octo_Byte: push ecx ;сохраняем число входных блоков push edi ;сохраняем указатель на ключ mov cl,08h ;число блоков подключей Deshifr_Loop_Key_Block: push ecx ;сохраняем число блоков подключей ;Начальная стадия - операции xor шифрованного блока с блоком подключей call Xor_Blocks mov cl,08h ;количество подключей в блоке mov dl,07h ;начинаем снизу блока подключей Deshifr_Loop_Per_Key: push ecx ;сохраняем количество подключей mov al,byte ptr [edi + edx] ;подключ mov cl,08h ;пробег по байту mov bl,07h Deshifr_Loop_Per_Byte_Of_Key: bt ax,bx ;Бит установлен ? jc _Deshifr_Up_Offset ;Да установлен call Deshifr_Down_Offset ;Нет не установлен jmp _Deshifr_Inc _Deshifr_Up_Offset: call Deshifr_Up_Offset _Deshifr_Inc: dec bx ;уменьшаем указатель сталбцов loop Deshifr_Loop_Per_Byte_Of_Key xor ebx,ebx ;устанавливаем индекс сталбцов в ноль dec edx ;уменьшаем индекс строк pop ecx ;восстанавливаем количество подключей loop Deshifr_Loop_Per_Key sub edi,08h ;переход к следующему блоку ключей xor edx,edx ;устанавливаем индекс строки в ноль pop ecx ;Восстанавливаем количество блоков ключей loop Deshifr_Loop_Key_Block pop edi ;восстанавливаем указатель на ключ pop ecx ;восстанавливаем количество блоков к дешифрации loop Deshifr_Octo_Byte popa ret BSCAS_Deshifr endp ;Автор разрешает использовать данный исходник ;только при условии указания авторства

Сообщение отредактировано: Zveruga - 28.03.03, 09:56

IX0DeS

Сообщ. #2 , 28.03.03, 10:13

Profi

Профиль · PM

Рейтинг (т): 0

ладно с зашифровкой блока разобрался как его теперь расшифровать ?
в процедуре

BSCAS_Deshifr proc pusha xor eax,eax ;очищаем eax,edx,ebx ( мусор нам не нужен :) ) xor ebx,ebx xor edx,edx add edi,56 ;перемещаем указатель на последний блок

если в edi offset на ключ и ключ я определил как

key db 'fuck' к чему приведет add edi,56 ?? так что счет становится 99:0 в нашу пользу и Зверюга удаляется переписавать программу так что бы она работала нормально... или приводит куски коду где показывается шифровка дешифровка

IX0DeS	Сообщ. #3 , 28.03.03, 10:29
Profi Профиль · PM Рейтинг (т): 0	делаю <br>key db 0<br>block db 8 dup ('a')<br><br>.code<br>start: <br> mov ecx,1<br> mov edi,offset key<br> mov esi,offset block <br> call BSCAS_Shifr<br> как мне его потом дешифровать ?

Member_3696

Сообщ. #4 , 28.03.03, 10:32

Unregistered

Цитата IX0DeS, 28.03.03, 13:13:18

ладно с зашифровкой блока разобрался как его теперь расшифровать ?
в процедуре

Ключ key db 'fuck' конечно хорош не спорю :) .Только он должен быть не 4 байта а 64.Поэтому если хочеш использовать такой ключ предварительно нужно увеличить его размерность до 64 байт
Неееее 1 : 0 в мою :P
байта

Member_3696

Сообщ. #5 , 28.03.03, 10:39

Unregistered

Цитата IX0DeS, 28.03.03, 13:29:58

делаю

key db 0 block db 8 dup ('a') .code start: mov ecx,1 mov edi,offset key mov esi,offset block call BSCAS_Shifr

как мне его потом дешифровать ?

mov esi ,offset Shifr_Text mov edi,offset Key ;в ecx помещай число блоков call BSCAS_Deshifr ;Все

IX0DeS

Сообщ. #6 , 28.03.03, 10:40

Profi

Профиль · PM

Рейтинг (т): 0

нормально... ключ в 64 байта.... круто... чего скажешь... лосизм... слушай я тут тоже алгоритм придумал а что если в качестве пароля использовать одну из глав из романа 'Преступелене и Наказание' а чего... алгорит простой xor... ну что ломать будешь ?

Сообщение отредактировано: IX0DeS - 28.03.03, 10:40

IX0DeS

Сообщ. #7 , 28.03.03, 10:46

Profi

Профиль · PM

Рейтинг (т): 0

продолжаем...

mov al,byte ptr [esi] mov Bit_0,0 bt ax,bx adc Bit_0,0 mov al,byte ptr [esi + 01h] mov Bit_1,0 bt ax,bx adc Bit_1,0 mov al,byte ptr [esi + 02h] mov Bit_2,0 bt ax,bx adc Bit_2,0 mov al,byte ptr [esi + 03h] mov Bit_3,0 bt ax,bx adc Bit_3,0 mov al,byte ptr [esi + 04h] mov Bit_4,0 bt ax,bx adc Bit_4,0 mov al,byte ptr [esi + 05h] mov Bit_5,0 bt ax,bx adc Bit_5,0 mov al,byte ptr [esi + 06h] mov Bit_6,0 bt ax,bx adc Bit_6,0 mov al,byte ptr [esi + 07h] mov Bit_7,0 bt ax,bx adc Bit_7,0

ты умеешь пользоваться конструкцией loop ?? по моему это в цикле можно написать.... так что давай переписывай нормально прогу свою гыгы ;D

Сообщение отредактировано: IX0DeS - 28.03.03, 10:47

Member_3696

Сообщ. #8 , 28.03.03, 10:49

Unregistered

Цитата IX0DeS, 28.03.03, 13:40:24

А чем тебе такой ключ не нравится??Ради бога используй хоть 3 хоть 4 байта твае дело.

Member_3696

Сообщ. #9 , 28.03.03, 11:06

Unregistered

Цитата IX0DeS, 28.03.03, 13:46:37

продолжаем...

mov al,byte ptr [esi] mov Bit_0,0 bt ax,bx adc Bit_0,0 ...... mov al,byte ptr [esi + 07h] mov Bit_7,0 bt ax,bx adc Bit_7,0

Дааааа.... как говорится : no comments

SVK

Сообщ. #10 , 28.03.03, 11:34

Unregistered

> И не надо сходу тут делать какие-то высказывания по поводу взлома до конца не вникнув в сам алгоритм.

Какие высказывания, какой алгоритм... или эта новая фишка описывать принцип работы алгоритма на asm`е. Я конечно понимаю, что ты, как автор этого дивного алгоритма, вжился в него и тебе все очевидно... Просто, если ты хочешь обсуждения алгоритма, а не реализации неизвестно чего на asm`е, будь добр его представить в нормальном подробном однозначно интерпретируемом виде и желательно с пошаговым примером основных моментов. Тебе всеравно придется делать эту работу, если он является таковым, каким ты его представляешь или ты уже сомневаешся

IX0DeS

Сообщ. #11 , 28.03.03, 11:37

Profi

Профиль · PM

Рейтинг (т): 0

и это опять я...
задаем себе вопрос? ээ.. назовите одно из основных свойств _хорошего_ алгоритма
отвечаем... кто не согласится тут со мной ?

любой ключ должен обеспечить одинаковую степень защиты

на вход подаем ключ состоящий из 64байт 0xFFh
текст для шифрования _fuckoff
на выходе получаем...
x7Fh,fuckof,x19h те. из восьми букв изменились только две... гыгы ну что крутой алгоритм... все отдыхают, Зверюга уходит опустив голову доделовать алгоритм, счет 99:0 в нашу... ;D после этого мне дальше уже лень было что-то там считать... да кстати я его чуток переписал еге - с Loop'ами сделал так мне кажется он выглядит меньше

(такого стиля программироваия я еще давно не видел... детский сад чесс слово)

Сообщение отредактировано: IX0DeS - 28.03.03, 11:38

Member_3696

Сообщ. #12 , 28.03.03, 11:41

Unregistered

Цитата SVK , 28.03.03, 14:34:48

SVK я да этого все пытался упорно всем все обьяснить, но почему-то почти никто меня не хотел слушать.

SVK	Сообщ. #13 , 28.03.03, 11:50
Unregistered	Цитата IX0DeS, 28.03.03, 14:37:12 любой ключ должен обеспечить одинаковую степень защиты Этот вопрос обсуждался еще в предыдущей теме...

IX0DeS

Сообщ. #14 , 28.03.03, 12:00

Profi

Профиль · PM

Рейтинг (т): 0

да еще забыл твой алгоритм чтото криво кработает...
делаю шифровку трех блоков....

key db 64 dup (0ffh) block db '12345678' db '12345678' db '12345678' .code start: mov ecx,3 mov edi,offset key mov esi,offset block pusha call BSCAS_Shifr popa call BSCAS_Deshifr key db 64 dup (0ffh) block db '12345678' db '12345678' db '12345678' .code start: mov ecx,3 mov edi,offset key mov esi,offset block pusha call BSCAS_Shifr popa call BSCAS_Deshifr

после шифровки
block xC5,'234567',x60,xC5,'234567',x60,xC5,'234567',x60
каждый блок из 8 байт по моему очень похож на своего соседа

после дешифровки
block x83,'234567',x0B,xC5,'234567',x60,xC5,'234567',x60
реализация собственного алгоритма оказалась кривой.... мдя.. может тебе рано придумывать оченб стойкие алгоритмы.. гыгы

;D

IX0DeS

Сообщ. #15 , 28.03.03, 12:01

Profi

Профиль · PM

Рейтинг (т): 0

Цитата SVK , 28.03.03, 14:50:59

Этот вопрос обсуждался еще в предыдущей теме...

ну дык не обеспечивает же... меняет только первый и последний символ в блоке... ну что тут сказать по поводу алгоритма этого... в Корзину это все там и будем разговаривать ;D

Member_3696

Сообщ. #16 , 28.03.03, 12:06

Unregistered

Цитата IX0DeS, 28.03.03, 14:37:12

и это опять я...
задаем себе вопрос? ээ.. назовите одно из основных свойств _хорошего_ алгоритма
отвечаем... кто не согласится тут со мной ?

любой ключ должен обеспечить одинаковую степень защиты

Охх ну ты туг немного.Скажи мне на милость а ты слышал когда-нибудь об алгоритме генерации ключей??Ты мне не подскажеш зачем он нужен?!

Цитата

на вход подаем ключ состоящий из 64байт 0xFFh
текст для шифрования _fuckoff
на выходе получаем...
x7Fh,fuckof,x19h те. из восьми букв изменились только две... гыгы ну что крутой ...

На какой вход ты подаеш ключ?? ;D.
А теперь посматри сюда:

Key2 db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh db 0FFh,0FFh,0BBh,0FFh,0FFh,0FFh,0FFh,0FFh db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh Текст : "_fuckoff" в Hex 0x5F 0x66 0x75 0x63 0x6B 0x6F 0x66 0x66 На выходе : 0x79 0x62 0x35 0x67 0x6F 0x2F 0x26 0x7F

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

Цитата

переписал еге - с Loop'ами сделал так мне кажется он выглядит меньше

(такого стиля программироваия я еще давно не видел... детский сад чесс слово)

Не надо меня учить прагроммировать я этому без чьей-либо помощи учился и буду дальше учится.
Надо же он сделал с loop-ми.И что ?Ах да занимает меньше места.Блин да ты крут как я посматрю.А ты о производительности думал?

SVK

Сообщ. #17 , 28.03.03, 12:09

Unregistered

Цитата Zveruga, 28.03.03, 14:41:56

SVK я да этого все пытался упорно всем все обьяснить, но почему-то почти никто меня не хотел слушать.

Ну вообщем это твое право, а по asm`у востанавливать алгоритм у меня нет желания... По твоим предыдущим объяснениям у меня уже возникали разночтения, так то вот..

IX0DeS

Сообщ. #18 , 28.03.03, 12:11

Profi

Профиль · PM

Рейтинг (т): 0

Цитата

;edi - указатель на ключ
;esi - указатель на входной блок данных

по моему это ты писал...

я делаю

mov edi,offset key mov esi,offset block call BSCAS_Shifr

что не так ??
зы
мне абсолютно паралельно что у нас или у вас с какойто плоскостью будет... ну не работает же твой алгоритм и все тут

Сообщение отредактировано: IX0DeS - 28.03.03, 12:13

Member_3696

Сообщ. #19 , 28.03.03, 12:11

Unregistered

Цитата IX0DeS, 28.03.03, 15:00:34

да еще забыл твой алгоритм чтото криво кработает...

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

IX0DeS

Сообщ. #20 , 28.03.03, 12:46

Profi

Профиль · PM

Рейтинг (т): 0

Цитата Zveruga, 28.03.03, 15:11:29

так привожу прогу полностью
compil.bat

tasm32.exe /ml /m /z /z lamo.asm,lamo.obj tlink32.exe -aa -x -c -o -Tpe lamo.obj,,,import32.lib

сама прога....

;_______________________________________________________________________ callW macro x extern x:PROC call x endm p386 model flat locals __ .data ;_______________________________________________________________________ Bit_0 db 0 Bit_1 db 0 Bit_2 db 0 Bit_3 db 0 Bit_4 db 0 Bit_5 db 0 Bit_6 db 0 Bit_7 db 0 New_Bit_0 db 0 New_Bit_1 db 0 New_Bit_2 db 0 New_Bit_3 db 0 New_Bit_4 db 0 New_Bit_5 db 0 New_Bit_6 db 0 New_Bit_7 db 0 key db 64 dup (0ffh) block db 3 dup ('12345678') ;_______________________________________________________________________ .code start: ;ecx - число входящих блоков к шифрации дешифрации ;edi - указатель на ключ ;edx - индекс строк ;ebx - индекс столбцов ;esi - указатель на входной блок данных ;eax - используется от болды mov ecx, 3 mov edi, offset key mov esi, offset block pusha call BSCAS_Shifr popa call BSCAS_Deshifr push 0ffh callW ExitProcess ;_______________________________________________________________________ Right_Offset proc ror byte ptr [esi + edx], 01h ;ротация вправо call Set_Old_Bits ;Установка все битов call Vertical_Roter_Up ;Вертикальная ротация вверх call Set_New_Bits ;устанавливаем новые биты ret Right_Offset endp ;_______________________________________________________________________ Left_Offset proc rol byte ptr [esi + edx], 01h ;ротация влево call Set_Old_Bits ;установка всех битов call Vertical_Roter_Down ;вертикальное смещение вниз call Set_New_Bits ;Устанавливываем новые биты ret Left_Offset endp ;_______________________________________________________________________ ;loop optimization :) ;Set_Old_Bits proc ; push eax ; push ebp ; xor eax, eax ; xor ebp, ebp ; ;_a: ; mov al, byte ptr [esi][ebp] ; mov [byte ptr Bit_0][ebp],0 ; bt ax, bx ; adc [byte ptr Bit_0][ebp],0 ; inc ebp ; cmp ebp,7 ; jle _a ; ; pop ebp ; pop eax ; ret ;Set_Old_Bits endp ;_______________________________________________________________________ Set_Old_Bits proc push eax xor eax, eax mov al, byte ptr [esi] mov Bit_0, 0 bt ax, bx adc Bit_0, 0 mov al, byte ptr [esi + 01h] mov Bit_1, 0 bt ax, bx adc Bit_1, 0 mov al, byte ptr [esi + 02h] mov Bit_2, 0 bt ax, bx adc Bit_2, 0 mov al, byte ptr [esi + 03h] mov Bit_3, 0 bt ax, bx adc Bit_3, 0 mov al, byte ptr [esi + 04h] mov Bit_4, 0 bt ax, bx adc Bit_4, 0 mov al, byte ptr [esi + 05h] mov Bit_5, 0 bt ax, bx adc Bit_5, 0 mov al, byte ptr [esi + 06h] mov Bit_6, 0 bt ax, bx adc Bit_6, 0 mov al, byte ptr [esi + 07h] mov Bit_7, 0 bt ax, bx adc Bit_7, 0 pop eax ret Set_Old_Bits endp ;_______________________________________________________________________ Set_New_Bits proc push eax xor eax, eax mov al, byte ptr [esi] ;Загрузка первого байта из блока cmp New_Bit_0 , 1 ;Проверка бита je Set_Bit_0 ;Да установить btr ax, bx ;Сбросить jmp Byte_1 ;Выход Set_Bit_0: bts ax, bx ;Установка Byte_1: mov byte ptr [esi], al mov al, byte ptr [esi + 01h] cmp New_Bit_1 , 1 je Set_Bit_1 btr ax, bx jmp Byte_2 Set_Bit_1: bts ax, bx Byte_2: mov byte ptr [esi + 01h], al mov al, byte ptr [esi + 02h] cmp New_Bit_2 , 1 je Set_Bit_2 btr ax, bx jmp Byte_3 Set_Bit_2: bts ax, bx Byte_3: mov byte ptr [esi+ 02h], al mov al, byte ptr [esi + 03h] cmp New_Bit_3 , 1 je Set_Bit_3 btr ax, bx jmp Byte_4 Set_Bit_3: bts ax, bx Byte_4: mov byte ptr [esi + 03h], al mov al, byte ptr [esi + 04h] cmp New_Bit_4 , 1 je Set_Bit_4 btr ax, bx jmp Byte_5 Set_Bit_4: bts ax, bx Byte_5: mov byte ptr [esi + 04h], al mov al, byte ptr [esi + 05h] cmp New_Bit_5 , 1 je Set_Bit_5 btr ax, bx jmp Byte_6 Set_Bit_5: bts ax, bx Byte_6: mov byte ptr [esi + 05h], al mov al, byte ptr [esi + 06h] cmp New_Bit_6 , 1 je Set_Bit_6 btr ax, bx jmp Byte_7 Set_Bit_6: bts ax, bx Byte_7: mov byte ptr [esi + 06h], al mov al, byte ptr [esi + 07h] cmp New_Bit_7 , 1 je Set_Bit_7 btr ax, bx jmp Exit Set_Bit_7: bts ax, bx Exit: mov byte ptr [esi+07h], al pop eax ret Set_New_Bits endp ;_______________________________________________________________________ ;loop optimization :) ; ;Xor_Blocks proc ; push ebp ; xor ebp,ebp ;_b: ; mov al, byte ptr [esi][ebp] ; xor al, byte ptr [edi][ebp] ; xchg al,[esi][ebp] ; inc ebp ; cmp ebp,7 ; jle _b ; pop ebp ; ret ;Xor_Blocks endp ;_______________________________________________________________________ Xor_Blocks proc mov al, byte ptr [esi] ;операция xor с байтом блока ключа, блок на блок :) xor al, byte ptr [edi] xchg al, [esi] mov al, byte ptr [esi + 01h] xor al, byte ptr [edi + 01h] xchg al, [esi + 01h] mov al, byte ptr [esi + 02h] xor al, byte ptr [edi + 02h] xchg al, [esi + 02h] mov al, byte ptr [esi + 03h] xor al, byte ptr [edi + 03h] xchg al, [esi + 03h] mov al, byte ptr [esi + 04h] xor al, byte ptr [edi + 04h] xchg al, [esi + 04h] mov al, byte ptr [esi + 05h] xor al, byte ptr [edi + 05h] xchg al, [esi + 05h] mov al, byte ptr [esi + 06h] xor al, byte ptr [edi + 06h] xchg al, [esi + 06h] mov al, byte ptr [esi + 07h] xor al, byte ptr [edi + 07h] xchg al, [esi + 07h] ret Xor_Blocks endp ;_______________________________________________________________________ Deshifr_Down_Offset proc call Set_Old_Bits call Vertical_Roter_Down call Set_New_Bits rol byte ptr [esi + edx], 01h ret Deshifr_Down_Offset endp ;_______________________________________________________________________ Deshifr_Up_Offset proc call Set_Old_Bits call Vertical_Roter_Up call Set_New_Bits ror byte ptr [esi + edx], 01h ret Deshifr_Up_Offset endp ;_______________________________________________________________________ Vertical_Roter_Down proc push eax xor eax, eax mov al, Bit_0 mov New_Bit_1, al mov al, Bit_1 mov New_Bit_2, al mov al, Bit_2 mov New_Bit_3, al mov al, Bit_3 mov New_Bit_4, al mov al, Bit_4 mov New_Bit_5, al mov al, Bit_5 mov New_Bit_6, al mov al, Bit_6 mov New_Bit_7, al mov al, Bit_7 mov New_Bit_0, al pop eax ret Vertical_Roter_Down endp ;_______________________________________________________________________ Vertical_Roter_Up proc push eax xor eax, eax mov al, Bit_7 mov New_Bit_6, al mov al, Bit_6 mov New_Bit_5, al mov al, Bit_5 mov New_Bit_4, al mov al, Bit_4 mov New_Bit_3, al mov al, Bit_3 mov New_Bit_2, al mov al, Bit_2 mov New_Bit_1, al mov al, Bit_1 mov New_Bit_0, al mov al, Bit_0 mov New_Bit_7, al pop eax ret Vertical_Roter_Up endp ;_______________________________________________________________________ BSCAS_Shifr proc pusha Shifr_Octo_Byte: push edi ;Сохранить указател на ключ push ecx ;сахраним число входных блоков xor ebx, ebx ;Обнуляем регистры на всякие пожарные xor eax, eax xor edx, edx mov cl, 08h ;8 блоков подключей Key_Block: push ecx ;сохранить число блоков mov cl, 08h ;число подключей @Loop_Per_Key: ;цикл по прохаждению подключей push ecx ;сохранить число подключей mov al, byte ptr [edi + edx] ;подключ в al mov cl, 08h ;пробег по байту @Loop_Per_Byte_Of_Key: bt ax, bx jc _LeftOffset ;Бит установлен ? call Right_Offset ;Нет не установлен jmp Next_Bit_Of_Key _LeftOffset: call Left_Offset Next_Bit_Of_Key: inc bx ;следущий бит ключа loop @Loop_Per_Byte_Of_Key xor ebx, ebx ;обнулим индекс столбцов inc edx ;увеличим индекс строк pop ecx ;восстановим стчечик подключей loop @Loop_Per_Key call Xor_Blocks ;операция xor над блоками pop ecx ;восстановим счетчик блоков xor edx, edx ;обнулим индекс строк xor ebx, ebx add edi, 08h ;переместим указатель на следущий блок ключей loop Key_Block pop ecx ;восстановим число входных блоков pop edi ;восстановим указатель на ключ add esi, 08h ;перейдем к следующему блоку loop Shifr_Octo_Byte popa ret BSCAS_Shifr endp ;_______________________________________________________________________ BSCAS_Deshifr proc pusha xor eax, eax ;очищаем eax, edx, ebx ( мусор нам не нужен :) ) xor ebx, ebx xor edx, edx add edi, 56 ;перемещаем указатель на последний блок ключа Deshifr_Octo_Byte: push ecx ;сохраняем число входных блоков push edi ;сохраняем указатель на ключ mov cl, 08h ;число блоков подключей Deshifr_Loop_Key_Block: push ecx ;сохраняем число блоков подключей ;Начальная стадия - ;операции xor шифрованного блока с блоком подключей call Xor_Blocks mov cl, 08h ;количество подключей в блоке mov dl, 07h ;начинаем снизу блока подключей Deshifr_Loop_Per_Key: push ecx ;сохраняем количество подключей mov al, byte ptr [edi + edx] ;подключ mov cl, 08h ;пробег по байту mov bl, 07h Deshifr_Loop_Per_Byte_Of_Key: bt ax, bx ;Бит установлен ? jc _Deshifr_Up_Offset ;Да установлен call Deshifr_Down_Offset ;Нет не установлен jmp _Deshifr_Inc _Deshifr_Up_Offset: call Deshifr_Up_Offset _Deshifr_Inc: dec bx ;уменьшаем указатель сталбцов loop Deshifr_Loop_Per_Byte_Of_Key xor ebx, ebx ;устанавливаем индекс сталбцов в ноль dec edx ;уменьшаем индекс строк pop ecx ;восстанавливаем количество подключей loop Deshifr_Loop_Per_Key sub edi, 08h ;переход к следующему блоку ключей xor edx, edx ;устанавливаем индекс строки в ноль pop ecx ;Восстанавливаем количество блоков ключей loop Deshifr_Loop_Key_Block pop edi ;восстанавливаем указатель на ключ pop ecx ;восстанавливаем количество блоков к дешифрации loop Deshifr_Octo_Byte popa ret BSCAS_Deshifr endp ;_______________________________________________________________________ ;Автор разрешает использовать данный исходник ;только при условии указания авторства end start

ничего не менял оставил все как есть... теперь возвращаемся к ключу 64 dup (0ffh)
и твоему шифрованию... пожалуйста посмотри а то я может о великий теоретик Зверюга что-то перепутал...

-----------
тут я процитирую vot'а с небольшими изменениями... думаю он не будет против...
-----------
О Великий и Ужасный Zveruga!
Падаем на колени перед тобой и просим милосердно простить нас,
ламеров позорных! Прости, о Великий! Бес нас попутал!

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

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

Посыпаем голову пеплом,
икренне потрясенные твоим могуществом,
ламеры.
-----------

Member_3696

Сообщ. #21 , 28.03.03, 13:14

Unregistered

Цитата IX0DeS, 28.03.03, 15:46:01

так привожу прогу полностью

pusha call BSCAS_Shifr popa call BSCAS_Deshifr .......

Я вот только понять не могу причем здесь pusha popa ??Здесь они нужны также как и собаке пятая нага.

Цитата

Deos я в принципе уже давно догадывался что ты полное трепло.Для чего ты клянчил у меня эти исходники что бы перековырять их и потом на весь форум кричать какой я полный ламер не умею пользаваться loop-ми.Так не делают.Или ты чуствуеш себя деловым и крутым сидя у себя там в кресле в конторки и лажая то что сделали другие.

Цитата

-----------
тут я процитирую vot'а с небольшими изменениями... думаю он не будет против...
-----------

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

IX0DeS

Сообщ. #22 , 28.03.03, 13:40

Profi

Профиль · PM

Рейтинг (т): 0

Цитата Zveruga, 28.03.03, 16:14:48

Deos я в принципе уже давно догадывался что ты полное трепло.Для чего ты
клянчил у меня эти исходники что бы перековырять их и потом на весь форум кричать

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

Цитата

какой я полный ламер не умею пользаваться loop-ми.Так не делают.Или ты чуствуеш
себя деловым и крутым сидя у себя там в кресле в конторки и лажая то что сделали другие.
Ты слишком много думаеш за других а еще больше п.. без дела на других не отвечая за треп.

и такого я тоже не говорил... а то что ты там навоображал это твои проблемы....

Цитата

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

по моему я не переходил на личности и не ругался на тебя матом!

я еще раз спрашиваю КАК МНЕ расшифровать ТРИ БЛОКА. и почему когда я использую ключ состоящий из 0xFF изменяются только первый и последний символ ? можешь нормально ответить? прогу я привел с которой я провожу все махинации... что нет так ПОКАЖИ plz!

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0.1193 ] [ 14 queries used ] [ Generated: 25.10.26, 14:44 GMT ]