Function DelAppInit_DLLsByFileName(Name : string; AName : boolean = false) : boolean;
const
 RegKey = 'Software\Microsoft\Windows NT\CurrentVersion\Windows';
var 
 AppInit_DLLs,Temp_AppInit_DLLs,Temp : string;
 n,p : integer;
begin
 Result := false;
 Name := LowerCase(Name); AppInit_DLLs := ''; n := 0; p := 0;
 Temp_AppInit_DLLs := StringReplace(LowerCase(RegKeyStrParamRead('HKLM', RegKey, 'AppInit_DLLs')), ',', '  ') + ' ';
 if (Temp_AppInit_DLLs = ' ') or (pos(Name, Temp_AppInit_DLLs) = 0) then exit;
 Temp := Temp_AppInit_DLLs;
 while pos(Name, Temp) > 0 do
  begin
  Inc(p);
  Delete(Temp, pos(Name, Temp), Length(Name));
  end;
 Temp := '';
 while pos(' ', Temp_AppInit_DLLs) > 0 do
  begin
  If Copy(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs) - 1) <> '' then
   begin
   If n > 1 then Temp := Temp + ',';
   If pos(':\', Copy(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs) - 1)) > 0 then Temp := Temp + ',';
   If pos('.', Copy(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs) - 1)) > 0 then
   Temp := Temp + Copy(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs) - 1) + ',' else Temp := Temp + Copy(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs));
   n := 0;
   end;
  Delete(Temp_AppInit_DLLs, 1, pos(' ', Temp_AppInit_DLLs)); Inc(n);
  end;
 while (pos(',,', Temp) > 0) or (pos(' ,', Temp) > 0) do Temp := StringReplace(StringReplace(Temp, ',,', ','), ' ,', ',');
 while (pos(Copy(Temp, 1, 1), ' ,') > 0) do Delete(Temp, 1, 1);
 while (pos(Copy(Temp, Length(Temp), 1), ' ,') > 0) do Delete(Temp, Length(Temp), 1);
 Temp_AppInit_DLLs := Temp + ',';
 Temp := '';
 If AName then while pos(',', Temp_AppInit_DLLs) > 0 do
  begin
  If Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs) - 1) <> '' then
  If pos(' ', ExtractFileName(Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs) - 1))) > 0 then
  Temp := Temp + ExtractFilePath(Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs))) + StringReplace(ExtractFileName(Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs))), ' ', ',') else
  Temp := Temp + Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs));
  Delete(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs));
  end else Temp := Temp_AppInit_DLLs;
 Temp_AppInit_DLLs := Temp + ',';
 while pos(',', Temp_AppInit_DLLs) > 0 do
  begin
  If Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs) - 1) <> '' then
  If (Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs) - 1) = Name) or ((p <= 1) and (ExtractFileName(Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs) - 1)) = Name)) then
  AppInit_DLLs := AppInit_DLLs else AppInit_DLLs := AppInit_DLLs + Copy(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs));
  Delete(Temp_AppInit_DLLs, 1, pos(',', Temp_AppInit_DLLs));
  end;
 If Copy(AppInit_DLLs, Length(AppInit_DLLs), 1) = ',' then Delete(AppInit_DLLs, Length(AppInit_DLLs), 1);
 RegKeyStrParamWrite('HKEY_LOCAL_MACHINE', RegKey, 'AppInit_DLLs', AppInit_DLLs);
 If RegKeyStrParamRead('HKLM', RegKey, 'AppInit_DLLs') = AppInit_DLLs then Result := true;
end;

begin
SearchRootkit(true, true);
SetAVZGuardStatus(True);
 DeleteService('msupdate');
 DeleteFile('c:\windows\system32\servm32.exe');
 DeleteFile('C:\WINDOWS\system32\ybccdse.dll');
 DelAppInit_DLLsByFileName('C:\WINDOWS\system32\ybccdse.dll');
BC_ImportDeletedList;
ExecuteSysClean;
ExecuteWizard('TSW',2,2,true);
BC_Activate;
RebootWindows(true);
end.