Discord Server Red Security Twitter Donation to Red Security Red Security Youtube Channel Red Security Tumblr Profile
Login or Register to Hide ads and Accessing all features on the forum
Thread Rating:
  • 5 Vote(s) - 2.8 Average
  • 1
  • 2
  • 3
  • 4
  • 5
vb.net Hwid
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
            My.Computer.Network.Ping("website ipaddres here")
            MsgBox("Error: Unable to connect to the website", vbCritical)
        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 = ""

        '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
            firstlaunch = 1
            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
        '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)
        'End If
        'Next p

        'Catch ex As Exception
        '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!")
        '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()
            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()
                End If
                MacAddress = MacAddress.Replace(":", String.Empty)
            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()
            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")
            Return strResult
        End Function
    End Class

End Class
Thank you virus Wink
* Thankful to Allah *

Possibly Related Threads…
Thread Author Replies Views Last Post
  hwid but think something is off not enough charters viruss 0 677 08-13-2020, 05:22 PM
Last Post: viruss

Users browsing this thread: 1 Guest(s)