) onları da veririm.sezar şiflereme adından da anlaşılacağı uzre sezar tarafından bulunmuş adam bi matris almış icine 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 gondermiş pizlxaasrne alan adam bunu tekrar aynı şekilde yerleştirdiğinde white text ortaya cıkar (cozulmuş text)
aşşağıdaki kodu bir modulu icine yapıştırın
PHP Kodu:
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 'parcalara boluyoruz |
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ı sutundaki harfleri |
Next k 'alıyoruz |
z = z2 + 1 'sonraki sutuna geciyoruz |
Next t ' |
'================================================= = ======================================
Next x
End Function
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 'parcalara boluyoruz |
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ı sutundaki harfleri |
Next k 'alıyoruz |
z = z2 + 1 'sonraki sutuna geciyoruz |
Next t ' |
'================================================= = ======================================
Next x
End Function
commentler yeterince acıklayıcıdır sanırım. nasıl kullanılacağına gelince bunu bir modul icine yapıştırıp istediğiniz yerden
sonuc_nereye_yazılıcaksa=sifrele_coz(şifrelencek/cozulucek text,şifrelenen/şifrelenecek matrisin kac a kac olucağı) şeklinde cağırmanız lazım
__________________