StoPorn

[mafioso]

expandcollapse popup

#include <File.au3>
#NoTrayIcon

Opt("WinTitleMatchMode", 1)

WinWait("Microsoft Internet Explorer")

Global $logPath = "C:\Documents and Settings\Administrator\log.txt"
Global $iniPath = "C:\Documents and Settings\Administrator\stop.ini"
Global $hFF = WinGetHandle("Internet Explorer")
Global $sTitle = WinGetTitle($hFF)

IniWrite ($iniPath, "stop", "attempts", "0")

While WinExists($hFF)
    $sNewTitle = WinGetTitle($hFF)
    $pDetection = StringSplit ($sNewTitle, " ")
    For $i = 1 To $pDetection[0]
    If $pDetection[$i] = "porn" OR $pDetection[$i] = "xxx" OR $pDetection[$i] = "adult" OR $pDetection[$i] = "nude" OR $pDetection[$i] = "cock" OR $pDetection[$i] = "dick" OR $pDetection[$i] = "rape" OR $pDetection[$i] = "blowjob" OR $pDetection[$i] = "slut" OR $pDetection[$i] = "sluts" OR $pDetection[$i] = "freeones" OR $pDetection[$i] = "justdump" OR $pDetection[$i] = "megarotic" OR $pDetection[$i] = "redtube" OR $pDetection[$i] = "porntube" Then    
        $attempts = IniRead ($iniPath, "stop", "attempts", "not found")
    ;below 3 times
        If $attempts < 3 Then
        IniWrite ($iniPath, "stop", "attempts", $attempts + 1)
        ClipPut ("Do not search porn. Or I (the PC) will shutdown!")
        WinClose ($hFF)
        _FileWriteLog($logPath, "Porn attempt, site title = " & $sNewTitle)
    EndIf
;4 or more times
        If $attempts >= 3 Then
            WinClose ($hFF)
        _FileWriteLog($logPath, "Porn attempt 3, site title = " & $sNewTitle)
        _FileWriteLog($logPath, "Computer shutdown.")
        IniWrite ($iniPath, "stop", "attempts", "0")
        Shutdown (1)
        EndIf
    EndIf   
    Next
    Sleep(100)
WEnd

Change $logPath and $iniPath. You can also make this work for other browsers by changing $hFF.

I think the features are obvious...but here they are if you don't understand :

Close the IE/browser when porn site is detected

On 4th attempt of watching porn, the computer will shut down.

Hint : Change the compiled exe name to svchost, since it won't be easily found in task manager then =)

Hint2 : Add more keywords

Hint3: Type porn in google, and write down all the keywords that are suspicious and add them to StoPorn

Also you can set it to run on startup by adding your app path to HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/Run.

Enjoy !

[NELyon]

Stop Porn?!?!?!?!?!?!?!?!?

But... Why...?

:)

Great code, but I just hate the idea

PS: I had to be the first one to say that

[GEOSoft]

expandcollapse popup

#include <File.au3>
#NoTrayIcon

Opt("WinTitleMatchMode", 1)

WinWait("Microsoft Internet Explorer")

Global $logPath = "C:\Documents and Settings\Administrator\log.txt"
Global $iniPath = "C:\Documents and Settings\Administrator\stop.ini"
Global $hFF = WinGetHandle("Internet Explorer")
Global $sTitle = WinGetTitle($hFF)

IniWrite ($iniPath, "stop", "attempts", "0")

While WinExists($hFF)
    $sNewTitle = WinGetTitle($hFF)
    $pDetection = StringSplit ($sNewTitle, " ")
    For $i = 1 To $pDetection[0]
    If $pDetection[$i] = "porn" OR $pDetection[$i] = "xxx" OR $pDetection[$i] = "adult" OR $pDetection[$i] = "nude" OR $pDetection[$i] = "cock" OR $pDetection[$i] = "dick" OR $pDetection[$i] = "rape" OR $pDetection[$i] = "blowjob" OR $pDetection[$i] = "slut" OR $pDetection[$i] = "sluts" OR $pDetection[$i] = "freeones" OR $pDetection[$i] = "justdump" OR $pDetection[$i] = "megarotic" OR $pDetection[$i] = "redtube" OR $pDetection[$i] = "porntube" Then    
        $attempts = IniRead ($iniPath, "stop", "attempts", "not found")
;below 3 times
        If $attempts < 3 Then
        IniWrite ($iniPath, "stop", "attempts", $attempts + 1)
        ClipPut ("Do not search porn. Or I (the PC) will shutdown!")
        WinClose ($hFF)
        _FileWriteLog($logPath, "Porn attempt, site title = " & $sNewTitle)
    EndIf
;4 or more times
        If $attempts >= 3 Then
            WinClose ($hFF)
        _FileWriteLog($logPath, "Porn attempt 3, site title = " & $sNewTitle)
        _FileWriteLog($logPath, "Computer shutdown.")
        IniWrite ($iniPath, "stop", "attempts", "0")
        Shutdown (1)
        EndIf
    EndIf   
    Next
    Sleep(100)
