[Sleekz]

Hey guys,

today I'm releasing one of the first ever VB.net programs I made a couple years back in VB 2010, and it still works to this day. I originally made it for some customers I had for a project I was running at the time and I don't have a use for it anymore so if you need this for some sort of reason feel free to install it.

It just makes it a lot easier instead of digging thru the registry or w/e incase you need it for a blacklist of some sorts and yeah I know there are other means of getting it and a lot easier ways but as I said this was one of my first vb programs I made I feel like it could also be maybe useful for beginners and I'm currently working on a fully custom encrypted HWID authentication system so expect that pretty soon if you guys are interested at all.

Source code: Spoiler (Click to View)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label2.Visible = True
Label2.Text = "Checking HWID.. one moment."
Dim HWID As String = String.Empty
Dim mc As New ManagementClass("win32_processor")
Dim moc As ManagementObjectCollection = mc.GetInstances()
For Each mo As ManagementObject In moc
If HWID = "" Then
HWID = mo.Properties("processorID").Value.ToString()
Exit For
End If
Next
Label2.Text = "HWID Checked Successfully!"
Label3.Text = HWID
End Sub


Download & Virus scan Spoiler (Click to View)
http://www.mediafire.com/download/vdzlbz...hecker.exe

Virus scans:

http://virusscan.jotti.org/en/scanresult...f21217b864
https://www.virustotal.com/en/file/4ff8c...423183900/

[Nervo]

I don't want to say anything, I'm waiting for nathan's post 🤣

[CryptGetUserKey]

shit code.
Easy bypass.

HWID = mo.Properties("processorID").Value.ToString()

hook .ToString();

Bypassed.

[Sleekz]

shit code.
Easy bypass.

HWID = mo.Properties("processorID").Value.ToString()

hook .ToString();

Bypassed.

When did I say it was HWID authentication? its a checker. You're really stupid read the OP before commenting.

[CryptGetUserKey]

When did I say it was HWID authentication? its a checker. You're really stupid read the OP before commenting.

When did I say it's HWID Authentication. I just said shit code easy bypass.

As in you can bypass the HWID checker by hooking the .ToString method?

You're really fucking stupid. Read my post before commenting.

[Sleekz]

When did I say it's HWID Authentication. I just said shit code easy bypass.

As in you can bypass the HWID checker by hooking the .ToString method?

You're really fucking stupid. Read my post before commenting.

And please do tell, what would the point be in 'bypassing' it? All it does is outprint your HWID. nothing else lol.

[Nervo]

And please do tell, what would the point be in 'bypassing' it? All it does is outprint your HWID. nothing else lol.

Hwid is often used in login systems, that's why.

[CryptGetUserKey]

And please do tell, what would the point be in 'bypassing' it? All it does is outprint your HWID. nothing else lol.

Hey it's up to you to decide what you want to do with it. I'm just pointing it out.

[Malware]

Useless, more than one customer could easily have the same processorid, be creative instead of using this old shit. This code is so outdated it wasn't even worth releasing. Combined this with other unique serials/Ids and you will have an actual HWID. This really is not unique enough to be considered a HWID in my eyes.

[Sleekz]

Useless, more than one customer could easily have the same processorid, be creative instead of using this old shit. This code is so outdated it wasn't even worth releasing. Combined this with other unique serials/Ids and you will have an actual HWID. This really is not unique enough to be considered a HWID in my eyes.

today I'm releasing one of the first ever VB.net programs I made a couple years back in VB 2010

??? I thought I made it clear that I said I made this YEARS ago, and you're gonna tell me how outdated it is? What?

[nathan72389]

??? I thought I made it clear that I said I made this YEARS ago, and you're gonna tell me how outdated it is? What?

you did not make this.
this is the same copy and paste code that gets posted here two or three times a week.
it is them most used code on the internet when dealing with hwid related code.
i guess the other 500 people that have posted this on here and other websites were lying when they said that they made it also.
it must be awesome to have coded something that thousands of people are copying.

[Menalix]

IT's not unique and its slow as hell.

This is unique, and much faster.

Module Module1

Declare Sub HidD_GetHidGuid Lib "hid" (ByRef hidGuid As Guid) 'WinAPI to retrieve the Device Interface GUID
Declare Function GetVolumeInformationA Lib "kernel32" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As UInteger, ByRef lpVolumeSerialNumber As UInteger, ByRef lpFileSystemFlags As UInteger, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As UInteger) As Boolean 'WinAPI to retrieve volumeserial number

Private Function GenerateHwid() As String
Dim IntSerialNum As UInteger = Nothing 'Sets a variable ready to contain the serial number as an integer
Dim IntGuID As Guid = Nothing 'Sets a GUID object ready to hold the GUID.
GetVolumeInformationA(System.IO.Path.GetPathRoot(Environment.SystemDirectory), Nothing, 255, IntSerialNum, Nothing, Nothing, Nothing, 255) 'Retrieves the volume serial
HidD_GetHidGuid(IntGuID) 'Retrieves the GUID
Return Md5Hash(IntGuID.ToString & IntSerialNum.ToString) 'Hashes serialnumber and guid after converted into a string.
End Function

Private Function Md5Hash(ByVal inputstr As String) As String
Using md5object As New System.Security.Cryptography.MD5CryptoServiceProvider() 'Selects the object we're going to use.
Dim BytesToHash() As Byte = md5object.ComputeHash(Text.Encoding.ASCII.GetBytes(inputstr)) 'Makes a byte array containing our hashed input string.
Dim Output As String = Nothing 'Sets the Output string variable ready.
For Each b As Byte In BytesToHash 'We loop trough and take every hashed byte and converts it to a hex number.
Output += Hex(b)
Next
Return Output.ToLower 'Returns the hashed string to the caller.
End Using
End Function

Sub Main()
Console.WriteLine(GenerateHwid)
Console.Read()
End Sub

End Module