Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [C++|Pascal|VB6] Программа на основе сети Фейштеля

Автор: Meethook 24.12.2006, 23:52

Помогите пожалуйсто , мне нужно написать программу прямого и обратного криптографического преобразования на основе классической сети Фейштеля.

На юбом языке можно Visual Basik ,C++, PHP и т.д.

Предмет: Криптография

Очень нужно помогите плиз 10.01.2007 сдавать smile

Сеть Фейштеля
http://citforum.ru/internet/infsecure/its2000_18.shtml smile

Автор: Maurok 29.12.2006, 01:45

Я конечно постараюсь что-нибудь придумать , но ничего не обещаю ибо сложно smile

Автор: Meethook 31.12.2006, 17:05

С новым годом ВСЕХ smile

Автор: Romikgy 31.12.2006, 17:36

а на дельфи?

Автор: Meethook 1.1.2007, 18:46

На дельфи тоже можно smile

Если не трудно сделай , а то я уж совсем отчаялся smile

Автор: Romikgy 1.1.2007, 18:49

Meethook, вопросов нет, только скажи что брать за
Величины Vi
образующей функции F
????
и сразу же те писну хоть на дельфи хоть на С++

Автор: Meethook 1.1.2007, 19:42

Если чесно незнаю что брать smile

Сделай как нибудь как сможешь ....если не трудно.....
Просто препод особо не распространялся как чё делать , а я в этом не бум бум к сожалению)

Автор: Romikgy 1.1.2007, 20:04

Цитата(Meethook @ 1.1.2007, 18:42

)

а я в этом не бум бум к сожалению)

ды и я в этой теме того же smile

просто интересно стало , что за зверь

Автор: Romikgy 1.1.2007, 21:04

гы
http://www.citforum.ru/internet/infsecure/its2000_19.shtml

Цитата

В алгоритме использована сеть Фейштеля с двумя ветвями в 32 бита каждая.

Код


type TLong2=array[0.. 1] of longint;
   TLong2x2=array[0.. 1] of TLong2;
const Delta=$9E3779B9;
var   key:TLong2x2;
procedure EnCryptRouting(var data);
var y,z,sum:longint; a:byte;
begin
y:=TLong2(data)[0];z:=TLong2(data)[1];sum:=0;
for a:=0 to 31 do
  begin
  inc(sum,Delta);
  inc(y,((z shl 4)+key[0,0]) xor (z+sum) xor ((z shr 5)+key[0,1]));
  inc(z,((y shl 4)+key[1,0]) xor (y+sum) xor ((y shr 5)+key[1,1]));
  end;
TLong2(data)[0]:=y;TLong2(data)[1]:=z
end;

я не проверял так написано в ссылке

Автор: Meethook 2.1.2007, 16:09

В Паскале Error10 Unecpected end of file.

Автор: Romikgy 2.1.2007, 17:05

Цитата(Meethook @ 2.1.2007, 15:09

)

Unecpected end of file

в коде общения с файлами нет , это твоя ошибка!

Автор: V.A.KeRneL 2.1.2007, 21:10

Цитата(Romikgy @ 2.1.2007, 17:05

)

Цитата(Meethook @ 2.1.2007, 15:09

)

Unecpected end of file

в коде общения с файлами нет , это твоя ошибка!

Romikgy, он (Meethook) не совсем ясно написал когда происходит данная ошибка. А происходит она не во время выполнения программы, а ещё на стадии компиляции (по крайней мере, Turbo Pascal ругается именно такими словами). А случилось всё, как мне представляется, из-за того, что Meethook компилировал исходник «как он есть» (а в нём кроме пары пользовательских типов, константы и глобальной переменной есть только одна процедура), не добавив main'а, так сказать, то есть блока BEGIN {...} END.

Точная цитата брани Turbo Pascal 7.0:

Цитата

Error 10: Unexpected end of file.

Автор: Meethook 2.1.2007, 21:58

А можно поиметь готовый програмный код для Паскаля или Дельфи ?
А то как я понял этот недоделанный... или нет? smile

Автор: Romikgy 2.1.2007, 23:33

уууууууууууууууууууууууууууууууууууууууууууууууууу
Meethook, давай значит так , ты определишься , что те надо шифровать , и куда девать зашифрованое, а там уже бум смотреть

Автор: Meethook 3.1.2007, 01:36

Romikgy
Ok, я уточню smile

Автор: Meethook 3.1.2007, 20:30

Вот уточнил! smile

Вопщем препод сказал по заданной нам теме написать программу на любом языке smile

А тема звучит так : "Прямое и обратное криптографическое преобразование на основе классической сети Фейштеля."

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

Автор: Romikgy 4.1.2007, 18:51

ню воть наваял smile

только не надо просить писать декодировщик ...
нажимаем на кнопку спрашивает какой файл кодировать,
сохраняет закодированый файл с расширением .enc

архив раровский

Автор: Meethook 5.1.2007, 13:50

Спасиба !!!!!!!!!!! smile

Даже незнаю как отблагодарить smile

А кого можно попросить декодировщик наваять ? smile

Автор: Romikgy 5.1.2007, 20:26

Цитата(Meethook @ 5.1.2007, 12:50

)

А кого можно попросить декодировщик наваять ?

а нужно ли?

Автор: Meethook 6.1.2007, 13:28

Вроде как нужно тема же называется "Прямое и обратное криптографическое преобразование на основе классической сети Фейштеля" smile

Автор: Meethook 9.1.2007, 01:33

Аааааааа....... напишите кто нибудь декодировщик или скажите чтот не напишите , а то мне 10.01.2007 сдавать smile

Отблагодарю)))))))) smile

Автор: Romikgy 9.1.2007, 12:14

Цитата(Meethook @ 9.1.2007, 00:33

)

Отблагодарю

чем?

вот подшаманил,
правда алгоритм шифрации немного поменял, ибо долго думать надо было как обратный сделать smile

Автор: Meethook 9.1.2007, 15:35

Цитата

чем?

Вебманей))) или чем захочешь.... smile

А тут только исходники ? Мож екзешник сделать , а то у мну компилятора нету... smile

Автор: Romikgy 9.1.2007, 15:48

Цитата(Meethook @ 9.1.2007, 14:35

)

Вебманей))) или чем захочешь....

что много

и не скем поделится ? smile

имхо здесь центр помощи , а не выполняю за деньги .... просто vingrad.ru набери воть там за деньги , и имхо быстрее будет smile

Автор: Meethook 9.1.2007, 16:19

Цитата

что много

и не скем поделится ? smile

Да не немного.....)))
Хотелось как то отблагодарить)))
СПАСИБО ЗА ПРОГРАММУ!!! smile

Автор: Romikgy 9.1.2007, 20:02

Цитата(Meethook @ 9.1.2007, 15:19

)

СПАСИБО ЗА ПРОГРАММУ!!!

сначало преподу покажи ,а уж потом говори имхо