1.3 Секциялық бағдарламалар (VBA редакторы)
Ауыспалы-ауысымды шифрлаудың қарапайым бағдарламасы:
Pr zam() Activate.Name=«Pr.Zam»=Жұмыс парақтары UsedRange.Rows.Count
+1//1 санын анықтайды.
// B (R) -B (R + 2) (Ұяшықтар (R, 1), Ұяшықтар (R + 1, 2)). Жасыру //
хабарлама мен // батырмасын жасырады («Өңделген хабарлама:» & Cryptg) / /
шифрланған басып шығарады
// хабарлама Sub
Ескерту 1. Егер сіз -k (m nd n) кілті ретінде хабарлама жіберсеңіз, сол
бағдарламаны хабарламаның шифрын шешуге де қолдануға болады.
Ескерту 2. Егер сіз алфавиттің орнына кілт фразасын немесе таңбалар
жинағын енгізсеңіз, бізде алфавитсіз ауыстыру шифрлау бағдарламасы болады.
Алфавиттік кодты ауыстыру бағдарламасы:
Sub Zam vzl () (4) .Activate = Материалдар (4) .UsedRange.Rows.Count + 1Mesg
ретінде VariantCryptg ретінде VariantU alf ретінде Variantkey ретінде Integerk
ретінде IntegerLen mes ретінде IntegerLen alf ретінде Integer alf =
«abvhdeyezhziyiyyklmnoprstufhtschshschyuya
ABVHDEYEZHZIYIYYKLMNOPRSTUFHTSCHSHSCHYUYA» = InputBox
(«хабарыңызды енгізіңіз») / / қабылдайды шифр мәтіні = Len (Mesg) alf = Len (U
alf) / 2 (R, 1) .Value = «Алынған хабарлама»
Хат жиілігін есептеу (VBA редакторы):
IntegerLen alf As Integer alf = «Abyssesyyyklmnoprstuhtschshchyuyu» alf) / 2k
Integerm ретінде Integeri = 1 үшін Len alf // алфавиттің әр әрпіне = 0 // Len mesMid
(Mesg, j, 1) = Mid (U alf, i, 1) = = + + 1Mid (алфавиттің әр әрпі үшін) = 1 санын
есептейді.
Достарыңызбен бөлісу: | 