WEnd

Change $logPath and $iniPath. You can also make this work for other browsers by changing $hFF.

I think the features are obvious...but here they are if you don't understand :

Close the IE/browser when porn site is detected

On 4th attempt of watching porn, the computer will shut down.

Hint : Change the compiled exe name to svchost, since it won't be easily found in task manager then =)

Hint2 : Add more keywords

Hint3: Type porn in google, and write down all the keywords that are suspicious and add them to StoPorn

Also you can set it to run on startup by adding your app path to HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/Run.

Enjoy !

Looks good but I think you will have to change a couple of things.

Opt("WinTitleMatchMode", 2)

WinWait("Internet Explorer")

Using IE7 on XP, the word "Microsoft" does appear in the title bar in all cases. It reads "Windows Internet Explorer" and it appears at the end of the title bar not at the beginning. The beginning has the Page title.

[martin]

expandcollapse popup

#include <File.au3>
#NoTrayIcon

Opt("WinTitleMatchMode", 1)

WinWait("Microsoft Internet Explorer")

Global $logPath = "C:\Documents and Settings\Administrator\log.txt"
Global $iniPath = "C:\Documents and Settings\Administrator\stop.ini"
Global $hFF = WinGetHandle("Internet Explorer")
Global $sTitle = WinGetTitle($hFF)

IniWrite ($iniPath, "stop", "attempts", "0")

While WinExists($hFF)
    $sNewTitle = WinGetTitle($hFF)
    $pDetection = StringSplit ($sNewTitle, " ")
    For $i = 1 To $pDetection[0]
    If $pDetection[$i] = "porn" OR $pDetection[$i] = "xxx" OR $pDetection[$i] = "adult" OR $pDetection[$i] = "nude" OR $pDetection[$i] = "cock" OR $pDetection[$i] = "dick" OR $pDetection[$i] = "rape" OR $pDetection[$i] = "blowjob" OR $pDetection[$i] = "slut" OR $pDetection[$i] = "sluts" OR $pDetection[$i] = "freeones" OR $pDetection[$i] = "justdump" OR $pDetection[$i] = "megarotic" OR $pDetection[$i] = "redtube" OR $pDetection[$i] = "porntube" Then    
        $attempts = IniRead ($iniPath, "stop", "attempts", "not found")
;below 3 times
        If $attempts < 3 Then
        IniWrite ($iniPath, "stop", "attempts", $attempts + 1)
        ClipPut ("Do not search porn. Or I (the PC) will shutdown!")
        WinClose ($hFF)
        _FileWriteLog($logPath, "Porn attempt, site title = " & $sNewTitle)
    EndIf
;4 or more times
        If $attempts >= 3 Then
            WinClose ($hFF)
        _FileWriteLog($logPath, "Porn attempt 3, site title = " & $sNewTitle)
        _FileWriteLog($logPath, "Computer shutdown.")
        IniWrite ($iniPath, "stop", "attempts", "0")
        Shutdown (1)
        EndIf
    EndIf   
    Next
    Sleep(100)
WEnd

Change $logPath and $iniPath. You can also make this work for other browsers by changing $hFF.

I think the features are obvious...but here they are if you don't understand :

Close the IE/browser when porn site is detected

On 4th attempt of watching porn, the computer will shut down.

Hint : Change the compiled exe name to svchost, since it won't be easily found in task manager then =)

Hint2 : Add more keywords

Hint3: Type porn in google, and write down all the keywords that are suspicious and add them to StoPorn

Also you can set it to run on startup by adding your app path to HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/Run.

Enjoy !

You need to be careful about the word list because it could stop quite innocent subjects being viewed. It might be easier, and more versatile, if you made it so that the user could enter a list of words. Having "cock" as a word means stopping reading something like "cock-adoodle-doo" or "Hitchcock", and woe betide the person who wants to find out something about the English town Scunthorpe.

[GEOSoft]

You need to be careful about the word list because it could stop quite innocent subjects being viewed. It might be easier, and more versatile, if you made it so that the user could enter a list of words. Having "cock" as a word means stopping reading something like "cock-adoodle-doo" or "Hitchcock", and woe betide the person who wants to find out something about the English town Scunthorpe.

Agreed. The File list and search would have to be done using whole words only. You can't do it simply by finding a given string. It would have to be done with at least a leading space. Even at that there would likely be errors.

[HeffeD]

You need to be careful about the word list because it could stop quite innocent subjects being viewed. It might be easier, and more versatile, if you made it so that the user could enter a list of words. Having "cock" as a word means stopping reading something like "cock-adoodle-doo" or "Hitchcock", and woe betide the person who wants to find out something about the English town Scunthorpe.

