Hackerize XS and Encool2 by Anon?M ID

'Hackerize XS and Encool2 by Anon?M ID
'online version
'http://crypo.in.ua/tools/eng_hackerize.php
'http://crypo.in.ua/tools/eng_encool.php


'put 2 TextBoxes on you'r form
'http://s22.postimg.org/qjvwayzip/screenshot_1369830811.png
'and put the code on TextBox1 (input box) textchanged event


'Hackerize XS
If TextBox1.Text = "" Then
            TextBox2.Text = ""
        Else
            Try
                Dim str As String, Newstr As String = Nothing
                str = TextBox1.Text
                For Each StrText As String In str
                    Select Case True
                        Case StrText = "A" : StrText = "Λ" : Case StrText = "B" : StrText = "ß" : Case StrText = "C" : StrText = "↻" : Case StrText = "D" : StrText = "Ð" : Case StrText = "E" : StrText = "☰" : Case StrText = "F" : StrText = "∲" : Case StrText = "G" : StrText = "ç" : Case StrText = "H" : StrText = "╫" : Case StrText = "I" : StrText = "¡" : Case StrText = "J" : StrText = "¿" : Case StrText = "K" : StrText = "├" : Case StrText = "L" : StrText = "↑" : Case StrText = "M" : StrText = "ღ" : Case StrText = "N" : StrText = "∏" : Case StrText = "O" : StrText = "☐" : Case StrText = "P" : StrText = "þ" : Case StrText = "Q" : StrText = "¶" : Case StrText = "R" : StrText = "┏" : Case StrText = "S" : StrText = "§" : Case StrText = "T" : StrText = "⊥" : Case StrText = "U" : StrText = "ü" : Case StrText = "V" : StrText = "ƴ" : Case StrText = "W" : StrText = "₪" : Case StrText = "X" : StrText = "✕" : Case StrText = "Y" : StrText = "¥" : Case StrText = "Z" : StrText = "ᶾ" : Case StrText = "a" : StrText = "Λ" : Case StrText = "b" : StrText = "ß" : Case StrText = "c" : StrText = "↻" : Case StrText = "d" : StrText = "Ð" : Case StrText = "e" : StrText = "☰" : Case StrText = "f" : StrText = "∲" : Case StrText = "g" : StrText = "ç" : Case StrText = "h" : StrText = "╫" : Case StrText = "i" : StrText = "¡" : Case StrText = "j" : StrText = "¿" : Case StrText = "k" : StrText = "├" : Case StrText = "l" : StrText = "↑" : Case StrText = "m" : StrText = "ღ" : Case StrText = "n" : StrText = "∏" : Case StrText = "o" : StrText = "☐" : Case StrText = "p" : StrText = "þ" : Case StrText = "q" : StrText = "¶" : Case StrText = "r" : StrText = "┏" : Case StrText = "s" : StrText = "§" : Case StrText = "t" : StrText = "⊥" : Case StrText = "u" : StrText = "ü" : Case StrText = "v" : StrText = "ƴ" : Case StrText = "w" : StrText = "₪" : Case StrText = "x" : StrText = "✕" : Case StrText = "y" : StrText = "¥" : Case StrText = "z" : StrText = "ᶾ"
                        Case StrText = "Λ" : StrText = "A" : Case StrText = "ß" : StrText = "B" : Case StrText = "↻" : StrText = "C" : Case StrText = "Ð" : StrText = "D" : Case StrText = "☰" : StrText = "E" : Case StrText = "∲" : StrText = "F" : Case StrText = "ç" : StrText = "G" : Case StrText = "╫" : StrText = "H" : Case StrText = "¡" : StrText = "I" : Case StrText = "¿" : StrText = "J" : Case StrText = "├" : StrText = "K" : Case StrText = "↑" : StrText = "L" : Case StrText = "ღ" : StrText = "M" : Case StrText = "∏" : StrText = "N" : Case StrText = "☐" : StrText = "O" : Case StrText = "þ" : StrText = "P" : Case StrText = "¶" : StrText = "Q" : Case StrText = "┏" : StrText = "R" : Case StrText = "§" : StrText = "S" : Case StrText = "⊥" : StrText = "T" : Case StrText = "ü" : StrText = "U" : Case StrText = "ƴ" : StrText = "V" : Case StrText = "₪" : StrText = "W" : Case StrText = "✕" : StrText = "X" : Case StrText = "¥" : StrText = "Y" : Case StrText = "ᶾ" : StrText = "Z" : Case StrText = "Λ" : StrText = "a" : Case StrText = "ß" : StrText = "b" : Case StrText = "↻" : StrText = "c" : Case StrText = "Ð" : StrText = "d" : Case StrText = "☰" : StrText = "e" : Case StrText = "∲" : StrText = "f" : Case StrText = "ç" : StrText = "g" : Case StrText = "╫" : StrText = "h" : Case StrText = "¡" : StrText = "i" : Case StrText = "¿" : StrText = "j" : Case StrText = "├" : StrText = "k" : Case StrText = "↑" : StrText = "l" : Case StrText = "ღ" : StrText = "m" : Case StrText = "∏" : StrText = "n" : Case StrText = "☐" : StrText = "o" : Case StrText = "þ" : StrText = "p" : Case StrText = "¶" : StrText = "q" : Case StrText = "┏" : StrText = "r" : Case StrText = "§" : StrText = "s" : Case StrText = "⊥" : StrText = "t" : Case StrText = "ü" : StrText = "u" : Case StrText = "ƴ" : StrText = "v" : Case StrText = "₪" : StrText = "w" : Case StrText = "✕" : StrText = "x" : Case StrText = "¥" : StrText = "y" : Case StrText = "ᶾ" : StrText = "z"
                        Case True
                    End Select
                    Newstr &= StrText
                Next
                TextBox2.Text = Newstr
            Catch ex As Exception

            End Try
        End If


