Discord Server Twitter Donation Youtube Google+
Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
vb.net Hwid
#1
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
[img=0x0]https://hackmyass.files.wordpress.com/2011/01/hackers.jpg[/img]
Reply
#2
Thank you virus Wink

[Image: 4Kxb0N1.gif]
We Are Anonymous, We Are Legion, We Do not Forgive, We do not Forget
Expect Us
Reply




Users browsing this thread: 1 Guest(s)