KinderSicherrung

Freaky

Habe eine kleine Kindersicherrung gemacht

Spoiler anzeigen

[autoit]

#include <Misc.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
HotKeySet ("!p","lol")

[/autoit] [autoit][/autoit] [autoit]

#NoTrayIcon
Opt ("TrayIconHide",1)

[/autoit] [autoit][/autoit] [autoit]

Global $Form1, $Label1, $Input1, $Label2, $Button1, $versuch = 3, $pw = "ich habe kein passwort"

[/autoit] [autoit][/autoit] [autoit]

Dim $antwort[5]
$antwort[1] = "1"
$antwort[2] = "2"
$antwort[3] = "3"
$antwort[4] = 3

[/autoit] [autoit][/autoit] [autoit]

While 1
WinClose ("Windows Task-Manager")
For $i = 0 To 255
If _IsPressed(Hex($i, 2)) Then
$zeit = TimerInit ()
Do
_passwort()
Until TimerDiff ($zeit) >= 60 * 1000 * 2
GUISetState(@SW_HIDE)
EndIf
Next
Sleep(10)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func lol ()
GUICtrlSetData ($Input1,$pw)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _passwort()
$Form1 = GUICreate("Kindersicherrung", 352, 126, 480, 263, $WS_POPUP)
$Label1 = GUICtrlCreateLabel("Bitte gib das Passwort ein.", 8, 8, 332, 17)
$Input1 = GUICtrlCreateInput("", 8, 40, 337, 21, $ES_PASSWORD)
$Label2 = GUICtrlCreateLabel("Sie haben noch " & $versuch & " Versuche !", 8, 72, 340, 17)
$Button1 = GUICtrlCreateButton("OK", 136, 96, 75, 25)
WinMinimizeAll ()
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
If Not WinActive ("Kindersicherrung") Then WinActivate ("Kindersicherrung")
If WinExists ("Windows Task-Manager") Then WinClose ("Windows Task-Manager")
_MouseTrap(480, 263, 352 + 480, 126 + 263)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
_enter()
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

If _IsPressed("0D") Then
If WinActive ("Kindersicherrung") Then
While 1
If Not _IsPressed("0D") Then ExitLoop
WEnd
_enter()
EndIf
EndIf
WEnd
EndFunc ;==>_passwort

[/autoit] [autoit][/autoit] [autoit]

Func _enter()
$in = GUICtrlRead($Input1)
If $in <> $pw & "xD" Then
For $a = 1 To 3
If $a = $versuch Then
$antwort[$a] = $in
EndIf
Next
FileWriteLine ("log.ini",@HOUR & ":" & @MIN & " := Passwort: " & $in)
$versuch -= 1
GUICtrlSetData($Label2, "Sie haben noch " & $versuch & " Versuche !")
ElseIf $in = $pw & "xD" Then
Exit
EndIf
If $versuch = 0 Then
;Shutdown(5)
Exit
EndIf
If ($antwort[1] = $antwort[2]) Or ($antwort[1] = $antwort[3]) Or ($antwort[2] = $antwort[3]) Then
BlockInput (1)
MsgBox (0,"IDIOT","Bist du doof oder versuchst du immer das gleiche Passwort ?",2)
BlockInput(0)
EndIf

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_enter

[/autoit]

masterRobb

Und schon bist du bei mir nicht mehr beliebt xD
Ich musste mich immer mit Kindersicherungen rumschlagen ... ;P

**Alina**

Kindersicherungen sind heute wichtiger als alles andere am PC, wenn Kinder Zugang haben.
Aber Eltern haben ihre Kinder auch am PC am Anfang zu begleiten, soweit es ihnen möglich ist.

ALSO bin ich für Kindersicherungen

Sithlord95

nich schlecht das ding so einfach kriegt man das jetzt nich aus es sei den man kommt mit extra software ,also mir gefällts

achja ich bin froh das meine eltern keine ahnung von pc´s haben^^

tobi_girst

Ähm, Kindersicherung schreibt man mit 1em "r"!
Ansonsten ist es recht gut gemacht, bis auf eins:

Zitat

... $in <> $pw & "XD" ...

Warum denn zum passwort noch xD dazuschreiben? So krigt es soch keiner mehr raus, nicht mal die Eltern
mfg

FunH@cker

ich kann leider das skript grad nicht testen aber funst das auch wenn man den PC neu startet ?

Freaky

das xD ist dafür das man nicht einfach den hotkeys drückt und weg ist es. es soll ja schwer sein das passwort rauszufinden sein

das script muss man selber in den autostart schieben

simon

Warum machst du es nicht im script über den regedit

FunH@cker

Bin ich zu blöd oder was ich schafs net dieses passwort zu endern :pinch:

ach wenn man das mit der regit machen swürde breuchte man ja auch etwas zu entfernen oder sonst könnten die kittis ja einfach ein bitton drücken und den pc neu starten

L3viathan

@alleKiddies, die mit dieser Sicherung geplagt werden:

knacken

Freethechildren.exe:

[autoit='Freethechildren.exe']

ProcessClose(WinGetProcess("Kindersicherrung"))

[/autoit]

autorun.inf:

Code: autorun.inf

[autorun]
open=Freethechildren.exe

Dieses Skript als Freethechildren.exe kompilieren, zusammen mit der autorun.inf auf eine CD brennen

tobi_girst

Einfach die .exe in den Autostart oder in die Reg auf die richtige Pos stellen geht auch, außerdem ist dann das CD/DVD/BD +. - R, RW, Rom, ... frei.
MfG

L3viathan

Ich versteh dich grad nicht, wenn die Sicherrung aktiv ist, kannst du das doch nicht machen...
edit: Ja, ich meine dich.

tobi_girst

@L3viathan2142: Meinst du mich?
Hier ist der Reg-Pfad (REG_SZ-Wert erstellen!): Computer\HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
MfG