Thread: HWID Spoofer

Results 1 to 7 of 7
  1. #1
    paradoxcod4's Avatar
    Join Date
    Oct 2010
    Gender
    male
    Posts
    19
    Reputation
    10
    Thanks
    8

    HWID Spoofer

    Code:
    Imports System.Management
    Imports System.Net
    Public Class Form1
        Dim cpuInfo As String = String.Empty
        Dim mc As New ManagementClass("win32_processor")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        Public Shared Function rc4(ByVal message As String, ByVal password As String) As String
            Dim i As Integer = 0, j As Integer = 0, cipher As New System.Text.StringBuilder
            Dim returnCipher As String = String.Empty
            Dim sbox As Integer() = New Integer(256) {}
            Dim key As Integer() = New Integer(256) {}
    
            Dim intLength As Integer = password.Length, a As Integer = 0
            While a <= 255
                Dim ctmp As Char = (password.Substring((a Mod intLength), 1).ToCharArray()(0))
                key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
                sbox(a) = a
                System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
            End While
    
            Dim x As Integer = 0, b As Integer = 0
            While b <= 255
                x = (x + sbox(b) + key(b)) Mod 256
                Dim tempSwap As Integer = sbox(b)
                sbox(b) = sbox(x)
                sbox(x) = tempSwap
                System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
            End While
            a = 1
            While a <= message.Length
                Dim itmp As Integer = 0
                i = (i + 1) Mod 256
                j = (j + sbox(i)) Mod 256
                itmp = sbox(i)
                sbox(i) = sbox(j)
                sbox(j) = itmp
                Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)
                Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)
                itmp = Asc(ctmp)
                Dim cipherby As Integer = itmp Xor k
                cipher.Append(Chr(cipherby))
                System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
            End While
            returnCipher = cipher.ToString
            cipher.Length = 0
            Return returnCipher
        End Function
    
    
            Friend Function hwid() As String
                Return GetProcessorId() & "-" & GetMACAddress() & "-" & GetVolumeSerial()
            End Function
            Friend Function GetProcessorId() As String
                Dim strProcessorId As String = String.Empty
                Dim query As New SelectQuery("Win32_processor")
                Dim search As New ManagementObjectSearcher(query)
                Dim info As ManagementObject
                For Each info In search.Get()
                    strProcessorId = info("processorId").ToString()
                Next
                Return strProcessorId
            End Function
            Friend Function GetMACAddress() As String
                Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
                Dim moc As ManagementObjectCollection = mc.GetInstances()
                Dim MACAddress As String = String.Empty
                For Each mo As ManagementObject In moc
                    If (MACAddress.Equals(String.Empty)) Then
                        If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString()
    
                        mo.Dispose()
                    End If
                    MACAddress = MACAddress.Replace(":", String.Empty)
                Next
                Return MACAddress
            End Function
            Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String
                Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
                disk.Get()
                Return disk("VolumeSerialNumber").ToString()
            End Function
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Timer1.Start()
            If Connection() = True Then
    
                Dim wc As New WebClient
                Dim strings As String
                Dim HWID As String
                strings = wc.DownloadString("Here put link to textfile where the HWIDS will be stored")
                HWID = GetProcessorId() & "-" & GetMACAddress() & "-" & GetVolumeSerial()
                wc.Dispose()
                If strings.Contains(HWID) Then
                    Me.Show()
                    MsgBox("Access Granted!", MsgBoxStyle.Information)
                End If
                If strings.Contains(HWID) = False Then
                    MsgBox("Access Denied!", MsgBoxStyle.Critical)
                    Me.Close()
                End If
            Else
                MsgBox("Connect To The Internet!", MsgBoxStyle.Information)
                Me.Close()
            End If
        End Sub
        Sub Protect()
    
            Dim TargetProcess1() As Process = Process.GetProcessesByName("Fiddler")
            Dim TargetProcess2() As Process = Process.GetProcessesByName("SimpleAssemblyExplorer")
            Dim TargetProcess3() As Process = Process.GetProcessesByName("Reflector")
            Dim TargetProcess4() As Process = Process.GetProcessesByName("HxD")
            Dim TargetProcess5() As Process = Process.GetProcessesByName("Ollydb")
    
            If Not TargetProcess1.Length = 0 Then
                TargetProcess1(0).Kill()
                MsgBox("Fiddler Detected!", MsgBoxStyle.Critical, "WTF?!")
                Me.Close()
            End If
    
            If Not TargetProcess2.Length = 0 Then
                TargetProcess2(0).Kill()
                MsgBox("SimpleAssemblyExplorer Detected!", MsgBoxStyle.Critical, "WTF?!")
                Me.Close()
            End If
    
            If Not TargetProcess3.Length = 0 Then
                TargetProcess3(0).Kill()
                MsgBox("Reflector Detected!", MsgBoxStyle.Critical, "WTF?!")
                Me.Close()
            End If
    
            If Not TargetProcess4.Length = 0 Then
                TargetProcess4(0).Kill()
                MsgBox("HxD Detected!", MsgBoxStyle.Critical, "WTF?!")
                Me.Close()
            End If
    
            If Not TargetProcess5.Length = 0 Then
                TargetProcess5(0).Kill()
                MsgBox("Ollydb Detected!", MsgBoxStyle.Critical, "WTF?!")
                Me.Close()
            End If
        End Sub
        Public Function Connection() As Boolean
            Dim sitetocheck As New System.Uri("http://www.google.com/")
            Dim checkrequest As System.Net.WebRequest
            checkrequest = System.Net.WebRequest.Create(sitetocheck)
            Dim objResp As System.Net.WebResponse
            Try
                objResp = checkrequest.GetResponse
                objResp.Close()
                checkrequest = Nothing
                Return True
            Catch x As Exception
                Return False
            End Try
        End Function
    
    
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            Protect()
        End Sub
    
    End Class
    Code:
    Friend Function hwid() As String
            Return GetProcessorId() & "-" & GetMACAddress() & "-" & GetVolumeSerial()
        End Function
        Friend Function GetProcessorId() As String
            Dim strProcessorId As String = String.Empty
            Dim query As New SelectQuery("Win32_processor")
            Dim search As New ManagementObjectSearcher(query)
            Dim info As ManagementObject
            For Each info In search.Get()
                strProcessorId = info("processorId").ToString()
            Next
            Return strProcessorId
        End Function
        Friend Function GetMACAddress() As String
            Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
            Dim moc As ManagementObjectCollection = mc.GetInstances()
            Dim MACAddress As String = String.Empty
            For Each mo As ManagementObject In moc
                If (MACAddress.Equals(String.Empty)) Then
                    If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString()
    
                    mo.Dispose()
                End If
                MACAddress = MACAddress.Replace(":", String.Empty)
            Next
            Return MACAddress
        End Function
        Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String
            Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
            disk.Get()
            Return disk("VolumeSerialNumber").ToString()
        End Function
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            TextBox1.Text = GetProcessorId() & "-" & GetMACAddress() & "-" & GetVolumeSerial()
        End Sub

  2. The Following User Says Thank You to paradoxcod4 For This Useful Post:

    veryniceguy (11-27-2012)

  3. #2
    lowbotnoob's Avatar
    Join Date
    Nov 2012
    Gender
    male
    Posts
    12
    Reputation
    10
    Thanks
    2
    omg they cant ban my hwid now thanks you so much <3

  4. The Following 2 Users Say Thank You to lowbotnoob For This Useful Post:

    paradoxcod4 (11-27-2012),veryniceguy (11-27-2012)

  5. #3
    veryniceguy's Avatar
    Join Date
    Nov 2012
    Gender
    male
    Posts
    14
    Reputation
    10
    Thanks
    15
    Finaly some working hwid spoofer

  6. The Following User Says Thank You to veryniceguy For This Useful Post:

    paradoxcod4 (11-27-2012)

  7. #4
    paradoxcod4's Avatar
    Join Date
    Oct 2010
    Gender
    male
    Posts
    19
    Reputation
    10
    Thanks
    8
    Glad u like it spent lots off time making i

  8. #5
    bailzky's Avatar
    Join Date
    Nov 2012
    Gender
    male
    Posts
    3
    Reputation
    10
    Thanks
    0
    What do I do with the code?

  9. #6
    Makalon's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    179
    Reputation
    10
    Thanks
    21
    My Mood
    Relaxed
    Quote Originally Posted by bailzky View Post
    What do I do with the code?
    either you know what to do or you dont

  10. #7
    dugboy's Avatar
    Join Date
    Oct 2012
    Gender
    male
    Posts
    18
    Reputation
    10
    Thanks
    0
    Is it two separate programs?

Similar Threads

  1. HWID Spoofer a thing of the past?
    By Tid|e in forum Suggestions, Requests & Help
    Replies: 0
    Last Post: 10-23-2011, 11:37 AM
  2. Warrock HW PB Spoofer Released & Other News
    By Dave84311 in forum Hack/Release News
    Replies: 17
    Last Post: 09-22-2007, 04:40 AM
  3. Problem With The New Pb Hw Ban Spoofer!
    By naomelembro14 in forum WarRock - International Hacks
    Replies: 5
    Last Post: 03-16-2007, 08:29 AM
  4. Need Desparalty A Hw Unban Prob Or Spoofer Or Whatever!
    By naomelembro14 in forum WarRock - International Hacks
    Replies: 9
    Last Post: 03-15-2007, 10:21 AM
  5. need a spoofer
    By ferrari in forum WarRock - International Hacks
    Replies: 4
    Last Post: 03-04-2007, 07:23 AM