Unnamed

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 GoAolSpeak(ByVal lamer As String)
        lamer = lamer.ToLower
        lamer = lamer.Replace("'", "")
        lamer = lamer.Replace(".", "")
        lamer = lamer.Replace(",", "")
        lamer = lamer.Replace("ck", "k")
        lamer = lamer.Replace("you", "u")
        lamer = lamer.Replace("your", "ur")
        lamer = lamer.Replace("youre", "ur")
        lamer = lamer.Replace("laff", "")
        lamer = lamer.Replace("why", "y")
        lamer = lamer.Replace("ate", "8")
        lamer = lamer.Replace("bye", "bi")
        lamer = lamer.Replace("by", "bi")
        lamer = lamer.Replace("too", "2")
        lamer = lamer.Replace("two", "2")
        lamer = lamer.Replace("to ", "2 ")
        lamer = lamer.Replace("this", "dis")
        lamer = lamer.Replace("is", "iz")
        lamer = lamer.Replace("see", "c")
        lamer = lamer.Replace("what", "wut")
        lamer = lamer.Replace("why", "y")
        lamer = lamer.Replace("when", "wen")
        lamer = lamer.Replace("please", "pls")
        lamer = lamer.Replace("oo", "ew")
        lamer = lamer.Replace("oh", "o")
        lamer = lamer.Replace("om", "um")
        lamer = lamer.Replace("there", "their")
        lamer = lamer.Replace("theyre", "their")
        lamer = lamer.Replace("their", "there")
        lamer = lamer.Replace("like", "lyke")
        lamer = lamer.Replace("thanks", "thx")
        lamer = lamer.Replace("cause", "cuz")
        lamer = lamer.Replace("never", "nvr")
        lamer = lamer.Replace("give", "giv")
        lamer = lamer.Replace("are", "r")
        lamer = lamer.Replace("sorry", "sry")
        lamer = lamer.Replace("every", "evry")
        lamer = lamer.Replace("right", "rite")
        lamer = lamer.Replace("definitely", "def")
        lamer = lamer.Replace("address", "addy")
        lamer = lamer.Replace("pictures", "pics")
        lamer = lamer.Replace("picture", "pic")
        lamer = lamer.Replace("probably", "prolly")
        lamer = lamer.Replace("signature", "sig")
        lamer = lamer.Replace("god", "gawd")
        lamer = lamer.Replace("love", "luv")
        lamer = lamer.Replace("give me", "gimme")
        lamer = lamer.Replace("one", "1")
        lamer = lamer.Replace("anyone", "any1")
        lamer = lamer.Replace("private", "priv")
        lamer = lamer.Replace("message", "msg")
        lamer = lamer.Replace("break", "brake")
        lamer = lamer.Replace("banned", "bant")
        lamer = lamer.Replace("equals", "=")
        lamer = lamer.Replace("equal", "=")
        lamer = lamer.Replace("the", "teh")
        lamer = lamer.Replace("today", "2day")
        lamer = lamer.Replace("my", "mi")
        Return lamer
    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))
        TextBox10.Text = GoAolSpeak(TextBox9.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 = ""
        TextBox9.Text = ""
        TextBox10.Text = ""

    End Sub

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

    End Sub
End Class