Encryption от магически квадрат

Тази таблица има забележителен имот. Добавете номера на първата колона: 4 + 3 + 8 = 15. Същият резултат се получава чрез добавяне на броя на втората и третата колони. Той се получава чрез добавяне на номерата на някой от трите реда. Не само това, се получава същия отговор 15, ако броят на сгънати всяка от двете диагоналите: 4 + 5 + 6 = 8 + 5 + 2 = 15.

Може би тази легенда китайците измислиха, когато ние открихме, на мястото на цифрите от 1 до 9 с такъв забележителен имот. Фигура те нарича "ло-шу" и се възприема като символ на неговата магия и заклинания за използване при. Така че сега всеки квадратен маса, съставена от числа и има свойството да се нарича магически квадрат.

Как тогава да направи магически квадрати? Магията площад "ето-шу" може да се намери без да се прибягва до сортиране един по един всички договорености от 9 цифри 9 клетки (броят на такива договорености на 362 880). Ние твърдим. Сумата на всички номера от 1 до 9, е равна на: 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 = 45. Това означава, че на всеки ред и всяка колона трябва да е равна на сумата от номера: 45: 3 = 15. Но ако обобщим всички числа във втория ред и колона и двата диагонала, всеки номер ще остане един път, с изключение на центъра, която ще включва четири. Така че, ако ние означаваме броя на централните отношение на х, трябва да имаме равенство. Следователно х = 5, която е в центъра на масата трябва да бъде номер 5.

Сега, имайте предвид, че броят 9 не може да стои в ъгъла на масата, например в горния ляв ъгъл. В края на краищата, а в противоположния ъгъл стоеше числото 1, и на първия ред и колона остава една комбинация - номера 4 и 2. Това означава, че 9 се намира в средата на някои крайни редове или колони (тук в средата на първия ред). Две други низове от числа са 4 и 2, и третата колона на средния брой трябва да е 1 = 09.05.15. В една и съща линия 1 трябва да бъде броят 8 и 6. По този начин, магията площада е почти пълна и лесно да се намери място за останалите цифри. Резултатът е квадрата на "ето-шу". Разбира се, за 9, за да изберете други три места, а след избора на места за този номер две възможности за подреждане на номера 4 и 2. получени общо различни магически квадратите на три реда и три колони (или, както по математика, площади на трети ред). Всички тези квадрати може да бъде получена от "Луо Шу", или завъртане около центъра на площада, за да, или, или да го дублира.

По принцип, ако сте намерили някакъв магически квадрат, а след това тя може да бъде методите, описани по-горе (въртящи и отразявайки), за да получите повече 7 магически квадрати. Но как да намерите и един магически квадрат? За квадратите на нечетен ред имат много прост начин, е, както следва. Вземете средната колона и по отношение на броя горната клетка запис 1. В същия брой на запис под долния средата на колоната и от клетките започват да се напише номера 2, 3, ..., и достигайки до дясната (долу номер 1 е само от квадратен). Ние правим това, за толкова дълго, колкото ние се достигне най-дясната колона. След последния брой писмен запис на същия ред от ляво на площада и се качи веднага, запис на числата във възходящ ред. Когато се достигне броя, следван от предварително написан номер 1, слизаме към една клетка надолу, ще го напиша по следния номер на поръчката и след това да напишете числата във възходящ ред по същия начин, както преди. Той образува квадрат на петия ред:

Дим intMagSqInNum () Както магически квадрат Цяло число "в цифри

Дим strTextInMagSq () Както стринга "текст в магически квадрат

Дим strTextInArray () Както стринга "едномерен масив от шифриран текст

Дим intSizeOfArray Като размер на масива Цяло число "

Дим аз%, й% "цяло число (%)

Дим strTextWBlanks As String "текст без интервали

Дим lngMarksInText Както Хилон знака "в текста

"Премахване на пространствата в текста

"И конвертирате малки в големи

strTextWBlanks = StrConv (Замяна (txtEntrance.Text, "" ""), vbUpperCase)

