+- 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] [VB8-10][TuT] How to make a custom HWID Program [TuT] (/showthread.php?tid=1355771)
Pages: Pages
1
2
[VB8-10][TuT] How to make a custom HWID Program [TuT] - .Ganja - Jun 6, 2011
Project 1
What you will need :
FileAve Account
Visual Basic
This thing called a brain :)
Start by creating a Windows Form Application, and add the following:
3 Labels
3 TextBox's
2 Buttons
Put the following name with the buttons, labels, and TextBox's
Label 1 - Username:
Label 2 - Password:
Label 3 - HWID:
TextBox1 - "" (Don't put anything in the TextBox)
TextBox2 - "" (Don't put anything in the TextBox)
TextBox3 - "" (Read Only - True) (Don't put anything in the TextBox)
Button 1 - Login
Button 2 - Get HWID
Now it should look like this :
[img]http://img23.imageshack.us/img23/9241/login1o.png[/img]
Double click Form 1, erase everything and add this code :
Code
Imports System.Management
Public Class Login
Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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
TextBox3.Text = cpuInfo
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
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://youraccountname.fileave.com/HWID/user.txt")
Dim pass As String = wc3.DownloadString("http://youraccountname.fileave.com/HWID/pass.txt")
Dim hwid As String = wc3.DownloadString("http://youraccountname.fileave.com/HWID/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
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
End ClassProject 2
Add a Windows Form to Project 1.
1 Label
2 Buttons
1 TextBox
Put the following name with the buttons, labels, and TextBox's
Label 1 - HWID:
Button 1 - Check HWID
Button 2 - Copy HWID
TextBox 1 - "" (Don't put anything in the TextBox)
Now it should look like this :
[img]http://img89.imageshack.us/img89/5204/login2q.png[/img]
Double click Form 1, erase everything and add this code :
Code
Imports System.Management
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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
End Sub
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
Clipboard.SetDataObject(cpuInfo)
MsgBox("Copied")
Catch ex As Exception
MsgBox("Failed to copy")
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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://youraccountname.fileave.com/HWID/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
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End ClassAfter your done with EVERYTHING above do the following :
Note : In the code you will see where it says "http://youraccountname.fileave.com/HWID/" Replace "youraccountname" with your account name. This will make sense when we move on.
Step 1 : Go to FileAve.com and Login.
Step 2 : Hit "Upload" and make a new directory called "HWID"
Step 3 : Go in that Directory and click "Create Text File"
Step 4 : Make one HWID.txt, pass.txt, user.txt
Step 5 : When you make all of them your done! Then when you want to register someones application just simply get them to tell you their HWID then register it with FileAve. Get him/her to tell you the username and password they want, then put their HWID in the "HWID.txt" file. Put the username they want in "user.txt" and the password they want in "pass.txt" When you get someones username you always put the username in between the : : (Example :username:) and the password is the same (Example :password:) the password they want will go between the :: . If you need any help private message me and ill help you, thanks.
%99.99 Credits go to FileX
* - Ethernal Five - Jun 6, 2011
This is very basic and easy to crack, but usefull if you want to improve it ^^
* - supa - Jun 6, 2011
(Jun 6, 2011 08:33 AM)uitklapbare eekhoorn Wrote: This is very basic and easy to crack, but usefull if you want to improve it ^^
Yea a simple redirect will let you in.
* - TwilightSpurkle - Jun 6, 2011
Nice Copy-Pasted tutorial!
* - .Ganja - Jun 6, 2011
I didn't copy and paste? Give me the thread then... If I copied and paste then I wouldn't have any fucking bold or code in it. Think bro. And stop trashing my thread.
* - TwilightSpurkle - Jun 6, 2011
(Jun 6, 2011 08:54 AM)T-Boner Wrote: I didn't copy and paste? Give me the thread then... If I copied and paste then I wouldn't have any fucking bold or code in it. Think bro. And stop trashing my thread.
You copied code:
PHP Code
<?php
MsgBox("Copied")
Catch ex As Exception
MsgBox("Failed to copy")
End Try
* - .Ganja - Jun 6, 2011
ROFL, Funny bro, so I can't say Failed to copy? Bro, you mad?
* - FileX - Jun 6, 2011
Tbh, this is the almost the same as my post..
https://hackforums.net/showthread.php?tid=1306559
* - ΔDemon - Jun 6, 2011
(Jun 6, 2011 09:08 AM)FileX Wrote: Tbh, this is the almost the same as my post..
https://hackforums.net/showthread.php?tid=1306559
Your post is the same as almost 10 others, so don't feel left out.
* - Deceptive - Jun 6, 2011
This is stupid, why can't you just put it in one text file and split it?
* - Coleak - Jun 6, 2011
Why... Why don't you take a picture of the code instead of pasteing it into the thread (thus making the user actually have to do some work...)
* - .Ganja - Jun 6, 2011
Omfg, w/e then delete the fucking thread.
* - .bLaZeD - Jun 6, 2011
Thanks, this has never been posted ever before.
* - Deceptive - Jun 6, 2011
(Jun 6, 2011 12:13 PM).bLaZeD Wrote: Thanks, this has never been posted ever before.
@Off-topic: .bLaZeD lost main PC D: I got caught drinking<3
* - Perplexity - Jun 6, 2011
TBone, I know you copied and pasted this whole thing.
Yesterday you were posting shitty threads about WebBrowsers, now suddenly a HWID System??