برمجة شفرة أتباش ( Mono-Alphabetic Substitution ( Atbash
تعتبر شفرة أتباش من اقدم الشفرات الابدالية على الاطلاق , حيث يعتقد ان هذه الشفرة استخدمت قبل الميلاد بـ 500 سنة , و ان شفرة اتباش الاصلية كانت تعتمد على اللغة العبرية لانها شفرة يهودية , ويعتقد انها استخدمت في الكتاب المقدس (التوراة) في الايات : ارميا 25:26 , 51:1 , 51:41 , حيث هناك كلمات ذكرت مشفرة بالتوراة مثل كلمة بابل و كلمة الكلدان.
هي شفرة شبيهة بشفرة قيصر وتعتبر حالة خاصة من شفرة افاين .
التشفير وفك التشفير Encryption and Decryption :
تقوم شفرة اتباش بتبديل اول حرف مع اخر حرف (ترتب تنازلياً من Z وتصاعدياً من A) كما بالشكل الاتي :
بحيث اذا جاء a يتم استبداله بـ z , وهكذا
الابجدية العبرية الحديثة وتشفيرها بألاتباش :
برمجة شفرة اتباش بلغة vb6 :
اضف زر امر command عدد اثنين واثنين صندوق نص text box
واضف الكود ادناه في زر الامر الخاص بالتشفير :
كود PHP:
alpha = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "z", "y", "x", "w", "v", "u", "t", "s", "r", "q", "p", "o", "n")
t1 = Text1.Text ''Z Y X W V U T S R Q P O N
t2 = Text2.Text
t3 = 13
For i = 1 To Len(t1)
cut = Mid(t1, i, 1)
For j = 0 To 25
If (cut = alpha(j)) Then
x = (j + Val(t3)) Mod 26
Text2.Text = Text2.Text & alpha(x)
End If
Next j
Next i
وفي زر فك التشفير اكتب الكود ادناه :
كود PHP:
alpha = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "z", "y", "x", "w", "v", "u", "t", "s", "r", "q", "p", "o", "n")
t1 = Text1.Text ''Z Y X W V U T S R Q P O N
t2 = Text2.Text
t3 = 13
For i = 1 To Len(t1)
cut = Mid(t1, i, 1)
For j = 0 To 25
If (cut = alpha(j)) Then
x = (j + Val(t3)) Mod 26
Text2.Text = Text2.Text & alpha(x)
End If
Next j
Next i
اتمنى لكم التوفيق 
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة زهره سقاها الحزن
شكرآ اخي