sezar şiflereme adından da anlaşılacağı üzre sezar tarafından bulunmuş adam bi matris almış içine yazıcağı mektuptaki harfleri soldan sağa doldurmuş sonra bunu aşşağıdan yukarıya okumuş
mesela
p l a n
i x s e
z a r
gibi bunu şu şekilde göndermiş pizlxaasrne alan adam bunu tekrar aynı şekilde yerleştirdiğinde white text ortaya çıkar (çözülmüş text)
aşşağıdaki kodu bir modülü içine yapıştırın
Attribute VB_Name = "Sezar" Public Function sifrele_coz(text As String, matris As Integer) Dim char Dim kackere, matris2 Dim z Dim blok '==================================================================================== matris2 = matris * matris 'GENEL | kackere = Len(text) / (matris * matris) 'TANIMLAMALAR | z = InStr(kackere, ",") ' | If z <> 0 Then 'Texti matris^2 | kackere = Mid(kackere, 1, z - 1) 'nin bir katı | kackere = kackere + 1 'yapıyoruz | text = text & Space((kackere * matris * matris) - Len(text)) ' | End If ' | '==================================================================================== '====================================================================== '======================= Şifreleme Algoritması ====================== '====================================================================== Dim x, y '========================================================================== For x = 0 To kackere - 1 'Text'i matris^2 lik | For y = 1 To matris2 'parçalara bölüyoruz | char = Mid(text, x * matris2 + y, 1) '(blok) | blok = blok & char ' | Next y ' | '========================================================================== z = 1 Dim t, k, z2 '======================================================================================== For t = 0 To matris - 1 ' | z2 = z 'bir counter oluşturuyoruz | For k = 0 To matris - 1 ' | char = Mid(blok, z, 1) 'bloktaki her harfi sırayla | z = z + matris 'alıyoruz. matristeki(bloktaki) | sifrele_coz = sifrele_coz & char 'aynı sütündaki harfleri | Next k 'alıyoruz | z = z2 + 1 'sonraki sütüna geçiyoruz | Next t ' | '======================================================================================== Next x End Function
nasıl kullanılacağına gelince bunu bir modül içine yapıştırıp istediğiniz yerden
sonuc_nereye_yazılıcaksa=sifrele_coz(şifrelencek/çözülücek text,şifrelenen/şifrelenecek matrisin kaç a kaç olucağı) şeklinde çağırmanız lazım
mesela
p l a n
i x s e
z a r
gibi bunu şu şekilde göndermiş pizlxaasrne alan adam bunu tekrar aynı şekilde yerleştirdiğinde white text ortaya çıkar (çözülmüş text)
aşşağıdaki kodu bir modülü içine yapıştırın
Attribute VB_Name = "Sezar" Public Function sifrele_coz(text As String, matris As Integer) Dim char Dim kackere, matris2 Dim z Dim blok '==================================================================================== matris2 = matris * matris 'GENEL | kackere = Len(text) / (matris * matris) 'TANIMLAMALAR | z = InStr(kackere, ",") ' | If z <> 0 Then 'Texti matris^2 | kackere = Mid(kackere, 1, z - 1) 'nin bir katı | kackere = kackere + 1 'yapıyoruz | text = text & Space((kackere * matris * matris) - Len(text)) ' | End If ' | '==================================================================================== '====================================================================== '======================= Şifreleme Algoritması ====================== '====================================================================== Dim x, y '========================================================================== For x = 0 To kackere - 1 'Text'i matris^2 lik | For y = 1 To matris2 'parçalara bölüyoruz | char = Mid(text, x * matris2 + y, 1) '(blok) | blok = blok & char ' | Next y ' | '========================================================================== z = 1 Dim t, k, z2 '======================================================================================== For t = 0 To matris - 1 ' | z2 = z 'bir counter oluşturuyoruz | For k = 0 To matris - 1 ' | char = Mid(blok, z, 1) 'bloktaki her harfi sırayla | z = z + matris 'alıyoruz. matristeki(bloktaki) | sifrele_coz = sifrele_coz & char 'aynı sütündaki harfleri | Next k 'alıyoruz | z = z2 + 1 'sonraki sütüna geçiyoruz | Next t ' | '======================================================================================== Next x End Function
nasıl kullanılacağına gelince bunu bir modül içine yapıştırıp istediğiniz yerden
sonuc_nereye_yazılıcaksa=sifrele_coz(şifrelencek/çözülücek text,şifrelenen/şifrelenecek matrisin kaç a kaç olucağı) şeklinde çağırmanız lazım