'============================================
'Encool2
If TextBox1.Text = "" Then
            TextBox2.Text = ""
        Else
            Try
                Dim str As String, Newstr As String = Nothing
                str = TextBox1.Text
                For Each StrText As String In str
                    Select Case True
                        Case StrText = "A" : StrText = "Å" : Case StrText = "B" : StrText = "ℬ" : Case StrText = "C" : StrText = "ℭ" : Case StrText = "D" : StrText = "Ð" : Case StrText = "E" : StrText = "€" : Case StrText = "F" : StrText = "∱" : Case StrText = "G" : StrText = "Ḡ" : Case StrText = "H" : StrText = "♓" : Case StrText = "I" : StrText = "ℑ" : Case StrText = "J" : StrText = "J" : Case StrText = "K" : StrText = "Ḳ" : Case StrText = "L" : StrText = "ℒ" : Case StrText = "M" : StrText = "♏" : Case StrText = "N" : StrText = "ℕ" : Case StrText = "O" : StrText = "Ѻ" : Case StrText = "P" : StrText = "Ṕ" : Case StrText = "Q" : StrText = "ℚ" : Case StrText = "R" : StrText = "ℜ" : Case StrText = "S" : StrText = "$" : Case StrText = "T" : StrText = "†" : Case StrText = "U" : StrText = "Ü" : Case StrText = "V" : StrText = "Ⅴ" : Case StrText = "W" : StrText = "₩" : Case StrText = "X" : StrText = "✖" : Case StrText = "Y" : StrText = "Ẏ" : Case StrText = "Z" : StrText = "ℤ" : Case StrText = "a" : StrText = "∀" : Case StrText = "b" : StrText = "ß" : Case StrText = "c" : StrText = "☪" : Case StrText = "d" : StrText = "∂" : Case StrText = "e" : StrText = "Σ" : Case StrText = "f" : StrText = "ƒ" : Case StrText = "g" : StrText = "❡" : Case StrText = "h" : StrText = "ℌ" : Case StrText = "i" : StrText = "ї" : Case StrText = "j" : StrText = "נ" : Case StrText = "k" : StrText = "к" : Case StrText = "l" : StrText = "£" : Case StrText = "m" : StrText = "ღ" : Case StrText = "n" : StrText = "п" : Case StrText = "o" : StrText = "ø" : Case StrText = "p" : StrText = "ρ" : Case StrText = "q" : StrText = "ⓠ" : Case StrText = "r" : StrText = "я" : Case StrText = "s" : StrText = "ş" : Case StrText = "t" : StrText = "☂" : Case StrText = "u" : StrText = "∪" : Case StrText = "v" : StrText = "√" : Case StrText = "w" : StrText = "♆" : Case StrText = "x" : StrText = "✕" : Case StrText = "y" : StrText = "¥" : Case StrText = "z" : StrText = "ẕ"
                        Case StrText = "Å" : StrText = "A" : Case StrText = "ℬ" : StrText = "B" : Case StrText = "ℭ" : StrText = "C" : Case StrText = "Ð" : StrText = "D" : Case StrText = "€" : StrText = "E" : Case StrText = "∱" : StrText = "F" : Case StrText = "Ḡ" : StrText = "G" : Case StrText = "♓" : StrText = "H" : Case StrText = "ℑ" : StrText = "I" : Case StrText = "J" : StrText = "J" : Case StrText = "Ḳ" : StrText = "K" : Case StrText = "ℒ" : StrText = "L" : Case StrText = "♏" : StrText = "M" : Case StrText = "ℕ" : StrText = "N" : Case StrText = "Ѻ" : StrText = "O" : Case StrText = "Ṕ" : StrText = "P" : Case StrText = "ℚ" : StrText = "Q" : Case StrText = "ℜ" : StrText = "R" : Case StrText = "$" : StrText = "S" : Case StrText = "†" : StrText = "T" : Case StrText = "Ü" : StrText = "U" : Case StrText = "Ⅴ" : StrText = "V" : Case StrText = "₩" : StrText = "W" : Case StrText = "✖" : StrText = "X" : Case StrText = "Ẏ" : StrText = "Y" : Case StrText = "ℤ" : StrText = "Z" : Case StrText = "∀" : StrText = "a" : Case StrText = "ß" : StrText = "b" : Case StrText = "☪" : StrText = "c" : Case StrText = "∂" : StrText = "d" : Case StrText = "Σ" : StrText = "e" : Case StrText = "ƒ" : StrText = "f" : Case StrText = "❡" : StrText = "g" : Case StrText = "ℌ" : StrText = "h" : Case StrText = "ї" : StrText = "i" : Case StrText = "נ" : StrText = "j" : Case StrText = "к" : StrText = "k" : Case StrText = "£" : StrText = "l" : Case StrText = "ღ" : StrText = "m" : Case StrText = "п" : StrText = "n" : Case StrText = "ø" : StrText = "o" : Case StrText = "ρ" : StrText = "p" : Case StrText = "ⓠ" : StrText = "q" : Case StrText = "я" : StrText = "r" : Case StrText = "ş" : StrText = "s" : Case StrText = "☂" : StrText = "t" : Case StrText = "∪" : StrText = "u" : Case StrText = "√" : StrText = "v" : Case StrText = "♆" : StrText = "w" : Case StrText = "✕" : StrText = "x" : Case StrText = "¥" : StrText = "y" : Case StrText = "ẕ" : StrText = "z"
                        Case True
                    End Select
                    Newstr &= StrText
                Next
                TextBox2.Text = Newstr
            Catch ex As Exception

            End Try
        End If