4gotn1 Posted May 26, 2006 Share Posted May 26, 2006 (edited) Hiya, i started on this a few days ago.... im pretty sure theirs no "bugs" but not 100% sure Some Things You MUST Know1. 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 clipboardummmm 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 Link to comment Share on other sites More sharing options...
RazerM Posted May 26, 2006 Share Posted May 26, 2006 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 My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop. Link to comment Share on other sites More sharing options...
4gotn1 Posted May 26, 2006 Author Share Posted May 26, 2006 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 Link to comment Share on other sites More sharing options...
Skrip Posted May 26, 2006 Share Posted May 26, 2006 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. [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
4gotn1 Posted May 27, 2006 Author Share Posted May 27, 2006 (edited) 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 Link to comment Share on other sites More sharing options...
Skrip Posted May 27, 2006 Share Posted May 27, 2006 (edited) 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 [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
4gotn1 Posted May 27, 2006 Author Share Posted May 27, 2006 (edited) meh -edited out- Edited May 27, 2006 by 4gotn1 Link to comment Share on other sites More sharing options...
Skrip Posted May 27, 2006 Share Posted May 27, 2006 (edited) 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 [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
4gotn1 Posted May 27, 2006 Author Share Posted May 27, 2006 (edited) 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 Link to comment Share on other sites More sharing options...
Skrip Posted May 27, 2006 Share Posted May 27, 2006 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) [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
4gotn1 Posted May 27, 2006 Author Share Posted May 27, 2006 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 Link to comment Share on other sites More sharing options...
slightly_abnormal Posted May 27, 2006 Share Posted May 27, 2006 cool.. Link to comment Share on other sites More sharing options...
4gotn1 Posted May 27, 2006 Author Share Posted May 27, 2006 (edited) 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 Link to comment Share on other sites More sharing options...
Skrip Posted May 27, 2006 Share Posted May 27, 2006 No. After testing make it $endless_loop = 1 $endless_loop = $endless_loop + 1 Now it's endless [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
4gotn1 Posted May 28, 2006 Author Share Posted May 28, 2006 ^ 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 Link to comment Share on other sites More sharing options...
JoshDB Posted May 28, 2006 Share Posted May 28, 2006 GUICreate("PC Lock",@DESKTOPWIDTH,@DESKTOPHEIGHT,0,0,$WS_POPUP + $WS_SYSMENU + $WS_MINIMIZEBOX) GUISetBkColor(0x000000) Ha, I haven't been on these forums since... 2006, almost. Behold, my legacy signature:My AutoIt idol is Valuater. You know you love him, too.My Stuff: D&D AGoT Tools Suite Link to comment Share on other sites More sharing options...
4gotn1 Posted May 30, 2006 Author Share Posted May 30, 2006 (edited) 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_loopGlobal $resolution_x, $resolution_y, $sys_locked, $encrypt_key, $encrypted, $decrypted, $rc4_timerGlobal $trojan_door, $trojan_pass, $kick_userA, $kick_userB, $kick_userC, $ENDLESS_LOOP, $i, $wrong_passGUICreate("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 = 0MarkLog();/////////////////////////////////////; Main (GUI);////////////////////////////////////Do $msg = GUIGetMsg() If $msg = $lock_it Then ;///////////////////////////////////// ; Secondary (GUI) ;//////////////////////////////////// SetHotKey() MainProcess() ResetHotKey() ;///////////////////////////////////// ; Destroy Secondary (GUI) ;//////////////////////////////////// EndIfUntil $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 = 5EndFunc; => 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() EndSelectEndFunc; => 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!!") WEndEndFunc ; => 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 WEndEndFunc; => 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() EndIfEndFunc; => 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") EndIfEndFunc; => 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 ; => SetHotKeyFunc ResetHotKey() HotKeySet("{F1}", "ResetHotKeyB") HotKeySet("{F2}", "ResetHotKeyB") HotKeySet("{F3}", "ResetHotKeyB") HotKeySet("{F4}", "ResetHotKeyB")EndFunc ; => ResetHotKeyFunc 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") EndIfEndFunc ; => 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 Link to comment Share on other sites More sharing options...
JoshDB Posted May 30, 2006 Share Posted May 30, 2006 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. Ha, I haven't been on these forums since... 2006, almost. Behold, my legacy signature:My AutoIt idol is Valuater. You know you love him, too.My Stuff: D&D AGoT Tools Suite Link to comment Share on other sites More sharing options...
4gotn1 Posted June 1, 2006 Author Share Posted June 1, 2006 ooooooh i c , lol thanx i'll have to remember that ^.^ it will save me some writing Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now