Методы и средства защиты информации



              

Механизм действия S-блоков - часть 2


/p>

Окончание таблицы 18.7

S7

0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

0

4

11

2

14

15

0

8

13

3

32

9

7

5

10

6

1

1

13

0

11

7

4

9

1

10

14

3

5

12

2

15

8

6

2

1

4

11

13

12

3

7

14

10

15

6

8

0

5

9

2

3

6

11

13

8

1

4

10

7

9

5

0

15

14

2

3

12

S8

0

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

0

13

2

8

4

6

15

11

1

10

9

3

14

5

0

12

7

1

1

15

13

8

10

3

7

4

12

5

6

11

0

14

9

2

2

7

11

4

1

9

12

14

2

0

6

10

13

15

3

5

8

3

2

1

14

7

4

10

8

13

15

12

9

0

3

5

6

11

Пример реализации алгоритма DES представлен в листингах 18.3 и 18.4 (компилятор — PowerBasic).

Листинг 18.3. Пример реализации

алгоритма DES на языке Basic для шифрования файлов

$CPU 80386

$FLOAT NPX

$OPTIMIZE SPEED

$LIB ALL-

$OPTION CNTLBREAK ON

DECLARE FUNCTION MYBIN$ (n%)

DECLARE FUNCTION desalg$ (a$)

DECLARE SUB f (i%, a%(), x%())

DECLARE SUB transpose (datax%(), T%(), n%)

DECLARE SUB mrotate (keyx%())

DECLARE SUB stob (a$, mbits%())                

DECLARE SUB btos (mbits%(), a$)                

DECLARE SUB letbe (target%(), source%(), LAST%)

DECLARE SUB init (x() AS INTEGER, n%)          

DECLARE SUB sboxinit (b() AS INTEGER)           

DECLARE SUB xtob (a$, mbits%())                

DIM s(1 TO 8, 1 TO 64) AS shared INTEGER

Продолжение листинга 18.3

' Инициализация

RESTORE InitialTrl

DIM InitialTr(1 TO 64) AS shared INTEGER



Содержание  Назад  Вперед