.


:




:

































 

 

 

 


, , ,




MainMenu

MainMenu , , . MainMenu .

:

Caption- ,

Checked- , , , .

Enabled- Enabled False,

Break- , .

Items- TMenuEtem


, .. Items, TMenuItem, ,, . Name , . . , Ins Insert ( ). , . Del Delete . , , Ctrl+-> Create Submenu . - , .

StringGrid

StringGrid .

ColCount RowCount. . . DefaultColWidth DefaultRowHeight. , ColWidths RowHeights . FixedCols FixedRows . . ( FixedColor) . , . , , Cells.

, . . , , -. . . , ( ). .

 

TString

function Add (const S: string): Integer; virtual; - ;
function AddObject (const S: string; AObject: TObject): Integer; virtual; - - , -;
procedure Addstrings (Strings: TStrings); virtual; - ;
procedure Append (const S: string); - , ;
procedure Assign (Source: TPersistent); override; - Source . , ;
procedure Clear; virtual; abstract; - ;
procedure Delete (Index: Integer); virtual; abstract; - Index . ;
destructor Destroy; override; - TStrings. , Free;
function Equals (Strings: TStrings) Boolean; - Strings True, ;
procedure Exchange (Indexl, Index2: Integer); virtual; - IndexlIndex2;
function GetText: PChar; virtual; - Text ;
function IndexOf (const S: string): Integer; virtual; - S -1, ;
function IndexOfName (const Name: string): Integer; - Name;
procedure Insert (Index: Integer; const S: string); virtual; abstract; - Index;
procedure InsertObject (Index: Integer; const S: string; AObject: TObject); - Index;
procedure LoadFromFile (const FileName: string); virtual; - ;
procedure LoadFromStream (Stream: TStream); virtual; - ;
procedure Move (CurIndex, NewIndex: Integer); virtual; - CurIndex NewIndex;
procedure SaveToFile (const FileName: string); virtual; - FileName;
procedure SaveToStream (Stream: TStream); virtual; - ;
procedure SetText (Text: PChar); virtual; - .

 

 

38. RSA - , .

RSA , . ( ) , . . , . ( ) , .

RSA :

p q

n = p * q

m = (p - 1) * (q - 1)

d m

e , e * d = 1 (mod m)

e d RSA. - 0 n - 1. :

: b = ae (mod n)

: a = bd (mod n)

 

, , ,

- , , , . - .

. , , Uses.

,

Program Pm1;

Uses Mtx, Mfa;

, Pm1 : Mtx Mfa.

.

Unit <>; -

interface

...........

implementation

............

initialization

...... ()

finalization

..........

END.

. , . , .

 

40. - .

, , , .. , . : (); . (), . , . , . , () . . . , : , . , () (). . , . , .

 

 





:


: 2017-01-28; !; : 594 |


:

:

.
==> ...

1500 - | 1332 -


© 2015-2024 lektsii.org - -

: 0.021 .