Character Encryption Data Generator

#NoEnv
#Persistent
#SingleInstance Force
SetBatchLines, -1
SendMode Input

Coordmode, Mouse, Screen

Hotkey, ^1, Exit
Hotkey, ^2, PauseScript
;Hotkey, ^3, CreateSample4
Hotkey, ^4, CreateSample5


PauseScript(){
    Suspend
}

;tempValue := KeysArray[92][2]
;tempValue := charsList[33]
;MsgBox, %tempValue%

global illegal_characters = [34, 39, 40, 41, 42, 43, 44, 45, 46, 47, 58, 59, 60, 61, 62, 91, 92, 93, 94, 95, 96, 123, 124, 125, 126, 127]

global min_characters := 6
global max_characters := 10
global characters := 0

CreateSample5(){           ; CREATES DATA MAP FORMAT ( CAN BE USED IN JAVASCRIPT CHECK EXAMPLE https://pastebin.com/rBdHm96K)
    CreateSample4()
    FileDelete, sample5.txt

    FileAppend, {, sample5.txt
    Loop, read, %A_ScriptDir%/sample4.txt
    {
        if(A_Index == 1){
            temp = %A_LoopReadLine%
            FileAppend, %temp%`n, sample5.txt
        }
        else if(A_Index > 1 && A_Index < 69){
           temp = ,%A_LoopReadLine%
           FileAppend, %temp%`n, sample5.txt
        }
        else{
           temp = ,%A_LoopReadLine%}
           FileAppend, %temp%`n, sample5.txt
        }
    }

}

CreateSample4(){
    FileDelete, sample4.txt
    text1 := ""
    i := 33
    Loop, 95 {
        if(!(illegal_characters.IndexOf(i) > 0)){
            FileAppend, %i%:{, sample4.txt
            Loop, 5 {
                Random, characters, %min_characters%, %max_characters%
                j := 0
                text1 := ""
                Loop, %characters% {
                    temp := 0
                    Random, temp, 33, 128
                    while(illegal_characters.IndexOf(temp) > 0){
                        Random, temp, 33, 128
                        ;MsgBox, %temp%
                    }
                    text7 := chr(temp)
                    if(text7 == "'" || text7 == """" || text7 == "`"){
                        text7 = %text7%%text7%
                    }
                    text1 = %text1%%text7%
                    j++
                }
                text3 = "%text1%"
                text4 := A_Space
                if(A_Index == 1){
                    text2 = %A_Index%:%text3%,
                }
                else if(A_Index < 5 && A_Index != 1){
                    text2 = %A_Index%:%text3%,
                    text2 := " "+text2
                }
                else{
                    text2 = %A_Index%:%text3%
                    text2 := " "+text2
                }
                FileAppend, %text2%, sample4.txt
            }
            FileAppend, }`n, sample4.txt
        }
        i++
    }
}

CreateSample1(){
    FileDelete, sample.txt
    i := 33
    Loop, 95 {
        if(!(illegal_characters.IndexOf(i) > 0)){
            text1 := chr(i)
            text3 = "%text1%"
            text2 = %i%:%text3%,
            text4 := " "
            FileAppend, %text2%%text4%, sample.txt
        }
        i++
    }
}

CreateSample2(){
    FileDelete, sample2.txt
    j := 33
    Loop, 96 {
        if(j != 127){
            text6 := charsList[j]
            FileAppend, %j% = %text6%`n, sample2.txt
        }
        j++
    }
}

CreateSample3(){
    ;FileDelete, sample3.txt
    Random, characters, %min_characters%, %max_characters%
    Loop, %characters% {
        temp := 0
        Random, temp, 33, 128
        while(temp == 127){
            Random, temp, 33, 128
            MsgBox, %temp%
        }
        text1 := chr(temp)
        FileAppend, %text1%, sample3.txt
    }
    FileAppend, `n, sample3.txt
}



Array(items*)
{
    items.base := ArrayEx
    return items
}

class ArrayEx
{
    IsArray[]
    {
        get {
            return true
        }
    }

    IndexOf(item, case_sensitive:=false)
    {
        for i, val in this {
            if (case_sensitive ? (val == item) : (val = item))
                return i
        }
    }
}

Exit(){
    ExitApp
}