20961

Шифрування та дешифрування даних за допомогою алгоритмів перестановки (збивання)

Практическая работа

Информатика, кибернетика и программирование

У якості інформації використовувати копію файлу з розробленою програмою програма дешифрування інформації повернення початкового вигляду файла; Індивідуальні завдання: Метод €œспутаної шини€ Текст програми: DEFINT IN: DEFSTR S RANDOMIZE 231 CLS: LOCATE 1 1 Lot = 5 s = FOR i=1 TO 64:s=sCHR6525RND:NEXT PRINT s; text : sav = s s = FOR i=1 TO 192: s=sCHR255RND: NEXT 'шифрование FOR i = 0 TO Lot sc=MIDss1I3232 l=2^i:sl= : r= FOR j = 1 TO 32 kg=ASCMIDsc j 1 kl=ASCMIDs j 1...

Украинкский

2013-08-01

141.09 KB

2 чел.

Родін С КІТ-39

Практична робота №2-1

“Шифрування та дешифрування даних за допомогою алгоритмів перестановки (збивання)” за курсом “Захист інформації у комп’ютерних системах та мережах”

Ціль: Створення програм для шифрування та дешифрування інформації за допомогою шифрів перестановки

Постановка задачі:

Необхідно розробити і налагодити дві програми:

Програма шифрування інформації з використанням визначених алгоритмів.

У якості інформації використовувати копію файлу з розробленою програмою, програма дешифрування інформації (повернення початкового вигляду файла);

Індивідуальні завдання: Метод “спутаної шини

Текст програми:

DEFINT I-N: DEFSTR S

RANDOMIZE 231

CLS: LOCATE 1, 1

Lot = 5

s$ = ""

FOR i=1 TO 64:s$=s$+CHR$(65+25*RND):NEXT

PRINT s$; " - text": sav = s$

s$ = ""

FOR i=1 TO 192: s$=s$+CHR$(255*RND): NEXT

'---------------------шифрование

FOR i = 0 TO Lot

sc=MID$(ss,1+I*32,32)

l=2^i:sl="": r=""

FOR j = 1 TO 32

kg=ASC(MID$(sc, j, 1))

kl=ASC(MID$(s$, j, 1))

kr=ASC(MID$(s$, j+32,1))

sl = sl+ CHR$(kl XOR kr)

sr = sr+ CHR$(kr XOR kg)

NEXT

s$=sr+RIGHT$(sl,l)+LEFT$(sl,32-l)

 NEXT

'----------------------порча бита

ss=CHR$(ASC(s$) XOR 4)+RIGHT$(s$,63)

'-----------------печать шифровки

FOR i =1 TO 64

k = ASC(MID$(s$, i, 1))

DEF SEG=47114: POKE 2*i-2, k: DEF SEG

NEXT

LOCATE 2, 65: PRINT " - code"

'---------------расшифровывание

FOR i = Lot TO 0 STEP -1

sc=MID$(s$, 1+i*32, 32): l=2^i

s$=RIGHT$ (s$ ,32- l)+MID$ (s$, 33,l)+LEFT$ (s$, 32)

sl = "": sr = ""

 FOR j = 1 TO 32

 kg = ASC(MID$(sc, j, 1))

 kl = ASC(MID$(ss, j, 1))

 kr = ASC(MID$(ss, j+32, 1))

 sl = sl+ CHR$(kl XOR kr XOR kg)

 sr = sr+ CHR$(kr XOR kg)

 NEXT

ss = sl+sr

NEXT

FOR i =1 TO 64

k = ASC(MID$(s$, i, 1))

DEF SEG=47124: POKE 2*i-2,k: DEF SEG

NEXT

LOCATE 3, 65: PRINT " - text"

n = 0

FOR i =1 TO 64

 IF MID$ (s$, i, 1) =MID$(sav, i,1) THEN

 LOCATE 4, i: PRINT "+";: n = n+I

 ELSE

 LOCATE 4, i: PRINT "-";

 END IF

NEXT

LOCATE 6, 1: PRINT 64 - n; "errors"

END

Висновок: cтворив програму для шифрування та дешифрування інформації за допомогою шифрів перестановки


 

А также другие работы, которые могут Вас заинтересовать

19833. Реляційна модель даних 15.18 KB
  Реляційна модель даних У реляційній моделі даних об'єкти і взаємозв'язки між ними представляються за допомогою таблиць. Взаємозв'язки також подаються як об'єкти. Кожна таблиця представляє один об'єкт і складається з рядків і стовпців. Таблиця повинна мати первинний ключ ...
19834. Источники права 14.7 KB
  Источники права Как и у других народов один из главных источников права у славян обычай. Обычаи или устойчивые правила поведения формируются уже на этапе догосударственного развития в условиях родоплеменных отношений. Возникновение Древнерусского государства ес
19835. Русская правда 16.61 KB
  Русская правда Русская Правда сохранилась в большом количестве свыше 110 списков XIIIXVIII вв. Все тексты Правды находятся в составе какихлибо сборников или летописей. По своим особенностям списки Правды могут быть разделены на три основных памятника: 1 Краткую 2 Прост
19836. Уголовное право по Русской правде 17.84 KB
  Уголовное право по Русской правде Уголовное право это основная часть судебника. Преступление Субъектами преступления были все физические лица включая холопов без возрастного ценза при наличии у них ясного сознания. Субъективная сторона преступления включала
19837. Суд и судопроизводство по Русской правде 21.69 KB
  Суд и судопроизводство по Русской правде Самостоятельных судебных органов нет суд производился представителями администрации. Высшей судебной инстанцией был великий князь. Князь поручал правосудие тиунам и своим отрокам. Чиновники которым надлежало решить у...
19838. Причины и предпосылки политической раздробленности 18.34 KB
  Причины и предпосылки политической раздробленности XII – XIII вв. После смерти князя Ярослава 1054 вся территория Киевской Руси была разделена между его сыновьями. Постоянный рост членов княжеских династий и дробление земельных наделов между ними сопровождались пост...
19839. Правовое положение населения по Русской правде 20.98 KB
  Правовое положение населения по Русской правде В Киевской Руси можно выделить 3 основных социальных класса. 1. Представители привилегированного слоя: Бояре советники старшие дружинники князя; Княжьи мужи лица исполняющие важнейшие поручения князя близкие к н...
19840. Гражданское право по Русской Правде 19.3 KB
  Гражданское право по Русской Правде Гражданское право – это вещное и семейное право. Разделов нет. Упоминается о праве собственности по отношению движимых вещей. Понятие недвижимости ещё нет земля принадлежит общине или всему роду боярскому родовая традиция.
19841. Регулирование вещного права по Псковской судной грамоте 24.49 KB
  Регулирование вещного права по Псковской судной грамоте Вещное право разделяло имущество на недвижимые отчина и движимые живот; различало наследственное вотчина и условное кормля землевладение. Большое внимание уделялось земле как объекту права собствен...