// PascalABC.NET
begin
// 1
var s1 := ReadlnString.Replace(' ','');
s1.Println;
// 2
var m := ReadlnString.MatchValues('[AaBb]');
if m.Count > 0 then
begin
var n := m.Count(c -> c.ToLower = 'a') -
m.Count(c -> c.ToLower = 'b');
case Sign(n) of
-1: Println('В строке больше символов B');
0: Println('В строке поровну символов A и B');
1: Println('В строке больше символов A');
end
end
else
Println('В строке нет символов A или B');
// 3
var s2 := 'Казнить, нельзя помиловать';
var i := Pos(',', s2);
Delete(s2,i,1);
i := Pos('я', s2);
Insert(',', s2, i + 1);
s2.Print
end.
Шифр Виженера (фр. Chiffre de Vigenère) — метод полиалфавитного шифрования буквенного текста с использованием ключевого слова.[1]
Этот метод является простой формой многоалфавитной замены. Шифр Виженера изобретался многократно. Впервые этот метод описал Джовани Баттиста Белласо (итал. Giovan Battista Bellaso) в книге La cifra del. Sig. Giovan Battista Bellasо в 1553 году[2], однако в XIX веке получил имя Блеза Виженера[3], французского дипломата. Метод прост для понимания и реализации, он является недоступным для простых методов криптоанализа.[4]
Хотя шифр легко понять и реализовать, на протяжении трех столетий он противостоял всем попыткам его сломать; чем и заработал название le chiffre indéchiffrable (с французского 'неразгаданный шифр'). Многие люди пытались реализовать схемы шифрования, которые по сути являлись шифрами Виженера.[5]
