[SOURCE]Generador de codigo basura

$totallineas = 20000            ;Cantidad de lineas
$salida = "Basura.txt"     ;Archivo de salida
$numlines = 10             ;Lineas temporales (con 10 anda bien)

FileDelete($salida)

Dim $lineas[$numlines + 1] 
$lineas[0] = $numlines
_dimlines($numlines) 
FileWrite($salida, "") 
$i = 0 
$paso = Random(20,30,1) 
Do 
    If $i = $paso Then 
        $paso = $paso + Random($i + 20, $i + 30,1)
        _dimlines($numlines)
    EndIf 
    $i = $i + 1 
    $rand = Random(1,10,1) 
    FileWriteLine($salida, $lineas[$rand]) 
    $porcentaje = $i / $totallineas * 100 
    ToolTip("Se crearon: "$i & " de " & $totallineas & " lineas - (" & $porcentaje & "%)")
Until $i = $totallineas 

Func _dimlines($dsalida) 
    $d = 1
    Do 
        $lineas[$d] =  "$" & Random(50000,150000,1) & ' = "' & Random(50000,150000,1) & '"' 
        $d = $d + 1 ;$d++
    Until $d = $dsalida 
EndFunc