Remotewinlock

[Matrix112]

Hi,

I wrote this Script for Remote Desktop users. If somone types wrong pass or not allowed key like Crtl, Pc makes forced restart.

It is useful if the remote user has encrypted hard disks. This Script prevents that other not entitled persons can use the PC.

expandcollapse popup

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.1.126
; Author:   Matrix112
;
; Script Function: Lock PC for Remote Desktop users. If somone types wrong
; pass or not allowed key like Crtl, Pc makes forced restart.
; It is useful if the remote user has encrypted hard disks.
; This Script prevents that other not entitled persons can use the PC.
; ----------------------------------------------------------------------------
#NoTrayIcon
Global $pass
Global $len
Global $check
Global $lencheck
#include <GuiConstants.au3>
#include <string.au3>
#include <Misc.au3>
Dim $pressed[75][2]
$pressed[0][0] = '41'
$pressed[0][1] = "a"
$pressed[1][0] = '42'
$pressed[1][1] = "b"
$pressed[2][0] = '43'
$pressed[2][1] = "c"
$pressed[3][0] = '44'
$pressed[3][1] = "d"
$pressed[4][0] = '45'
$pressed[4][1] = "e"
$pressed[5][0] = '46'
$pressed[5][1] = "f"
$pressed[6][0] = '47'
$pressed[6][1] = "g"
$pressed[7][0] = '48'
$pressed[7][1] = "h"
$pressed[8][0] = '49'
$pressed[8][1] = "i"
$pressed[9][0] = '4a'
$pressed[9][1] = "j"
$pressed[10][0] = '4b'
$pressed[10][1] = "k"
$pressed[11][0] = '4c'
$pressed[11][1] = "l"
$pressed[12][0] = '4d'
$pressed[12][1] = "m"
$pressed[13][0] = '4e'
$pressed[13][1] = "n"
$pressed[14][0] = '4f'
$pressed[14][1] = "o"
$pressed[15][0] = '50'
$pressed[15][1] = "p"
$pressed[16][0] = '51'
$pressed[16][1] = "q"
$pressed[17][0] = '52'
$pressed[17][1] = "r"
$pressed[18][0] = '53'
$pressed[18][1] = "s"
$pressed[19][0] = '54'
$pressed[19][1] = "t"
$pressed[20][0] = '55'
$pressed[20][1] = "u"
$pressed[21][0] = '56'
$pressed[21][1] = "v"
$pressed[22][0] = '57'
$pressed[22][1] = "w"
$pressed[23][0] = '58'
$pressed[23][1] = "x"
$pressed[24][0] = '59'
$pressed[24][1] = "y"
$pressed[25][0] = '5a'
$pressed[25][1] = "z"
$pressed[26][0] = '5f'
$pressed[26][1] = "_"
$pressed[27][0] = '6d'
$pressed[27][1] = "-"
$pressed[28][0] = '2e'
$pressed[28][1] = "."
$pressed[29][0] = '7e'
$pressed[29][1] = "~"
$pressed[30][0] = '30'
$pressed[30][1] = "0"
$pressed[31][0] = '31'
$pressed[31][1] = "1"
$pressed[32][0] = '32'
$pressed[32][1] = "2"
$pressed[33][0] = '33'
$pressed[33][1] = "3"
$pressed[34][0] = '34'
$pressed[34][1] = "4"
$pressed[35][0] = '35'
$pressed[35][1] = "5"
$pressed[36][0] = '36'
$pressed[36][1] = "6"
$pressed[37][0] = '37'
$pressed[37][1] = "7"
$pressed[38][0] = '38'
$pressed[38][1] = "8"
$pressed[39][0] = '39'
$pressed[39][1] = "9"
$pressed[40][0] = '10';shift
$pressed[40][1] = "+"
$pressed[41][0] = '11';strg
$pressed[41][1] = "^"
$pressed[42][0] = '12';alt
$pressed[42][1] = "!"
$pressed[43][0] = '0D';Enter
$pressed[43][1] = "{ENTER}"
$pressed[44][0] = '14';CAPS LOCK
$pressed[44][1] = "{CAPSLOCK}"
$pressed[45][0] = '09';TAB
$pressed[45][1] = "{TAB}"
$pressed[46][0] = '13';PAUSE
$pressed[46][1] = "{PAUSE}"
$pressed[47][0] = '2D';einfg
$pressed[47][1] = "{INS}"
$pressed[48][0] = '2E';entf
$pressed[48][1] = "{DEL}"
$pressed[49][0] = '08';BACKSPACE
$pressed[49][1] = "{BS}"
$pressed[50][0] = '1B';ESC
$pressed[50][1] = "{ESC}"
$pressed[51][0] = '20';space
$pressed[51][1] = "{SPACE}"
$pressed[52][0] = '21';Bildauf
$pressed[52][1] = "{PGUP}"
$pressed[53][0] = '22';Bildab
$pressed[53][1] = "{PGDN}"
$pressed[54][0] = '23';ende
$pressed[54][1] = "{END}"
$pressed[55][0] = '24';pos1
$pressed[55][1] = "{HOME}"
$pressed[56][0] = '25';pfeil links
$pressed[56][1] = "{LEFT}"
$pressed[57][0] = '26';pfeil oben
$pressed[57][1] = "{UP}"
$pressed[58][0] = '27';pfeil rechts
$pressed[58][1] = "{RIGHT}"
$pressed[59][0] = '28';pfeil unten
$pressed[59][1] = "{DOWN}"
$pressed[60][0] = '2A';druck
$pressed[60][1] = "{PRINTSCREEN}"
$pressed[61][0] = '5B';win links
$pressed[61][1] = "#"
$pressed[62][0] = '5C';win rechts
$pressed[62][1] = "#"
$pressed[63][0] = '70';F1
$pressed[63][1] = "{F1}"
$pressed[64][0] = '71'
$pressed[64][1] = "{F2}"
$pressed[65][0] = '72'
$pressed[65][1] = "{F3}"
$pressed[66][0] = '73'
$pressed[66][1] = "{F4}"
$pressed[67][0] = '74'
$pressed[67][1] = "{F5}"
$pressed[68][0] = '75'
$pressed[68][1] = "{F6}"
$pressed[69][0] = '76'
$pressed[69][1] = "{F7}"
$pressed[70][0] = '77'
$pressed[70][1] = "{F8}"
$pressed[71][0] = '78'
$pressed[71][1] = "{F9}"
$pressed[72][0] = '79'
$pressed[72][1] = "{F10}"
$pressed[73][0] = '7A'
$pressed[73][1] = "{F11}"
$pressed[74][0] = '7B'
$pressed[74][1] = "{F12}"



