Stuff

Public Class Form1
    ' lol lame
    Function GoBasicLeet(ByVal leet As String)
        leet = leet.ToUpper
        leet = leet.Replace("A", "4")
        leet = leet.Replace("B", "8")
        leet = leet.Replace("E", "3")
        leet = leet.Replace("F", "F")
        leet = leet.Replace("G", "9")
        leet = leet.Replace("L", "1")
        leet = leet.Replace("O", "0")
        leet = leet.Replace("S", "5")
        leet = leet.Replace("T", "7")
        Return leet
    End Function

    Function GoAdvancedLeet(ByVal leet As String)
        leet = leet.ToUpper
        leet = leet.Replace("A", "4")
        leet = leet.Replace("B", "8")
        leet = leet.Replace("C", "(")
        leet = leet.Replace("D", "D")
        leet = leet.Replace("E", "3")
        leet = leet.Replace("F", "F")
        leet = leet.Replace("G", "9")
        leet = leet.Replace("H", "|-|")
        leet = leet.Replace("I", "|")
        'leet = leet.Replace("J", "")
        leet = leet.Replace("K", "|<")
        leet = leet.Replace("L", "1")
        leet = leet.Replace("M", "|\/|")
        leet = leet.Replace("N", "|\|")
        leet = leet.Replace("O", "()")
        'leet = leet.Replace("P", "")
        'leet = leet.Replace("Q", "")
        'leet = leet.Replace("R", "")
        leet = leet.Replace("S", "5")
        leet = leet.Replace("T", "7")
        leet = leet.Replace("U", "|_|")
        leet = leet.Replace("V", "\/")
        leet = leet.Replace("W", "\/\/")
        leet = leet.Replace("X", "><")
        leet = leet.Replace("Y", "'/")
        'leet = leet.Replace("Z", "")
        leet = leet.Replace(" ", "  ")
        Return leet
    End Function

    Function LameItUp(ByVal leet As String)
        Dim a As Char
        Dim b As String = ""
        Dim i As Integer
        For Each a In leet
            If i = 1 Then
                b = b & a.ToString.ToUpper()
                i = 0
            Else
                b = b & a.ToString.ToLower()
                i = 1
            End If
        Next
        Return b
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox5.Text = GoAdvancedLeet(TextBox1.Text)
        TextBox6.Text = GoBasicLeet(TextBox2.Text)
        TextBox7.Text = LameItUp(TextBox3.Text)
        TextBox8.Text = LameItUp(GoBasicLeet(TextBox4.Text))
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""

    End Sub
End Class