Imports System.Management
Imports System.Security.Cryptography
Imports System.IO

Module Module1
    Dim PatchServer As New PatchServer
    Dim webclient As New Net.WebClient
    Sub Main()
        If System.Environment.GetCommandLineArgs().Contains("GetProcID") = True Then
            Console.ForegroundColor = ConsoleColor.Yellow
            Console.WriteLine("Please check your folder for the file ""proc.txt""")
            My.Computer.FileSystem.WriteAllText("proc.txt", ProcessorId, False)
        End If
        Dim s As String = DecryptPHP(webclient.DownloadString("http://pure-games.org/fs/fsallow.php?No=4"))
        Console.WriteLine(s.Split("#")(0) & vbTab & DateTime.UtcNow.ToString("yyyy-MM-dd") & vbTab & s.Split("#")(2) & vbTab & s.Split("#")(3) & vbTab & ProcessorId())
        If s.Split("#")(0) = DateTime.Now.ToString("yyyy-MM-dd") AndAlso s.Split("#")(2) = 1 AndAlso s.Split("#")(3) = ProcessorId() Then
            Console.Title = "Patch Server v2 (Project 6 BETA) - Welcome " & s.Split("#")(1)
            PatchServer.Main()
        Else
            Console.ForegroundColor = ConsoleColor.Red
            Console.WriteLine("Authentication failed!")
            System.Threading.Thread.Sleep(5000)
            Environment.Exit(0)
        End If
    End Sub

    Private Function ProcessorId() As String
        Dim strProcessor As String = String.Empty
        Dim query As New SelectQuery("Win32_processor")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject
        For Each info In search.Get()
            strProcessor = info("processorId").ToString()
        Next
        Return strProcessor
    End Function

    Private Function DecryptPHP(S As String)
        ' Keys required for Symmetric encryption / decryption
        Dim rijnKey As Byte() = System.Text.Encoding.UTF8.GetBytes(Left("f:Jjr9PmY:4ge_#.Rgm_HmV9?qawExy@", 32))
        Dim rijnIV As Byte() = {&H31, &H55, &H94, &H69, &H59, &H66, &H87, &H48, &H52, &H36, &H96, &H52, &H96, &H98, &H75, &H42}
        If S = "" Then
            Return S
        End If
        Dim cipherText As Byte()
        Try
            cipherText = Convert.FromBase64String(S.Replace("BIN00101011BIN", "+"))
        Catch ex As Exception
            Return S
        End Try
        Dim rijn As SymmetricAlgorithm = SymmetricAlgorithm.Create()
        Try
            Using msDecrypt As New MemoryStream(cipherText)
                Using csDecrypt As New CryptoStream(msDecrypt, rijn.CreateDecryptor(rijnKey, rijnIV), CryptoStreamMode.Read)
                    Using srDecrypt As New StreamReader(csDecrypt)
                        S = srDecrypt.ReadToEnd()
                    End Using
                End Using
            End Using
        Catch E As CryptographicException
            Return S
        End Try
        Return S
    End Function

End Module