طريقة تشفير جديدة . أريد مساعدتكم

بالرغم أنني أنصحك بأن لا تعتمد علي هذه الفكرة في التشفير خاصة أنه من السهل فك مثل هذه الشفرة .....لكنها وبشكل عام فكرة جيدة في حالة أنك لن تقوم بتشفير أسرارا هامة وخاصة جدا .

عموما الكود التاليي قد يساعدك علي أن تبدأ في كتابة الكود الخاص بعملية Shift للحروف لكن لا تنسي أن الحروف الأبجدية تبدأ بحرف A وتنتهي بحرف Z وبالتالي يجب أن تراعي هذا الأمر عند كتابة الكود وتحديدا القيمة التي سوف تقوم بعمل Shift لها لهذا يوجد شرطا بالكود بحيث أنه وعندما تصل الي حرف U حيث هذا الحرف يمثل تقريبا الحرف الخامس من أسفل وعندما نصل له يجب أن يتم التشفير بشكل عكسي

أتمني أن يكون الكود الموجود أدناه مناسبا لكي تكمل ما تريد

Public Class Form1

    Private Function EncrString(ByVal txt As String) As String

        Dim lowerA As Integer = Asc("a"c)
        Dim lowerZ As Integer = Asc("z"c)
        Dim lowerU As Integer = Asc("u"c)

        Dim upperA As Integer = Asc("A"c)
        Dim upperZ As Integer = Asc("Z"c)
        Dim upperU As Integer = Asc("U"c)

        Dim charArray As Char() = txt.ToCharArray

        For i As Integer = 0 To charArray.Length - 1
            Dim key As Integer = Asc(charArray(i))

            If ((key >= lowerA) AndAlso (key <= lowerZ)) Then
                If (key > lowerU) Then
                    key -= 5
                Else
                    key += 5
                End If
            ElseIf ((key >= upperA) AndAlso (key <= upperZ)) Then
                If (key > upperU) Then
                    key -= 5
                Else
                    key += 5
                End If
            End If
            charArray(i) = Chr(key)
        Next

        Return New String(charArray)

    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim txt As String = Me.Text
        Dim encrTxt As String = Me.EncrString(txt)
        Me.Text = encrTxt
    End Sub

End Class

الأخ العزيز

بداية شكراً لكم

وبالنسبة لردكم سوف أجرب ذلك وأرد لكم

وشكراً

شكراً لك

لكن في طريقتي اريد أن اعمل شفت بناءً على المفتاح الأول مثلاً 46 فيكون 6 لليمين و4 للشمال وليس قيمة ثابتة 5 .

يا ريت لو تساعدني في الحل