Imports System.Net
Imports System.Management


Public Class Form1
    Function GetHDSerial() As String
        Dim strHDSerial As String = String.Empty
        Dim index As Integer = 0
        Dim Data As String
        Dim query As New SelectQuery("Win32_DiskDrive")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject
        Try
            For Each info In search.Get()
                Data = info("SerialNumber")
                If Data.Contains(" ") Then
                    Return Data.Replace(" ", "")
                Else
                    Return Data
                End If
            Next
        Catch ex As Exception
            strHDSerial = "Error67"
        End Try
    End Function

    Dim GoAcesss As New WebClient
    Dim LinkServidor As String = "https://steelmain.000webhostapp.com/"
    Public DiasVIP As String
    Public HDVIP As String
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Resposta As String =
        GoAcesss.DownloadString(LinkServidor & "Seila.php?user=" &
        TextBox1.Text & "&pass=" & TextBox2.Text & "&hdi=" & AES_Encrypt(GetHDSerial(), 338))
        Label1.Text = Resposta
        If Resposta.Contains("OK") Then
            Dim Parte As Array
            Parte = Resposta.Split("|")
            If AES_Encrypt(GetHDSerial(), 338) = Parte(1).ToString.Replace(" ", "+") Then
                DiasVIP = Parte(2)
                HDVIP = Parte(1)
                Me.Hide()
                Liberado.ShowDialog()
            Else
                MsgBox("Esse PC não é o cadastrado na conta!")
            End If
        ElseIf Resposta.Contains("Acabou") Then
            MsgBox("Olá, infelizmente seus dias de vip acabaram!")
        ElseIf Resposta.Contains("Nao Cadastrado") Then
            MsgBox("Dados invalidos, ou usuario não cadastrado.")
        End If
    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label2.Text = "Invictus$DontCry"

    End Sub
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label2.ForeColor = Color.Black
        Timer1.Stop()
        Timer2.Start()
    End Sub