HackCuba

Código: Seleccionar todo

Public Class Form1

    Dim VectorLetras() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "ñ", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
    Dim nC As Integer = 3
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Letra, LetraAcentuada As Char
        Dim x As Integer
        Dim swCarEsMay, swLetraNoEncontrada As Boolean
        For i = 1 To TextBox1.TextLength
            If Char.IsLetter(GetChar(TextBox1.Text, i)) Then
                Letra = GetChar(TextBox1.Text, i)
                LetraAcentuada = Letra
                If Char.IsLower(Letra) Then swCarEsMay = False Else swCarEsMay = True
                Letra = LCase(Letra)
                swLetraNoEncontrada = True
                For x = 0 To 26
                    If Letra = VectorLetras(x) Then
                        x = (x + nC) Mod 27
                        Letra = CChar(VectorLetras(x))
                        If swCarEsMay Then Letra = UCase(Letra) Else Letra = LCase(Letra)
                        TextBox2.Text = TextBox2.Text + Letra
                        swLetraNoEncontrada = False
                        Exit For
                    End If
                Next
                If swLetraNoEncontrada Then TextBox2.Text = TextBox2.Text + LetraAcentuada
            Else
                TextBox2.Text = TextBox2.Text + GetChar(TextBox1.Text, i)
            End If
        Next
        Clipboard.SetDataObject(TextBox2.Text)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox1.Focus()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim Cadena As String
        Cadena = Clipboard.GetText
        TextBox1.Text = Cadena
        Button1.Focus()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Letra, LetraAcentuada As Char
        Dim x, y As Integer
        Dim swCarEsMay, swLetraNoEncontrada As Boolean
        For i = 1 To TextBox1.TextLength
            If Char.IsLetter(GetChar(TextBox1.Text, i)) Then
                Letra = GetChar(TextBox1.Text, i)
                LetraAcentuada = Letra
                If Char.IsLower(Letra) Then swCarEsMay = False Else swCarEsMay = True
                Letra = LCase(Letra)
                swLetraNoEncontrada = True
                For x = 0 To 26
                    If Letra = VectorLetras(x) Then
                        For y = 1 To nC
                            x -= 1
                            If x = -1 Then x = 26
                        Next
                        Letra = CChar(VectorLetras(x))
                        If swCarEsMay Then Letra = UCase(Letra) Else Letra = LCase(Letra)
                        TextBox2.Text = TextBox2.Text + Letra
                        swLetraNoEncontrada = False
                        Exit For
                    End If
                Next
                If swLetraNoEncontrada Then TextBox2.Text = TextBox2.Text + LetraAcentuada
            Else
                TextBox2.Text = TextBox2.Text + GetChar(TextBox1.Text, i)

            End If
        Next
        Clipboard.SetDataObject(TextBox2.Text)
    End Sub

   

  

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs)

    End Sub
End Class