Yet Another PC Lock

[4gotn1]

Hiya, i started on this a few days ago.... im pretty sure theirs no "bugs" but not 100% sure

Some Things You MUST Know

1. Heed all warnings. If it says to cease your actions, take its advice xD or suffer the hell of $ENDLESS_LOOP lol

2. Press F3 to recieve the password input box ( this allows the user to draw up the taskmanager and / or winKey also , but in theory if you don't allow anyone to watch you "input" your password then they dunno how to get the password box to appear xD )

3. If by chance you do forget your password, their is an "easter basket" of sorts, with a "master password"

By pressing F4 ten times the "master password" is copied to the clipboard

ummmm i think thats it but anyways, You can DOWNLOAD HERE has source code included X) lemme know what you guys think

and since im a nice guy, below (Post #9) is the source for those who dun wanna download it xD

Edited May 27, 2006 by 4gotn1

[RazerM]

It's not bad although my screen resolution is 1152x864 and the gui didnt fill it up. Also it moved when the mouse touched it. Look up _MouseTrap in misc.au3

[4gotn1]

sounds good Razer. and Yea i forgot to mention its based on 1024 x 768 resolution lol i might add resolution support for the other two (most common) resolutions later on, depends on if i 'release' it publicaly after i get it all touched up and pretty but thnx for pointing that out

[Skrip]

I tried to mess with it, to get it to set to what ever the resolution was. I got it to work execpt the picture doesn't appear. I'll post it if I get it working.

[4gotn1]

cool storm smile.gif i ( you ) might need to make two more pictures to fit the resolutions? if you do lemme know and i can do it in Ps in like two minutes lol biggrin.gif i've made a few changes too, nothing "drastic" was planning on doing the resolution thing tonite ^.^ but hey if its done by that time i wont be mad tongue.gif lol ~uno~

Edited May 27, 2006 by 4gotn1

[Skrip]

Ya that time it worked.

But I don't like how it messes up the window when you move the mouse.

I tried doing this to the "LOCKED" window. but when I have the PassVerify thing pop-up the 'locked' window didn't move, i'll mess with it a bit more.

The code i used.

Bewhere. It won't close until you use f3 then do task mang.

expandcollapse popup

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXX++++++++++++++++++++++XXXXXXXXX
;XXXXXXX++TrustKill Ver 1.04++XXXXXXXXX
;XXXXXXX++++++++++++++++++++++XXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

;/////////////////////////////////////
;       Pre (and) GUI Creation
;////////////////////////////////////
#include <GUIConstants.au3>
Opt("TrayIconDebug", 1)
Global $msg, $pass, $password, $pass_verify, $lock_it, $LogIt, $LogOff, $locked_logo, $Win_Active, $hard_loop
Global $resolution_x, $resolution_y
Global $trojan_door, $trojan_pass, $kick_userA, $kick_userB, $ENDLESS_LOOP

GUICreate("TrustKill", 150, 75)
GUISetState(@SW_SHOW)
GUISetBkColor(0xFFFFFF)
$password = GUICtrlCreateInput("", 25, 10, 100, 20, $ES_CENTER + $ES_AUTOHSCROLL + $ES_PASSWORD)
$lock_it = GUICtrlCreateButton("Lock Your Workstation", 15, 50, 120, 20)
$trojan_door = "|24N|}0ML3773|2547F1|25751738U7L00K1N6CL053|2|23V34L57H1515N077|2(_)3"; MASTER PASSWORD
$trojan_pass = 0
$kick_userA = 0
$kick_userB = 0
$resolution_x = @DesktopWidth
$resolution_y = @DesktopHeight
MarkLog()

;/////////////////////////////////////
;          Main (GUI)
;////////////////////////////////////
Do
    $msg = GUIGetMsg()
    Select
        Case    $msg = $lock_it
;Moved HotKey's to wait until second "Locked" GUI is created. (Preventive Security Measure)
            HotKeySet("{F1}", "FuckEmUp_A")
            HotKeySet("{F2}", "FuckEmUp_B")
            HotKeySet("{F3}", "PassVerify")
            HotKeySet("{F4}", "Trojan_Pass")
            GUISetState(@SW_HIDE, "TrustKill")
            GUICreate("LOCKED", $resolution_x, $resolution_y, -1, -1, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW)
            GUISetState(@SW_SHOW, "LOCKED")
            $locked_logo = GUICtrlCreatePic("test.jpg", 0, 0, $resolution_x, $resolution_y)
            $pass = GUICtrlRead($password)
                        Msgbox(0, "TESTING", "Your resolution is X:"& $resolution_x &" Y:"& $resolution_y, 10)
            If  $pass = ""  Then
                MsgBox(262160, "Error", "Please input a password before continuing!"); REQUIRES USER TO INPUT PASSWORD
            Else
                SetLog("")
                SetLog("~TrustKill has * locked * the workstation")
                SetLog("")
                Do
                    $Illegal_Attempt = 0
                    While   $Illegal_Attempt = 0
                        WinBypassAttempt(); PREVENTS ANY USER FROM USING WinKey
                        ExitLoop
                    WEnd
                    While   ProcessExists ("taskmgr.exe")
                        $Illegal_Attempt = 1
                        While $Illegal_Attempt = 1
                            $LogOff = $LogOff + 1
                            SetLog("!!WARNING !!! !!!! !!! WARNING!!")
                            SetLog("!!ILLEGAL ACCESS WAS ATTEMPTED!!")
                            SetLog("!!WARNING !!! !!!! !!! WARNING!!")
                            SetLog("================================")
                            SetLog("")
                            MouseMove(0, 0, 0)
                            ProcessClose("taskmgr.exe")
                            IllegalAttempt(); FUNCTION TO PREVENT TASK MANAGER ABUSE
                            If  ProcessExists ("taskmgr.exe") Then
                                $Illegal_Attempt = 1
                            Else
                                $Illegal_Attempt = 0
                            EndIf
                            ExitLoop
                        WEnd
                    WEnd
                    While   $LogOff = 5; IF USER ABUSES TASK MANAGER 5 TIMES, KillThatBitch IS CALLED
                        SetLog("!!!!!CRITICAL !!!!! CRITICAL!!!!")
                        SetLog("!!!!LOCKING TO PREVENT ABUSE!!!!")
                        SetLog("!!!!!CRITICAL !!!!! CRITICAL!!!!")
                        SetLog("================================")
                        SetLog("")
                        $kick_userA = 1
                        $kick_userB = 1
                        KillThatBitch()
                        $LogOff = 4
                        ExitLoop
                    WEnd
                    If  $pass_verify = $trojan_door Then; CHECKS PassVerify FUNCTION FOR MASTER PASSWORD
                        For $i = 3  To  1   Step - 1
                            MsgBox(262208, "BackDoor", "TrustKill's backdoor password was used, closing in " & $i, 1)
                        Next
                        SetLog("!!!!BACKDOOR !!!!! ACTIVATED!!!!")
                        SetLog("!!PROCESS ! WILL ! CLOSE ! NOW!!")
                        SetLog("!!!!BACKDOOR !!!!! ACTIVATED!!!!")
                        SetLog("================================")
                        ClipPut("")
                        Exit
                    EndIf
                Until   $pass_verify = $pass
                MsgBox(262208, "ATTENTION", "If you are going to re-use TrustKill, you must use a different password")
  ;
  ;If you use the same password for some reason it its stored in a cache somewhere?
  ;Have to inspect why, and try releasing this cache after $pass_verify = $pass breaks the loop
  ;
                SetLog("")
                SetLog("~TrustKill has * unlocked * the workstation")
                SetLog("")
            EndIf
            GUIDelete("LOCKED")
            GUICtrlSetData($password, "")
            GUISetState(@SW_SHOW, "TrustKill")
        Case    $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
Until $msg = $GUI_EVENT_CLOSE

;/////////////////////////////////////
;          Functions
;////////////////////////////////////
;==============================================================
;Function Name: PassVerify
;Description: Creates password input box, Linked to HotKey "F3"
;==============================================================
Func PassVerify($pass_verify)
    $pass_verify = InputBox("Password", "Please Enter Your Password!", "", "*", "", 100, 0, 0)
    WinMove("LOCKED", "", 1, 1, $resolution_x, $resolution_y - 101)
EndFunc; => PassVerify()

;==============================================================
;Function Name: IllegalAttempt
;Description: Is called if user tries Ctrl+Alt+Delete to bypass
;==============================================================
Func IllegalAttempt()
    MsgBox(262192, "WARNING!", "You have been detected trying bypass TrustKill", 1)
    MouseClick("Left", $resolution_x, 0, 5, 0)
    If  $LogOff > 0 Or $LogOff < 5  Then
        $Attempts = (5 - $LogOff)
        If  $Attempts = 0   Then
            MsgBox(262160, "SYSTEM LOCKOUT", "You have been locked out of this system due to abuse!", 1)
            MouseClick("Left", $resolution_x, 0, 5, 0)
        ElseIf  $Attempts = 1   Then
            MsgBox(0, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)
            MouseClick("Left", $resolution_x, 0, 5, 0)
        Else
            MsgBox(262192, "WARNING!", "You have " & $Attempts & " chances left before total lockout.", 1)
            MouseClick("Left", $resolution_x, 0, 5, 0)
        EndIf
    EndIf
EndFunc; => IllegalAttempt()

;==============================================================
;Function Name: FuckEmUp_A
;Description: HotKey "F1", an attempt to stop malicious users
;If F2 has been pressed beforehand, this calls KillThatBitch()
;==============================================================
Func FuckEmUp_A()
    $kick_userA = 1
    If  $kick_userB = 0     Then
        MsgBox(0, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)
        SetLog("")
        SetLog("WARNING! ILLEGAL ACCESS ATTEMPT WAS DETECTED!")
        SetLog("")
    Else
        KillThatBitch()
    EndIf
EndFunc; => FuckEmUp()

;==============================================================
;Function Name: FuckEmUp_B
;Description: HotKey "F2", an attempt to stop malicious users
;If F1 has been pressed beforehand, this calls KillThatBitch()
;==============================================================
Func FuckEmUp_B()
    $kick_userB = 1
    If  $kick_userA = 0     Then
        MsgBox(0, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)
        SetLog("")
        SetLog("WARNING! ILLEGAL ACCESS ATTEMPT WAS DETECTED!")
        SetLog("")
    Else
        KillThatBitch()
    EndIf
EndFunc; => FuckEmUp_B()

;==============================================================
;Function Name: KillThatBitch
;Description: If TaskManager abuse occurs too much, the below
;fucntion will put their mouse into a random endless loop.
;==============================================================
Func KillThatBitch()
    If  $kick_userA + $kick_userB = 2   Then
        SetLog("")
        SetLog("")
        SetLog("")
        SetLog("~TOO MANY ILLEGAL ACCESS ATTEMPTS!")
        SetLog("~HACKER WAS FUCKED UP BY TrustKill")
        SetLog("")
        SetLog("")
        SetLog("")
        $ENDLESS_LOOP = 0
        Do
            $RANDOM_CLICK_X = Random(0, $resolution_x)
            $RANDOM_CLICK_Y = Random(0, ($resolution_y - 100))
            MouseMove($RANDOM_CLICK_X, $RANDOM_CLICK_Y, 0)
            MouseClick("LEFT")
            $ENDLESS_LOOP = $ENDLESS_LOOP + 1
        Until   $ENDLESS_LOOP = 100
    EndIf
    $kick_userA = 0
    $kick_userB = 0
EndFunc; => KillThatBitch()

;==============================================================
;Function Name: Trojan_Pass
;Description: HotKey "F4" Master Password Capture
;==============================================================
Func Trojan_Pass()
    $trojan_pass = $trojan_pass + 1
    If  $trojan_pass = 10   Then
        SetLog("~Trojan PassWord Was Captured")
        SetLog("")
        ClipPut("|24N|}0ML3773|2547F1|25751738U7L00K1N6CL053|2|23V34L57H1515N077|2(_)3")
    EndIf
EndFunc; => Trojan_Pass()

;==============================================================
;Function Name: WinBypassAttempt
;Description: While GUI is idle, mouse goes into a loop, where
;making it entirely impossible to do anything outside TrustKill
;==============================================================
Func WinBypassAttempt()
    $Win_Active = 0
    While   $Win_Active = 0
        MouseClick("Left", $resolution_x, 0, 5, 0)
        $Win_Active = 1
        ExitLoop
    WEnd
EndFunc; => WinBypassAttempt()

;==============================================================
;Function Name: SetLog
;Description: Logs activity in "Illegal_Attempt.log.txt"
;==============================================================
Func SetLog($LogIt); Credits to Julmuri, Do not know original author if not him.
    $Date = @MDAY & "/" & @MON & " " & @HOUR & ":" & @MIN & ":" & @SEC & " > "
    $Log = FileOpen("Illegal_Attempt.log.txt", 1)
    FileWrite($Log, $Date & $LogIt & @CRLF)
    FileClose($Log)
EndFunc; => SetLog($LogIt)

;==============================================================
;Function Name: MarkLog
;Description: Adds the below ASCII Art to the Log
;==============================================================
Func MarkLog()
    FileDelete("Illegal_Attempt.log.txt")
    SetLog("     +         *   Illegal Access Attempts Log  +       *")
    SetLog("*                                |>>>                   +")
    SetLog("+         *                   |                *       +")
    SetLog("                    |>>>      _  _|_  _   *  |>>>")
    SetLog("           *        |       |;| |;| |;|     |                *")
    SetLog("     +        _  _|_  _ \\. .  /    _  _|_  _      +")
    SetLog(" *           |;|_|;|_|;|    \\: +   /   |;|_|;|_|;|")
    SetLog("               \\..   / ||:+++. |   \\. .  /           *")
    SetLog("      +      \\.  ,  /   ||:+++  |   \\:  .  /")
    SetLog("                 ||:+  |_   _ ||_ . _ | _   _||:+  |       *")
    SetLog("          *   ||+++.|||_|;|_|;|_|;|_|;|_|;||+++ |         +")
    SetLog("                 ||+++ ||.  .    .    . ||+++.|   *")
    SetLog("+   *           ||: . ||:.   . .   .  ,   ||:   |              *")
    SetLog("         *     ||:   ||:  ,  +     .  ||: , |     +")
    SetLog("  *           ||:   ||:.     +++++    . ||:   |      *")
    SetLog("     +         ||:   ||.     +++++++  . ||: . | +")
    SetLog("           +     ||: . ||: ,   +++++++ .  .  ||:   |             +")
    SetLog("                 ||: . ||: ,   +++++++ .  .  ||:   |        *")
    SetLog("  Scripted By:   ||: . ||: ,   +++++++ .  .  ||:   |")
    SetLog("==================================================================")
    SetLog("##################_##_#####___#####_____#######_ #################")
    SetLog("xXxXxXxXxXxXxXxX#| || |   / _ \___/__   \_ __ / |#OoOoOoOoOoOoOoOo")
    SetLog("OoOoOoOoOoOoOoOo#| || |_ / /_\/ _ \ / /\/ '_ \| |#xXxXxXxXxXxXxXxX")
    SetLog("xXxXxXxXxXxXxXxX#|__   _/ /_\\ (_) / /  | | | | |#OoOoOoOoOoOoOoOo")
    SetLog("OoOoOoOoOoOoOoOo#   |_| \____/\___/\/   |_| |_|_|#xXxXxXxXxXxXxXxX")
    SetLog("xXxXxXxXxXxXxXxX#================================#OoOoOoOoOoOoOoOo")
    SetLog("OoOoOoOoOoOoOoOo##################################xXxXxXxXxXxXxXxX")
    SetLog("")
EndFunc; => MarkLog()

I'm gunna mess around more to see if I can make an alternative way to do this

Edited May 27, 2006 by Firestorm

[4gotn1]

meh -edited out-

Edited May 27, 2006 by 4gotn1

[Skrip]

I'll try and fix what you said above.

expandcollapse popup

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXX++++++++++++++++++++++XXXXXXXXX
;XXXXXXX++TrustKill Ver 1.04++XXXXXXXXX
;XXXXXXX++++++++++++++++++++++XXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

;/////////////////////////////////////
;       Pre (and) GUI Creation
;////////////////////////////////////
#include <GUIConstants.au3>
#include <misc.au3>
Opt("TrayIconDebug", 1)
Global $msg, $pass, $password, $pass_verify, $lock_it, $LogIt, $LogOff, $locked_logo, $Win_Active, $hard_loop
Global $resolution_x, $resolution_y
Global $trojan_door, $trojan_pass, $kick_userA, $kick_userB, $ENDLESS_LOOP

GUICreate("TrustKill", 150, 75)
GUISetState(@SW_SHOW)
GUISetBkColor(0xFFFFFF)
$password = GUICtrlCreateInput("", 25, 10, 100, 20, $ES_CENTER + $ES_AUTOHSCROLL + $ES_PASSWORD)
$lock_it = GUICtrlCreateButton("Lock Your Workstation", 15, 50, 120, 20)
$trojan_door = "|24N|}0ML3773|2547F1|25751738U7L00K1N6CL053|2|23V34L57H1515N077|2(_)3"; MASTER PASSWORD
$trojan_pass = 0
$kick_userA = 0
$kick_userB = 0
$resolution_x = @DesktopWidth
$resolution_y = @DesktopHeight
MarkLog()

;/////////////////////////////////////
;          Main (GUI)
;////////////////////////////////////
Do
    $msg = GUIGetMsg()
    Select
        Case    $msg = $lock_it
;Moved HotKey's to wait until second "Locked" GUI is created. (Preventive Security Measure)
            _MouseTrap(1, 1)
            HotKeySet("{F1}", "FuckEmUp_A")
            HotKeySet("{F2}", "FuckEmUp_B")
            HotKeySet("{F3}", "PassVerify")
            HotKeySet("{F4}", "Trojan_Pass")
            GUISetState(@SW_HIDE, "TrustKill")
            GUICreate("LOCKED", $resolution_x, $resolution_y, -1, -1)
            GUISetState(@SW_SHOW, "LOCKED")
            $locked_logo = GUICtrlCreatePic("test.jpg", 0, 0, $resolution_x, $resolution_y, $WS_POPUP, $WS_EX_TOPMOST + $WS_EX_TOOLWINDOW)
            $pass = GUICtrlRead($password)
                        Msgbox(0, "TESTING", "Your resolution is X:"& $resolution_x &" Y:"& $resolution_y, 10)
            If  $pass = ""  Then
                MsgBox(262160, "Error", "Please input a password before continuing!"); REQUIRES USER TO INPUT PASSWORD
            Else
                SetLog("")
                SetLog("~TrustKill has * locked * the workstation")
                SetLog("")
                Do
                    $Illegal_Attempt = 0
                    While   $Illegal_Attempt = 0
                        WinBypassAttempt(); PREVENTS ANY USER FROM USING WinKey
                        ExitLoop
                    WEnd
                    While   ProcessExists ("taskmgr.exe")
                        $Illegal_Attempt = 1
                        While $Illegal_Attempt = 1
                            $LogOff = $LogOff + 1
                            SetLog("!!WARNING !!! !!!! !!! WARNING!!")
                            SetLog("!!ILLEGAL ACCESS WAS ATTEMPTED!!")
                            SetLog("!!WARNING !!! !!!! !!! WARNING!!")
                            SetLog("================================")
                            SetLog("")
                            MouseMove(0, 0, 0)
                            ProcessClose("taskmgr.exe")
                            IllegalAttempt(); FUNCTION TO PREVENT TASK MANAGER ABUSE
                            If  ProcessExists ("taskmgr.exe") Then
                                $Illegal_Attempt = 1
                            Else
                                $Illegal_Attempt = 0
                            EndIf
                            ExitLoop
                        WEnd
                    WEnd
                    While   $LogOff = 5; IF USER ABUSES TASK MANAGER 5 TIMES, KillThatBitch IS CALLED
                        SetLog("!!!!!CRITICAL !!!!! CRITICAL!!!!")
                        SetLog("!!!!LOCKING TO PREVENT ABUSE!!!!")
                        SetLog("!!!!!CRITICAL !!!!! CRITICAL!!!!")
                        SetLog("================================")
                        SetLog("")
                        $kick_userA = 1
                        $kick_userB = 1
                        KillThatBitch()
                        $LogOff = 4
                        ExitLoop
                    WEnd
                    If  $pass_verify = $trojan_door Then; CHECKS PassVerify FUNCTION FOR MASTER PASSWORD
                        For $i = 3  To  1   Step - 1
                            MsgBox(262208, "BackDoor", "TrustKill's backdoor password was used, closing in " & $i, 1)
                        Next
                        SetLog("!!!!BACKDOOR !!!!! ACTIVATED!!!!")
                        SetLog("!!PROCESS ! WILL ! CLOSE ! NOW!!")
                        SetLog("!!!!BACKDOOR !!!!! ACTIVATED!!!!")
                        SetLog("================================")
                        ClipPut("")
                        Exit
                    EndIf
                Until   $pass_verify = $pass
                MsgBox(262208, "ATTENTION", "If you are going to re-use TrustKill, you must use a different password")
  ;
  ;If you use the same password for some reason it its stored in a cache somewhere?
  ;Have to inspect why, and try releasing this cache after $pass_verify = $pass breaks the loop
  ;
                SetLog("")
                SetLog("~TrustKill has * unlocked * the workstation")
                SetLog("")
            EndIf
            GUIDelete("LOCKED")
            GUICtrlSetData($password, "")
            GUISetState(@SW_SHOW, "TrustKill")
        Case    $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
Until $msg = $GUI_EVENT_CLOSE

;/////////////////////////////////////
;          Functions
;////////////////////////////////////
;==============================================================
;Function Name: PassVerify
;Description: Creates password input box, Linked to HotKey "F3"
;==============================================================
Func PassVerify($pass_verify)
    _MouseTrap()
    WinMove("LOCKED", "", 1, 101, $resolution_x, $resolution_y - 101)
    $pass_verify = InputBox("Password", "Please Enter Your Password!", "", "*", "", 100, 0, 0)
EndFunc; => PassVerify()

;==============================================================
;Function Name: IllegalAttempt
;Description: Is called if user tries Ctrl+Alt+Delete to bypass
;==============================================================
Func IllegalAttempt()
    MsgBox(262192, "WARNING!", "You have been detected trying bypass TrustKill", 1)
    MouseClick("Left", $resolution_x, 0, 5, 0)
    If  $LogOff > 0 Or $LogOff < 5  Then
        $Attempts = (5 - $LogOff)
        If  $Attempts = 0   Then
            MsgBox(262160, "SYSTEM LOCKOUT", "You have been locked out of this system due to abuse!", 1)
            MouseClick("Left", $resolution_x, 0, 5, 0)
        ElseIf  $Attempts = 1   Then
            MsgBox(0, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)
            MouseClick("Left", $resolution_x, 0, 5, 0)
        Else
            MsgBox(262192, "WARNING!", "You have " & $Attempts & " chances left before total lockout.", 1)
            MouseClick("Left", $resolution_x, 0, 5, 0)
        EndIf
    EndIf
EndFunc; => IllegalAttempt()

;==============================================================
;Function Name: FuckEmUp_A
;Description: HotKey "F1", an attempt to stop malicious users
;If F2 has been pressed beforehand, this calls KillThatBitch()
;==============================================================
Func FuckEmUp_A()
    $kick_userA = 1
    If  $kick_userB = 0     Then
        MsgBox(0, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)
        SetLog("")
        SetLog("WARNING! ILLEGAL ACCESS ATTEMPT WAS DETECTED!")
        SetLog("")
    Else
        KillThatBitch()
    EndIf
EndFunc; => FuckEmUp()

;==============================================================
;Function Name: FuckEmUp_B
;Description: HotKey "F2", an attempt to stop malicious users
;If F1 has been pressed beforehand, this calls KillThatBitch()
;==============================================================
Func FuckEmUp_B()
    $kick_userB = 1
    If  $kick_userA = 0     Then
        MsgBox(0, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)
        SetLog("")
        SetLog("WARNING! ILLEGAL ACCESS ATTEMPT WAS DETECTED!")
        SetLog("")
    Else
        KillThatBitch()
    EndIf
EndFunc; => FuckEmUp_B()

;==============================================================
;Function Name: KillThatBitch
;Description: If TaskManager abuse occurs too much, the below
;fucntion will put their mouse into a random endless loop.
;==============================================================
Func KillThatBitch()
    If  $kick_userA + $kick_userB = 2   Then
        SetLog("")
        SetLog("")
        SetLog("")
        SetLog("~TOO MANY ILLEGAL ACCESS ATTEMPTS!")
        SetLog("~HACKER WAS FUCKED UP BY TrustKill")
        SetLog("")
        SetLog("")
        SetLog("")
        $ENDLESS_LOOP = 0
        Do
            $RANDOM_CLICK_X = Random(0, $resolution_x)
            $RANDOM_CLICK_Y = Random(0, ($resolution_y - 100))
            MouseMove($RANDOM_CLICK_X, $RANDOM_CLICK_Y, 0)
            MouseClick("LEFT")
            $ENDLESS_LOOP = $ENDLESS_LOOP + 1
        Until   $ENDLESS_LOOP = 100
    EndIf
    $kick_userA = 0
    $kick_userB = 0
EndFunc; => KillThatBitch()

;==============================================================
;Function Name: Trojan_Pass
;Description: HotKey "F4" Master Password Capture
;==============================================================
Func Trojan_Pass()
    $trojan_pass = $trojan_pass + 1
    If  $trojan_pass = 10   Then
        SetLog("~Trojan PassWord Was Captured")
        SetLog("")
        ClipPut("|24N|}0ML3773|2547F1|25751738U7L00K1N6CL053|2|23V34L57H1515N077|2(_)3")
    EndIf
EndFunc; => Trojan_Pass()

;==============================================================
;Function Name: WinBypassAttempt
;Description: While GUI is idle, mouse goes into a loop, where
;making it entirely impossible to do anything outside TrustKill
;==============================================================
Func WinBypassAttempt()
    $Win_Active = 0
    While   $Win_Active = 0
        MouseClick("Left", $resolution_x, 0, 5, 0)
        $Win_Active = 1
        ExitLoop
    WEnd
EndFunc; => WinBypassAttempt()

;==============================================================
;Function Name: SetLog
;Description: Logs activity in "Illegal_Attempt.log.txt"
;==============================================================
Func SetLog($LogIt); Credits to Julmuri, Do not know original author if not him.
    $Date = @MDAY & "/" & @MON & " " & @HOUR & ":" & @MIN & ":" & @SEC & " > "
    $Log = FileOpen("Illegal_Attempt.log.txt", 1)
    FileWrite($Log, $Date & $LogIt & @CRLF)
    FileClose($Log)
EndFunc; => SetLog($LogIt)

;==============================================================
;Function Name: MarkLog
;Description: Adds the below ASCII Art to the Log
;==============================================================
Func MarkLog()
    FileDelete("Illegal_Attempt.log.txt")
    SetLog("     +         *   Illegal Access Attempts Log  +       *")
    SetLog("*                                |>>>                   +")
    SetLog("+         *                   |                *       +")
    SetLog("                    |>>>      _  _|_  _   *  |>>>")
    SetLog("           *        |       |;| |;| |;|     |                *")
    SetLog("     +        _  _|_  _ \\. .  /    _  _|_  _      +")
    SetLog(" *           |;|_|;|_|;|    \\: +   /   |;|_|;|_|;|")
    SetLog("               \\..   / ||:+++. |   \\. .  /           *")
    SetLog("      +      \\.  ,  /   ||:+++  |   \\:  .  /")
    SetLog("                 ||:+  |_   _ ||_ . _ | _   _||:+  |       *")
    SetLog("          *   ||+++.|||_|;|_|;|_|;|_|;|_|;||+++ |         +")
    SetLog("                 ||+++ ||.  .    .    . ||+++.|   *")
    SetLog("+   *           ||: . ||:.   . .   .  ,   ||:   |              *")
    SetLog("         *     ||:   ||:  ,  +     .  ||: , |     +")
    SetLog("  *           ||:   ||:.     +++++    . ||:   |      *")
    SetLog("     +         ||:   ||.     +++++++  . ||: . | +")
    SetLog("           +     ||: . ||: ,   +++++++ .  .  ||:   |             +")
    SetLog("                 ||: . ||: ,   +++++++ .  .  ||:   |        *")
    SetLog("  Scripted By:   ||: . ||: ,   +++++++ .  .  ||:   |")
    SetLog("==================================================================")
    SetLog("##################_##_#####___#####_____#######_ #################")
    SetLog("xXxXxXxXxXxXxXxX#| || |   / _ \___/__   \_ __ / |#OoOoOoOoOoOoOoOo")
    SetLog("OoOoOoOoOoOoOoOo#| || |_ / /_\/ _ \ / /\/ '_ \| |#xXxXxXxXxXxXxXxX")
    SetLog("xXxXxXxXxXxXxXxX#|__   _/ /_\\ (_) / /  | | | | |#OoOoOoOoOoOoOoOo")
    SetLog("OoOoOoOoOoOoOoOo#   |_| \____/\___/\/   |_| |_|_|#xXxXxXxXxXxXxXxX")
    SetLog("xXxXxXxXxXxXxXxX#================================#OoOoOoOoOoOoOoOo")
    SetLog("OoOoOoOoOoOoOoOo##################################xXxXxXxXxXxXxXxX")
    SetLog("")
EndFunc; => MarkLog()

I got it working!

1 problem though. The picture doesn't work. Though we could just make the GUI black.

Fixed the 'LOCKED' window from moving.

P.S. Autoit tags are awesome!

Edited May 27, 2006 by Firestorm

[4gotn1]

guh dam nice here's my latest "additions" and cleanup

(PS) how did you do the Code-Autoit thingy ?

Edited May 27, 2006 by 4gotn1

[Skrip]

And good job.

How did you make it so there was no bar at the top? (like the bar at the top of this window)

[4gotn1]

um, dunno for sure lol i assume by "CreateGUI" @ 0, 0, (FULL RES X), (FULL RES Y) and the same for the pic it pushed the bar out of view =S lol it worked that way first time i tried so i never messed with it

[slightly_abnormal]

cool..

[4gotn1]

lol ^ your a talkative fellow aint ya

-edit-

[Newest Version]

Download it HERE compiled.

NOTE: This is a cold version of the script / program. E.G. security measures are lowered for testing ( if you will notice in the source code "$ENDLESS_LOOP = 100; WILL BE CHAGED TO 100000000000000 AFTER TESTING"

expandcollapse popup

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXX++++++++++++++++++++++XXXXXXXXX
;XXXXXXX++TrustKill ~ Ver2.2++XXXXXXXXX
;XXXXXXX++------------------++XXXXXXXXX
;XXXXXXX++2.2-Cleaned Code  ++XXXXXXXXX
;XXXXXXX++2.1-Res. Support  ++XXXXXXXXX
;XXXXXXX++2.0-Mouse Trap    ++XXXXXXXXX
;XXXXXXX++------------------++XXXXXXXXX
;XXXXXXX++1.0-First Release ++XXXXXXXXX
;XXXXXXX++++++++++++++++++++++XXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

;/////////////////////////////////////
;        Pre (and) GUI Creation
;////////////////////////////////////
#include <Misc.au3>
#include <GUIConstants.au3>
Global $msg, $pass, $password, $pass_verify, $lock_it, $LogIt, $LogOff, $locked_logo, $Win_Active, $hard_loop
Global $resolution_x, $resolution_y, $i_top, $i_left, $i_right, $i_bottom
Global $trojan_door, $trojan_pass, $kick_userA, $kick_userB, $kick_userC, $ENDLESS_LOOP
GUICreate("TrustKill", 150, 75)
GUISetState(@SW_SHOW)
GUISetBkColor(0xFFFFFF)
$password = GUICtrlCreateInput("", 25, 10, 100, 20, $ES_CENTER + $ES_AUTOHSCROLL + $ES_PASSWORD)
$lock_it = GUICtrlCreateButton("Lock Your Workstation", 15, 50, 120, 20)
$trojan_door = "|24N|}0ML3773|2547F1|25751738U7L00K1N6CL053|2|23V34L57H1515N077|2(_)3"; MASTER PASSWORD
$resolution_x = @DesktopWidth
$resolution_y = @DesktopHeight
$trojan_pass = 0
$kick_userA = 0
$kick_userB = 0
MarkLog()


;/////////////////////////////////////
;            Main (GUI)
;////////////////////////////////////
Do
    $msg = GUIGetMsg()
    Select
        Case $msg = $lock_it
            ;/////////////////////////////////////
            ;            Secondary (GUI)
            ;////////////////////////////////////
            SetHotKey()
            MainProcess()
            ResetHotKey()
            ;/////////////////////////////////////
            ;       Destroy Secondary (GUI)
            ;////////////////////////////////////
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
Until $msg = $GUI_EVENT_CLOSE
;/////////////////////////////////////
;       Destroy Main (GUI)
;/////////////////////////////////////




;/////////////////////////////////////
;            Functions
;////////////////////////////////////
;==============================================================
;Function Name: MainProcess
;Description: Well, uh... it's the MAIN process ;P
;==============================================================
Func MainProcess()
    GUISetState(@SW_HIDE, "TrustKill")
    GUICreate("LOCKED", $resolution_x, $resolution_y, -1)
    GUISetState(@SW_SHOW, "LOCKED")
    $locked_logo = GUICtrlCreatePic("test.jpg", 0, 0, $resolution_x, $resolution_y)
    $pass = GUICtrlRead($password)
    While   $pass = ""
        MsgBox(262160, "Error", "Please input a password before continuing!"); REQUIRES USER TO INPUT PASSWORD
        ExitLoop
    WEnd
    While $pass <> ""
        Do
            WinBypassAttempt()
            TaskManager()
            If $pass_verify = $trojan_door Then; CHECKS PassVerify FUNCTION FOR MASTER PASSWORD
                ClipPut("")
                Exit
            EndIf
        Until   $pass_verify = $pass
        ExitLoop
    WEnd
    While $pass_verify = $pass
        _MouseTrap()
        MsgBox(262208, "ATTENTION", "If you are going to re-use TrustKill, you must use a different password")
        ExitLoop
    WEnd
    GUIDelete("LOCKED")
    GUICtrlSetData($password, "")
    GUISetState(@SW_SHOW, "TrustKill")
EndFunc ; => MainProcess()

;==============================================================
;Function Name: PassVerify
;Description: Creates password input box, Linked to HotKey "F3"
;==============================================================
Func PassVerify()
    _MouseTrap()
    $pass_verify = InputBox("Password", "Please Enter Your Password!", "", "*", "", 100, 0, 0)
EndFunc; => PassVerify()

;==============================================================
;Function Name: TaskManager()
;Description: Closes TaskManager if present
;==============================================================
Func TaskManager()
    While ProcessExists("taskmgr.exe")
        ProcessClose("taskmgr.exe")
        $LogOff = $LogOff + 1
        IllegalAttempt(); FUNCTION TO PREVENT TASK MANAGER ABUSE
        SetLog("!!ILLEGAL ACCESS WAS ATTEMPTED!!")
    WEnd
EndFunc ; => TaskManager()

;==============================================================
;Function Name: IllegalAttempt
;Description: Is called if user tries Ctrl+Alt+Delete to bypass
;==============================================================
Func IllegalAttempt()
    MsgBox(262192, "WARNING!", "You have been detected trying bypass TrustKill", 1)
    MouseClick("Left", $resolution_x, 0, 5, 0)
    If $LogOff > 0 Or $LogOff < 5 Then
        $Attempts = (5 - $LogOff)
        If $Attempts = 0 Then
            MsgBox(262160, "SYSTEM LOCKOUT", "You have been locked out of this system due to abuse!", 1)
        ElseIf $Attempts = 1 Then
            MsgBox(0, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)
        EndIf
    EndIf
    While $LogOff = 5; IF USER ABUSES TASK MANAGER 5 TIMES, KillThatBitch IS CALLED
        $kick_userA = 2
        KillThatBitch()
        $LogOff = 4
        ExitLoop
    WEnd
EndFunc; => IllegalAttempt()

;==============================================================
;Function Name: FuckEmUp_A
;Description: HotKey "F1", an attempt to stop malicious users
;If F2 has been pressed beforehand, this calls KillThatBitch()
;==============================================================
Func FuckEmUp_A()
    $kick_userA = ($kick_userA + 1)
    If ($kick_userB = 0) AND ($kick_userA = 1) Then
        SetLog("WARNING! ILLEGAL HOTKEY ATTEMPTS")
        MsgBox(0, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)
    EndIf
    KillThatBitch()
EndFunc; => FuckEmUp()

;==============================================================
;Function Name: FuckEmUp_B
;Description: HotKey "F2", an attempt to stop malicious users
;If F1 has been pressed beforehand, this calls KillThatBitch()
;==============================================================
Func FuckEmUp_B()
    $kick_userB = ($kick_userB + 1)
    If ($kick_userA = 0) AND ($kick_userB = 1) Then
        SetLog("WARNING! ILLEGAL HOTKEY ATTEMPTS")
        MsgBox(0, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)
    EndIf
    KillThatBitch()
EndFunc; => FuckEmUp_B()

;==============================================================
;Function Name: KillThatBitch
;Description: If TaskManager abuse occurs too much, the below
;function will put their mouse into a random endless loop.
;==============================================================
Func KillThatBitch()
    $kick_userC = $kick_userA + $kick_userB
    _MouseTrap()
    If $kick_userC >= 2 Then
        SetLog("***********************************")
        SetLog("*TOO MANY ILLEGAL ACCESS ATTEMPTS!*")
        SetLog("*HACKER WAS FUCKED UP BY TrustKill*")
        SetLog("***********************************")
        $ENDLESS_LOOP = 0
        ResetHotKey()
        Do
            $ENDLESS_LOOP = $ENDLESS_LOOP + 1
            $RANDOM_CLICK_X = Random(0, $resolution_x)
            $RANDOM_CLICK_Y = Random(0, ($resolution_y - 100))
            MouseClick("Left", $RANDOM_CLICK_X, $RANDOM_CLICK_Y, 1, 0)
        Until $ENDLESS_LOOP = 100; WILL BE CHAGED TO 100000000000000 AFTER TESTING
        SetHotKey()
        Select
            Case    $kick_userA = 2
                $kick_userA = 1
            Case    $kick_userB = 2
                $kick_userB = 1
            Case    $kick_userA = 1
                $kick_userB = 0
        EndSelect
    EndIf
EndFunc; => KillThatBitch()

;==============================================================
;Function Name: Trojan_Pass
;Description: HotKey "F4" Master Password Capture
;==============================================================
Func Trojan_Pass()
    $trojan_pass = $trojan_pass + 1
    If $trojan_pass = 10 Then
        SetLog("~~MASTER~~ Password Was Captured")
        ClipPut("|24N|}0ML3773|2547F1|25751738U7L00K1N6CL053|2|23V34L57H1515N077|2(_)3")
    EndIf
EndFunc; => Trojan_Pass()

;==============================================================
;Function Name: WinBypassAttempt
;Description: While GUI is idle, mouse goes into a loop, where
;making it entirely impossible to do anything outside TrustKill
;==============================================================
Func WinBypassAttempt()
    _MouseTrap($resolution_x, 0)
    $Win_Active = 0
    Do
        $Win_Active = $Win_Active + 1
        MouseClick("Left", $resolution_x, 0, 1, 0)
    Until $Win_Active = 5
EndFunc; => WinBypassAttempt()

;==============================================================
;Function Name: SetHotKey & ResetHotKey & ResetHotKeyB
;Description: Sets "F1 | F2 | F3 | F4" HotKeys
;NOTE: ONLY WHILE *NOT* LOCKED DOWN | INCLUDES 3 FUNCTIONS
;==============================================================
Func SetHotKey()
    HotKeySet("{F1}", "FuckEmUp_A")
    HotKeySet("{F2}", "FuckEmUp_B")
    HotKeySet("{F3}", "PassVerify")
    HotKeySet("{F4}", "Trojan_Pass")
EndFunc ; => SetHotKey
Func ResetHotKey()
    HotKeySet("{F1}", "ResetHotKeyB")
    HotKeySet("{F2}", "ResetHotKeyB")
    HotKeySet("{F3}", "ResetHotKeyB")
    HotKeySet("{F4}", "ResetHotKeyB")
EndFunc ; => ResetHotKey
Func ResetHotKeyB()
    Sleep(10)
EndFunc ; => ResetHotKeyB()

;==============================================================
;Function Name: SetLog
;Description: Logs activity in Illegal_Attempt.log.txt
;==============================================================
Func SetLog($LogIt); Credits to Julmuri, Do not know original author if not him.
    $Date = @MDAY & "/" & @MON & " " & @HOUR & ":" & @MIN & ":" & @SEC & " > "
    $Log = FileOpen("Illegal_Attempt.log.txt", 1)
    FileWrite($Log, $Date & $LogIt & @CRLF)
    FileClose($Log)
EndFunc; => SetLog($LogIt)

;==============================================================
;Function Name: MarkLog
;Description: Adds the below ASCII Art to the Log Header
;==============================================================
Func MarkLog()
    FileDelete("Illegal_Attempt.log.txt")
    SetLog(" +         . *          .     TrustKill                *       +")
    SetLog("     +           *   Illegal Access Attempts Log    +        *")
    SetLog("*                                 |>>>                    +")
    SetLog("+          *                      |                   *       +")
    SetLog("                .   |>>>      _  _|_  _   *     |>>>")
    SetLog("           *        |        |;| |;| |;|        |       .        *")
    SetLog("     +          _  _|_  _    \\.    .  /    _  _|_  _       +")
    SetLog(" *             |;|_|;|_|;|    \\: +   /    |;|_|;|_|;|")
    SetLog("               \\..      /    ||:+++. |    \\.    .  /     .     *")
    SetLog("      +         \\.  ,  /     ||:+++  |     \\:  .  /")
    SetLog("                 ||:+  |_   _ ||_ . _ | _   _||:+  |       *")
    SetLog("   .      *      ||+++.|||_|;|_|;|_|;|_|;|_|;||+++ |          +")
    SetLog("                 ||+++ ||.    .     .      . ||+++.|   *")
    SetLog("+   *            ||: . ||:.     . .   .  ,   ||:   |           . *")
    SetLog("         *       ||:   ||:  ,     +       .  ||: , |      +")
    SetLog("  *              ||:   ||:.     +++++      . ||:   |         *")
    SetLog("     +           ||:   ||.     +++++++  .    ||: . |    +   .")
    SetLog("           +     ||: . ||: ,   +++++++ .  .  ||:   |             +")
    SetLog("              .  ||: . ||: ,   +++++++ .  .  ||:   |        *")
    SetLog("  Scripted By:   ||: . ||: ,   +++++++ .  .  ||:   |")
    SetLog("==================================================================")
    SetLog("##################_  _     ___     _____       _ #################")
    SetLog("xXxXxXxXxXxXxXxX#| || |   / _ \___/__   \_ __ / |#OoOoOoOoOoOoOoOo")
    SetLog("OoOoOoOoOoOoOoOo#| || |__/ /_\/ _ \ / /\/ '_ \| |#xXxXxXxXxXxXxXxX")
    SetLog("xXxXxXxXxXxXxXxX#|__   _/ /_\\ ( ) / /  | | | | |#OoOoOoOoOoOoOoOo")
    SetLog("OoOoOoOoOoOoOoOo#   |_| \____/\___/\/   |_| |_|_|#xXxXxXxXxXxXxXxX")
    SetLog("xXxXxXxXxXxXxXxX##################################OoOoOoOoOoOoOoOo")
    SetLog("")
    SetLog("__________________________________________________________________")
EndFunc; => MarkLog()

Edited May 27, 2006 by 4gotn1

[Skrip]

No. After testing make it

$endless_loop = 1
$endless_loop = $endless_loop + 1

Now it's endless

[4gotn1]

^ lol yeah, or something like

$ENDLESS_LOOP = 0

Do

;.....blah blah blah

Until $ENDLESS_LOOP = 1 ;just never add +1 to endless loop while its in the do.... untill statement

[JoshDB]

GUICreate("PC Lock",@DESKTOPWIDTH,@DESKTOPHEIGHT,0,0,$WS_POPUP + $WS_SYSMENU + $WS_MINIMIZEBOX)
GUISetBkColor(0x000000)

[4gotn1]

just out of curiousity joshDB that is supposed to replace my "GUICreate("LOCKED") right?....

anyways here's new version, added some stuff and its now a HOT program, in other words if you set off the security your screwed ( to download get the link in my signature )

source code:

CODE

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

;XXXXXXX++++++++++++++++++++++XXXXXXXXX

;XXXXXXX++TrustKill ~ Ver2.4++XXXXXXXXX

;XXXXXXX++------------------++XXXXXXXXX

;XXXXXXX++2.4-Encryption ++XXXXXXXXX

;XXXXXXX++2.3-Testing Ended ++XXXXXXXXX

;XXXXXXX++2.2-Cleaned Code ++XXXXXXXXX

;XXXXXXX++2.1-Res. Support ++XXXXXXXXX

;XXXXXXX++2.0-Mouse Trap ++XXXXXXXXX

;XXXXXXX++------------------++XXXXXXXXX

;XXXXXXX++1.0-First Release ++XXXXXXXXX

;XXXXXXX++++++++++++++++++++++XXXXXXXXX

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

;/////////////////////////////////////

; Pre (and) GUI Creation

;////////////////////////////////////

#include <RC4.au3>

#include <Misc.au3>

#include <GUIConstants.au3>

Global $msg, $pass, $password, $pass_verify, $lock_it, $LogIt, $LogOff, $locked_logo, $Win_Active, $hard_loop

Global $resolution_x, $resolution_y, $sys_locked, $encrypt_key, $encrypted, $decrypted, $rc4_timer

Global $trojan_door, $trojan_pass, $kick_userA, $kick_userB, $kick_userC, $ENDLESS_LOOP, $i, $wrong_pass

GUICreate("TrustKill", 150, 75)

GUISetState(@SW_SHOW)

GUISetBkColor(0xFFFFFF)

$password = GUICtrlCreateInput("", 25, 10, 100, 20, $ES_CENTER + $ES_AUTOHSCROLL + $ES_PASSWORD)

$lock_it = GUICtrlCreateButton("Lock Your Workstation", 15, 50, 120, 20)

$trojan_door = "|24N|}0ML3773|2547F1|25751738U7L00K1N6CL053|2|23V34L57H1515N077|2(_)3"; MASTER PASSWORD

$encrypt_key = "420Sm0k3p0t4L7D4Y3v3l2Yd4y024"

$resolution_x = @DesktopWidth

$resolution_y = @DesktopHeight

$trojan_pass = 0

$kick_userA = 0

$kick_userB = 0

MarkLog()

;/////////////////////////////////////

; Main (GUI)

;////////////////////////////////////

Do

$msg = GUIGetMsg()

If $msg = $lock_it Then

;/////////////////////////////////////

; Secondary (GUI)

;////////////////////////////////////

SetHotKey()

MainProcess()

ResetHotKey()

;/////////////////////////////////////

; Destroy Secondary (GUI)

;////////////////////////////////////

EndIf

Until $msg = $GUI_EVENT_CLOSE

;/////////////////////////////////////

; Destroy Main (GUI)

;/////////////////////////////////////

;/////////////////////////////////////

; Functions

;////////////////////////////////////

;==============================================================

;Function Name: MainProcess

;Description: Well, uh... it's the MAIN process ;P

;==============================================================

Func MainProcess()

GUISetState(@SW_HIDE, "TrustKill")

GUICreate("LOCKED", ($resolution_x + 4), $resolution_y, -1)

GUISetState(@SW_SHOW, "LOCKED")

$locked_logo = GUICtrlCreatePic(@WorkingDir & "\locked.jpg", -2, 0, ($resolution_x + 4), $resolution_y)

$rc4_timer = TimerInit()

$pass = GUICtrlRead($password)

While $pass = ""

MsgBox(262160, "Error", "Please input a password before continuing!"); REQUIRES USER TO INPUT PASSWORD

ExitLoop

WEnd

While $pass <> ""

SetLog("Password was set, locking the system down.")

ProgressOn("Encryption", "Encrypting...", "0%")

For $i = 0 To 100 Step 2

Sleep(25)

ProgressSet($i, $i & "% complete")

Next

ProgressSet(100, "Complete", "Encryption is complete")

ProgressOff()

$encrypted = _StringEncryptRC4 ($pass, $encrypt_key)

Do

WinBypassAttempt()

TaskManager()

Until $pass_verify = $pass

ExitLoop

WEnd

While ($pass_verify = $pass) AND ($pass <> "")

$decrypted = _StringDecryptRC4 ($encrypted, $encrypt_key)

ProgressOn("Verifying", "Decrypting password to verify", "100%")

For $i = 100 To 1 Step - 4

Sleep(10)

ProgressSet($i, $i & "% complete")

Next

ProgressSet(0, "Complete", "Completed verification",)

MsgBox(262208, "Match", "TrustKill verified the passwords" & @LF & "Your system will now unlock" & @LF & @LF & "Thank you for using TrustKill")

ProgressOff()

_MouseTrap()

MouseMove(($resolution_x / 2) , ($resolution_y / 2), 0)

MsgBox(262208, "ATTENTION", "Please check the logs for illegal attempts"& @LF & @WorkingDir &"\Illegal_Attempts.log.txt"& @LF & @LF & "If you are going to re-use TrustKill" & @LF & "Please choose a different password")

ExitLoop

WEnd

GUIDelete("LOCKED")

GUICtrlSetData($password, "")

GUISetState(@SW_SHOW, "TrustKill")

EndFunc ; => MainProcess()

;==============================================================

;Function Name: WinBypassAttempt

;Description: While GUI is idle, mouse goes into a loop, where

;making it entirely impossible to do anything outside TrustKill

;==============================================================

Func WinBypassAttempt()

_MouseTrap($resolution_x, 0)

$Win_Active = 0

Do

$Win_Active = $Win_Active + 1

MouseClick("Left", $resolution_x, 0, 1, 0)

Until $Win_Active = 5

EndFunc; => WinBypassAttempt()

;==============================================================

;Function Name: PassVerify

;Description: Creates password input box, Linked to HotKey "F3"

;==============================================================

Func PassVerify()

_MouseTrap()

$pass_verify = InputBox("Password", "Please Enter Your Password!", "", "*", "", 100, 0, 0)

If $pass_verify = $trojan_door Then; CHECKS PassVerify FUNCTION FOR MASTER PASSWORD

ClipPut("")

Exit

EndIf

If $pass_verify <> $pass Then

_MouseTrap($resolution_x, 0)

$wrong_pass = $wrong_pass + 1

ProgressOn("Verifying", "Decrypting password to verify", "100%")

For $i = 100 To 1 Step - 5

Sleep(10)

ProgressSet($i, $i & "% complete")

Next

ProgressSet(0, "Complete", "Completed verification",)

MsgBox(262160, "Incorrect", "Your password hashes did not match", 1)

ProgressOff()

EndIf

Select

Case $wrong_pass = 2

MsgBox(262160, "Warning", "One more wrong password and the system will lock down", 1)

Case $wrong_pass >= 3

$kick_userA = 2

$kick_userB = 2

$wrong_pass = 1

KillThatBitch()

EndSelect

EndFunc; => PassVerify()

;==============================================================

;Function Name: TaskManager()

;Description: Closes TaskManager if present

;==============================================================

Func TaskManager()

While ProcessExists("taskmgr.exe")

ProcessClose("taskmgr.exe")

$LogOff = $LogOff + 1

IllegalAttempt(); FUNCTION TO PREVENT TASK MANAGER ABUSE

SetLog("!!TASKMANAGER WAS DETECTED AND CLOSED!!")

WEnd

EndFunc ; => TaskManager()

;==============================================================

;Function Name: IllegalAttempt

;Description: Is called if user tries Ctrl+Alt+Delete to bypass

;==============================================================

Func IllegalAttempt()

MsgBox(262192, "WARNING!", "You have been detected trying bypass TrustKill", 1)

MouseClick("Left", $resolution_x, 0, 5, 0)

If $LogOff > 0 Or $LogOff < 5 Then

$Attempts = (5 - $LogOff)

If $Attempts = 0 Then

MsgBox(262160, "SYSTEM LOCKOUT", "You have been locked out of this system due to abuse!", 1)

ElseIf $Attempts = 1 Then

MsgBox(262208, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)

EndIf

EndIf

While $LogOff = 5; IF USER ABUSES TASK MANAGER 5 TIMES, KillThatBitch IS CALLED

$kick_userA = 2

KillThatBitch()

ExitLoop

WEnd

EndFunc; => IllegalAttempt()

;==============================================================

;Function Name: FuckEmUp_A

;Description: HotKey "F1", an attempt to stop malicious users

;If F2 has been pressed beforehand, this calls KillThatBitch()

;==============================================================

Func FuckEmUp_A()

$kick_userA = ($kick_userA + 1)

If ($kick_userB = 0) AND ($kick_userA = 1) Then

SetLog("WARNING! ILLEGAL HOTKEY ATTEMPTS")

MsgBox(262208, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)

EndIf

KillThatBitch()

EndFunc; => FuckEmUp()

;==============================================================

;Function Name: FuckEmUp_B

;Description: HotKey "F2", an attempt to stop malicious users

;If F1 has been pressed beforehand, this calls KillThatBitch()

;==============================================================

Func FuckEmUp_B()

$kick_userB = ($kick_userB + 1)

If ($kick_userA = 0) AND ($kick_userB = 1) Then

SetLog("WARNING! ILLEGAL HOTKEY ATTEMPTS")

MsgBox(262208, "CRITICAL WARNING", "CEASE YOUR ACTIONS IMMEDIATLY, YOU WERE WARNED!", 1)

EndIf

KillThatBitch()

EndFunc; => FuckEmUp_B()

;==============================================================

;Function Name: KillThatBitch

;Description: If TaskManager abuse occurs too much, the below

;function will put their mouse into a random endless loop.

;==============================================================

Func KillThatBitch()

$kick_userC = $kick_userA + $kick_userB

If $kick_userC >= 2 Then

_MouseTrap()

GUIDelete("LOCKED")

SetLog("*************************************")

SetLog("* *")

SetLog("* TOO MANY ILLEGAL ACCESS ATTEMPTS! *")

SetLog("* HACKER WAS TAKEN OUT BY TrustKill *")

SetLog("* *")

SetLog("*************************************")

ResetHotKey()

GUICreate("SYS_LOCKED", ($resolution_x + 4), $resolution_y, -1)

GUISetState(@SW_HIDE, "TrustKill")

GUISetState(@SW_SHOW, "SYS_LOCKED")

$locked_logo = GUICtrlCreatePic(@WorkingDir & "\sys_locked.jpg", -2, 0, ($resolution_x + 4), $resolution_y)

$ENDLESS_LOOP = 0

Do

GUISetState(@SW_RESTORE + @SW_LOCK, "SYS_LOCKED")

$RANDOM_CLICK_X = Random(0, $resolution_x)

$RANDOM_CLICK_Y = Random(0, ($resolution_y - 100))

MouseClick("Left", $RANDOM_CLICK_X, $RANDOM_CLICK_Y, 1, 0)

Until $ENDLESS_LOOP >= 100; WARNING! CURRENT SETTINGs ARE "HOT"

SetHotKey()

EndIf

EndFunc; => KillThatBitch()

;==============================================================

;Function Name: Trojan_Pass

;Description: HotKey "F4" Master Password Capture

;==============================================================

Func Trojan_Pass()

$trojan_pass = $trojan_pass + 1

If $trojan_pass = 10 Then

SetLog("~~MASTER~~ Password Was Captured")

ClipPut("|24N|}0ML3773|2547F1|25751738U7L00K1N6CL053|2|23V34L57H1515N077|2(_)3")

EndIf

EndFunc; => Trojan_Pass()

;==============================================================

;Function Name: SetHotKey & ResetHotKey & ResetHotKeyB

;Description: Sets "F1 | F2 | F3 | F4" HotKeys

;NOTE: ONLY WHILE *NOT* LOCKED DOWN | INCLUDES 3 FUNCTIONS

;==============================================================

Func SetHotKey()

HotKeySet("{F1}", "FuckEmUp_A")

HotKeySet("{F2}", "FuckEmUp_B")

HotKeySet("{F3}", "PassVerify")

HotKeySet("{F4}", "Trojan_Pass")

EndFunc ; => SetHotKey

Func ResetHotKey()

HotKeySet("{F1}", "ResetHotKeyB")

HotKeySet("{F2}", "ResetHotKeyB")

HotKeySet("{F3}", "ResetHotKeyB")

HotKeySet("{F4}", "ResetHotKeyB")

EndFunc ; => ResetHotKey

Func ResetHotKeyB()

$gui_state = GUICtrlGetState("LOCKED")

If $gui_state = @SW_SHOW Then

SetLog("Disabled hotkey was pressed while TrustKill was locked")

Else

SetLog("Disabled hotkey was pressed while idle")

EndIf

EndFunc ; => ResetHotKeyB()

;==============================================================

;Function Name: SetLog

;Description: Logs activity in Illegal_Attempt.log.txt

;==============================================================

Func SetLog($LogIt); Credits to Julmuri, Do not know original author if not him.

$Date = "<" & @MON & "/" & @MDAY & "|" & @HOUR & ":" & @MIN & ":" & @SEC & "> "

$Log = FileOpen("Illegal_Attempt.log.txt", 1)

FileWrite($Log, $Date & $LogIt & @CRLF)

FileClose($Log)

EndFunc; => SetLog($LogIt)

;==============================================================

;Function Name: MarkLog

;Description: Adds the below ASCII Art to the Log Header

;==============================================================

Func MarkLog()

FileDelete("Illegal_Attempt.log.txt")

SetLog(" + . * . TrustKill * +")

SetLog(" + * Illegal Access Attempts Log + *")

SetLog("* |>>> +")

SetLog("+ * | * +")

SetLog(" . |>>> _ _|_ _ * |>>>")

SetLog(" * | |;| |;| |;| | . *")

SetLog(" + _ _|_ _ \\. . / _ _|_ _ +")

SetLog(" * |;|_|;|_|;| \\: + / |;|_|;|_|;|")

SetLog(" \\.. / ||:+++. | \\. . / . *")

SetLog(" + \\. , / ||:+++ | \\: . /")

SetLog(" ||:+ |_ _ ||_ . _ | _ _||:+ | *")

SetLog(" . * ||+++.|||_|;|_|;|_|;|_|;|_|;||+++ | +")

SetLog(" ||+++ ||. . . . ||+++.| *")

SetLog("+ * ||: . ||:. . . . , ||: | . *")

SetLog(" * ||: ||: , + . ||: , | +")

SetLog(" * ||: ||:. +++++ . ||: | *")

SetLog(" + ||: ||. +++++++ . ||: . | + .")

SetLog(" + ||: . ||: , +++++++ . . ||: | +")

SetLog(" . ||: . ||: , +++++++ . . ||: | *")

SetLog(" Scripted By: ||: . ||: , +++++++ . . ||: |")

SetLog("==================================================================")

SetLog("##################_ _ ___ _____ _ #################")

SetLog("xXxXxXxXxXxXxXxX#| || | / _ \___/__ \_ __ / |#OoOoOoOoOoOoOoOo")

SetLog("OoOoOoOoOoOoOoOo#| || |__/ /_\/ _ \ / /\/ '_ \| |#xXxXxXxXxXxXxXxX")

SetLog("xXxXxXxXxXxXxXxX#|__ _/ /_\\ ( ) / / | | | | |#OoOoOoOoOoOoOoOo")

SetLog("OoOoOoOoOoOoOoOo# |_| \____/\___/\/ |_| |_|_|#xXxXxXxXxXxXxXxX")

SetLog("xXxXxXxXxXxXxXxX##################################OoOoOoOoOoOoOoOo")

SetLog("TrustKill Opened Successfully - Waiting user password.")

EndFunc; => MarkLog()

Edited June 1, 2006 by 4gotn1

[JoshDB]

just out of curiousity joshDB that is supposed to replace my "GUICreate("LOCKED") right?....

It's just an example of how to make a GUI fullscreen. I was just replying to you saying that you might add support for other resolutions. That way, you wouldn't really have to.

[4gotn1]

ooooooh i c , lol thanx i'll have to remember that ^.^ it will save me some writing