full code no server connection set up yet just hwid and a text box all that is set in code
for time being
Imports System.IO
Imports System.Net
Imports System.Threading
Imports System.Management
Imports System.Security
Imports System.Security.Policy
Public Class Form1
Dim login As Integer
Dim confirm As Integer
Dim runlogin As Integer
Dim updateneeded As Integer
Dim firstlaunch As Integer
Dim confirmhwid As Integer
Dim updatecolor As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Check connection to website
Try
My.Computer.Network.Ping("website ipaddres here")
Catch
MsgBox("Error: Unable to connect to the website", vbCritical)
Application.Exit()
End Try
'Generate HWID
Dim hw As New clsComputerInfo
Dim cpu As String
Dim mb As String
Dim mac As String
Dim hwid As String
cpu = hw.GetProcessorId()
mb = hw.GetMotherboardID()
mac = hw.GetMACAddress()
hwid = cpu + mb + mac
Dim hwidEncrypted As String = Strings.UCase(hw.getMD5Hash(cpu & mb & mac))
TextBox1.Text = hwidEncrypted
'Local Version
Dim currentVerison As String
currentVerison = "1.0.0.0"
'Web Version
Dim address As String = "https://haxcore.net/forum/version.txt"
Dim client As WebClient = New WebClient()
Dim reader As StreamReader = New StreamReader(client.OpenRead(address))
updateneeded = 0
If My.Computer.FileSystem.FileExists("C:\temp\Nova\Nova.Hook") Then
Else
firstlaunch = 1
System.IO.Directory.CreateDirectory("C:\temp\Nova\")
My.Computer.FileSystem.WriteAllText("c:\temp\nova\Nova.Hook", "", False)
Dim ToHideDir As New System.IO.DirectoryInfo("C:\temp\Nova\")
ToHideDir.Attributes = IO.FileAttributes.Hidden
End If
'Dim pName As String = "Steam"
'Dim psList() As Process
'Try
'psList = Process.GetProcesses()
'For Each p As Process In psList
'If (pName = p.ProcessName) Then
'MsgBox("Steam is currently running! Please close steam before using the loader", MsgBoxStyle.Exclamation)
'Me.Close()
'End If
'Next p
'Catch ex As Exception
'MsgBox(ex.Message)
'End Try
'Dim appPath As String = My.Application.Info.DirectoryPath
'If appPath.Contains("C:\") Then
'MsgBox("The loader must be run from a USB! Please move the loader's .exe onto a USB then execute!")
'Me.Close()
'End If
End Sub
' Confirm HWID
Private Class clsComputerInfo
'Get processor ID
Friend Function GetProcessorId() As String
Dim strProcessorID 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()
strProcessorID = info("processorID").ToString()
Next
Return strProcessorID
End Function
' Get MAC Address
Friend Function GetMACAddress() As String
Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Dim MacAddress As String = String.Empty
For Each mo As ManagementObject In moc
If (MacAddress.Equals(String.Empty)) Then
If CBool(mo("IPEnabled")) Then MacAddress = mo("MacAddress").ToString()
mo.Dispose()
End If
MacAddress = MacAddress.Replace(":", String.Empty)
Next
Return MacAddress
End Function
' Get Motherboard ID
Friend Function GetMotherboardID() As String
Dim strMotherboardID As String = String.Empty
Dim query As New SelectQuery("Win32_BaseBoard")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
strMotherboardID = info("product").ToString()
Next
Return strMotherboardID
End Function
' Encrypt HWID
Friend Function getMD5Hash(ByVal strToHash As String) As String
Dim md5Obj As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
bytesToHash = md5Obj.ComputeHash(bytesToHash)
Dim strResult As String = ""
For Each b As Byte In bytesToHash
strResult += b.ToString("x2")
Next
Return strResult
End Function
End Class
End Class
for time being
Imports System.IO
Imports System.Net
Imports System.Threading
Imports System.Management
Imports System.Security
Imports System.Security.Policy
Public Class Form1
Dim login As Integer
Dim confirm As Integer
Dim runlogin As Integer
Dim updateneeded As Integer
Dim firstlaunch As Integer
Dim confirmhwid As Integer
Dim updatecolor As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Check connection to website
Try
My.Computer.Network.Ping("website ipaddres here")
Catch
MsgBox("Error: Unable to connect to the website", vbCritical)
Application.Exit()
End Try
'Generate HWID
Dim hw As New clsComputerInfo
Dim cpu As String
Dim mb As String
Dim mac As String
Dim hwid As String
cpu = hw.GetProcessorId()
mb = hw.GetMotherboardID()
mac = hw.GetMACAddress()
hwid = cpu + mb + mac
Dim hwidEncrypted As String = Strings.UCase(hw.getMD5Hash(cpu & mb & mac))
TextBox1.Text = hwidEncrypted
'Local Version
Dim currentVerison As String
currentVerison = "1.0.0.0"
'Web Version
Dim address As String = "https://haxcore.net/forum/version.txt"
Dim client As WebClient = New WebClient()
Dim reader As StreamReader = New StreamReader(client.OpenRead(address))
updateneeded = 0
If My.Computer.FileSystem.FileExists("C:\temp\Nova\Nova.Hook") Then
Else
firstlaunch = 1
System.IO.Directory.CreateDirectory("C:\temp\Nova\")
My.Computer.FileSystem.WriteAllText("c:\temp\nova\Nova.Hook", "", False)
Dim ToHideDir As New System.IO.DirectoryInfo("C:\temp\Nova\")
ToHideDir.Attributes = IO.FileAttributes.Hidden
End If
'Dim pName As String = "Steam"
'Dim psList() As Process
'Try
'psList = Process.GetProcesses()
'For Each p As Process In psList
'If (pName = p.ProcessName) Then
'MsgBox("Steam is currently running! Please close steam before using the loader", MsgBoxStyle.Exclamation)
'Me.Close()
'End If
'Next p
'Catch ex As Exception
'MsgBox(ex.Message)
'End Try
'Dim appPath As String = My.Application.Info.DirectoryPath
'If appPath.Contains("C:\") Then
'MsgBox("The loader must be run from a USB! Please move the loader's .exe onto a USB then execute!")
'Me.Close()
'End If
End Sub
' Confirm HWID
Private Class clsComputerInfo
'Get processor ID
Friend Function GetProcessorId() As String
Dim strProcessorID 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()
strProcessorID = info("processorID").ToString()
Next
Return strProcessorID
End Function
' Get MAC Address
Friend Function GetMACAddress() As String
Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Dim MacAddress As String = String.Empty
For Each mo As ManagementObject In moc
If (MacAddress.Equals(String.Empty)) Then
If CBool(mo("IPEnabled")) Then MacAddress = mo("MacAddress").ToString()
mo.Dispose()
End If
MacAddress = MacAddress.Replace(":", String.Empty)
Next
Return MacAddress
End Function
' Get Motherboard ID
Friend Function GetMotherboardID() As String
Dim strMotherboardID As String = String.Empty
Dim query As New SelectQuery("Win32_BaseBoard")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
strMotherboardID = info("product").ToString()
Next
Return strMotherboardID
End Function
' Encrypt HWID
Friend Function getMD5Hash(ByVal strToHash As String) As String
Dim md5Obj As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
bytesToHash = md5Obj.ComputeHash(bytesToHash)
Dim strResult As String = ""
For Each b As Byte In bytesToHash
strResult += b.ToString("x2")
Next
Return strResult
End Function
End Class
End Class
[img=0x0]https://hackmyass.files.wordpress.com/2011/01/hackers.jpg[/img]