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

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