Global $gui = GuiCreate("nosight", @DesktopWidth, @DesktopHeight,(0)/2, (0)/2 ,$WS_Popup + $DS_SETFOREGROUND, $WS_EX_TOPMOST)
GUISetBkColor (0x000000, $gui)
GuiSetState(@SW_HIDE)
setpass ()
start ()
Func start ()
Sleep(1000)
GuiSetState(@SW_show, $gui)
While 1
For $x1 = 0 To 39
    If _Ispressed($pressed[$x1][0]) Then 
        _addpress($pressed[$x1][1])
        do
            sleep(1)
        until not _Ispressed($pressed[$x1][0])
    EndIf
Next

For $x2 = 40 To 74
    If _Ispressed($pressed[$x2][0]) Then
        Shutdown(6)
    EndIf
Next    
Sleep(10)
WEnd
EndFunc

Func _addpress($key)
$pass = $pass & $key
$len = StringLen($pass)
If $len = StringLen($check) Then _check($pass)
Endfunc

Func _check($p)
    $p = StringLower($p)
    If $p = $check Then
        GuiSetState(@SW_HIDE, $gui)
        BlockInput(0)
        Exit
    Else
       Shutdown(6)
    EndIf   
EndFunc 
    
Func setpass ()
$gui2 = GuiCreate("Set Pass", 241, 96,(@DesktopWidth-241)/2, (@DesktopHeight-96)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$ep = GuiCtrlCreateInput("", 40, 30, 160, 20)
$ok = GuiCtrlCreateButton("OK", 90, 60, 60, 30)
GUICtrlSetState($ep,$GUI_FOCUS)
GuiSetState()
While 1
    $msg = GuiGetMsg()
    If _Ispressed('0D') Then $msg = $ok
    Select
    Case $msg = $GUI_EVENT_CLOSE
        Exit
    Case $msg = $ok
        $check = GUICtrlRead($ep)
        $ga = StringLen($check)
        If $ga > 0 Then
            $check = StringLower($check)
            GUIDelete($gui2)
            ExitLoop
        Else
            MsgBox(0+16,"Not Allowed","You have to enter a pass!","")
            Exit
        EndIf   
    EndSelect
Sleep(15)       
WEnd
EndFunc

And Yes it has this little keylogging part, but its useful!

Remotewinlock.au3

[Jos]

Hi,

I wrote this Script for Remote Desktop users. If somone types wrong pass or not allowed key like Crtl, Pc makes forced restart.

It is useful if the remote user has encrypted hard disks. This Script prevents that other not entitled persons can use the PC.

-snip-

And Yes it has this little keylogging part, but its useful!

Don't understand what this does that isn't accomplished with WinKey+L ?

And Yes it has this little keylogging part, but its useful!

http://www.autoitscript.com/forum/index.php?showtopic=14632

[Matrix112]

OK,

maybe i have discribet not precise enough.

Let´s say you have encrypted hard drives with private data and you are not at home, using Remote Control to manage your PC at home. This program helps you secure your privat data from other people, if you have mounted some hard disks. It makes screen black so nobody can see what you are running. With my program you have only one try to come back in windows, if pass is wrong the PC makes a force restart.

Win+L is a way to lock your windows, but its not realy secure and some users don´t use login screen.

It restarts an you can control it again with Remote Control. Unauthorisized user can now use the computer too, but the hard disks are all unmounted.

You can change my code to only shutdown computer if you want.

About the keylogging, i know its a risk but there are some other keyloggers already postet in this Forum so i think this won´t make more damage.

I think people totaly new to Autoit can´t use it.

[Jos]

OK,

maybe i have discribet not precise enough.

Let´s say you have encrypted hard drives with private data and you are not at home, using Remote Control to manage your PC at home. This program helps you secure your privat data from other people, if you have mounted some hard disks. It makes screen black so nobody can see what you are running. With my program you have only one try to come back in windows, if pass is wrong the PC makes a force restart.

Win+L is a way to lock your windows, but its not realy secure and some users don´t use login screen.

It restarts an you can control it again with Remote Control. Unauthorisized user can now use the computer too, but the hard disks are all unmounted.

You can change my code to only shutdown computer if you want.

About the keylogging, i know its a risk but there are some other keyloggers already postet in this Forum so i think this won´t make more damage.

I think people totaly new to Autoit can´t use it.

I don't know what you use for Remote Control but with RDP you can lock your PC the regular way and continue the session via RDP with proper login checking....

as far as keyloging: the link tells it all.

Edited June 15, 2006 by JdeB

[Matrix112]

Ok,

now i think this is realy a bit useless, anyway i like it.

If you don´t wan´t it on this Forum feel free to delete this topic.

Maybe its more easy to create a shortcut on desktop with this:

rundll32 user32,LockWorkStation

[slightly_abnormal]

doesn't nessary log anything.. it just checks for key presses.. i.e. most keyloggers catches/writes what is type.. and if this is used for personal use theirs no harm done.

[Jos]

doesn't nessary log anything.. it just checks for key presses.. i.e. most keyloggers catches/writes what is type.. and if this is used for personal use theirs no harm done.

and your point is ?

[slightly_abnormal]

was that necessary?

[Jos]

was that necessary?

Yes.... i made a point about keyloggers and you seem to disagree...