This is a keygen that i doubt is very effective, i was just messing around with $rand command...have fun? YAY!
dialog keygen {
title "mIR-CS KeyGen"
size -1 -1 75 37
option dbu
button "", 1, 4 19 67 15, disable flat
box "", 2, 1 -2 73 39
button "-- Get Key --", 3, 7 21 61 11
button "", 4, 4 3 67 14, disable flat
edit "", 5, 7 5 61 10, autovs center
}
on *:dialog:keygen:sclick:3: {
set %cdkey $rand(0,3) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ - $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ - $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
did -a keygen 5 %cdkey
did -r keygen 5
did -a keygen 5 %cdkey
}
menu channel {
.CS KeyGen: /dialog -m keygen keygen
}