[Tutorial] Password ins Script einbauen

[MiiSaL]

Hey heute ein Tutorial wie man ein PW in sein Script macht.
Also zuerst brauchen wir ein Script
Ich mache mal ein Ziemlich einfachens D

 Spoiler

MouseClick ("Left" )
MouseClick ("Left" )

Nun wo ihr euer Script habt setzt ihr über eurem Script das ein:

 Spoiler

#Region
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#RequireAdmin             ; optional Administratorrechte verlangen
#EndRegion
; Das sind die Includes die Wir brauchen.



Call("Anmeldung")


Func Anmeldung()






#Region
Opt("TrayIconHide", 1) ; optional den TrayIcon verstecken, damit man das Sript nicht ausversehen pausiert oder beendet

GUICreate("Anmeldung", 300, 55, @DesktopWidth/2 - @DesktopWidth/6, @DesktopHeight/2)
GUICtrlCreateLabel("Bitte Passwort eingebeben!", 12, 3)
$Senden = GUICtrlCreateButton("Senden", 216, 20, 80, 25, $WS_GROUP)
$Input = GUICtrlCreateInput("", 10, 23, 200, 20, $ES_PASSWORD)
GUISetState(@SW_SHOW)
#EndRegion
;GUI






$Key = ""; zwischen den "" muß dein Passwort stehen


While 1

$msg = GUIGetMsg()



Switch $msg

Case $GUI_EVENT_CLOSE
Exit



Case $Senden

$Check = GUICtrlRead($Input)
$Test = 0



If $Check = $Key Then
$Test = MsgBox (0, "Erfolg","Richtiges Passwort!")
EndIf

If $Check <> $Key Then
MsgBox (016, "Fehler","Zugriff verweigert !")
EndIf



If $Test = 1 Then
GUISetState(@SW_HIDE)
ExitLoop
EndIf


EndSwitch




Sleep(10)

WEnd

EndFunc

So sieht mein Script dann aus:

 Spoiler

#Region
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#RequireAdmin             ; optional Administratorrechte verlangen
#EndRegion
; Includes




Call("Anmeldung")


Func Anmeldung()






#Region
;Opt("TrayIconHide", 1) ; optional den TrayIcon verstecken, damit man das Sript nicht ausversehen pausiert oder beendet

GUICreate("Anmeldung", 300, 55, @DesktopWidth/2 - @DesktopWidth/6, @DesktopHeight/2)
GUICtrlCreateLabel("Bitte Passwort eingebeben!", 12, 3)
$Senden = GUICtrlCreateButton("Senden", 216, 20, 80, 25, $WS_GROUP)
$Input = GUICtrlCreateInput("", 10, 23, 200, 20, $ES_PASSWORD)
GUISetState(@SW_SHOW)
#EndRegion
;GUI






$Key = "G0LdPrEMiUm!"; zwischen den "" muß dein Passwort stehen


While 1

$msg = GUIGetMsg()



Switch $msg

Case $GUI_EVENT_CLOSE
Exit



Case $Senden

$Check = GUICtrlRead($Input)
$Test = 0



If $Check = $Key Then
$Test = MsgBox (0, "Erfolg","Richtiges Passwort!")
EndIf

If $Check <> $Key Then
MsgBox (016, "Fehler","Zugriff verweigert !")
EndIf



If $Test = 1 Then
GUISetState(@SW_HIDE)
ExitLoop
EndIf


EndSwitch




Sleep(10)

WEnd

EndFunc

;Jetzt kommt das Richtige Script

MouseClick ( "Left" )
MouseClick ( "Left" )

Hoffentlich hats euch Gefallen)

Und Statt "Danke" Zu schreiben gebt mir doch einfach ein THX )

[Croco™]

Auch hier mein Wunsch das "Tutorial" zu einem Tutorial zu machen und dein Schritte zu erklären. Bzw. die einzelnen Funktionen.

[RenzoARG]

also @ the start of the script [Opt("TrayIconHide", 1)] can be replaced with [#NoTrayIcon]

[Logtetsch]

Viel zu aufwendig und sehr leicht knackbar.
Zudem ist dein Skript sehr unübersichtlich.

Da finde ich sogar das hier besser:

_PasswordCheck()

Func _PasswordCheck()
	Local $sPassword = "RandomPW"
	If  InputBox( "Password", "Please enter your password:", "", "*", 100, 125) <> $sPassword Then
		if MsgBox(68, "Error", "Wrong password! Try it again?", 5) == 7 Then Exit
		_PasswordCheck()
	EndIf
EndFunc

[K1ramoX]

am besten ist es immernoch wenn man einen md5 hash erstellt, das eingegebene passwort ebenfalls per md5 hashen tut und dann die beiden vergleichen tut ;o doch selbst dann muss man das script nur decompilen und die if abfrage bypassen

[Achat]

Originally Posted by K1ramoX

am besten ist es immernoch wenn man einen md5 hash erstellt, das eingegebene passwort ebenfalls per md5 hashen tut und dann die beiden vergleichen tut ;o doch selbst dann muss man das script nur decompilen und die if abfrage bypassen

MfG