mshock

SetTimer,KeepAwake,480000         ;run every 8 minutes
return
 
KeepAwake:
{
     MouseMove,0,0,0,R ; mouse pointer stays in place but sends a mouse event
}
return

^0::

mshock

#! perl -w

# test ports 80 and 1433 on given IP
# HTTP and SQL
# for new NAT addresses

use strict;
use IO::Socket::PortState qw(check_ports);

my $timeout = 10;

mshock

[reddit]
client_id = XXX
client_secret = XXX
unique_key = XXX

mshock

tskill dwm

mshock

def translate(str)
  words = str.split(" ")
  result_array = Array.new
  words.each do |word|
    if ( word.match(/^[aeiou]/) )
      result_array.push( word + 'ay' )
    else
      done = false
      consonants = ''

mshock

sub getsleep {
	my ($thour) = @_;

	return 0 unless $thour;

	my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst )
		= localtime(time);
	my $dif = $thour - $hour - $min / 60 - $sec / 3600;
	if ( $dif >= 0 ) {
		return $dif * 3600;

mshock

sub gdate {
	my $jdn = shift;
	my $l= $jdn+68569;
	my $n= int(4*$l/146097);
	$l= int($l-(146097*$n+3)/4);
	my $i = int(4000*($l+1)/1461001);
	$l= int($l-1461*$i/4+31);
	my $j = int(80*$l/2447);
	my $k = int( $l - 2447 * $j/80);
	$l = int($j/11);

mshock

$z='1';
$r=$z;
for(0..32){
  @d=split' ',$z;
	unshift@d,0;
	@n=();
	while($#d!=-1){
		push@n,($d[0]||0)+($d[1]||0);
		shift@d
	}

mshock

#!perl -n
@z=/[^\n]/sg if/A/;
while(1) {
  $i=index$_,'X';
	($p,$t)=$i%2?($i-1,$i+1):($i-2,$i+2);
	($z[$p],$z[$t])=($z[$t],$z[$p]);
	s/X/ /
}
}{print@z
__DATA__

mshock

#! perl -ws
use strict;
our $test ||= '';
print $test;