9; +
# 13 'Натисніть "Так".' ), 'Збереження', _YESNO + MB_ICONINFORMATION) = MrYes Then.Lines.SaveToFile (Old2) ELSE GoTo 1;
// SBar1.Panels [0]. Text.FileName: ='';; TForm1.LokBut (Sender: TObject) ;//Перевірка текстових полейREd1.Lines.Count> 0 Then.Enabled: = True;. Enabled: = True; ELSEREd1.Lines.Count <= 0 Then.Enabled: = False;. Enabled: = False;; REd2.Lines.Count> 0 Then.Enabled: = True;. Enabled: = True ; ELSEREd2.Lines.Count <= 0 Then.Enabled: = False;. Enabled: = False;; (REd1.Lines.Count> 0) OR (REd2.Lines.Count> 0) Then SB7.Enabled: = True ELSE . Enabled: = False;. Caption: = Format ('Таблиця - [R =% d, C =% d]',
[SG1.RowCount, SG1.ColCount]);
// МЕТОДИ ДЛЯ "STRINGGRID" DelCol (SG: TStringGrid); I, J: LongInt ;//Видалити колонкуSG do: = ColCount - 1; [J]. Clear; I: = J to ColCount - 2 do [I]. Assign (Cols [I +1]);: = ColCount - 1;;; DelRow (SG: TStringGrid); I, J: LongInt ;//Видалити строкуSG do: = RowCount - 1;// Останній рядок [J]. Clear; I: = J to RowCount - 2 do [I]. Assign (Rows [I +1]);: = RowCount - 1;;; InsRow (SG: TStringGrid); // Вставка строкіSG do: = RowCount + 1;; InsCol (StrGrid: TStringGrid) ;//Вставка колонок.ColCount: = StrGrid.ColCount + 1;; TForm1.SpeedButton1Click (Sender: TObject);
begin// Додати Рядок для сімволовSG2.RowCount <256 Then
begin (Sg2); (Sg1); (SG1); ELSE Beep;; TForm1.SpeedButton2Click (Sender: TObject);
begin// Видалити Рядок для сімволовSg2.RowCount> 33 Then
Begin (Sg2); (Sg1); (SG1); ELSE Beep;
end;.
Додаток Б
криптографічний шифрування Віженер поліалфавітних
Скріншоти програми
В
В
Додаток В
Квадрат Віженер (tabula recta)
ABCDEFGHIJKLM NO PQR STU VW XYZAABCDEFGHIJKLM NO PQR STU VW XYZBBCDEFGHIJKLM NO PQRSTUV WX YZACCDE FGHIJKLM NO PQR STU VW XY ZABDDEFGHIJKLM NO PQRSTUV WX YZABCEEFGHIJKLM NO PQR STUVW XY ZABCDFFGH IJKLM NO PQRSTUVW X YZABCDEGGHI JKLM NO PQRSTU VW XY ZABCDEFHHIJKLM NO PQRSTUV WX YZABCDEFGIIJKLM NO PQR STUVW XYZABCDEFGHJJKLM NO PQRSTUVW XYZABCDEFGHIKKLM NO PQRSTU VW XYZABCDEFGHIJLLM NO PQRSTUV WX YZABCDEFGHIJKMM NO PQRSTU VWXY ZABCDEFGHIJKLNN O PQRSTU VWX YZABCDEFGHIJKLMOO PQRSTU VW XY ZABCDEFGHIJKLM NPPQR STUV WX YZABCDE FGHIJKLM N OQQRSTU VWXY ZABCDEFGHIJKLM NO PRRSTU VWXY ZABCDE FGHIJKLM NO PQSSTUV W XY ZABCDEFGH I JKLM NO PQRTTU VW X YZABCDEFGHI JKLM NO PQRSUU VWXY ZABCDEFGH I JKLM NO PQRSTVV W XY ZABCDE FGHI JKLM NO PQRSTUWW X YZABCDEFGHIJKLM NO PQRSTU VXX Y ZABCDEFGHIJKLM NO PQRSTUV WYY ZABCDEFGH IJKLM NO PQRSTUVW XZZABCDEFGHI JKLM NO PQRSTUVW XY
