Hacker gesucht!

DeepRed92

Diese Seite ist leider nicht verfügbar.

Das Schwert

Da! der geht 100 pro! xD

http://schwertsoft.sc.funpic.de/

DeepRed92

Hast du evtl vergessen #NoTrayIcon zu benutzen?

Jam00

Der hat bei mir keinen Autostart eintrag gemacht, die "Sperre" kann ich einfach minimieren und den Prozess beenden! Und TryAgain geht auch nicht! Das einzige was das Programm mach ist das es mir sag ob der Stick drin ist oder nicht

EDIT: Immer wenn ich TrayAgain mache Fummelt der an meinem Diskettenlaufwerk rum!

Das Schwert

Nein, es sollte so sein dass man garnicht in die Taskleiste kommt... (_Mousetrap)

Falls dem nicht so ist stelle es euch einfach vor, ich geb dann morgen
die version wo die MouseTrap läuft...
Aber an sich kommt man nicht in die Taskleiste...

Jam00

MausTrap geht! Aber deswegen kann man doch Trozdem Fenster Minimieren! Schon mal was von Alt+Tab oder Strg+Alt+Entf oder Win gehört?

Das Schwert

Oh!
Nein, davon han ich noch nichts gehört...
Dann mach ich halt gui set on top oder wie das heißt

ChaosKeks

Guck dir mal die vielen Pc Locks auf dem englischem Forum an.. zb den vom Valuater -> http://www.autoitscript.com/forum/index.php?showtopic=21427&st=0&start=0 ...

**eukalyptus**

Hier im Forum findest du auch einige.

z.B.: Eins vom Xeno - Such mal nach Secure bzw. gina hook

lgE

Das Schwert

Thx, aber ich mach das ja nicht unbedingt um meinen PC zu schützen, sondern um spaß am skripten zu haben

EDIT:
Versuch mal den prozess zu beenden falls wuauclt.exe (von mir)
Oder svchost.exe (von mir) läuft... Keine gute idee...

Jam00

Der Taskmanager ist aber auch OnTop und zwar von Windows, ich weiß nicht genau, aber ich denke der wird auch vor dem Fenster sein!
Guck dir mal das an

Spoiler anzeigen

[autoit]

For $1 = 1 To 500
BlockInput (1)
Sleep (100)
Next
BlockInput (0)

[/autoit]

L3viathan

Also ich habe nicht das geringste Problem, die Software zu knacken..
Falls du weitere Inspiration suchst: Such mal nach GLi Block, das hab ich geacht und kann es (ohne Reboot) nicht knacken...
Funktioniert ganz ähnlich...

Das Schwert

@L3vianthan2142: Wie hastes denn geknackt?

Jam00:
Ich habs jez so gemacht:
In der
While Schleife um zu überprüfen ob der Try again button geklickt wurde
steht jez noch

[autoit]

GuiSetState (@SW_MAXIMIZE)

[/autoit]

Damit ist das lat+tab problem behoben...
Solltest du einen der drei Prozesse beenden, welche von meinem Prog
ausgeführt werden wird der rechner heruntergefahren... (das war schon vorher so...)

Noch was was ich übersehen hab

Du meintest der TryAgain button geht nicht?
Kann nicht sein:

Spoiler anzeigen

#Gui#
While 1
$msg = GuiGetMsg ()
If $msg = $again Then _trystart ()

