[FileX]

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]

Nice share man thank you :)

[ubbelol]

Oh look it's this thread again... Same code copied over and over with different GUIs.

No, sorry.

[.bLaZeD]

Yea, give credits. Not just me, but many others released similar code a while back just like this.

[Doctor07]

How is this different to the thousands of other threads like this?
Don't just repost a load of shit.

Make it different.

[FileX]

I'm sorry I wanted to share something to the community I guess..

[Doctor07]

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]

Nobody cares if it's leeched or not. 90% of the internet is leeched.

Go whine some more.

Good share OP.

[ii_SNiPEzZ_xX]

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]

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]

Put "Imports System.Management" on top of your code.

iv got that there and red lines am still there

[FileX]

iv got that there and red lines am still there

Add it as reference (Imports System.Management)

[ii_SNiPEzZ_xX]

Add it as reference (Imports System.Management)

ok thanks but mo is still not declared

[Doctor07]

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

---

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]

Thanks for the share man. I will put this too good use.