Sign in to follow this  
Followers 0
Donald8282

Need testers

10 posts in this topic

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.

#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.

Share this post


Link to post
Share on other sites



I loled at the arrays :x


[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

Share this post


Link to post
Share on other sites

Lol, I know, Well, those are the words to expect on a porn site.

Share this post


Link to post
Share on other sites

Too true.

I shall go onto redtube and check??? OH NO!!! IT FAILED!!! O.oooo

Mum, I was just testing something!!!

:x


[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

Share this post


Link to post
Share on other sites

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 :x

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

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

I didn't It sets the transparency to 0

WinSetTrans($PornWindow, "", 0)

Also, try to change the password in the ini file. =]

Edited by Donald8282

Share this post


Link to post
Share on other sites

#7 ·  Posted (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 :P

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:

;#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 :x

shanet

Edited 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

Share this post


Link to post
Share on other sites

#8 ·  Posted (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 by E1M1

edited

Share this post


Link to post
Share on other sites

#9 ·  Posted (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 by Zedna

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0