Параграфқа арналған бағдарламалар (редактор VВА)

S-DЕS (демонстрациялық) алгоритмін іске асыратын бағдарлама) 

Sub 

DES()(1).Activate(1).Unprotect(1).Name 

"Dannye"Block(8) 

As 

IntegerKey(10)  As  IntegerIP(8)  As  IntegerBlk  IP(8)  As  IntegerIP  1(8)  As  IntegerPK 

As IntegerS 0(4, 4) As IntegerS 1(4, 4) As Integer 

//  құжаттан  параметрлер  мен  деректерді оқиды:  i  =  1  To  8(i)  =  Cells(1,  i  +  2) 

Мән / / ашық мәтін блогы(i) = Cells (3, i + 2).(4, i + 2) = cells(4, i + 2).Value // ІР -1 

PK 8(i) = Cells(7, i + 2).Value / / РК 8 rozh (i) = Cells (9, i + 2).Value / / ауыстыру 

розширенняіі = 1 To 10(i) = Cells(2, i + 2).Мән / / кілт 10(i) = Cells(6, i+2) Value / / 

ҚР орнын ауыстыру 10ii = 1 To 4 4(i) = Cells (10, i + 2).Value / / ауыстыру Р 4j = 1 

To 4 0 (i, j) = Cells (i + 11, j + 2).Value / / блок S 0 

S 1(i, j) = Cells(i + 11, j + 7).Value / / s 1 блогы 

Next ji(1).Range(Cells(1, 2), Cells(1, 10)).Locked = False(1).Protect(3).Activate / / 

Шығыс 

блогын 

= 

"Prymery"= 

(3).UsedRange.Rows.Count + 2(r3 + 1, 1).Value = "Блок"i = 1 To 8(r3 + 1, i + 1).Value 

= Block(i)i(2).Activate(2).UsedRange.Clear= 1 resht As Integer 

//застосовуєi = 1 To 8(r + 1, i).Value = Block(i) IP(i) = Block(IP(i))//перестановку 

ІРii = 1 To 10(r + 1, 9 + i).Value = Key(i)//до ключа - РК 

Key  PK(i)  =  Key(PK 

10(i))(r  +  2,  9  +  i).Value  =  Key(PK  10(i))I//раундтық  функцияның  басталуы  =  0  To 

1//раундтардың саны: 2= r + 16 * ji = 1 To 8(r + 2, i).R + 4, i)оң жартысы үшін(R + 4, 

i).Value = Cells(r + 2, P rozh(i) + 4).Valueii = 1 To 4//кілттің циклдық ауысуы (r + 4, 9 

+ i + 1 * j).Value = Key PK(i + 1 - j)(r + 4, 9 + i + 5 + 1 * j).Value = Key PK(i + 6 - j)i(r 

+ 4, 9 + 5 - 4 * j).Value = 0(r + 4, 9 + 10 - 4 * j).Value = 0(r + 5, 1).Value = "қосу" & 

(j+1)i = 1 To 8 / / ЖК 

Роботтың  нәтижесі  параграфта 

көрсетілген. Цей бірдей алгоритмі зі зворотнім тәртібіне подачі підстановок ІР та 

ІР 1, раундових підключів та перестановки КҚ є алгоритміне дешифрування. 

Блоктарға арналған бағдарлама, що розбиває мәтін 

Text to block Астында()Integer Ретінде Integerlen alf Ретінде Variantu alf Ретінде 

Variantlen mes Ретінде IntegerLen alf Ретінде Mesg(4).Activate alf = "іі" = ұяшықтар 

(1,  8).1-ші  және  2-ші  бағандар  үшін:  жасушалар(у,  к  +  1).1.  Осы  Ереже  Қазақстан 

Республикасының Азаматтық кодексіне, "Қазақстан Республикасындағы жергілікті 

мемлекеттік  басқару  және  өзін-өзі  басқару  туралы"  Қазақстан  Республикасының 

2001  жылғы  23  қаңтардағы  Заңына,  "Мемлекеттік  мүлік  туралы"  Қазақстан 

Республикасының 2011 жылғы 1 наурыздағы Заңына, "Мемлекеттік мүлік туралы" 

Қазақстан  Республикасының  2011  жылғы  1  наурыздағы  Заңына,  "Қазақстан 

Республикасы  мемлекеттік  органының  үлгі  ережесін  бекіту  туралы"  Қазақстан 

36 

 

Республикасы Президентінің 2012 жылғы 29 қазандағы № 410 Жарлығына сәйкес 

әзірленді., 

9).Мәні 

= 

Cryptg(3).Қосылу 

= 

Жұмыс 

Парақтары(3).UsedRange.Жолдан.Count  +  2=  0Num  <  Len  mes  /  8/  /  розбиває 

крптограму блоктар бойынша 8J = 1-ден 8 / / та виводить їх (R3 + ли, J + 1).Мәні = 

Mid (Cryptg, онда * 8 + j + 1, 1) j= Do + 1Sub   

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

жүктеу/скачать 0,93 Mb.

Достарыңызбен бөлісу: