#!/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) ; %y%m%d%H%M %y%m%d%H%M %y%m%d%H%M %y%m%d%H%M %y%m%d%H%M %y%m%d%H%M %y%m%d%H%M %y%m%d%H%M %y%m%d%H%M %y%m%d%H%M Lilliburlero#timecode# is the timecode and the rollcode is Lilliburlero#timecode1# Lilliburlero#timecode2# Lilliburlero#timecode3# Lilliburlero#timecode4# Lilliburlero#timecodea# Lilliburlero#timecode1a# Lilliburlero#timecode2a# Lilliburlero#timecode3a# Lilliburlero#timecode4a# #comp#,#comp1#,#comp2#,#comp3#,#comp4#,#compa#,#comp1a#,#comp2a#,#comp3a#,#comp4a#
we have a match
no match