VB.NET ภาษามันแปลกๆ ดูให้ทีครับ มันเป็นภาษาอะไรไม่รู้ช่วยมาแปลให้ทีครับ

Imports MySql.Data.MySqlClient
Imports System.Text
Imports System.Security.Cryptography
Public Class Main
    Dim ÃÁÅ As MySqlConnection = New MySqlConnection("server=final-dsz.net;user id=sjh084_discuz;password=ImX2ru3h;database=sjh084_discuz;")
    Dim ÁÁÀ As MySqlCommand
    Dim ÍÏÍ As MySqlDataReader
    Private Sub ÕÓÖ(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ÃÁÅ.Open()
        ÁÁÀ = New MySqlCommand
        ÁÁÀ.CommandText = ÎÏÏ((147 >> -66))
        ÁÁÀ.Parameters.Add(New MySqlParameter(ÎÏÏ((282 >> -56)), TextBox1.Text))
        ÁÁÀ.Connection = ÃÁÅ
        ÍÏÍ = ÁÁÀ.ExecuteReader
        If ÍÏÍ.HasRows() Then
            ÍÏÍ.Read()
            Dim ÖÒÔ As String = ÍÏÍ((302 Xor 292))
            ÁÁÀ = New MySqlCommand
            ÁÁÀ.CommandText = ÎÏÏ((339 Xor 337))
            ÁÁÀ.Parameters.Add(New MySqlParameter(ÎÏÏ((156 >> -281)), TextBox1.Text))
            ÁÁÀ.Parameters.Add(New MySqlParameter(ÎÏÏ((12 >> -126)), ÍÍÍ(ÍÍÍ(TextBox2.Text) & ÖÒÔ)))
            ÁÁÀ.Connection = ÃÁÅ
            ÍÏÍ.Close()
            ÍÏÍ = ÁÁÀ.ExecuteReader()
            If ÍÏÍ.HasRows Then
                Programs.Username = TextBox1.Text
                Programs.Show()
                Me.Close()
            Else
                MsgBox(ÎÏÏ((262 >> -474)), MsgBoxStyle.Critical, ÎÏÏ((179 >> -59)))
            End If
        Else
            MsgBox(ÎÏÏ((199 >> 261)), MsgBoxStyle.Critical, ÎÏÏ((122 Xor 127)))
        End If
        ÃÁÅ.Close()
    End Sub
    Public Function ÍÍÍ(ByVal ÍÎÌ As String) As String
        Dim ÔÕÔ As New ASCIIEncoding
        Dim ÀÂÀ As String = Nothing
        Dim ÈÉÉ() As Byte = ÔÕÔ.GetBytes(ÍÎÌ)
        Dim ÏÌÎ As New MD5CryptoServiceProvider
        Dim ÉËË() As Byte = ÏÌÎ.ComputeHash(ÈÉÉ)
        For Each ËËÈ As Byte In ÉËË
            ÀÂÀ = ÀÂÀ & ËËÈ.ToString(ÎÏÏ((489 >> 454)))
        Next
        Return ÀÂÀ
    End Function
    Private Sub ÓÔÓ(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        AcceptButton = Button1
    End Sub

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

    End Sub
End Class
Module ÎÎÎ
    Public ÎÏÏ As String() = ÎÎÎ(New String() _
    {"U2VsZWN0ICogZnJvbSBkaXNjdXp1Y2VudGVyX21lbWJlcnMgd2hlcmUgVXNlcm5hbWUgPSA/VXNlcm5hbWU=", "P1VzZXJuYW1l", "U2VsZWN0ICogZnJvbSBkaXNjdXp1Y2VudGVyX21lbWJlcnMgd2hlcmUgVXNlcm5hbWUgPSA/VXNlcm5hbWUgYW5kIFBhc3N3b3JkID0gP1Bhc3N3b3Jk", _
    "P1Bhc3N3b3Jk", "V3JvbmcgVXNlcm5hbWUgb3IgUGFzc3dvcmQ=", "UGxlYXNlIHRyeSBhZ2Fpbg==", _
    "V3JvbmcgVXNlcm5hbWU=", "eDI="})
    Private Function ÎÎÎ(ByVal ÎÏÏ As String()) As String()
        Dim ÉËÈ As New System.Text.UTF8Encoding
        Dim ÔÒÔ As New System.Collections.Generic.List(Of String)
        For ÏÎÍ As Integer = (138 >> -67) To ÎÏÏ.Length - (17 >> -124)
            ÔÒÔ.Add(ÉËÈ.GetString(Convert.FromBase64String(ÎÏÏ(ÏÎÍ))))
        Next
        Return ÔÒÔ.ToArray
    End Function
End Module