I was sick of people freeloading on my WiFi and I didn’t want to password protect it (for various reasons I’m too lazy to explain).

So I remembered about Upside-Down-Ternet and I extended it a bit with 23 more annoyances:

• In addition of Flipping the images, I also grey-scaled them
• I replaced ALL .swf files on webpages with a kitten meow sound that you can see (or hear) here: Kitten Meow Sound (right click to save as).
• I redirect ALL YouTube (mobile and desktop) video requests to a video called “Dramatic Cat” 

For the initial set-up I followed the fine How-To at the Ubuntu Community Website. And here is my modified script:

UPDATE: I added YouTube video redirection, too!

#!/usr/bin/perl
$|=1;
$count = 0;
$pid = $$;
while (<>) {
        chomp $_;
        if (/(.*\.jpg)/i) {
                $url = $1;
                system("/usr/bin/wget", "-q", "-O","/var/www/images/$pid-$count.jpg", $url);
                system("/usr/bin/mogrify", "-flip", "-modulate", "100,0", "/var/www/images/$pid-$count.jpg");
                print "http://127.0.0.1/images/$pid-$count.jpg\n";
        }
        elsif (/(.*\.gif)/i) {
                $url = $1;
                system("/usr/bin/wget", "-q", "-O","/var/www/images/$pid-$count.gif", $url);
                system("/usr/bin/mogrify", "-flip", "-modulate", "100,0", "/var/www/images/$pid-$count.gif");
                print "http://127.0.0.1/images/$pid-$count.gif\n";

        }
        elsif (/(.*\.png)/i) {
                $url = $1;
                system("/usr/bin/wget", "-q", "-O","/var/www/images/$pid-$count.png", $url);
                system("/usr/bin/mogrify", "-flip", "-modulate", "100,0", "/var/www/images/$pid-$count.png");
                print "http://127.0.0.1/images/$pid-$count.png\n";

        }
        elsif (/(.*\.swf)/i) {
               print "http://127.0.0.1/meow.swf\n";
        }
        elsif (/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?videoplayback.*id=/i) {
               print "http://127.0.0.1/dramatic_cat.mp4\n";
        }
        else {
                print "$_\n";;
        }
        $count++;
}

Here is how it looks on an Android phone:

I’ve redirected all websites trough rotateme.org:

#!/usr/bin/perl
use URI::Escape;
use IO::Handle;
use POSIX strftime;
$|=1;
$count = 0;
$pid = $$;
open (DEBUG, '>>/tmp/asciiImages_debug.log');
autoflush DEBUG 1;

print DEBUG "########################################################################\n";

while (<>) {
        chomp $_;
        if (/(.*\.jpg)/i) {
                $url = $1;
                system("/usr/bin/wget", "-q", "-O","/var/www/images/$pid-$count.jpg", $url);
                system("/usr/bin/mogrify", "-flip", "-modulate", "100,0", "/var/www/images/$pid-$count.jpg");
                print "http://127.0.0.1/images/$pid-$count.jpg\n";
        }
        elsif (/(.*\.gif)/i) {
                $url = $1;
                system("/usr/bin/wget", "-q", "-O","/var/www/images/$pid-$count.gif", $url);
                system("/usr/bin/mogrify", "-flip", "-modulate", "100,0", "/var/www/images/$pid-$count.gif");
                print "http://127.0.0.1/images/$pid-$count.gif\n";

        }
        elsif (/(.*\.png)/i) {
                $url = $1;
                system("/usr/bin/wget", "-q", "-O","/var/www/images/$pid-$count.png", $url);
                system("/usr/bin/mogrify", "-flip", "-modulate", "100,0", "/var/www/images/$pid-$count.png");
                print "http://127.0.0.1/images/$pid-$count.png\n";

        }
        elsif (/(.*\.swf)/i) {
               print "http://127.0.0.1/meow.swf\n";
        }
        elsif (/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?videoplayback.*id=/i) {
               print "http://127.0.0.1/dramatic_cat.mp4\n";
        }
        elsif (m/.google\.*/) {
               $url = $_;
               $url =~ s/(q=.+?)&/$1+in+pula+mea&/;
               print "$url\n";
        }
        elsif (m/nosquid/) {
              print DEBUG "Input NOSQUID: $url\n";
              print "$_\n";
              print DEBUG "Output NOSQUID: $_\n";
        }
        elsif (m/^http:\/\/.*\/\ /) {
               $url = $_;
               print DEBUG "Input: $url\n";
               my @url = split(" ",$url);
               #print @url[0];
               print "http://rotateme.org/?r=l&u=$url[0]?nosquid\n";
               print DEBUG "Output: http://rotateme.org/?r=l&u=$url[0]?nosquid\n";
        }

        else {
               print "$_\n";
        }
        $count++;
}

The “?nosquid” part is added to stop an infinite loop with rotateme.org. Couldn’t be arsed to figure out a more elegant way, feel free to correct me on that 🙂