[VB.NET Problem]HWID vergleich für Bot

[hero9910]

Originally Posted by (=|=)NIKIBOY(=|=)

Danke habe dieses Problem bereits gelöst!

 Spoiler

Public Class Main

    Public Function MD5Hash(ByVal strString As String) As String
        Dim MD5 As New MD5CryptoServiceProvider
        Dim Data As Byte()
        Dim Result As Byte()
        Dim Res As String = Nothing
        Dim Tmp As String = Nothing

        Data = Encoding.ASCII.GetBytes(strString)
        Result = MD5.ComputeHash(Data)
        For i As Integer = 0 To Result.Length - 1
            Tmp = Hex(Result(i))
            If Len(Tmp) = 1 Then Tmp = "0" & Tmp
            Res += Tmp
        Next
        Return Res
    End Function

    Public Function get_active_hwid()
        Dim hwid As String = String.Empty
        Dim check As New ManagementClass("win32_processor")
        Dim managment As ManagementObjectCollection = check.GetInstances()

        For Each mo As ManagementObject In managment
            If hwid = "" Then
                hwid = mo.Properties("processorID").Value.ToString()
                Exit For
            End If
        Next

        Dim schutz As String = String.Empty
        Dim md5_hwid As String = String.Empty
        schutz = hwid
        md5_hwid = MD5Hash(schutz)
        Dim webc As New WebClient
        Dim activ_hwid As String = String.Empty

        Try
            activ_hwid = webc.DownloadString("http://127.0.0.1/hwid/hw.id")
            webc.Dispose()
            If activ_hwid.Contains(md5_hwid) Then
                Return True
            Else
                Return False
            End If
        Catch
            Return False
        End Try
    End Function

    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            get_active_hwid()
            If get_active_hwid() = True Then
                Me.Hide()
                Form1.Show()
            Else
                Me.Hide()
                Form2.Show()
            End If
        Catch
            Form2.Show()
        End Try
    End Sub

End Class

Ich denke der Code ist vll nicht der sauberste,
aber er sollte ausreichen für dass was ich vor habe.

Bereits getestet und der Code funktioniert so weit melde
mich falls es weitere Probleme gibt.

MfG: NIKIBOY

evtl bindest du noch dies in dein programm ein ?

Dann können dir die leute die mit sniffer wie fiddler2 ran gehen egal sein.

[Sedrika]

Was du hier machst ist kein HWID check, da du nur nach der Prozessor ID fragst.

Wenn jetzt User a und b den selben Prozessor haben, was willst du dann machen ? Einem Verbieten das Programm zu benutzen ?

['Heaven.]

Originally Posted by hero9910

evtl bindest du noch dies in dein programm ein ?

Dann können dir die leute die mit sniffer wie fiddler2 ran gehen egal sein.

aha, und wenn ich dein programm decompile und mir die en und decrypt funktionen nachbaue? generell denke ich, dass keiner über fiddler versucht ein programm zu cracken

[(=|=)NIKIBOY(=|=)]

Bei manchen Beiträgen denke ich mir, dass mir die nicht zugehört haben!

Ich versuche diese funktion lediglich darum einzubuen um meine Kenntnisse
zu erweitern und nicht um einen Perfecten Bot zu schreiben oder etwas dergleichen!

Mit ist klar dass .NET sehr einfach Decompilierbar ist gibt sogar
ShareWare die einwandfrei funktioniert!

@Sedrika

Danke für den Tipp werde stadtdessen die Serialnumber verwenden!

Oder sollte ich SerialNumber & ProcessorID & MotherBoard verwenden,
diese dann MD5Hashed damit sie 100% einzigartig ist?

MfG: NIKIBOY