+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] HWID Checker (Find your own HWID faster) (/showthread.php?tid=4672239)
HWID Checker (Find your own HWID faster) - Sleekz - Feb 5, 2015
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)
Download & Virus scan Spoiler (Click to View)
* - Nervo - Feb 5, 2015
I don't want to say anything, I'm waiting for nathan's post 🤣
* - CryptGetUserKey - Feb 5, 2015
shit code.
Easy bypass.
HWID = mo.Properties("processorID").Value.ToString()
hook .ToString();
Bypassed.
* - Sleekz - Feb 5, 2015
(Feb 5, 2015 06:03 PM)CryptGetUserKey Wrote: 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 - Feb 5, 2015
(Feb 5, 2015 06:20 PM)Sleekz Wrote: 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 - Feb 5, 2015
(Feb 5, 2015 06:23 PM)CryptGetUserKey Wrote: 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 - Feb 5, 2015
(Feb 5, 2015 06:32 PM)Sleekz Wrote: 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 - Feb 5, 2015
(Feb 5, 2015 06:32 PM)Sleekz Wrote: 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 - Feb 5, 2015
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 - Feb 5, 2015
(Feb 5, 2015 06:51 PM)Venomous Net Wrote: 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.
(Feb 5, 2015 05:53 PM)Sleekz Wrote: 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 - Feb 5, 2015
(Feb 5, 2015 07:04 PM)Sleekz Wrote: ??? 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 - Feb 5, 2015
IT's not unique and its slow as hell.
This is unique, and much faster.
Quote: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