Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > Coding Releases > Coding Snippets
You last visited: Today at 05:01

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[AutoIt] HWID Funktion

Discussion on [AutoIt] HWID Funktion within the Coding Snippets forum part of the Coding Releases category.

Reply
 
Old   #1
ベトナム警察




 
Lumi's Avatar
 
elite*gold: 0
The Black Market: 517/0/0
Join Date: Jan 2012
Posts: 16,498
Received Thanks: 3,525
[AutoIt] HWID Funktion

Ich kann nicht versichern, dass es sicher sein wird, aber ich teile es gerne mit euch. Vielleicht könnt ihr ja damit was anfangen.

Code:
; => Start Fenster

#region Log GUI
$log = "Initializing Treasure Creator"
$startlog = GUICreate("Loading...", 300, 120, -1, -1, $WS_DLGFRAME)
$labellog = GUICtrlCreateEdit($log, 10, 10, 278, 78, BitOR($ES_READONLY, $ES_NOHIDESEL))
GUISetState(@SW_SHOW)
#endregion

Sleep(1000)

; => Liest eure Hardware-ID aus (Include von GetHWID.au3 erforderlich)

$log = "Your HWID is " & _GetHWID() & @CRLF & $log
GUICtrlSetData($labellog, $log)
sleep(3000)


; => Hier wird eure Hardware-ID mittels eines Dokuments, welches auf einem Webserver befindet, ausgelesen
; => Natürlich ist diese erstmals festzulegen.

$log = "Checking your Hardware-ID for using this Programm..." & @CRLF & $log
GUICtrlSetData($labellog, $log)
Sleep(1000)
$datei = BinaryToString(InetRead("http://deindomain.de/TextDokument.txt")) ; Hier die Webadresse für die .txt reinschreiben! Achtung! Nur .txt erlaubt!
$suche = _GetHWID() ;nach was gesucht werden soll

; => Hier wird nun komplett ausgelesen, ob eure HWID in der Dokument befindet und gibt jeweils eine Nachricht aus

If StringInStr($datei, $suche) Then
	sleep(0)
	$log = "Successfully connected" & @CRLF & $log
	sleep(1000)
	GUICtrlSetData($labellog, $log)
	Sleep(2500)
Else
	$log = "You do not have Permissions to use this Programm." & @CRLF & $log
	GUICtrlSetData($labellog, $log)
	sleep(2000)
	Exit
EndIf

GUISetState(@SW_HIDE, $startlog)
Diese muss so gut wie oben sein (nach den Includes), damit das ganze als erstens "aktiviert" bzw. aufgerufen wird.
Attached Files
File Type: rar GetHWID.au3.rar (1.4 KB, 57 views)
Lumi is offline  
Old 12/09/2013, 15:43   #2
 
elite*gold: 113
The Black Market: 133/2/0
Join Date: Dec 2009
Posts: 16,685
Received Thanks: 4,450
Da du gerade das Thema Sicherheit ansprichst:
AutoIt != Sicher.
Selbst als mehr oder weniger Anfänger-Scripter kann man sogut wie jedes AutoIt Script auseinander nehmen, und wieder so zusammenbasteln wie man mag.

Nur mit vielem Effizienz-verminderndem Packen etc. ist dies zu verhindern, und in der Zeit wo man diese Umwege macht lernt man lieber eine nativ-Sprache.



Zu deinem Code-Snippet möchte ich dir noch einen Tipp geben.
Versuche nach Möglichkeit, dich auf Funktionalitäten zu beschränken.
Damit meine ich zum Beispiel, dass für eine Demonstration einer Funktion das ganze $log Zeugs komplett obsolet ist, und die Sache nur unnötig komplizierter für Neulinge zum Nachschlagen macht.

Am besten beschränkst du dich bei so einem Snippet wirklich nur auf die Kernfunktion, welche du presentieren willst, und beschreibst diese jedoch möglichst genau mit Kommentaren.



Nur meine kleine, unbedeutende Meinung
Rorc is offline  
Thanks
1 User
Reply


Similar Threads Similar Threads
[Autoit] Epvp HWID abfrage ...
05/14/2013 - AutoIt - 22 Replies
Ich wollte mal fragen wie man bei epvp die hwid benutzen kann zum thanks geben z.b. ... also jemand muss seine hwid in sein epvp eintragen und dann überprüft das script ob die hwid mir auf den und den post ein thanks gegeben hat ... bitte ein tutorial für dumme :) .
[S]AutoIT HWID System
03/05/2013 - elite*gold Trading - 2 Replies
Servs ePvPler, Ich bin auf der Suche nach einem kleinem simplem HWID System, da meins irgendwie nicht laufen möchte :D Evtl findet auch einer den Fehler? MsgBox(4096, '', 'HWID: ' & _HWID()) Local $sHWID = _HWID() If _GetHWID($sHWID) Then
HWID Funktion Abfrage
11/24/2011 - AutoIt - 10 Replies
While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 ClipPut(GUICtrlRead($I_HWID)) ShellExecute("http://www.elitepvpers.com/ forum/profile.php?do=editprofile")
If not funktion (autoit)
02/02/2009 - Metin2 - 4 Replies
wie muss ich eig es in autoit schreiben wenn ich eine if not funktion haben will z.B If $Beispiel not = "irgendeinwert" wie gehört das richtig?



All times are GMT +1. The time now is 05:03.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.