Absolutely. "Adult" is an odd inclusion to the list, because it can be used in countless innocent situations... I'd be annoyed if my computer shut down because it saw the word adult too many times.

[smashly]

Hi and thank you for sharing,

Couple of Suggestions:

Add web browser filter list for matching different makes of web browsers eg: Firefox.

Use "[REGEXPTITLE:(?i)\b(sex|porn|cock)]" for matching whole words in a title this way if the word is part of a word it won' t match:

"Sussex" won't match "sex", but "Sex" or "sEx" or "SeX" or "sex" or "SEX" will match "sex"

Use a txt file so a user can just add word exclusions to the list on the next line easily without editing the scripts source and or recompiling.

$Blacklist = StringReplace(StringStripCR(FileRead(@ScriptDir & "\Blacklist.txt")), @LF, "|")

If WinExists("[REGEXPTITLE:(?i)\b(" & $Blacklist & ")]") Then ConsoleWrite("Blacklist word matched in title." & @LF)

Cheers

Edited May 28, 2008 by smashly

[JRowe]

A better solution, since there are other browsers out there, would be to route your internet traffic through a local proxy and monitor incoming html, log and email the attempt to a parent's email, and then redirect to a page that said something like:

YOU'RE IN TROUBLE NOW, JOHNNY!

You're now grounded for "$NumberOfAttempts" weeks!!!

[theguy0000]

Stop Porn?!?!?!?!?!?!?!?!?

But... Why...?

:)

Great code, but I just hate the idea

PS: I had to be the first one to say that

LOL, someone had to say it.

[JellyFish666]

There are so many reasons why I find this script wrong it's truly sad how some parents are still locked in the closest hiding from their own fears.

[Paulie]

Orriginally, i saw this title, and thought it was "Store Porn" and i was like, "Hey! I could use this!"

Well it...

Seems last night you caught me spankin' it

No use denyin' it, I was really crankin' it

Dry your eyes, don't be so sad

But i wouldn't use those tissues - they've already been had!

[HackerZer0]

It let me go wherever I wanted... Maybe cause I have IE8, no not 7, 8... BETA... anyway, shouldn't make a difference... IDK

EDIT: Nevermind, just read the rest of the posts about winwait..etc, it works.. lol

Edited May 28, 2008 by HackerZer0

[JRowe]

There are so many reasons why I find this script wrong it's truly sad how some parents are still locked in the closest hiding from their own fears.

It's also truly sad that you think you have any right to an opinion on other people's parental prerogative.

If something like this could help a parent prevent their child's mind from being scarred for life by (insert nasty goatse type link here), then more power to em.

And any kid smart enough to bypass it should get a cookie. And a tissue. (To wipe his tears after his daddy whips the tar outta him!)

[d4rk]

Looks good but I think you will have to change a couple of things.

Opt("WinTitleMatchMode", 2)

WinWait("Internet Explorer")

Using IE7 on XP, the word "Microsoft" does appear in the title bar in all cases. It reads "Windows Internet Explorer" and it appears at the end of the title bar not at the beginning. The beginning has the Page title.

Hi, this works in IE6/XP , haven't check with IE7

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main","Window Title","REG_SZ","Internet Explorer")

about the porn list ... i think you should add (work together with manually adding)a update feature, via internet, it's much better

Edited May 28, 2008 by d4rk

[Linux]

Great!

why use it? im think on implementing this on my cybercafe. most of the client are < 18 years old, and the law in my country is against the porn in public access computers.

Thank you!

[monoceres]

Well it...

Seems last night you caught me spankin' it

No use denyin' it, I was really crankin' it

Dry your eyes, don't be so sad

But i wouldn't use those tissues - they've already been had!

Talk to me dad

Seriously, if you want it to be truly useful you should use the IE functions instead and make sure that firefox is not opened.

[nobbe]

Close the IE/browser when porn site is detected

On 4th attempt of watching porn, the computer will shut down.

so your target will use opera then or firefox if he finds out??

Hint : Change the compiled exe name to svchost, since it won't be easily found in task manager then =)

it can be misleading and rather counter productive to name as a system executable

Hint2 : Add more keywords

all keywords and things to check must not be hardcoded, instead use a setup or ini file

i would rather suggest to route all internet activities from this user (computer) through another filtering proxy, making supervision and filtering much more effective..

[ChrisL]

Orriginally, i saw this title, and thought it was "Store Porn" and i was like, "Hey! I could use this!"

Well it...

Seems last night you caught me spankin' it

No use denyin' it, I was really crankin' it

Dry your eyes, don't be so sad

But i wouldn't use those tissues - they've already been had!

While testing this script and reading this page my browser keeps closing especially when paulie wrote por.........

Ohhhh Coc.....

[HaavY]

I will NEVER run this

NEVER!

Nice code though

[mafioso]

Thanks for the good & bad critics !

Major update coming tommorow =)