Thread: Generate hardware ID

Code:

'code by Carb0n
'http://somesite.org

Option Explicit
Dim reg As Object, Pid As Variant, GUID As Variant
Dim LENGUID As Long, LENPID As Long, TempS As String
Dim x As Long, SPID As String, SGUID As String, HWID As String
Const regPID = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductId"
Const regGUID = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\MachineGuid"

Public Function CreateID() As String
On Error Resume Next

Set reg = CreateObject("wscript.shell")
Pid = Replace(reg.regread(regPID), "-", "")
GUID = Replace(reg.regread(regGUID), "-", "")

LENPID = Len(Pid)
LENGUID = Len(GUID)
    
For x = 1 To LENPID
TempS = Hex((Asc(Mid$(Pid, x, 1)) Xor 23) Xor 14)
SPID = SPID & TempS
Next x
SPID = StrReverse(SPID)

For x = 1 To LENGUID
TempS = Hex((Asc(Mid$(GUID, x, 1)) Xor 23) Xor 14)
SGUID = SGUID & TempS
Next x
SGUID = StrReverse(SGUID)
HWID = StrReverse(SGUID & SPID)
CreateID = HWID
End Function

Private Sub Form_Load()
Text1.Text = CreateID()
End Sub

weee!!! nice src!! thanks.

thankz for the source but do you have any idea on how to make this in vb.net sir?

O_O i didnt know carb0n was registerd here

nice source bro
thanks

sik... just code it in vb6 than open the files in vb.net... btw this was on another website. But it had more stuff in it. It had a lot of shit coming with it. I ripped it and repacked it. So im happy but thanks

Originally Posted by l33t sk1l1s

sik... just code it in vb6 than open the files in vb.net... btw this was on another website. But it had more stuff in it. It had a lot of shit coming with it. I ripped it and repacked it. So im happy but thanks

wtf are you on about ?