Indetectables

Código: Seleccionar todo

'Config
NumeroVariables = 100
NumeroEspacios = 10
NumeroFunciones = 10
NumeroSubs = 10

'Vars
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("junk.txt", True)

'Code
For i = 0 To NumeroVariables
	tf.WriteLine("Const " & RandomString(20) & " = " & Chr(34) & RandomString(100) & Chr(34))
Next
For i = 0 To NumeroEspacios
	tf.WriteLine()
Next
For i = 0 To NumeroFunciones
	NombreFuncion = RandomString(50)
	tf.WriteLine("Function " & NombreFuncion & "()")
	tf.WriteLine(NombreFuncion & " = " & Chr(34) & RandomString(100) & Chr(34))
	tf.WriteLine("End Function")
Next
For i = 0 To NumeroSubs
	tf.WriteLine("Sub " & RandomString(50) & "()")
	DimName = RandomString(50)
	tf.WriteLine("Dim " & DimName & "")
	tf.WriteLine("For i = 0 To " & RandomNumber(5))
	tf.WriteLine(DimName & " = " & DimName & " + " & RandomNumber(10))
	tf.WriteLine("Next")
	tf.WriteLine("End Sub")
Next
tf.Close()

MsgBox ("Archivo creado (junk.txt)")

Function RandomNumber(intMax)
	Dim iLoop, k, intValue, strChar, strName, intNum
	Const Chars = "1234567890"

	Randomize()
	For k = 1 To intMax
		intValue = Fix(26 * Rnd())
		strChar = Mid(Chars, intValue + 1, 1)
		strName = strName & strChar
	Next
	RandomNumber = strName
End Function

Function RandomString(intMax)
	Dim iLoop, k, intValue, strChar, strName, intNum
	Const Chars = "abcdefghijklmnopqrstuvwxyz"

	Randomize()
	For k = 1 To intMax
		intValue = Fix(26 * Rnd())
		strChar = Mid(Chars, intValue + 1, 1)
		strName = strName & strChar
	Next
	RandomString = strName
End Function