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.
}}