Pasted

#cs ----------------------------------------------------------------------------
 
 AutoIt Version: 3.3.14.2
 Author: CarrotInBLack
 
 Script Function:
    Create a junk code for your autoIT script very easy With:
    - _JunkCreate($Value)
    EXAMPLE:
    _JunkCreate(10) will create 10 random junk codes (functions, variables, IF/ELSE and For)
    _RandomString() Creates a Random string with 10-15 caracters
 
#ce ----------------------------------------------------------------------------
 
Func _RandomVersion()
   $rVersion = ""
   Dim $aRr[3]
   $digits = Random(2, 4, 1)
   For $i = 1 To $digits
      $aRr[0] = Chr(Random(48, 57, 1)) & "."
      $aRr[1] = Chr(Random(48, 57, 1)) & "."
      $aRr[2] = Chr(Random(48, 57, 1)) & "."
      $arR2 = Chr(Random(48, 57, 1))
      $rVersion &= $aRr[Random(0, 2, 1)] & $arR2
   Next
   Return $rVersion
EndFunc
 
Func _RandomString()
   $rString = ""
   Dim $aRr[3]
   $digits = Random(5, 16, 1)
   For $i = 1 To $digits
      $aRr[0] = Chr(Random(65, 90, 1))
      $aRr[1] = Chr(Random(97, 122, 1))
      $aRr[2] = Chr(Random(48, 57, 1))
      $rString &= $aRr[Random(0, 2, 1)]
   Next
   Return $rString
EndFunc
 
Func _JunkVariables()
   $var = ""
   $varval = ""
   Dim $aRr[3]
   $digits = Random(5, 16, 1)
   For $i = 1 To $digits
      $aRr[0] = Chr(Random(65, 90, 1))
      $aRr[1] = Chr(Random(97, 122, 1))
      $aRr[2] = Chr(Random(48, 57, 1))
      $var &= $aRr[Random(0, 2, 1)]
      $varval &= $aRr[Random(0, 2, 1)]
      $variable = '$' & $var & ' = ' & '"' & $varval & '"' & @CRLF
   Next
   Return $variable
EndFunc
 
Func _JunkMath()
   $var = ""
   $varmath = ""
   Dim $aRr[3]
   Dim $operators[5]
   $operators[0] = "+"
   $operators[1] = "-"
   $operators[2] = "*"
   $operators[3] = "/"
   $operators[4] = "^"
   $mathdepth = Random(1, 10, 1)
   For $i = 1 To $mathdepth
      $operator = $operators[Random(0, 4, 1)]
      $varmath &= String(Random(1, 1000000, 1)) & " " & $operator & " " & String(Random(1, 1000000, 1))
   Next
   $digits = Random(5, 16, 1)
   For $i = 1 To $digits
      $aRr[0] = Chr(Random(65, 90, 1))
      $aRr[1] = Chr(Random(97, 122, 1))
      $aRr[2] = Chr(Random(48, 57, 1))
      $var &= $aRr[Random(0, 2, 1)]
   Next
   $math = '$' & $var & ' = ' & $varmath & @CRLF
   Return $math
EndFunc
 
Func _JunkFor()
   $rString = _RandomString()
   Dim $variable[2]
   $variable[0] = _JunkVariables()
   $variable[1] = _JunkMath()
   $whatToDo = $variable[Random(0, 1, 1)]
   $JunkFor = "For $" & $rString & " = 1 To " & Random(1, 256, 1) & @CRLF & "   " & $whatToDo & "Next" & @CRLF
   Return $JunkFor
EndFunc
 
Func _JunkIfElse()
   $rString = _RandomString()
   $rString2 = _RandomString()
   Dim $variable[2]
   $variable[0] = _JunkVariables()
   $variable[1] = _JunkMath()
   $whatToDo = $variable[Random(0, 1, 1)]
   Dim $ifType[2]
   $ifType[0] = "=="
   $ifType[1] = "<>"
   $JunkIf = 'If ' & '"' & $rString & '" ' & $ifType[Random(0, 1, 1)] & ' "' & $rString2 & '" Then' & @CRLF & '   ' & $whatToDo & 'EndIf' & @CRLF
   Return $JunkIf
Endfunc
 
Func _FunJunk($Value)
   $JunkFun = ""
   Dim $Round[5]
   For $i = 1 To $Value
         $Round[0] = _JunkVariables()
         $Round[2] = _JunkFor()
         $Round[3] = _JunkIfElse()
         $Round[4] = _JunkMath()
      $JunkFun &= $Round[Random(0, 4, 1)]
   Next
   Return $JunkFun
EndFunc
 
Func _RanParameters($Value)
   $JunkParam = ""
   For $i = 1 To $Value
      $JunkParam = "$" & _RandomString() & ", "
   Next
   Return $JunkParam
EndFunc
 
Func _JunkFunc()
   $FuncName = ""
   $Parameters = ""
   $Lparam = ""
   Dim $aRr[3]
   $digits = Random(7, 10, 1)
   $digits2 = Random(2, 5, 1)
   $digits3 = Random(1, 3, 1)
   $lastP = _RandomString()
   $Lparam &= "$" & $lastP
   $Parameters &= _RanParameters($digits3)
   For $i = 1 To $digits
      $aRr[0] = Chr(Random(65, 90, 1))
      $aRr[1] = Chr(Random(97, 122, 1))
      $aRr[2] = Chr(Random(48, 57, 1))
      $FuncName &= $aRr[Random(0, 2, 1)]
      $RanFun = _FunJunk($digits2)
      $Function = 'Func ' & '_' & $FuncName & '(' & $Parameters & $Lparam & ')' & @CRLF & "    " & StringReplace($RanFun, @CRLF, @CRLF & "    ") & 'EndFunc' & @CRLF
   Next
   Return $Function
EndFunc
 
Func _JunkCreate($Value)
   $JunkCode = ""
   Dim $Round[4]
   For $i = 1 To $Value
         $Round[0] = _JunkVariables()
         $Round[1] = _JunkFunc()
         $Round[2] = _JunkFor()
         $Round[3] = _JunkIfElse()
      $JunkCode &= $Round[Random(0, 3, 1)]
   Next
   Return $JunkCode
EndFunc
 
ConsoleWrite(_JunkCreate(50))