Диплом жұмысы 5В011100 «Информатика»
жүктеу/скачать 0,93 Mb. Pdf көрінісі
|
СКЖ 111-81 Нурбеков Рауан Жасанды интеллект көмегімен криптографиялық жүйелердің тұрақтылығын талдау
|
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 санын есептейді. жүктеу/скачать 0,93 Mb. Достарыңызбен бөлісу:
|