vb.net Hwid - Printable Version +- Red Security (https://redsecurity.info/cc) +-- Forum: Programming (https://redsecurity.info/cc/forumdisplay.php?fid=5) +--- Forum: Visual Basic & .NET Framework (https://redsecurity.info/cc/forumdisplay.php?fid=17) +---- Forum: Basic VB.net (https://redsecurity.info/cc/forumdisplay.php?fid=42) +---- Thread: vb.net Hwid (/showthread.php?tid=480) |
vb.net Hwid - viruss - 03-29-2018 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 RE: vb.net Hwid - Mr.Kurd - 03-29-2018 Thank you virus |