Here's a fixed version of my VB.NET Junk Coder.
(this fixes the newline issue and adds multiple file support)

Just put a 'J where you want code to be generated.

Usage:
Code:
lua random.lua <files>
Example:
Input
Code:
Imports System

Public Module junkCode
    Sub Main()
        'J
        Console.WriteLine("This code's gonna get fucked up.")
        'J
    End Sub
End Module
Output
Code:
Imports System

Public Module junkCode
    Sub Main()
        Dim YBsFUyIsXTvUHRAZz As Byte = 180
        Dim keuJcDvhVZjKT As Integer = 692998813
        Dim aYceLzaRWBzdRqDWb As String = "nwRNUstboFexLUHbd"
        Dim YTKJWDTRZtkXa As Byte = 40
        Dim GAvuEHVfQysLEj As Integer = 1187024257
        Dim AeqRGHLlmVhwHBoKd As String = "zKtiNQWmONiZjV"
        Dim ctXVLbUCmpVfT As String = "LuQcBfcRfGJmZIWbU"
        Dim OPPrxGHgqouNQe As Integer = 1914037291
        Dim VhdjxdXMbJYoLx As Integer = 2068248205
        Dim WSqMRJuewuvUFYYQC As Integer = 452474353
        Dim qPtKzYUsgxNztM As String = "QpUDDwhvqqiDKu"
        Dim iHUOAXqpDCQMZ As Integer = 423703171
        Dim WRrnvAVnYPvbxbILT As Integer = 466237333
        Dim apwDuTuUhOmMDqls As Byte = 45
        Dim XuZILNTtJuQkYNzo As String = "qTBeqmFxWmDoQi"
        Dim fDCkzsebJCkbaczAj As String = "LSfGhwIweeyWv"
        Console.WriteLine("This code's gonna get fucked up.")
        Dim kIysVTtRrNqqLssj As Integer = 1819400419
        Dim LxZpFXeUBcccB As Integer = 1560459781
        Dim uDVshZHPGskHrtrBb As String = "IaWIMRGVzkXTJOIH"
        Dim gXHyOskMmNfqCckiC As String = "AdIWXmyGxKmYKt"
        Dim XkqzJyjqSYxor As Byte = 225
        Dim aGfxRShgJvuIiyTQf As Byte = 36
        Dim oiKVesAQrMBKVTi As String = "JXiQbVRsuPZLU"
        Dim geCrMKOADRPpQZ As String = "eZGrSeXDuHjVFvy"
        Dim whQCjggoliwSV As String = "IabvKkbGjPicZMYr"
        Dim YGqLtrvPMriXTUsG As Integer = 815423797
        Dim ILeQuXWajoJEzSyd As Integer = 1683081379
        Dim sHuXAluGYvfSW As String = "QMujljpmBpeOHPc"
        Dim OarmHjHpdHCvL As String = "sgmhzEeJkAZjWtG"
        Dim jqotZFrXtxieQimo As Integer = 1900470925
        Dim ccBVvpfRcfElBmDZV As Integer = 331753357
        Dim UnobCPktWbIWXQV As String = "vqhjlWyjDNUFHMDR"
    End Sub
End Module
Pastebin