//  Serial Key Generator
//  Created by Irfan Guanwan
//    a.k.a. Sakaki
//    a.k.a. Stanley Trainer
//
//  This function produces 1 very detailed serial key, since the
// serial key is based on gathered value itself.
//
//  Require:
// radix_change function (with EXTENSION PACKAGE, or with COPY PASTE the script)
//
// PS : for now, i don't have any interest to argument..
//      so keep try editing this script okay?
//      also don't forget! credit me (this) and the radix_change function maker

var data, res, SIZE, LEVEL;

// just modify below here!
  SIZE = 7 // set the level of the data
  LEVEL = 6 // set the level of the "dash", modify please...
// just modify above here!

// get the default data, modify the original value with another value...
// you can append the data requirement below here

//// example : data[0] = environment_get_name("OS") , it returns Windows_NT
////          data[1] = environment_get_name("TEMP"), it returns C:\DOCUME~1\Kai\LOCALS~1\Temp

// you can append the data requirement above here

// filter, removes the non 0-9A-Za-z :: DON'T MODIFY!! (SYMBOLS KILLER)
var i;
for (i=0;i<SIZE;i+=1) {
  var j;
  j=0
  do {
    var doit;
    doit = true
    // skip in range
    if j >= ord('0') && j <= ord('9') then doit=false
    if j >= ord('A') && j <= ord('Z') then doit=false
    if j >= ord('a') && j <= ord('z') then doit=false
    if doit then data[i] = string_replace_all(data[i],chr(j),"")
    j+=1
  } until (j>= 255)
}

// data get, collect all gathered info :: DON'T MODIFY!
var DATA;
DATA = ""
for(i=0;i<SIZE;i+=1){
  DATA=DATA+data[i]
}

// set the first result, just modify the 2 variables
var from, to;
// modifiable
from = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
to = "QWE0RTY1UIO2PAS3DFG456HJK7LZX8CVB9NNM"
// modifiable
// this script requires "HEX SCRIPT" extension package
res = radix_change(DATA,from,to)
var resh;
// get the longest size of the result for now, up to you to modify this... :swt:
resh = string_length(res)
// don't modify the formula!! it can kill the final of this function!!
for (i=0;i<=resh;i+=1){
  if i mod LEVEL == 5 && i>0 then {
    var L, M, R, I;
    I = i + floor(i/LEVEL)
    L = string_copy(res,0,I)
    R = string_copy(res,I+1,resh-I)
    M = "-"
    res = L+M+R
  }
}

// removes the final dash on final letter, don't modify....
if string_copy(res,string_length(res)-1,1) == "-" then res=string_copy(res,0,string_length(res)-2)
return res