[TuT]Block webSites without any Softwares !!

Steps

1] Browse C:\WINDOWS\system32\drivers\etc
2] Find the file named "HOSTS"
3] Open it in notepad
4] Under "127.0.0.1 localhost" Add 127.0.0.2 www.orkut.com , and that site will no longer be accessable.
5] Done!

example :

127.0.0.1 localhost
127.0.0.2 www.orkut.com

- www.orkut.com is now unaccessable

For every site after that you want to add, just add "1" to the last number in the internal ip (127.0.0.2) and then the addy like before.

IE:
127.0.0.3 www.yahoo.com
127.0.0.4 www.msn.com
127.0.0.5 www.google.com

This also works with banner sites, just find the host name of the server with the banners and do the same thing with that addy.

Hoep this small tutorial could keep you going in simple way of blocking websites

Code

#!/usr/bin/perl



use Tie::File;

$file = "/private/etc/hosts";



## These are the options that you entered after the

## scriptname. They must be in the right order to work.

## ---

$OP = $ARGV[0];

$URL = $ARGV[1];



if ($OP eq "u") {

    open IN, '<', $file or die;

    @lijnen = <IN>;

    close IN;



    @lijnen = grep !/$URL/, @lijnen;



    open OUT, '>', $file or die;

    print OUT @lijnen;

    close OUT;



} elsif ($OP eq "r") {

    print "\n\nTo where do you want the website to redirect to? ";

    $URLR = <STDIN>;

    chomp($URLR);



    ## Getting the IP of the host since

    ## the hosts files needs IP addresses

    ## ---

    @ipp = gethostbyname($URLR);

    @ip = unpack("C4",$ipp[4]);

    $ip = join(".",@ip);



    &openFile;

    print FILE "$ip $URL \n";

    &closeFile;    



    ##Flushing the cache

    ## ---

    system("dscacheutil -flushcache");



    print "\n\n$URL has been redirected to $URLR. \n";

    print "Take in mind that it can take some moments to work. \n\n";



} elsif ($OP eq "b") {

    &openFile;

    print FILE "127.0.0.1 $URL \n";

    &closeFile;    



    system("dscacheutil -flushcache");



    print "\n\n$URL has been blocked. \n";

    print "Take in mind that it can take some moments to work. \n\n";



} else {

    print "\n\nYou did something wrong. \n";

    print " Usage: Blok u/b/r URL \n";

    print "u = Unblock \n";

    print "b = Block \n";

    print "r = Redirect \n\n";

}



sub openFile {

open(FILE,'>>/private/etc/hosts')

  or die "\nYou need to run this script as SUDO.\n\n";

}



sub closeFile {

close(FILE);

}