Похожие работы на «Хэш-функции в криптосистемах »

Хэш-функции в криптосистемах
Программирование и комп-ры, Хэш-функции в криптосистемах , Работа Курсовая ... 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 ...
... 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 ...


Администрирование локальных сетей
Программирование и комп-ры, Администрирование локальных сетей, Лекция ... a directory search path for source files. ld List all directories. lf [string] List all (or matching) files. lsl List all shared libraries. lp [[class ...
... а не явно. сигнал G D C F S смысл SIGTERM + k - + - завершить процесс SIGKILL - k - + - убить процесс SIGINT + k - + - прерывание с клавиш SIGQUIT + k ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... f и g: M[i][j] равно >, если f[i]>g[j] M[i][j] равно <, если f[i]G[j], если i > j - построить ребро графа F[i]<-G[j], если i < j - склеить вершины F[i ...
... Begin j:=1; While (l<>Nil) and (n<>j) Do Begin If l^.Name=#0 Then inc(j); l:=l^.Next; End; While (l<>Nil) and (l^.Name<>x.Name) Do l:=l^.Next; If l< ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... wri_val(manual[j],j,true); case a of rightarrow, downarrow : j:=j+1; leftarrow, uparrow : j:=j-1; end; if j>10 then j:=10; if j<0 then j:=0; end; if
... j:=j+1; write(f,ln(j):10:2); for i:=1 to 30 do with cell[i] do begin loc_calc[i]:=0; for k:=j+1 to 100 do begin z:=(x[k]-x[k-j])*(x[k]-x[k-j])+(y[k


Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов [нестрогое соответствие]
Кибернетика, Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов, Диплом ... for i := 1 to OutputLayerUnits do begin sum:=0; for j := 1 to InputLayerUnits do begin sum:=sum+w[i,j]*v[m,j]; end; activation[i]:=sum; if sum>=0 then ...
... Color:=clRed; LabelEven.Font.Color:=clWindowText; end else begin if (Output[2]>Output[1]) then begin LabelEven.Font.Color:=clRed; LabelOdd.Font.Color: ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... времени} z1:=z; Window(10,10,40,12); {окно пароля} TextBackGround(magenta); clrscr; Readln(u,a); If length(a)>2 Then Begin{проверка наличия в файле ...
... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...


Линейные списки. Стек. Дек. Очередь [нестрогое соответствие]
Программирование и комп-ры, Линейные списки. Стек. Дек. Очередь, Диплом ... ListBegin; i := 0; while i <> ListPos do begin qList := qList^.Next; Inc(i); end; if qList <> nil then begin if qList^.Next <> nil then Inc(ListPos) ...
... i := 0; while i <> ListTwoPos do begin qListTwo := qListTwo^.Next; Inc(i); end; if qListTwo <> nil then begin if qListTwo^.Next <> nil then Inc( ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... I:=1 to MClass do If P^.class[I] then Read(Source,Q^.Way[K].cost[I]) else Q^.Way[K].cost[I]:=0; If (J mod 4)=0 then begin If (J<>P^.TotalStation) then ...
... upcase(st[i+2])) or ((mthru[j,1]=st[i]) or (mthrl[j,1]=st[i])) and ((mthru[j,2]=st[i+1]) or (mthrl[j,2]=st[i+1])) and ((mthru[j,3]=st[i+2]) or (mthrl[ ...


Кодирующее устройство для кода Файера [нестрогое соответствие]
Коммуникации и связь, Кодирующее устройство для кода Файера, Курсовая ... i:=1 to _N do Begin IF F[i]=1 Then Begin t:=1; For j:=i to i+_M-1 do Begin K[j]:=Sum(F[j],P[t]); F[j]:=K[j]; t:=t+1; End; End; End; t:=1; For i:=_N+1 ...
... InitGraph(grDriver, grMode,'c:\sub\bp\bgi'); if GraphResult <> grOk then Begin Halt(1); End; End; Procedure Visual(Var sa:mass); {Ввод информационных ...


Разработка системы задач (алгоритмы-программы) по дискретной математике [нестрогое соответствие]
Программирование и комп-ры, Разработка системы задач (алгоритмы-программы) по дискретной математике , Работа Курсовая ... i+1; while(j<=N)and Not((j in A[i])and(B[i]+B[j]=[1..M]))do Inc(j); Inc(i); End; InTwoNear:=j<=N; End; Function AddIfCan(mode:integer; S:Sset):Boolean ...
... рассматриваемой части списка} While ix then Inc(i)else {смотрим элементы списка относительно If A[j]D[i,k]+D[k,j] then begin {определение пути с ...