"Compute броя на знаците в текста

"Изчисляване на размера на магически квадрат (масив)

Ако intSizeOfArray Mod 2 = 0, тогава intSizeOfArray = intSizeOfArray + 1

Ако intSizeOfArray ^ 2 CInt (lngMarksInText) След това

strTextInArray (l) = Средно (strTextWBlanks, I, 1)

"Създаване на магически квадрат, използвайки функция MagSqInNum

"Посочете магически квадрат

За I = 1 да intSizeOfArray

За J = 1 да intSizeOfArray

txtMagSqInNum.Text = txtMagSqInNum.Text intMagSqInNum (I, J) ""

txtMagSqInNum.Text = txtMagSqInNum.Text vbCrLf

"Ние разпространяваме текста в магически квадрат

"И в текста на заключенията в матрица

ReDim strTextInMagSq (intSizeOfArray, intSizeOfArray)

За I = 1 да intSizeOfArray

За J = 1 да intSizeOfArray

strTextInMagSq (I, J) = strTextInArray (intMagSqInNum (I, J))

txtTextInMagSq.Text = txtTextInMagSq.Text strTextInMagSq (I, J) ""

txtTextInMagSq.Text = txtTextInMagSq.Text vbCrLf

"Изход от ciphertext

За I = 1 да intSizeOfArray

За J = 1 да intSizeOfArray

strTextInMagSq (I, J) = strTextInArray (intMagSqInNum (I, J))

txtCodeMagSq.Text = txtCodeMagSq.Text strTextInMagSq (I, J)

"Изход от размера на квадратен бутон

cmdCodeMagSq.Caption = "Магически квадрант (" intSizeOfArray "X" intSizeOfArray ")"

Функция MagSqInNum (intSizeOfArray Като цяло число) Като цяло число ()

"Функция за създаване на магически квадрат

"Странно, за NxN

Дим intMagSqInNum () Както магически квадрат Цяло число "в цифри

Дим intAverArray Като цяло число "масив Средна стойност

Дим аз%, й%, к% "цяло число (%)

Дим intVariantSq Като вариант на магия площада Цяло число "

"Определена от средната стойност на масива

intAverArray = Int (intSizeOfArray / 2) + 1

"Замяна размер масив (квадрат)

ReDim intMagSqInNum (intSizeOfArray, intSizeOfArray)

"Избор на изпълнение с помощта на генератор на случайни числа

intVariantSq = Int ((8-1 + 1) * Rnd + 1)

"Създаване магически квадрат изпълнение съответно

Изберете дело intVariantSq

I = 1: J = intAverArray

За к = 1 да intSizeOfArray ^ 2

Ако аз intSizeOfArray Тогава

I = I + 2: J = J - 1

ElseIf аз intSizeOfArray Тогава

ElseIf intMagSqInNum (I, J)> 0 След

I = I + 2: J = J - 1

intMagSqInNum (I, J) = к

взаимодействие с сертифицирани средства kriptograficheskoyzaschityinformatsii. 13. Софтуер. взаимодействие с сертифицирани средства kriptograficheskoyzaschityinformatsii. 2. Софтуерът е предназначен.

бисквита. Zaschitainformatsii и държавни тайни (kriptograficheskoyzaschityinformatsii Authentication) защита Zaschitainformatsii вирус или икономическа информация е задължително.

Удостоверяване и шифроване на удостоверение за kriptograficheskoyzaschityinformatsii означава "Континент-AP". [За управление на клиенти. Удостоверяване и шифроване на сертификат означава kriptograficheskoyzaschityinformatsii (по-нататък - CPS) "Континент-AP".

Фрагменти VV УСЛОВИЯ ЗА ПОЛЗВАНЕ НА СРЕДСТВА KRIPTOGRAFICHESKOYZASCHITYINFORMATSII и цифров подпис в системата. Комуникации 1. Общи kriptograficheskoyzaschityinformatsii фондове (CIPF) и цифров подпис.