perl -e ‘print “\x59\x6f\x75\x72\x20\x65\x2d\x70\x65\x6e\x69\x73\x20\x69\x73\x20\x74\x68\x69\x73\x20\x6c\x6f\x6e\x67\x21\x20\x38”; $r = int(rand( 30-1+1 ) ) + 1; for($n = 0; $n < $r; ++$n) {print “\x3d”;}print “\x44\x20$r\x20\x49\x6e\x63\x68\x65\x73\n”;’
Last-Modified: 2007-03-07 19:38:50
#!/bin/bash
# This script requires the imagemagick package
# this is the dir you save your images to
SAVEDIR=/home/wishes/logger/images/
while true
do
TIMEDATE=`date +%F-%k-%M`
WHOAMI=`whoami`
#you can edit this out – its just for verbose
echo “Taking shot”
/usr/bin/import -window root “${SAVEDIR}${TIMEDATE}-${WHOAMI}.jpg”
sleep 60
done
Last-Modified: 2007-03-07 19:38:50
#!/usr/bin/perl -w
#
# You need to install this perl module below and openssl, crypt, mechanize also
use WWW::Hotmail;
my $hotmail = WWW::Hotmail->new();
$hotmail->login(‘username@hotmail.com’, “pass123”)
or die $WWW::Hotmail::errstr;
my @msgs = $hotmail->messages();
die $WWW::Hotmail::errstr if ($!);
print “You have “.scalar(@msgs).” messages\n”;
for (@msgs) {
print “message from “.$_->from.”\n”;
# retrieve the message from hotmail
my $mail = $_->retrieve;
# deliver it locally – you may wanna hash this out 🙂
$mail->accept;
# forward the message
$mail->resend(‘username@gmail.com’);
# delete it from the inbox
$_->delete;
}