Хэш-функции в криптосистемах

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Подтвердите что Вы не робот:
2. И нажмите на эту кнопку.
закрыть



воспользоваться следующим алгоритмом:

1.Перевернуть зашифрованный пароль.

 

2.Так как размер блока не может быть более 5 байт и менее 1 байта, то разобьём его на 8 блоков и запишем в список (список первых блоков, список вторых, и т. д.). Получим восьмиподсписковый список списков, каждый подсписок которого представляет собой все возможные блоки шифрованных символов.

 

3.Пробегаем в цикле по подсписку, сверяя каждый элемент со всеми символами из ASCII следующим образом:

 

If j*generate(x,n,j) = then write(ord(j)), где j десятичный код символа, x - ключ, n - последовательный номер символа в пароле (в диапазоне [1, 8]). Если выполнилось это условие, то выведем на экран найденный символ.

 

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

 

Описание

В основе алгортма лежит функция от трёх аргументов generate=trunc(k*(abs(sin(ln(a)*x)+ sin(cos(b)*x)))):

 

1.ключа (x);

2.десятичного код символа (a);

3.номера символа во введённой строке (b).

 

Она используется для преобразования десятичного кода символа в число, лежащее в интервале от 0 до 2*k, где k - любое число целого типа. Чем больше число k - тем меньше вероятность коллизий в дальнейшем.

 

После обработки символа он добавляется в список списков процедурой add_in_list(x: integer; s: string; var gr: llist) следующим образом - l^.inf:=ord(s[k])*generate(x,ord(s[k]),k), где l^.inf-элемент списка списков, x - ключ (для функции generate), s - строка, разбиваемая на блоки по 8 символов. Каждый подсписок имеет длину не более 8 элементов размером до 5 байт.

 

Третим шагом является сложение соответствующих элементов процедурой summ_all(gr: llist; var a:array_type) из каждого подсписка l в 8 элментный массив a, т.е. первый элемент из первого элемента складывается с первым элементом второго, третьего и т.д. подсписка и записывается в a[1].

Так - же поступаем и с другими элементами подсписков.

 

Следующим щагом записываем в файл ключ и по очереди все элементы массива a, обработанные функцией FromIntToString(), которая переводит численный тип в символьный и переворачивает.

 

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

 

Вот исходный текст программы:

 

kriptmod.pas

unit kriptmod;

interface

type Plist=^list;

list=record

inf: word;

num: 1..8;

next: Plist;

end;

 

Llist=^List_of_list;

List_of_list=record

nb: Plist;

inf: 1..32;

next: Llist;

end;

 

array_type=array[1..8] of longint;

 

function generate(x: integer; a, b: byte):integer;

procedure add_in_llist(x: integer; s: string; var gr: llist);

procedure print_llist(gr: llist);

procedure summ_all(gr: llist; var a:array_type);

function FromIntToString(L: longint):string;

implementation

{--Эта функция переводит из целочисленного типа в символьный----------------------------------------------}

function FromIntToString;

var s: string;

l1: longint;

begin

l1:=l; s:=;

while (l1 div 10>0) do

begin

case l1 mod 10 of

0: s:=s+0;

1: s:=s+1;

2: s:=s+2;

3: s:=s+3;

4: s:=s+4;

5: s:=s+5;

6: s:=s+6;

7: s:=s+7;

8: s:=s+8;

9: s:=s+9;

end;

l1:=l1 div 10;

end;

case l1 mod 10 of

0: s:=s+0;

1: s:=s+1;

2: s:=s+2;

3: s:=s+3;

4: s:=s+4;

5: s:=s+5;

6: s:=s+6;

7: s:=s+7;

8: s:=s+8;

9: s:=s+9;

end;

FromIntToString:=s;

end;

 

{--Функция генерации (основная)----------------------------------------------}

 

function generate;

begin

generate:=trunc(abs(122.5*(sin(ln(a)*x)+sin(cos(b)*x))));

end;

 

{--Процедура добавления в список списков----------------------------------------------}

procedure add_in_llist;

var g: llist;

l: plist;

k, i, j: byte;

begin

k:=1; i:=1;

while (k<=length(s)) do

begin

new(g);

g^.inf:=i;

g^.nb:=nil;

j:=1;

while (j<=8) and (k<=length(s)) do

begin

new(l);

l^.inf:=ord(s[k])*generate(x,ord(s[k]),k);

l^.num:=j;

l^.next:=g^.nb;

g^.nb:=l;

k:=k+1;

j:=j+1

end;

g^.next:=gr;

gr:=g;

i:=i+1

end;

end;

 

{--Процедура заполнения массива a-----------------------------------}

procedure summ_all;

var g: llist;

l: plist;

i: 1..8;

begin

g:=gr;

while g<>nil do

begin

l:=g^.nb;

i:=1;

while l<>nil do

begin

a[i]:=a[i]+l^.inf;

l:=l^.next;

i:=i+1

end;

g:=g^.next;

end;

end;

{------------------------------------------------}

 

end.

 

kript.pas:

program kuzik;

uses crt, kriptmod;

 

var x: integer;

i: 1..8;

pass: string;

l: Llist;

arr: array_type;

f: text;

begin

clrscr;

randomize;

{--Генерируем число--}

x:=abs(random(9999-101))+101;

write(Password: ); textcolor(0);readln(pass);

add_in_llist(x,pass,l);

summ_all(l,arr);

assign(f, shadow);

rewrite(f);

writeln(f,x);

for i:=1 to 8 do write(f,FromIntToString(arr[i]));

writeln(f);

close(f);

textcolor(2);

writeln(User added in base.);

repeat until keypressed;

end.

 

unkript.pas:

program kuzik;

uses crt, kriptmod;

 

var x: integer;

i: 1..8;

pass, pass1: string;

l: Llist;

arr: array_type;

f: text;

s, s1: string;

begin

clrscr;

write(Password: ); textcolor(0);readln(pass);

{--Открываем файл с паролями--}

assign(f,shadow);

reset(f);

{--Читаем ключ--}

readln(f,x);

{--Читаем зашифрованный пароль--}

readln(f,pass1);

close(f);

{--Шифруем только что введённый пароль--}

add_in_llist(x,pass,

s