![[VB.NET Problem]HWID vergleich für Bot](https://www.elitepvpers.com/forum/iconimages/net-languages/vb-net-problem-hwid-vergleich-f-r-bot_ltr.gif){kind=small}
[VB.NET Problem]HWID vergleich für Bot
welches ich leider nicht so oft spielen kann wie ich möchte!
Ich möchte den Bot sichern damit nur die jenigen ihn verwenden
können denen ich es auch erlaube/denen ich vertrauen kann, damit
er nicht so schnell erkannt wird.
In diesem Teil des Codes soll der Bot die HWID Generieren und
diese vergleichen ob Sie in meiner Liste vorhanden ist!
Wenn die HWID vorhanden ist, wird der Bot gestartet.
Mit hilfe von:
Code:
Form1.Show()
Also Startet er den Bot immer egal ob meine HWID im System registert
ist oder nicht.
Ich habe auch eine MD5 Hash funktion eingebaut damit niemand die
eindeutige Seriennummer des PC´s kennt. Diese Funktion funktioniert
ohne Probleme(bereits getestet).
Jetzt brauche ich hilfe: Warum wird die Form1 immer angezeigt, egal
ob die HWID vorhanden ist oder nicht!
Den Server den ich verwende (localhost) werde ich später bearbeiten aber
zum Testen ist es von Vorteil wenn alles auf meinem PC vorhanden ist.
Code:
Option Explicit On
Imports System.Net
Imports System.Text
Imports System.Threading
Imports System.Management
Imports System.Security.Cryptography
Public Class Form1
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_hwid()
Dim strProcessor 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()
strProcessor = info("processorId".ToString)
Next
Return strProcessor
End Function
Public Function get_active_hwid()
Dim schutz As String = Nothing
Dim hash_schutz As String = Nothing
schutz = get_hwid()
hash_schutz = MD5Hash(schutz)
Dim wc As New WebClient
Dim server As String
server = wc.DownloadString("http://localhost/hwid/hw.id")
wc.Dispose()
If server.Contains(hash_schutz) Then
Return True
Else
Return False
End If
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
Me.load_bot_settings()
Me.Hide()
get_active_hwid()
If get_active_hwid() = True Then
Me.Show()
Form2.Hide()
ElseIf get_active_hwid() = False Then
Me.Hide()
Form2.Show()
End If
End Sub
Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
SaveSetting("barmaniabotsettings", "BotSettings", "Mixing", GhostCheckbox1.Checked)
SaveSetting("barmaniabotsettings", "BotSettings", "Shopping", GhostCheckbox2.Checked)
SaveSetting("barmaniabotsettings", "BotSettings", "SaveUserdata", GhostCheckbox3.Checked)
If GhostCheckbox3.Checked = True Then
SaveSetting("barmaniabotsettings", "Userdata", "Username", GhostTextBox1.Text)
SaveSetting("barmaniabotsettings", "Userdata", "Password", GhostTextBox2.Text)
Else
SaveSetting("barmaniabotsettings", "Userdata", "Username", "")
SaveSetting("barmaniabotsettings", "Userdata", "Password", "")
End If
End Sub
Private Sub load_bot_settings()
GhostTextBox1.Text = GetSetting("barmaniabotsettings", "Userdata", "Username")
GhostTextBox2.Text = GetSetting("barmaniabotsettings", "Userdata", "Password")
GhostCheckbox1.Checked = GetSetting("barmaniabotsettings", "BotSettings", "Mixing")
GhostCheckbox2.Checked = GetSetting("barmaniabotsettings", "BotSettings", "Shopping")
GhostCheckbox3.Checked = GetSetting("barmaniabotsettings", "BotSettings", "SaveUserdata")
End Sub
End Class
MfG: (=|=)NIKIBOY(=|=)