Func _trystart ()
$drive = DriveGetSerial ( "A:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "B:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "F:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "G:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "H:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "I:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "J:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "K:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "L:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "N:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "M:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "O:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "P:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "Q:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "R:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "S:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "T:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "U:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "V:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "W:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "X:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "Y:\" )
If $drive = $ini Then _exist ()
$drive = DriveGetSerial ( "Z:\" )
If $drive = $ini Then _exist ()
_nodrive ()
EndFunc

EDIT:
Das programm ist nochnicht im netz... kommt aber bald...

Jam00

Nein das Geht nicht! Ich laber ja keinen Scheiß, immer wenn ich auf TrayAgin klicke liest der mein Diskettenlaufwerk aus, udn nicht mein Stick auf F:\

L3viathan

per Taskmgr. Einfach den Process explorer.exe gekillt...

ChaosKeks

*Hust* wie ich schon gesagt hab... es gibt ne menge super lösungen die schon in der vergangenheit gefunden wurden um den taskmanager zu deaktivieren (s.o.)

Jam00

Ja ganz einfach über die Registry! Aber mal erlich, wenn etwas sicher sein soll muss man schon ein bischen mehr Zeit aufbringen und ein bischen mehr grundkenntnisse haben

DeepRed92

Schau dir mal hier diese UDFs an:

Spoiler anzeigen

[autoit]

;===============================================================================
; Function Name: _DisEnableTaskManager([$DISABLE=1])
; Description:: TaskManager per Registry sperren / entsperren
; Parameter(s): $DISABLE Standard 1 ==> sperren (0 entsperren)
; Return Value(s): Erfolg 1
; Fehler 0 SetError 1 Schlüssel kann nicht geöffnet werden
; 2 Hauptschlüssel kann nicht geöffnet werden
; 3 Fernverbindung zur Registry nicht möglich
; -1 angefragter Wert kann nicht geöffnet werden
; -2 Werttyp nicht unterstützt
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;===============================================================================

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

_DisEnableTaskManager(1)
Sleep(10000)
_DisEnableTaskManager(0)

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

Func _DisEnableTaskManager($DISABLE=1)
If $DISABLE <> 0 Then $DISABLE = 1
Local $key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System"
Local $val = "DisableTaskMgr"
RegWrite($key, $val, "REG_DWORD", $DISABLE)
If @error Then
Return SetError(@error, 0, 0)
Else
Return 1
EndIf
EndFunc ;==>_DisEnableTaskManager

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

_DisEnableDesktop(1)
Sleep(30000)
_DisEnableDesktop(0)

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

Func _DisEnableDesktop($DISABLE=1)
If $DISABLE <> 0 Then $DISABLE = 1
Local $key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\explorer"
Local $val = "NoDesktop"
RegWrite($key, $val, "REG_DWORD", $DISABLE)
If @error Then
Return SetError(@error, 0, 0)
Else
Return 1
EndIf
EndFunc ;==>_DisEnableTaskManager

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

_DisEnableRegedit(1)
Sleep(20000)
_DisEnableRegedit(0)

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

Func _DisEnableRegedit($DISABLE=1)
If $DISABLE <> 0 Then $DISABLE = 1
Local $key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System"
Local $val = "DisableRegistryTools"
RegWrite($key, $val, "REG_DWORD", $DISABLE)
If @error Then
Return SetError(@error, 0, 0)
Else
Return 1
EndIf
EndFunc ;==>_DisEnableTaskManager

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

_DisEnableTray(1)
Sleep(30000)
_DisEnableTray(0)

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

Func _DisEnableTray($DISABLE=1)
If $DISABLE <> 0 Then $DISABLE = 1
Local $key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\explorer"
Local $val = "NoTrayItemsDisplay"
RegWrite($key, $val, "REG_DWORD", $DISABLE)
If @error Then
Return SetError(@error, 0, 0)
Else
Return 1
EndIf
EndFunc ;==>_DisEnableTaskManager

[/autoit]

Das Schwert

@Deepred: Hey, danke! Das hilft!

@L3vi:
Ich habs eigentlich so programmiert, wenn es gestartet wird startet es auch wuauclt.exe und svchost.exe
Diese beiden Dateien sorgen dafür, dass wenn mein explorer.exe beendet wird der pc heruntergefahren wird.
Bei mir gings auch so.
Taskmsgr --> Explorer.exe-->Prozess beenden (erst wars der falsche explorer ;)) -->(Anderer) Explorer.exe -->Prozess beenden --> Rechner ging aus...

ChaosKeks

Hmm und wenn ich nun regedit aufmache und den wert einfach zurückändere? Also gegn Computer-unerfahrende hilft das schonmal ;P

Zusätzliche Variante (total simpel aber dennoch nicht schlecht):

[autoit]

While 1
if ProcessExists("TaskMgr.exe") then ProcessClose("TaskMgr.exe")
sleep(10)
Wend

[/autoit]