Лабораторная работа №3. Тема: Криптографическое преобразование информации.

Тема: Криптографическое преобразование информации.

Цель: Выработка навыков криптографического преобразования информации с применением методов простейших программных методов преобразования (шифрования)

Отчет:

В разработанном проезд выполнили криптографическое преобразование информации,подлежащей защите.Для этого написали соответствующих процедуру криптографического шифрования информации

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Form3.Table1.Edit;

Form3.Table1.Fieldbyname('Parol').value:='';

end;

procedure TForm3.Panel1Click(Sender: TObject);

begin

Form2.Table1.Edit;

Form2.Table1.Fieldbyname('Parol').value:='Добавление записи';

Form3.Table1.FieldByName(‘parol').value:=now();

Table1.Refresh;

Table1.Refresh;

Table1.Refresh;

Table1.Refresh;

Table1.Refresh;

procedure TForm3.BitBtn4Click(Sender: TObject);

var k,k1,k2,p,s:String;

a,i:Integer;

begin

table1.edit;

table1.fieldByname('parol').Value:=table1.fieldByname('parol').Value+'dcg';

table1.post;

table1.refresh;

end;

Запросы:

На определенную дату:

SELECT Polz.FIO, Parol.,Data

FROM "paroli.DB" Parol

Where par:=edit.text;

Поиск по ФИО

SELECT Polz.login, Polz.FIO,Parol,.Data_v

FROM "Polzovateli.DB" Polzovateli

Where Polz.FIO=:p

Не нашли, что искали? Воспользуйтесь поиском: