Mercurial > codedump
view mod7.nsb @ 133:0d8eabdd12ab default tip
create: write H:MM:SS timestamps, add option to fill with gaussian-blur instead of black
many albums are longer than one hour so writing H:MM:SS is a
necessity. if anything there will just be verbose info that
isn't important for my use-case.
however the gaussian-blur is simply broken. It works, and it plays
locally just fine, but YouTube in particular elongates the video
to fit the full width. I'm not entirely sure why it does this, but
it makes it useless and ugly.
| author | Paper <paper@tflc.us> |
|---|---|
| date | Sat, 03 Jan 2026 20:25:38 -0500 |
| parents | 96e5d721538f |
| children |
line wrap: on
line source
{if:{argslen}|=|1|then:{ if:{arg:0}|=|--oem|then:{set:day|{range:1|365}}{repeat:{len:{substring:{repeat:3|a}|{len:{get:day}}}}|0}{get:day}{choose:95|96|97|98|99|00|01|02|03}-OEM-{lua: function sumdigits(n) local sum = 0 while n > 0 do sum = sum + n%10 n = math.floor(n/10) end return sum end the = 1 while (sumdigits(the) % 7 ~= 0) do the = math.random(1, 99999) end the = (the*10)+math.random(1,7) print(string.format("%07d", the)) }-{set:day|{range:1|99999}}{repeat:{len:{substring:{repeat:5|a}|{len:{get:day}}}}|0}{get:day}|else: {set:first|{range:111|999}}{ if:{get:first}|=|333|then:{set:first|332}}{ if:{get:first}|=|444|then:{set:first|443}}{ if:{get:first}|=|555|then:{set:first|554}}{ if:{get:first}|=|666|then:{set:first|665}}{ if:{get:first}|=|777|then:{set:first|776}}{ if:{get:first}|=|888|then:{set:first|887}}{ if:{get:first}|=|999|then:{set:first|998}}{get:first}{ if:{arg:0}|=|--office|then:{ if:{substring:{get:first}|2|3}|=|9|then:0|else:{len:{repeat:{substring:{get:first}|2|3}|a}{repeat:1|a}}}}-{lua: function sumdigits(n) local sum = 0 while n > 0 do sum = sum + n%10 n = math.floor(n/10) end return sum end the = 1 while (sumdigits(the) % 7 ~= 0) do the = (math.random(1, 999999)*10)+math.random(1,7) end print(string.format("%07d", the)) }} |else:{code: MOD7(1) NAME mod7 SYNOPSIS .t mod7 [ option ] DESCRIPTION A generator for old Microsoft products using the mod7 key algorithm. OPTIONS --normal Generate a normal Windows 95/NT 4 key. --office Generate a normal Office 97 key. --oem Generate an OEM Windows 95/NT 4 key. }}
