head	1.1;
access;
symbols;
locks
	root:1.1; strict;
comment	@# @;


1.1
date	2005.06.14.12.10.31;	author root;	state Exp;
branches;
next	;


desc
@Cows go boo!  Not so moo!
@


1.1
log
@Initial revision
@
text
@<trimlines><COMMENT>
#!/usr/bin/perl
# This perl script generates a time-sensitive code. A user is redirected to
# a download gateway which will evaluate the code, and offer a download if
# the code is correct.  (+/- 2 minutes clock skew maximum!)
#
# Jerry Glomph Black RealNetworks June 2005 .... NOT FOR REDISTRIBUTION
#
use MD5 ;
$GlomphMD5Secret = "Lilliburlero" ;
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime ;
$theDate = sprintf ("%02d%02d%02d%02d%02d", $year - 100, $mon + 1, $mday, $hour, $min) ;
$ShortDate = sprintf ("%02d%02d%02d", $mday, $hour, $min) ;
$md5 = MD5->new ;
$md5->add($GlomphMD5Secret) ;
$md5->add($theDate) ;

print sprintf ("\n%s/%s\n", $ShortDate, $md5->hexdigest)  ;
</COMMENT>
<cset preparse variable=timecode><rndate GMT>%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode1><rndate add=60 GMT>%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode2><rndate add=-60 GMT>%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode3><rndate add=120 GMT>%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode4><rndate add=-120 GMT>%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecodea><rndate GMT>%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode1a><rndate add=60 GMT>%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode2a><rndate add=-60 GMT>%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode3a><rndate add=120 GMT>%y%m%d%H%M</rndate></cset>
<cset preparse variable=timecode4a><rndate add=-120 GMT>%y%m%d%H%M</rndate></cset>

<cset preparse variable=comp><formoutput><MD5 quiet>Lilliburlero</MD5><MD5 quiet>#timecode#</MD5><MD5DIGEST></formoutput></cset>
<insert variable=timecode> is the timecode and the rollcode is <insert variable=comp>
</trimlines>
@