Криптография. Сравнительный анализ алгоритмов симметричного шифрования
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
bject);, p, q, tmp, i,e : longword;;:=Random(100);:=Random(100);not p_number(p) do dec(p);not p_number(q) do dec(q);.Text:=IntToStr(p);.text:=IntToStr(q);:= p* q;:=(p-1)*(q-1);i:=2 to tmp-1 doHOD(tmp,i)=1 then break; e:=i;.Text:=IntToStr(i);i:=1 to n do(i*e) mod ((p-1)*(q-1))=1 then;.Text:=IntToStr(i);.Clear;:= Encrypt(Memo1.Lines.Text, e, n);i := 0 to High(FMes) do.Lines.Append(IntToStr(FMes[i])); end;