+- 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] Simple HWID System [Source] (/showthread.php?tid=1306559)
Simple HWID System [Source] - FileX - May 20, 2011
Hello,
This is a really simple HWID System
You need:
-2 forms
-a fileave account (www.fileave.com) with a user.txt, pass.txt and hwid.txt file
-common sense
Forms:
[IMG]http://dl.dropbox.com/u/14409961/hwidpics.png[/IMG]
For the second form put this as code for the button:
-Copy HWID
PHP Code
<?php
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cpuInfo 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 cpuInfo = "" Then
cpuInfo = mo.Properties("processorID").Value.ToString()
Exit For
End If
Next
Try
My.Computer.Clipboard.SetText(cpuInfo)
MsgBox("Copied")
Catch ex As Exception
MsgBox("Failed to copy")
End Try
End Sub
-Check HWID
PHP Code
<?php
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cpuInfo 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 cpuInfo = "" Then
cpuInfo = mo.Properties("processorID").Value.ToString()
Exit For
End If
Next
Dim wc3 As New System.Net.WebClient
Dim http3 As String = wc3.DownloadString("http://youracc.fileave.com/hwid.txt")
If http3.Contains(cpuInfo) Then
MsgBox("Your HWID is currently active"
,MsgBoxStyle.Information, "Check")
Else
MsgBox("Your HWID is not registered", MsgBoxStyle.Information, "Check")
End If
End Sub
For the first form you put this for the login button:
PHP Code
<?php
If TextBox1.Text = "" Or TextBox1.Text = "" Then
MsgBox("Please enter Username/Password")
End If
Dim cpuInfo 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 cpuInfo = "" Then
cpuInfo = mo.Properties("processorID").Value.ToString()
Exit For
End If
Next
Dim wc3 As New System.Net.WebClient
Dim user As String = wc3.DownloadString("http://youracc.fileave.com/user.txt")
Dim pass As String = wc3.DownloadString("http://youracc.fileave.compass.txt")
Dim hwid As String = wc3.DownloadString("http://youracc.fileave.com/hwid.txt")
If user.Contains(":" & TextBox1.Text & ":") And pass.Contains(":" & TextBox2.Text & ":") And hwid.Contains(cpuInfo) Then
Me.Hide()
form1.Show()
Else
MsgBox("You don't have access")
End If
VERY IMPORTANT:
-Don't forget to change the links
-If you want to make an account for someone, add :username: in the user.txt file, :password: in the pass.txt file and just the HWID in hwid.txt
Why ":"? Because otherwise you just enter a letter and you can login :p
~FileX
* - Arron XR - May 20, 2011
Nice share man thank you :)
* - ubbelol - May 20, 2011
Oh look it's this thread again... Same code copied over and over with different GUIs.
No, sorry.
* - .bLaZeD - May 20, 2011
Yea, give credits. Not just me, but many others released similar code a while back just like this.
* - Doctor07 - May 20, 2011
How is this different to the thousands of other threads like this?
Don't just repost a load of shit.
Make it different.
* - FileX - May 20, 2011
I'm sorry I wanted to share something to the community I guess..
* - Doctor07 - May 20, 2011
(May 20, 2011 12:08 PM)FileX Wrote: I'm sorry I wanted to share something to the community I guess..
Ok man, well there is nothing wrong with wanting to do so,
but when you do so don't bother unless its unique, otherwise you
get people trashing etc etc :D
So from now on just create something 'new' or 'different' to everything else.
I also noticed you stole my friends sig and used it as your Form Background :L
* - BaussHacker - May 20, 2011
Nobody cares if it's leeched or not. 90% of the internet is leeched.
Go whine some more.
Good share OP.
* - ii_SNiPEzZ_xX - May 20, 2011
ManagementClass Is Not Defined
ManagementObjectCollection Is Not Defined
ManagementObject Is Not Defined
mo Is Not Declared
^^ There The Errors i Get In Check HWID ^^ HELP?
* - FileX - May 20, 2011
(May 20, 2011 12:22 PM)ii_SNiPEzZ_xX Wrote: ManagementClass Is Not Defined
ManagementObjectCollection Is Not Defined
ManagementObject Is Not Defined
mo Is Not Declared
^^ There The Errors i Get In Check HWID ^^ HELP?
Put "Imports System.Management" on top of your code.
* - ii_SNiPEzZ_xX - May 20, 2011
(May 20, 2011 12:26 PM)FileX Wrote: Put "Imports System.Management" on top of your code.
iv got that there and red lines am still there
* - FileX - May 20, 2011
(May 20, 2011 12:54 PM)ii_SNiPEzZ_xX Wrote: iv got that there and red lines am still there
Add it as reference (Imports System.Management)
* - ii_SNiPEzZ_xX - May 20, 2011
(May 20, 2011 01:08 PM)FileX Wrote: Add it as reference (Imports System.Management)
ok thanks but mo is still not declared
* - Doctor07 - May 20, 2011
(May 20, 2011 01:23 PM)ii_SNiPEzZ_xX Wrote: ok thanks but mo is still not declared
Please learn the basics of VB.NET Before attempting to use code provided by members, doing so will prevent you from sounding alot like a retard.
The solution is you need to declare mo.
Dim mo As etcetcetc
(May 20, 2011 12:16 PM)BaussHacker Wrote: Nobody cares if it's leeched or not. 90% of the internet is leeched.
Go whine some more.
Good share OP.
1) I Never said it was leeched
2) I care when things get reposted, because it wastes my time looking at it and therefore completely defeats the object of coming on this forum to read new topics, just the same old shit.
3) you need to take your tongue of his asshole.
* - `Unreal - May 20, 2011
Thanks for the share man. I will put this too good use.