Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --[[
- VB.NET Junk Coder
- Made by Liquid Obsidian and cdriza.
- Usage:
- lua random.lua file.vb
- --]]
- local a={...}require"socket"function sleep(b)socket.select(nil,nil,b)end;function makeString()local c="abcdefghijklmnopqrstuvwxyz"local d=""for e=0,math.random(12,16)do local char=string.char(c:byte(math.random(1,#c)))local f=math.random()if f>=.5 then d=d..char else d=d..string.upper(char)end end;return d end;function makeStringQuotes()return"\""..makeString().."\""end;function makeInteger()return math.random(2147483646)end;function makeByte()return math.random(255)end;function generateLine()local g={{"String",makeStringQuotes},{"Byte",makeByte},{"Integer",makeInteger}}local f=math.random(#g)return"Dim "..makeString().." As "..g[f][1].." = "..g[f][2]()end;function generateSection()local h=math.random(12,16)local i=""for e=0,h do i=i..generateLine().."\n"end;return i end;function replaceWithJunk(j)for e=1,j:len()do math.randomseed(e)if j:sub(e,e)=="'"and j:sub(e+1,e+1)=="J"then j=j:gsub('\'J',generateSection,1)end end;return j end;function readAll(k)local l=io.open(k,"rb")local m=l:read("*all")l:close()return m end;function writeTo(k,j)local l=io.open(k,"w")l:write(j)l:close()end;function replaceFile(n)local o=readAll(n)writeTo(n,replaceWithJunk(o))end;for e=0,10 do replaceFile(a[1])end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement