[sooriaty03]

السلام عليكم ورحمة الله وبركاته

أخي الكريم إليك هذا المثال

كود :

Public Class Form1
    Dim EncryptionArray As Char() = {"Z", "Y", "X", "W", "V", "U", "T", "S", "R", "Q", "P",
                                  "O", "N", "M", "L", "K", "J", "I", "H", "G", "F",
                                  "E", "D", "C", "B", "A"}
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim EncryptedText As String = ""
        For Each Letter In TextBox1.Text.ToUpper.ToCharArray
            If Array.IndexOf(EncryptionArray, Letter) > -1 Then
                EncryptedText &= EncryptionArray(Asc(Letter) - 65)
            Else
                EncryptedText &= Letter
            End If
        Next
        TextBox2.Text = EncryptedText
    End Sub
End Class

بالتوفيق