Warning! We are currently in recovery mode. The complete archive is not available.

Sample details: a3b25b3b59e7d1155684db4b0d9797c5 --

Hashes
MD5: a3b25b3b59e7d1155684db4b0d9797c5
SHA1: d5ba3a10154351b71ec07418c0ed26f0015c8be6
SHA256: 9772902ae07e59ee6a02a0bf03d69d2eb02b1bda90aeb0d1d6760a9a3fb01e61
SSDEEP: 768:LpL4xsIE+CbKjgGfam8SVtHfvPayUhlDVtBtAbPFunRy8HJamgUWXAqeNzHR1jeI:Vuand6BSqI
Details
File Type: UTF-8
Yara Hits
CuckooSandbox/embedded_win_api | YRP/domain | YRP/IP | YRP/url | YRP/contentis_base64 |
Parent Files
f8da1e713c1a8fedfb722048bdbeb0fd
Source
http://103.68.190.250/Sources//ActiveMalwares/DiamondRAT/License.vb
Strings
		Imports System
Imports System.Net
Imports System.Text
Imports System.IO
Imports System.IO.Compression
Imports System.Diagnostics
Imports System.Reflection
Imports System.Windows.Forms
Imports System.ComponentModel
Imports System.Security.Cryptography
Imports System.Collections.Generic
Imports System.Runtime.InteropServices
Imports System.Net.Security
Imports System.Security
Imports System.Security.Cryptography.X509Certificates
''' <summary>
''' License Loader, Version: 2.0.0.7, Changed: 09/05/2013
''' </summary>
Friend NotInheritable Class License
#Region " ReadOnly Properties "
    ReadOnly Property Username As String
        Get
            Dim Data As Object = Instance.GetMethod("GetUsername").Invoke(Nothing, Nothing)
            Return DirectCast(Data, String)
        End Get
    End Property
    Private _ProductVersion As Version
    ReadOnly Property ProductVersion As Version
        Get
            If _ProductVersion Is Nothing Then
                _ProductVersion = New Version(Application.ProductVersion)
            End If
            Return _ProductVersion
        End Get
    End Property
    ReadOnly Property ExecutablePath As String
        Get
            Dim Data As Object = Instance.GetMethod("GetExecutablePath").Invoke(Nothing, Nothing)
            Return DirectCast(Data, String)
        End Get
    End Property
    ReadOnly Property GlobalMessage As String
        Get
            Dim Data As Object = Instance.GetMethod("GetMessage").Invoke(Nothing, Nothing)
            Return DirectCast(Data, String)
        End Get
    End Property
    ReadOnly Property IPAddress As IPAddress
        Get
            Dim Data As Object = Instance.GetMethod("GetIPAddress").Invoke(Nothing, Nothing)
            Return DirectCast(Data, IPAddress)
        End Get
    End Property
    ReadOnly Property ExpirationDate As Date
        Get
            Dim Data As Object = Instance.GetMethod("GetExpiration").Invoke(Nothing, Nothing)
            Return DirectCast(Data, Date)
        End Get
    End Property
    ReadOnly Property TimeRemaining As TimeSpan
        Get
            Dim Data As Object = Instance.GetMethod("GetRemaining").Invoke(Nothing, Nothing)
            Return DirectCast(Data, TimeSpan)
        End Get
    End Property
    ReadOnly Property LicenseType As LicenseType
        Get
            Dim Data As Object = Instance.GetMethod("GetLicenseType").Invoke(Nothing, Nothing)
            Return DirectCast(Data, LicenseType)
        End Get
    End Property
    ReadOnly Property Points As Integer
        Get
            Dim Data As Object = Instance.GetMethod("GetPoints").Invoke(Nothing, Nothing)
            Return DirectCast(Data, Integer)
        End Get
    End Property
    ReadOnly Property UnlimitedTime As Boolean
        Get
            Dim Data As Object = Instance.GetMethod("GetUnlimitedTime").Invoke(Nothing, Nothing)
            Return DirectCast(Data, Boolean)
        End Get
    End Property
    ReadOnly Property UpdateAvailable As Boolean
        Get
            Dim Data As Object = Instance.GetMethod("GetUpdateAvailable").Invoke(Nothing, Nothing)
            Return DirectCast(Data, Boolean)
        End Get
    End Property
    ReadOnly Property UsersCount As Integer
        Get
            Dim Data As Object = Instance.GetMethod("GetUsersCount").Invoke(Nothing, Nothing)
            Return DirectCast(Data, Integer)
        End Get
    End Property
    ReadOnly Property UsersOnline As Integer
        Get
            Dim Data As Object = Instance.GetMethod("GetUsersOnline").Invoke(Nothing, Nothing)
            Return DirectCast(Data, Integer)
        End Get
    End Property
    ReadOnly Property GUID As String
        Get
            Dim Data As Object = Instance.GetMethod("GetGUID").Invoke(Nothing, Nothing)
            Return DirectCast(Data, String)
        End Get
    End Property
    ReadOnly Property PublicToken As String
        Get
            Dim Data As Object = Instance.GetMethod("GetPublicToken").Invoke(Nothing, Nothing)
            Return DirectCast(Data, String)
        End Get
    End Property
    ReadOnly Property PrivateKey As Byte()
        Get
            Dim Data As Object = Instance.GetMethod("GetPrivateKey").Invoke(Nothing, Nothing)
            Return DirectCast(Data, Byte())
        End Get
    End Property
    ReadOnly Property Client As WebClient
        Get
            Dim Data As Object = Instance.GetMethod("GetClient").Invoke(Nothing, Nothing)
            Return DirectCast(Data, WebClient)
        End Get
    End Property
    ReadOnly Property News As NewsPost()
        Get
            Dim Data As Object = Instance.GetMethod("GetNews").Invoke(Nothing, Nothing)
            Dim Values As Object() = DirectCast(Data, Object())
            Dim Section As Integer
            Dim T As New List(Of NewsPost)
            For I As Integer = 0 To Values.Length - 1 Step 3
                Section = I * 3
                T.Add(New NewsPost(Values(I), Values(I + 1), Values(I + 2)))
            Next
            Return T.ToArray()
        End Get
    End Property
#End Region
#Region " Initialize Properties "
    Private _ID As String
    Property ID() As String
        Get
            Return _ID
        End Get
        Set(ByVal value As String)
            _ID = value
        End Set
    End Property
    Private _Catch As Boolean = True
    Property [Catch]() As Boolean
        Get
            Return _Catch
        End Get
        Set(ByVal value As Boolean)
            _Catch = value
        End Set
    End Property
    Private _DisableUpdates As Boolean
    Property DisableUpdates() As Boolean
        Get
            Return _DisableUpdates
        End Get
        Set(ByVal value As Boolean)
            _DisableUpdates = value
        End Set
    End Property
    Private _RunHook As GenericDelegate
    Property RunHook() As GenericDelegate
        Get
            Return _RunHook
        End Get
        Set(ByVal value As GenericDelegate)
            _RunHook = value
        End Set
    End Property
    Private _BanHook As GenericDelegate
    Property BanHook() As GenericDelegate
        Get
            Return _BanHook
        End Get
        Set(ByVal value As GenericDelegate)
            _BanHook = value
        End Set
    End Property
    Private _RenewHook As GenericDelegate
    Property RenewHook() As GenericDelegate
        Get
            Return _RenewHook
        End Get
        Set(ByVal value As GenericDelegate)
            _RenewHook = value
        End Set
    End Property
    Private _Protection As RuntimeProtection
    Property Protection() As RuntimeProtection
        Get
            Return _Protection
        End Get
        Set(ByVal value As RuntimeProtection)
            _Protection = value
        End Set
    End Property
    Private _ValidateCore As Boolean = True
    Property ValidateCore As Boolean
        Get
            Return _ValidateCore
        End Get
        Set(ByVal value As Boolean)
            _ValidateCore = value
        End Set
    End Property
#End Region
#Region " Public Methods "
    Sub Initialize(ByVal programID As String)
        ID = programID
        Initialize()
    End Sub
    Sub Initialize()
        If LicenseGlobal.LicenseInitialize Then Return
        LicenseGlobal.LicenseInitialize = True
        If String.IsNullOrEmpty(ID) Then
            ErrorKill("Unable to initialize due to missing Net Seal ID.")
            Return
        End If
        ServicePointManager.Expect100Continue = False
        ServicePointManager.DefaultConnectionLimit = 5
        Try
            WC = New CookieClient()
            Dim Common As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData)
            LocationPath = Path.Combine(Common, "Nimoru")
            LicenseLocation = Path.Combine(LocationPath, "LicenseSE")
            GizmoDllLocation = Path.Combine(LocationPath, "GizmoDll")
            GizmoLocation = Path.Combine(LocationPath, "GizmoSE")
            OverrideSSL() '--BEGIN OVERRIDE--
            DownloadChecksums()
            DownloadComponents()
            RestoreSSL() '--END OVERRIDE--
            Endpoint = Checksums(5)
            ValidateSignature()
            Instance.GetMethod("SetID").Invoke(Nothing, New Object() {ID})
            Instance.GetMethod("SetCatch").Invoke(Nothing, New Object() {[Catch]})
            Instance.GetMethod("SetDisableUpdates").Invoke(Nothing, New Object() {DisableUpdates})
            Instance.GetMethod("SetRunHook").Invoke(Nothing, New Object() {RunHook})
            Instance.GetMethod("SetBanHook").Invoke(Nothing, New Object() {BanHook})
            Instance.GetMethod("SetRenewHook").Invoke(Nothing, New Object() {RenewHook})
            Instance.GetMethod("SetScan").Invoke(Nothing, New Object() {DirectCast(Protection, Byte)})
        Catch ex As Exception
            Dim T As New StringBuilder
            T.AppendLine(Date.UtcNow.ToString)
            T.AppendLine()
            T.AppendLine(ex.Message)
            T.AppendLine(ex.StackTrace)
            File.WriteAllText("loader.log", T.ToString)
            ErrorKill("Unable to continue due to an error. Exception written to 'loader.log' file.")
            Return
        End Try
        Try
            Instance.GetMethod("RunWE").Invoke(Nothing, New Object() {Version, ProductVersion, Endpoint})
        Catch
            ErrorKill("Unable to initialize license file.")
        End Try
    End Sub
    Sub ShowAccount()
        Instance.GetMethod("ShowAccount").Invoke(Nothing, Nothing)
    End Sub
    Function Encrypt(ByVal data As String) As String
        InitializeRm()
        Dim R As Byte() = Encoding.UTF8.GetBytes(data)
        Dim O As Byte() = Encryptor.TransformFinalBlock(R, 0, R.Length)
        Dim U(O.Length + 3) As Byte
        Buffer.BlockCopy(BitConverter.GetBytes(data.Length), 0, U, 0, 4)
        Buffer.BlockCopy(O, 0, U, 4, O.Length)
        Return Convert.ToBase64String(U)
    End Function
    Function Decrypt(ByVal data As Byte()) As Byte()
        InitializeRm()
        Dim Size As Integer = BitConverter.ToInt32(data, 0)
        Dim O As Byte() = Decryptor.TransformFinalBlock(data, 4, data.Length - 4)
        Dim U(Size - 1) As Byte
        Buffer.BlockCopy(O, 0, U, 0, Size)
        Return U
    End Function
    'NOTE: If String.IsNullOrEmpty() get new posts from License.News.
    Function GetPostMessage(ByVal postID As Integer) As String
        Dim Data As Object = Instance.GetMethod("GetPostMessage").Invoke(Nothing, New Object() {postID})
        Return DirectCast(Data, String)
    End Function
    Function GetVariable(ByVal name As String) As String
        Dim Data As Object = Instance.GetMethod("GetVariable").Invoke(Nothing, New Object() {name})
        Return DirectCast(Data, String)
    End Function
    Function SpendPoints(ByVal count As Integer) As Boolean
        Dim Data As Object = Instance.GetMethod("SpendPoints").Invoke(Nothing, New Object() {count})
        Return DirectCast(Data, Boolean)
    End Function
    Sub InstallUpdates()
        Instance.GetMethod("InstallUpdates").Invoke(Nothing, Nothing)
    End Sub
    Sub BanCurrentUser(ByVal reason As String)
        Instance.GetMethod("BanCurrentUser").Invoke(Nothing, New Object() {reason})
    End Sub
#End Region
#Region " System Declarations "
    'IMPORTANT: DO NOT CHANGE THIS!
    Private Version As New Version("2.0.0.6")
    Private Instance As Type
    Private WC As CookieClient
    Private LocationPath As String
    Private LicenseLocation As String
    Private GizmoDllLocation As String
    Private GizmoLocation As String
    Private Checksums As String()
    Private Endpoint As String
    Private Const Domain1 As String = "http://seal.nimoru.com/Base/"
    Private Const Domain2 As String = "https://s3.amazonaws.com/nimoru/"
    Private Const PublicKey As String = "BgIAAAAiAABEU1MxAAQAAKVlurdZMaHymNk04yRy3VGj0Bhf6gGIBsGr1zk42LrdnwYLfvn7MBAiYoCH2cD07M/HuM6NW1WqJQVF2omwH5S211wfvBCutU92RxXldmfvd06l8eQqmppztYIrXdxmW0BRlosBKPM5ms6YXZnoMKseAoqZ6Ajza8U9QCJMkSHSR+O23EoGj9V+7xwkCoYHklFtLJzERB6y/DW1BCCHhLblzpFz+mht1CD6xAi2QBNY7vZcWdbqo+ZLT4y7sw8jU61liYBuZLA/t+6KHhoIwZ+NIErsCHW5RD9ln5VpMC66wBCcY594ZTIManIuvmpw4eQaUXZPoMogf29gJgJSolaDg5iP1XDqzOTPu9RdsHe3R1ZaNglrL05zoTM94Zkl5KT+bPAUC99kGrEDmNipe6tj8FwoOTNNaTaOvWZlXTtAfaxqGV47nxKfabgxEl08n0c3PBJEjUZzJ4chwQ2Ex2A5uYBgRukcmKmRmdwIphHq0IwdoxS1+6HSwXxg1d3EEAoxJ75R1eSXF+cXOeC7d/U2UY0tqwAAAMvTiz5uMzpBQIYdNcbYnrJwHObk"
    Private ReadOnly Property UID As String
        Get
            Return "?uid=" & BitConverter.ToString(BitConverter.GetBytes(Environment.TickCount)).Replace("-", "")
        End Get
    End Property
    Private Encryptor As ICryptoTransform
    Private Decryptor As ICryptoTransform
    Private RmInitialize As Boolean
    <EditorBrowsable(EditorBrowsableState.Advanced)> _
    Delegate Sub GenericDelegate()
    <DllImport("kernel32.dll", EntryPoint:="ExitProcess")> _
    Private Shared Sub ExitProcess(ByVal code As UInteger)
    End Sub
    <DllImport("mscoree.dll", EntryPoint:="StrongNameSignatureVerificationEx", CharSet:=CharSet.Unicode)> _
    Private Shared Function StrongNameSignatureVerificationEx( _
    ByVal fileName As String, _
    ByVal force As Boolean, _
    ByRef genuine As Boolean) As Boolean
    End Function
    <DllImport("mscoree.dll", PreserveSig:=False, EntryPoint:="CLRCreateInstance")> _
    Private Shared Function CreateInstance( _
      <MarshalAs(UnmanagedType.LPStruct)> ByVal cid As Guid, _
      <MarshalAs(UnmanagedType.LPStruct)> ByVal iid As Guid) As <MarshalAs(UnmanagedType.Interface)> Object
    End Function
#End Region
#Region " System Methods "
    Private Sub DownloadChecksums()
        Try
            Checksums = WC.DownloadString(Domain1 & "checksumSE.php" & UID).Split(Char.MinValue)
        Catch ex As Exception
            Threading.Thread.Sleep(500)
            Checksums = WC.DownloadString(Domain2 & "checksumSE.txt" & UID).Split(Convert.ToChar(124))
        End Try
    End Sub
    Private Sub DownloadComponents()
        Dim Hash As String
        If Not Directory.Exists(LocationPath) Then
            Directory.CreateDirectory(LocationPath)
        End If
        If Not File.Exists(GizmoDllLocation) Then
            DownloadGizmoDll()
        End If
        Hash = MD5File(GizmoDllLocation)
        If Not Hash = Checksums(1) Then
            DownloadGizmoDll()
        End If
        If Not File.Exists(GizmoLocation) Then
            DownloadGizmo()
        End If
        Hash = MD5File(GizmoLocation)
        If Not Hash = Checksums(2) Then
            DownloadGizmo()
        End If
        If Not File.Exists(LicenseLocation) Then
            DownloadLicense()
        End If
        Hash = MD5File(LicenseLocation)
        If Not Hash = Checksums(3) Then
            DownloadLicense()
        End If
    End Sub
    Private Sub ValidateSignature()
        If ValidateCore AndAlso Not CheckCore() Then
            Throw New InvalidDataException("Core framework files are not trusted.")
            Return
        End If
        Dim M As FileStream = File.OpenRead(LicenseLocation)
        Dim R As New BinaryReader(M)
        Dim FullData As Byte() = R.ReadBytes(CInt(M.Length))
        M.Position = 2
        Dim Sign As Byte() = R.ReadBytes(40)
        Dim Data As Byte() = R.ReadBytes(CInt(M.Length - Sign.Length - 2))
        R.Close()
        Dim DSA As New DSACryptoServiceProvider
        DSA.ImportCspBlob(Convert.FromBase64String(PublicKey))
        If DSA.VerifyData(Data, Sign) Then
            Instance = Assembly.Load(FullData).GetType("Share")
        Else
            Throw New InvalidDataException("Unable to validate signature.")
        End If
    End Sub
    Private Sub DownloadGizmoDll()
        Dim Data As Byte() = WC.DownloadData(Checksums(0) & Checksums(1) & ".co")
        Data = Decompress(Data)
        Dim Hash As String = MD5(Data)
        If Not Checksums(1) = Hash Then
            Fail(GizmoDllLocation)
            Return
        End If
        File.WriteAllBytes(GizmoDllLocation, Data)
    End Sub
    Private Sub DownloadGizmo()
        Dim Data As Byte() = WC.DownloadData(Checksums(0) & Checksums(2) & ".co")
        Data = GizmoDecompress(Data)
        Dim Hash As String = MD5(Data)
        If Not Checksums(2) = Hash Then
            Fail(GizmoLocation)
            Return
        End If
        File.WriteAllBytes(GizmoLocation, Data)
    End Sub
    Private Sub DownloadLicense()
        Dim PI As New ProcessStartInfo
        PI.Arguments = String.Format("""{0}"" ""{1}"" {2} -s", Checksums(0) & Checksums(3) & ".co", LicenseLocation, Checksums(3))
        PI.FileName = GizmoLocation
        PI.UseShellExecute = False
        Dim P As Process = Process.Start(PI)
        If Not P.WaitForExit(20000) Then
            Environment.Exit(0)
        End If
        If Not P.ExitCode = 7788 Then
            Environment.Exit(0)
        End If
    End Sub
    Private Sub Fail(ByVal path As String)
        File.Delete(path)
        ErrorKill("Failed to initialize all the required components.")
    End Sub
    Private Sub ErrorKill(ByVal message As String)
        MessageBox.Show(message, "Loader Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Environment.Exit(0)
        ExitProcess(0)
    End Sub
    Private Function Decompress(ByVal data As Byte()) As Byte()
        Dim Size As Integer = BitConverter.ToInt32(data, 0)
        Dim U(Size - 1) As Byte
        Dim M As New MemoryStream(data, 4, data.Length - 4)
        Dim D As New DeflateStream(M, CompressionMode.Decompress, False)
        D.Read(U, 0, U.Length)
        D.Close()
        M.Close()
        Return U
    End Function
    Private Function GizmoDecompress(ByVal data As Byte()) As Byte()
        Dim GizmoDll As Byte() = File.ReadAllBytes(GizmoDllLocation)
        Dim G As MethodInfo = Assembly.Load(GizmoDll).GetType("H").GetMethod("Decompress")
        Return DirectCast(G.Invoke(Nothing, New Object() {data}), Byte())
    End Function
    Private Function MD5(ByVal data As Byte()) As String
        Dim H As New MD5CryptoServiceProvider
        Return HashToString(H.ComputeHash(data))
    End Function
    Private Function MD5File(ByVal path As String) As String
        Dim F As New FileStream(path, FileMode.Open, FileAccess.Read)
        Dim H As New MD5CryptoServiceProvider
        Dim Hash As String = HashToString(H.ComputeHash(F))
        F.Close()
        Return Hash
    End Function
    Private Function HashToString(ByVal data As Byte()) As String
        Return BitConverter.ToString(data).ToLower().Replace("-", String.Empty)
    End Function
    Private Sub InitializeRm()
        If RmInitialize Then Return
        RmInitialize = True
        Dim Rm As New RijndaelManaged
        Rm.Padding = PaddingMode.Zeros
        Rm.Mode = CipherMode.CBC
        Rm.Key = PrivateKey
        Rm.IV = PrivateKey
        Encryptor = Rm.CreateEncryptor()
        Decryptor = Rm.CreateDecryptor()
    End Sub
    Private SN As IStrongName
    Private Function CheckCore() As Boolean
        Dim Base As String = RuntimeEnvironment.GetRuntimeDirectory()
        Dim Build As String = RuntimeEnvironment.GetSystemVersion()
        Dim HostCLR As Boolean = Int32.Parse(Build(1).ToString()) >= 4
        If HostCLR Then
            Dim CID_META_HOST As New Guid("9280188D-0E8E-4867-B30C-7FA83884E8DE")
            Dim CID_STRONG_NAME As New Guid("B79B0ACD-F5CD-409B-B5A5-A16244610B92")
            Dim Meta As IMeta = DirectCast(CreateInstance(CID_META_HOST, GetType(IMeta).GUID), IMeta)
            Dim Runtime As IRuntime = DirectCast(Meta.GetRuntime(Build, GetType(IRuntime).GUID), IRuntime)
            SN = DirectCast(Runtime.GetInterface(CID_STRONG_NAME, GetType(IStrongName).GUID), IStrongName)
        End If
        Dim File1 As String = Path.ChangeExtension(Path.Combine(Base, "mscorlib"), "dll")
        Dim File2 As String = Path.ChangeExtension(Path.Combine(Base, "system"), "dll")
        Dim Token As Byte() = New Byte() {183, 122, 92, 86, 25, 52, 224, 137}
        If Not IsTrusted(File1, Token, HostCLR) Then Return False
        If Not IsTrusted(File2, Token, HostCLR) Then Return False
        Return True
    End Function
    Private Function IsTrusted(ByVal path As String, ByVal token As Byte(), ByVal hostCLR As Boolean) As Boolean
        Dim Genuine As Boolean
        If hostCLR Then
            If Not (SN.StrongNameSignatureVerificationEx(path, True, Genuine) = 0 AndAlso Genuine) Then Return False
        Else
            If Not (StrongNameSignatureVerificationEx(path, True, Genuine) AndAlso Genuine) Then Return False
        End If
        Dim PublicToken As Byte() = Assembly.LoadFile(path).GetName().GetPublicKeyToken()
        If PublicToken Is Nothing OrElse Not PublicToken.Length = 8 Then Return False
        For I As Integer = 0 To 7
            If Not PublicToken(I) = token(I) Then Return False
        Next
        Return True
    End Function
    Private SSLCallback As RemoteCertificateValidationCallback
    Private Function ValidateSSL(ByVal sender As Object, ByVal cert As X509Certificate, ByVal chain As X509Chain, ByVal errors As SslPolicyErrors) As Boolean
        Return True
    End Function
    Private Sub OverrideSSL()
        SSLCallback = ServicePointManager.ServerCertificateValidationCallback
        ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateSSL)
    End Sub
    Private Sub RestoreSSL()
        ServicePointManager.ServerCertificateValidationCallback = SSLCallback
    End Sub
#End Region
    <InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("D332DB9E-B9B3-4125-8207-A14884F53216")> _
    Private Interface IMeta
        Function GetRuntime(ByVal version As String, <MarshalAs(UnmanagedType.LPStruct)> ByVal iid As Guid) As <MarshalAs(UnmanagedType.Interface)> Object
    End Interface
    <InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("BD39D1D2-BA2F-486A-89B0-B4B0CB466891")> _
    Private Interface IRuntime
        Sub M1()
        Sub M2()
        Sub M3()
        Sub M4()
        Sub M5()
        Sub M6()
        Function GetInterface(<MarshalAs(UnmanagedType.LPStruct)> cid As Guid, <MarshalAs(UnmanagedType.LPStruct)> iid As Guid) As <MarshalAs(UnmanagedType.Interface)> Object
    End Interface
    <InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("9FD93CCF-3280-4391-B3A9-96E1CDE77C8D")> _
    Private Interface IStrongName
        Sub M1()
        Sub M2()
        Sub M3()
        Sub M4()
        Sub M5()
        Sub M6()
        Sub M7()
        Sub M8()
        Sub M9()
        Sub M10()
        Sub M11()
        Sub M12()
        Sub M13()
        Sub M14()
        Sub M15()
        Sub M16()
        Sub M17()
        Sub M18()
        Sub M19()
        Sub M20()
        Function StrongNameSignatureVerificationEx(ByVal filePath As String, ByVal force As Boolean, ByRef genuine As Boolean) As Integer
    End Interface
End Class
Friend Module LicenseGlobal
    Friend Seal As New License
    Friend LicenseInitialize As Boolean
End Module
Friend Enum LicenseType As Byte
    Free = 0
    Bronze = 1
    Silver = 2
    Gold = 3
    Platinum = 4
    Diamond = 5
End Enum
<Flags()> _
Friend Enum RuntimeProtection As Byte
    None = 0
    Debuggers = 1
    DebuggersEx = 2
    Timing = 4
    Parent = 8
    FullScan = 15
    VirtualMachine = 16
End Enum
Friend Structure NewsPost
    Private ReadOnly _ID As Integer
    ReadOnly Property ID() As Integer
        Get
            Return _ID
        End Get
    End Property
    Private ReadOnly _Name As String
    ReadOnly Property Name() As String
        Get
            Return _Name
        End Get
    End Property
    Private ReadOnly _Time As Date
    ReadOnly Property Time() As Date
        Get
            Return _Time
        End Get
    End Property
    Sub New(ByVal id As Object, ByVal name As Object, ByVal time As Object)
        _ID = DirectCast(id, Integer)
        _Name = DirectCast(name, String)
        _Time = DirectCast(time, Date)
    End Sub
End Structure
Friend NotInheritable Class CookieClient
    Inherits WebClient
    Private Request As HttpWebRequest
    Public Cookies As New CookieContainer
    Protected Overrides Function GetWebRequest(ByVal address As Uri) As WebRequest
        Request = DirectCast(MyBase.GetWebRequest(address), HttpWebRequest)
        Request.Timeout = 8000
        Request.ReadWriteTimeout = 30000
        Request.KeepAlive = False
        Request.CookieContainer = Cookies
        Request.Proxy = Nothing
        Return Request
    End Function
    Sub ClearCookies()
        Cookies = New CookieContainer
    End Sub
End Class