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

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