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

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);