Donald8282 Posted December 21, 2010 Posted December 21, 2010 Hello, I need a few people to use my script and give me some feedback. Tell me if you think it is useful, if you would ever use it in real life situations, and anything you wish to say about it. It is a program designed to keep people off pornography websites. If you find any bugs please let me know. Thank you. expandcollapse popup#Include <String.au3> #Include <Misc.au3> #include <ScreenCapture.au3> #include <GUIConstantsEx.au3> #include <editconstants.au3> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Password save;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; If FileExists("settings.ini") Then If IniRead("settings.ini", "save", "save", "") = 0 Then $password = InputBox("Password", "What would you like your password to be?", "", "*") $save = MsgBox(4, "Save", "Would you like to save this password?") If $save = 6 Then $password = _StringEncrypt(1, $password, "asdf", 3) IniWrite("settings.ini", "save", "password", $password) IniWrite("settings.ini", "save", "save", 1) FileSetAttrib(@ScriptDir & "/settings.ini", "+R") ElseIf $save = 7 Then EndIf ElseIf IniRead("settings.ini", "save", "save", "") = 1 Then $password = IniRead("settings.ini", "save", "password", "") EndIf Else IniWrite("settings.ini", "save", "save", 0) $password = InputBox("Password", "What would you like your password to be?", "", "*") $save = MsgBox(4, "Save", "Would you like to save this password?") If $save = 6 Then $password = _StringEncrypt(1, $password, "asdf", 3) IniWrite("settings.ini", "save", "password", $password) IniWrite("settings.ini", "save", "save", 1) FileSetAttrib(@ScriptDir & "/settings.ini", "+R") ElseIf $save = 7 Then EndIf EndIf ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Month and arrays;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; $month = @MON If $month = 1 Then $month = "January" ElseIf $month = 2 Then $month = "February" ElseIf $month = 3 Then $month = "March" ElseIf $month = 4 Then $month = "April" ElseIf $month = 5 Then $month = "May" ElseIf $month = 6 Then $month = "June" ElseIf $month = 7 Then $month = "July" ElseIf $month = 8 Then $month = "August" ElseIf $month = 9 Then $month = "September" ElseIf $month = 10 Then $month = "October" ElseIf $month = 11 Then $month = "November" ElseIf $month = 12 Then $month = "December" EndIf $Title = "" Dim $Array[13] $Array[0] = "Porn" $Array[1] = "Anal" $Array[2] = "Boobs" $Array[3] = "Tits" $Array[4] = "Pussy" $Array[5] = "Penis" $Array[6] = "Cock" $Array[7] = "Dick" $Array[8] = "Ass" $Array[9] = "Fisting" $Array[10] = "Fingering" $Array[11] = "Fucking" $Array[12] = "Dildo" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;code begins;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; While 1 sleep(250) If $Title <> WinGetTitle("") Then $Title = WinGetTitle("") For $I = 0 To 12 If StringInStr($Title, $Array[$I], 1) Then $PornWindow = WinGetHandle($Title) _Porn() EndIf Next EndIf WEnd Func _TurnOffPorn() $hour = @HOUR If $hour > 12 Then $hour -= 12 ElseIf $hour = 00 Then $hour = 12 EndIf WinSetTrans($PornWindow, "", 255) _ScreenCapture_CaptureWnd($month & ' ' & @MDAY & ',' & @YEAR & ',' & $hour & ' ' & @MIN & ' ' & @SEC & '.jpg', $PornWindow, -1, -1, -1, -1, false) sleep(100) WinClose($PornWindow) MsgBox(0, "", "Password incorrect.") $Title = "" EndFunc Func _porn() WinSetTrans($PornWindow, "", 0) $GUI = GUICreate("Password", @desktopwidth+30, @desktopheight+90, -10, -50) WinSetOnTop("Password", "", 1) GUISetState() $submit = GUICtrlCreateButton("Submit", @desktopwidth/2-90, @desktopheight/2, 70, 25) $cancel = GUICtrlCreateButton("cancel", @desktopwidth/2+60, @desktopheight/2, 70, 25) $inputbox = GUICtrlCreateInput("", @desktopwidth/2-130, @desktopheight/2-30, 300, 20, $ES_PASSWORD) while 1 $msg = GUIGetMsg() Select case $msg = $Submit $input = GUICtrlRead($inputbox) $pass = IniRead("settings.ini", "save", "password", "") $password = _StringEncrypt(0, $pass, "asdf", 3) If $input <> $password Then GUIDelete($GUI) _TurnOffPorn() ExitLoop Else GUIDelete($GUI) WinSetTrans($PornWindow, "", 255) $disable = MsgBox(4, "Disable", "Would you like to disable SafeSurfer until computer restart?" & @CRLF & "If you select 'No' SafeSurfer will resume after the window has been closed." & @CRLF & "If you select 'Yes' SafeSurfer will close.") If $disable = 6 Then Exit ElseIf $disable = 7 Then WinWaitClose($PornWindow) $Title = "" ExitLoop EndIf EndIf Case $msg = $cancel GUIDelete($GUI) _TurnOffPorn() ExitLoop EndSelect WEnd EndFunc I know there are many of these out there but I thought it would be fun to try to make one.
shanet Posted December 21, 2010 Posted December 21, 2010 I loled at the arrays [font="Comic Sans MS"]My code does not have bugs! It just develops random features.[/font]My Projects[list][*]Live Streaming (Not my project, but my edited version)[right]AutoIt Wrappers![/right][/list]Pure randomness[list][*]Small Minds.......................................................................................................[size="1"]Simple progress bar that changes direction at either sides.[/size][*]ChristmasIt AutoIt Christmas Theme..........................................................[size="1"]I WAS BOOOORED![/size][*]DriveToy..............................................................................................................[size="1"]Simple joke script. Trick your friends into thinking their computer drive is haywire![/size][/list]In Development[list][*]Your Background Task Organiser[*]AInstall Second Generation[/list]BEFORE POSTING ON THE FORUMS, TRY THIS: %programfiles%/AutoIt3/autoit3.chm
Donald8282 Posted December 21, 2010 Author Posted December 21, 2010 Lol, I know, Well, those are the words to expect on a porn site.
shanet Posted December 21, 2010 Posted December 21, 2010 Too true. I shall go onto redtube and check??? OH NO!!! IT FAILED!!! O.oooo Mum, I was just testing something!!! [font="Comic Sans MS"]My code does not have bugs! It just develops random features.[/font]My Projects[list][*]Live Streaming (Not my project, but my edited version)[right]AutoIt Wrappers![/right][/list]Pure randomness[list][*]Small Minds.......................................................................................................[size="1"]Simple progress bar that changes direction at either sides.[/size][*]ChristmasIt AutoIt Christmas Theme..........................................................[size="1"]I WAS BOOOORED![/size][*]DriveToy..............................................................................................................[size="1"]Simple joke script. Trick your friends into thinking their computer drive is haywire![/size][/list]In Development[list][*]Your Background Task Organiser[*]AInstall Second Generation[/list]BEFORE POSTING ON THE FORUMS, TRY THIS: %programfiles%/AutoIt3/autoit3.chm
shanet Posted December 21, 2010 Posted December 21, 2010 That's pretty good. I went on to redtube and then the thing came up full screen. I pressed cancel and it closed the internet. I then repeated above and instead of cancel I pressed the windows button, closed the script and tried to access it and it kept minimizing. Very good implementation. Just one question, how did you get it to keep minimizing the browser? Thanks shanet [font="Comic Sans MS"]My code does not have bugs! It just develops random features.[/font]My Projects[list][*]Live Streaming (Not my project, but my edited version)[right]AutoIt Wrappers![/right][/list]Pure randomness[list][*]Small Minds.......................................................................................................[size="1"]Simple progress bar that changes direction at either sides.[/size][*]ChristmasIt AutoIt Christmas Theme..........................................................[size="1"]I WAS BOOOORED![/size][*]DriveToy..............................................................................................................[size="1"]Simple joke script. Trick your friends into thinking their computer drive is haywire![/size][/list]In Development[list][*]Your Background Task Organiser[*]AInstall Second Generation[/list]BEFORE POSTING ON THE FORUMS, TRY THIS: %programfiles%/AutoIt3/autoit3.chm
Donald8282 Posted December 21, 2010 Author Posted December 21, 2010 (edited) I didn't It sets the transparency to 0 WinSetTrans($PornWindow, "", 0) Also, try to change the password in the ini file. =] Edited December 21, 2010 by Donald8282
shanet Posted January 15, 2011 Posted January 15, 2011 (edited) Sorry, forgot completely about this project! Anyway, i had a look and it all looks good, however if I was you I would use a better password than asdf. I would set it to a variable and then you only have to update the variable and all is done. From there I would obfuscate it then compile it and maybe get it working in schools or something? However that's my suggestion, its up to you what you want to do with it. If it is being deployed in a school, I would be a pain in the arse and have an alert sound as well Anyway, good idea and I shall let you get back to it. You might want to consider using the registry instead of an ini file. If you dont mind, I have gone ahead and done this for you: expandcollapse popup;#AutoIt3Wrapper_Run_Debug_Mode = y #Region Header #Include <String.au3> #Include <Misc.au3> #include <ScreenCapture.au3> #include <GUIConstantsEx.au3> #include <editconstants.au3> #EndRegion Header #Region Initialization #Region Tray Opt("TrayMenuMode", 1) TraySetClick(16) Global $tray = TrayCreateItem("Options") #EndRegion Tray Global $encPass = "pRAcHe@A", $PornWindow $month = @MON If $month = 1 Then $month = "January" ElseIf $month = 2 Then $month = "February" ElseIf $month = 3 Then $month = "March" ElseIf $month = 4 Then $month = "April" ElseIf $month = 5 Then $month = "May" ElseIf $month = 6 Then $month = "June" ElseIf $month = 7 Then $month = "July" ElseIf $month = 8 Then $month = "August" ElseIf $month = 9 Then $month = "September" ElseIf $month = 10 Then $month = "October" ElseIf $month = 11 Then $month = "November" ElseIf $month = 12 Then $month = "December" EndIf $Title = "" Dim $Array[13] $Array[0] = "Porn" $Array[1] = "Anal" $Array[2] = "Boobs" $Array[3] = "Tits" $Array[4] = "Pussy" $Array[5] = "Penis" $Array[6] = "Cock" $Array[7] = "Dick" $Array[8] = "Ass" $Array[9] = "Fisting" $Array[10] = "Fingering" $Array[11] = "Fucking" $Array[12] = "Dildo" #EndRegion Initialization #Region PasswdSave If RegRead ("HKLM\software\SafeSurfer\", "save") <> 1 Then RegWrite("HKLM\software\SafeSurfer\", "save", "REG_DWORD", 0) $password = InputBox("Password", "What would you like your password to be?", "", "*") $password = _StringEncrypt(1, $password, $encPass, 3) RegWrite("HKLM\software\SafeSurfer\", "password", "REG_SZ", $password) RegWrite("HKLM\Software\SafeSurfer\", "save", "REG_DWORD", 1) EndIf #EndRegion PasswdSave #Region Body TrayTip("SafeSurfer", "SafeSurfer is now protecting your PC", 4000) While 1 _Check() If TrayGetMsg() = $tray Then TrayItemSetState($tray, 0) _Options() EndIf WEnd Exit Func _Check() If $Title <> WinGetTitle("") Then $Title = WinGetTitle("") For $I = 0 To 12 If StringInStr($Title, $Array[$I], 1) Then $PornWindow = WinGetHandle($Title) _Porn() EndIf Next EndIf EndFunc #EndRegion Body #Region Functions #Region Protection Func _TurnOffPorn() $hour = @HOUR If $hour > 12 Then $hour -= 12 ElseIf $hour = 00 Then $hour = 12 EndIf WinSetTrans($PornWindow, "", 255) RegWrite("HLKM\Software\SurfShield\Logs\", $Title, "REG_SZ", ($month & ' ' & @MDAY & ',' & @YEAR & ',' & $hour & ' ' & @MIN & ' ' & @SEC)) sleep(100) WinClose($PornWindow) MsgBox(0, "", "Password incorrect.") $Title = "" EndFunc Func _porn() WinSetTrans($PornWindow, "", 0) $GUI = GUICreate("Password", @desktopwidth+30, @desktopheight+90, -10, -50) WinSetOnTop("Password", "", 1) GUISetState() $submit = GUICtrlCreateButton("Submit", @desktopwidth/2-90, @desktopheight/2, 70, 25) $cancel = GUICtrlCreateButton("cancel", @desktopwidth/2+60, @desktopheight/2, 70, 25) $inputbox = GUICtrlCreateInput("", @desktopwidth/2-130, @desktopheight/2-30, 300, 20, $ES_PASSWORD) while 1 $msg = GUIGetMsg() Select case $msg = $Submit $input = GUICtrlRead($inputbox) $pass = RegRead("HKLM\Software\SafeSurfer\", "password") $password = _StringEncrypt(0, $input, $encPass, 3) If $pass <> $password Then GUIDelete($GUI) _TurnOffPorn() ExitLoop Else GUIDelete($GUI) WinSetTrans($PornWindow, "", 255) $disable = MsgBox(4, "Disable", "Would you like to disable SafeSurfer until computer restart?" & @CRLF & "If you select 'No' SafeSurfer will resume after the window has been closed." & @CRLF & "If you select 'Yes' SafeSurfer will close.") If $disable = 6 Then Exit ElseIf $disable = 7 Then WinWaitClose($PornWindow) $Title = "" ExitLoop EndIf EndIf Case $msg = $cancel GUIDelete($GUI) _TurnOffPorn() ExitLoop EndSelect WEnd EndFunc #EndRegion Protection Func _Options() Local $hGUI = GUICreate("Input Password", 220, 120) Local $hText = GUICtrlCreateLabel("Please input the correct password.", 25, 25) Local $hInput = GUICtrlCreateInput("", 25, 45, "", "", $ES_PASSWORD) Local $hSubmit = GUICtrlCreateButton("OK", 80, 80, 60) GUISetState() While 1 _Check() If GUIGetMsg() = -3 Then GUIDelete($hGUI) ExitLoop EndIf If GUIGetMsg() = $hSubmit Then If _StringEncrypt(1, GUICtrlRead($hInput), $encPass, 3) = RegRead("HKLM\Software\SafeSurfer\", "Password") Then GUIDelete($hGUI) $hGUI = GUICreate("Options", 220, 120) $hText = GUICtrlCreateLabel("New Password:", 25, 25) $hNewPasswd = GUICtrlCreateInput("", 25, 40, 150) $hExit = GUICtrlCreateButton("Exit", 25, 70, 60) $hSubmit = GUICtrlCreateButton("Submit", 120, 70, 60) GUISetState() While 1 If GUIGetMsg() = $hSubmit Then If GUICtrlRead($hNewPasswd) <> "" Then RegWrite("HKLM\Software\SafeSurfer\", "Password", "REG_SZ", _StringEncrypt(1, GUICtrlRead($hNewPasswd), $encPass, 3)) EndIf ElseIf GUIGetMsg() = $hExit Then Exit ElseIf GUIGetMsg() = -3 Then GUIDelete($hGUI) ExitLoop EndIf WEnd Else MsgBox(16, "PASSWORD ERROR", "INCORRECT PASSWORD" & @CRLF & "Please ensure the password you typed is correct.") EndIf EndIf WEnd EndFunc #EndRegion Functions Have fun shanet Edited January 15, 2011 by shanet [font="Comic Sans MS"]My code does not have bugs! It just develops random features.[/font]My Projects[list][*]Live Streaming (Not my project, but my edited version)[right]AutoIt Wrappers![/right][/list]Pure randomness[list][*]Small Minds.......................................................................................................[size="1"]Simple progress bar that changes direction at either sides.[/size][*]ChristmasIt AutoIt Christmas Theme..........................................................[size="1"]I WAS BOOOORED![/size][*]DriveToy..............................................................................................................[size="1"]Simple joke script. Trick your friends into thinking their computer drive is haywire![/size][/list]In Development[list][*]Your Background Task Organiser[*]AInstall Second Generation[/list]BEFORE POSTING ON THE FORUMS, TRY THIS: %programfiles%/AutoIt3/autoit3.chm
E1M1 Posted January 15, 2011 Posted January 15, 2011 (edited) I have similar project, which I haven't yet released for public yet. I have around there around 2k lines and it's still not ready for public release.... Mine even don't have GUI yet... Edited January 15, 2011 by E1M1 edited
Zedna Posted January 15, 2011 Posted January 15, 2011 (edited) Original Dim $Array[13] $Array[0] = "Porn" $Array[1] = "Anal" $Array[2] = "Boobs" ... Better Dim $Array = "Porn,Anal,Boobs,..." $Array = StringSplit($Array,",") EDIT: Also this list of keywords can be somehow configured without recompilind EXE (Resource DLL, INI, Registry, ...) Edited January 15, 2011 by Zedna Resources UDF ResourcesEx UDF AutoIt Forum Search
Donald8282 Posted March 30, 2011 Author Posted March 30, 2011 Thanks for all the reviews and I'll probably use a betetr password than ASDF for the final realease and the registry was a good idea. I'm not using it for anyone I was just wanting to work on a project that would take some time to finish and possibly have some good come out of it.
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