[TUT][VB.NET] Hardware ID Registration

[steph777]

1:
First get a website you can host two files on, like 000webhos*****m.
2:
This is a VB.net code, make sure you have add reference to System.Management.dll

Imports System.Management
Imports System.Net

Public Class Form1
    Public cpuInfo As String = String.Empty
    Public hwid As String = cpuInfo
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim wr As New WebClient

        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
        hwid = cpuInfo
        Dim url = wr.DownloadString("https://YOURWEBSITE.com/HID3.php?id=" & hwid)
        Dim parts = Split(url, "|", , CompareMethod.Text)

        If Not parts(0) = "OK" Then
            MsgBox("Bad HWID verification, application will close")
            Application.Exit()
        End If
        wr.Dispose()
    End Sub
End Class

Now you got a application to check if your hardware id is registered!

3:
Lets do some PHP programming.
<?php

if ($_GET['id'] != ''){
$puntero = fopen('HID3.txt', 'r');
while(!feof($puntero)){
$base = explode('|', fgets($puntero));
if($base[0] == $_GET['id']){
fclose($puntero);
$checksum = 0;
for ($i=24; $i<35; $i++) {
$checksum += $_GET['id']{$i} * $i;
}
echo 'OK|'.$base[1].'|'.$checksum;
exit;
}
}
fclose($puntero);
echo "<error>ERROR</error>";
}else{
echo "<error>ERROR</error>";
}

?>


Create a new php-file and paste this in and save it as: HID3.php

4:
Create a textfile and paste this in:

HWID|Member| Comment.

Save it as: HID3.txt and upload to your website.

If you want to add more hardware id's to textfile do this:

HWID|Member| Comment.
HWID|Member| Comment.
HWID|Member| Comment.

Just add more lines below each other!

To get your hardware id, use this vb.net code

Imports System.Management


        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

        TextBox1.Text = cpuInfo

Credits:
ColdIce
Me

Have Fun!

[Julma Henri]

What this actually does ?

[steph777]

What this actually does ?

Read the whole thing and you'll find out.

[Julma Henri]

Read the whole thing and you'll find out.

Okay .

[Melodia]

Yay, VBCrap and PHP useless Leeching in the Coders Lounge.

And I said I had faith in this section.
At least post it in VBThing or just don't post useless leeched thingies that aren't constructive at all for development oe anything, just basic knowledge on fugly .Net ; My Opinion.

[freedompeace]

Shoo, wrong section you !

[Hassan]

Yay, VBCrap and PHP useless Leeching in the Coders Lounge.

And I said I had faith in this section.
At least post it in VBThing or just don't post useless leeched thingies that aren't constructive at all for development oe anything, just basic knowledge on fugly .Net ; My Opinion.

Lol, hates .NET to the max !!

[Melodia]

Lol, hates .NET to the max !!

Some controls, methods, crap and stuff are useful, Whole thing is Micrapsoft renaming things and making a thing dependant of more crap and Virtualization, Dunnlike.

[Hassan]

Some controls, methods, crap and stuff are useful, Whole thing is Micrapsoft renaming things and making a thing dependant of more crap and Virtualization, Dunnlike.

Useful is useful, but agree with the dependency thing tho !!

[steph777]

Useful is useful, but agree with the dependency thing tho !!

Yay i'm useful for something

[Hassan]

Yay i'm useful for something

I was talking to mel. You should just GTFO with your useless tutorials. Post them in appropriate sections FFS !!!

[steph777]

I was talking to mel. You should just GTFO with your useless tutorials. Post them in appropriate sections FFS !!!

Now i'm not useful for nothin

[Hassan]

Now i'm not useful for nothin

We just requesting that post your leeched tutorials to tutorials section !!! You can be useful if you post there !!

[Void]

Daaaum, wrong section. Didn't you see a section called 'Visual Basic' or 'Tutorials' while scrolling down here?

[why06]

Now i'm not useful for nothin

It's not a big deal since you prbly weren't useful for much anyway. Look at it this way. Now you went from being not useful to a slight nuisance.