[Kod] Anty-Włam

[kotlet-schabowy]

Hej. Napisałem prosty kodzik, który po włączeniu nie pozwoli niepowołanej osobie zajrzeć wgłąb twojego systemu. Oczywiście hotkey'e mogą być trudniejsze.

 

#NoTrayIcon
HotKeySet("{HOME}", 'pokaz')
HotKeySet("{END}", 'ukryj')

While 1
Sleep(10)
WEnd

Func pokaz()
While 1
$3 = WinGetHandle("[CLASS:Progman]")
$4 = WinGetHandle("[CLASS:Shell_TrayWnd]")
$5=WinGetHandle("[ACTIVE]")
WinSetState($5, "", @SW_SHOW)
WinSetState($3, "", @SW_SHOW)
WinSetState($4, "", @SW_SHOW)
WEnd
EndFunc   ;==>pokaz

Func ukryj()
While 1
$1 = WinGetHandle("[CLASS:Progman]")
$2 = WinGetHandle("[CLASS:Shell_TrayWnd]")
$3=WinGetHandle("[ACTIVE]")
WinSetState($1, "", @SW_HIDE)
WinSetState($2, "", @SW_HIDE)
WinSetState($3, "", @SW_HIDE)
WEnd
EndFunc   ;==>ukryj

 

Pzdr.

[Gość LastPhoenix450]

Takie wyloguj i zaloguj pod hotkey'em...

Na winde to jest dziwny bayer, tym bardziej ,że zamknął mi kilka programów - przy wracaniu do punktu wyjścia

wyłączyły sie. Poza tym do czego M$ podarował nam opcję 'zablokuj'?

 

//Niepowołana osoba może sobie włączyć system awaryjny albo zbootować jakiś inny system z CD.

//Albo zresetować komputer :3

[Phoenix_PL]

Jak @up, nie jest to zbyt przydatne

Chowanie i ukrywanie okienek :P

 

To już lepiej się wylogować albo zablokować kompa... hasłem do biosu x)

[Wasiij Iwanowic]

Mam taki fajny kodzik (gdzieś w czeluściach mojego komputera) który jak się go zablokuje to wywala tooltipa na pulpit i nie można już w ogóle nigdzie kliknąć poza tooltipa a jak się już kliknie to pojawia się monit o hasło.

[jackraymund]

@up z nudów

cos takiego?

 

#include <ButtonConstants.au3>
hotkeyset("{end}","st")
func st()
Exit
EndFunc

global $x1 = 106,$y1 = 50,$x2 = 100, $y2 = 114
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", $x1, $y1, $x2, $y2, BitOR($WS_MINIMIZEBOX,$WS_GROUP))
$Button1 = GUICtrlCreateButton("Button1", 8, 0, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;x ---------
;y |
while 1
$mousepos = mousegetpos()
if $mousepos[0] < $x2  or $mousepos[1] < $y2 or $mousepos[0] > $x2 + $x1 or $mousepos[1] > $y1 + $y2 Then mousemove($x2 + 35,$y2 + 30,0) ;consolewrite($mousepos[0] & "  " & $mousepos[1] & @CRLF)
$nMsg = GUIGetMsg()
if $nmsg = $button1 Then
if inputbox("haslo","haslo") = "dupa" then Exit
EndIf
WEnd

[Gość]

@up z nudów

cos takiego?

 

#include <ButtonConstants.au3>
hotkeyset("{end}","st")
func st()
Exit
EndFunc

global $x1 = 106,$y1 = 50,$x2 = 100, $y2 = 114
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", $x1, $y1, $x2, $y2, BitOR($WS_MINIMIZEBOX,$WS_GROUP))
$Button1 = GUICtrlCreateButton("Button1", 8, 0, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;x ---------
;y |
while 1
$mousepos = mousegetpos()
if $mousepos[0] < $x2 or $mousepos[1] < $y2 or $mousepos[0] > $x2 + $x1 or $mousepos[1] > $y1 + $y2 Then mousemove($x2 + 35,$y2 + 30,0) ;consolewrite($mousepos[0] & " " & $mousepos[1] & @CRLF)
$nMsg = GUIGetMsg()
if $nmsg = $button1 Then
if inputbox("haslo","haslo") = "dupa" then Exit
EndIf
WEnd

 

Sprawdziłem ,i da się to wyłączyć: klikasz button i myszka się odblokowywuje i możesz dzięki temu odpalić menedżer zadań i wywalić program w... albo korzystać z kompa normalnie a potem tylko anulować wpisywanie i ślad nie pozostał.

[wefhy]

Dobra, teraz mów, jak przywrócić przycisk start :P

 

https://o9mqbq.sn2.livefilestore.com/y1mjPBRx4SDXrwQKOSDR7qCq63URkQ0bxG0UWoDKnRYRmAzC_26lHGrKi26CMOg_OlmjGTXItltDrvWaMEfUFzmZWB8rJVA93F_4VcFD4Z0Yz4/Nowy%20obraz%20mapy%20bitowej.bmp?psid=1

https://skydrive.live.com/redir?resid=1B9EC8947ED5A279!14195&authkey=!ACJ7wARnTEQW7VQ

 

klikąłem end, potem przycisk win, a potem end, czy jakoś tak :P Program nie dość że rzadko użyteczny, to jeszcze do naprawy

[Heniut]

To już lepiej mój stary kod na myszkę:

While 1
$pozycja = MouseGetPos()
Sleep(10)
$pozycja1 = MouseGetPos()
If $pozycja[0]<>$pozycja1[0] Then
If Random(1, 2, 1) = 1 Then
MouseMove($pozycja1[0] + 5, $pozycja1[1])
Else
MouseMove($pozycja1[0] - 5, $pozycja1[1])
EndIf
EndIf

If $pozycja[1]<>$pozycja1[1] Then
If Random(1, 2, 1) = 1 Then
MouseMove($pozycja1[0], $pozycja1[1] + 5)
Else
MouseMove($pozycja1[0], $pozycja1[1] - 5)
EndIf
EndIf
WEnd

Ktoś zanim coś zrobi to dostanie kurwicy ;d

[ziuto]

ja już cos takiego pisałem ale doszłem do wniosku że lepsze jest windows+l

[woBniaR]

To już lepiej mój stary kod na myszkę:

While 1
$pozycja = MouseGetPos()
Sleep(10)
$pozycja1 = MouseGetPos()
If $pozycja[0]<>$pozycja1[0] Then
If Random(1, 2, 1) = 1 Then
MouseMove($pozycja1[0] + 5, $pozycja1[1])
Else
MouseMove($pozycja1[0] - 5, $pozycja1[1])
EndIf
EndIf

If $pozycja[1]<>$pozycja1[1] Then
If Random(1, 2, 1) = 1 Then
MouseMove($pozycja1[0], $pozycja1[1] + 5)
Else
MouseMove($pozycja1[0], $pozycja1[1] - 5)
EndIf
EndIf
WEnd

Ktoś zanim coś zrobi to dostanie kurwicy ;d

ctrl+alt+del - sterowanie strzałkami, tabem i spacją