аємо номер символу ключа в стовпці: = Txt [I];// REd2.text [ I];
B: = KeyS (SG1, Ch, A);// Шукаємо номер символу тексту в рядку "Main"
// REd1.Text: = REd1.Text + Znak (SG1, B, 0);: = Oyt + Znak (SG1, B, 0); J <= Length (Key) -1 Then J: = J +1 ELSE J: = 1;// Перебір КлючаELSE: = Txt [I];
// REd1.Text: = REd1.Text + Ch;: = Oyt + Ch;;
0 Then REd1.Clear; REd2.Lines.Count> 0 Then REd2.Clear;. Enabled: = False; SB1.Enabled: = False;. Enabled: = False; SB4 . Enabled: = False;. Enabled: = False;. Panels [0]. Text: ='';. Panels [1]. Text: ='';; TForm1.SB3Click (Sender: TObject);
begin.Title: = 'Відкрити вихідний текст ...';
IF OD1.Execute Then.Panels [0]. Text: = ExtractFileName (OD1.FileName);: = OD1.FileName;. ProcessMessages ();//. FileName: = Old1;. Lines . LoadFromFile (Old1);; ShowMessage ('Немає доступу до:' + Old1);. Panels [0]. Text: =''; SD1.FileName: ='';;. FileName: ='';;; TForm1 . SB5Click (Sender: TObject);
begin.Title: = 'Відкрити шифрований текст ...';
IF OD1.Execute Then.Panels [1]. Text: = ExtractFileName (OD1.FileName);: = OD1.FileName;. ProcessMessages ();//. Lines.LoadFromFile (Old2); ; ShowMessage ('Немає доступу до:' + Old2);. Panels [1]. Text: ='';;. FileName: ='';;; TForm1.N3Click (Sender: TObject);. Visible: = Not SG1 . Visible;; TForm1.N4Click (Sender: TObject);
begin ('Логвінов М. Ю 313ПІ Курсова на тему: "Шифрування Вижинера" ​​2012');
end; TForm1.SB4Click (Sender: TObject);
Label 0;. Title: = 'Зберегти Оригінальний текст як ...';
IF SBar1.Panels [0]. Text ='' Then
: IF SD1.Execute Then: = SD1.FileName;. ProcessMessages ();. Lines.SaveToFile (Old1);. Panels [0]. Text: = ExtractFileName (Old1);; ELSEMessageBox ( Handle, PChar ('Якщо хочете використовувати наявний шлях' +
# 13 + '"' + Old1 + '"' +
# 13 'Натисніть "Так".' ), 'Збереження', _YESNO + MB_ICONINFORMATION) = MrYes Then.Lines.SaveToFile (Old1) ELSE GoTo 0;
// SBar1.Panels [0]. Text.FileName: ='';; TForm1.SB6Click (Sender: TObject);
Label 1;. Title: = 'Зберегти Зашифрований текст як ...';
IF SBar1.Panels [1]. Text ='' Then
: IF SD1.Execute Then: = SD1.FileName;. ProcessMessages ();. Lines.SaveToFile (Old2);. Panels [1]. Text: = ExtractFileName (Old2);; ELSEMessageBox ( Handle, PChar ('Якщо хочете використовувати наявний шлях' +
# 13 + '"' + Old2 + '"...
