OpenOffice Detection

#
# (C) Tenable Network Security, Inc.
#

include("compat.inc");

if (description)
{
  script_id(25551);
  script_version("1.40");
  script_set_attribute(attribute:"plugin_modification_date", value:"2023/02/06");

  script_xref(name:"IAVT", value:"0001-T-0681");

  script_name(english:"OpenOffice Detection");
  script_summary(english:"Checks for OpenOffice.");

  script_set_attribute(attribute:"synopsis", value:"The remote Windows host contains an alternative office suite.");
  script_set_attribute(attribute:"description", value:"OpenOffice is installed on the remote host.");
  script_set_attribute(attribute:"see_also", value:"http://www.openoffice.org/");
  script_set_attribute(attribute:"solution", value:"n/a");
  script_set_attribute(attribute:"risk_factor", value:"None");

  script_set_attribute(attribute:"plugin_publication_date", value:"2007/06/20");

  script_set_attribute(attribute:"plugin_type", value:"local");
  script_set_attribute(attribute:"cpe", value:"cpe:/a:sun:openoffice.org");
  script_set_attribute(attribute:"cpe", value:"cpe:/a:oracle:openoffice.org");
  script_set_attribute(attribute:"cpe", value:"cpe:/a:apache:openoffice");
  script_set_attribute(attribute:"asset_inventory", value:"True");
  script_set_attribute(attribute:"asset_inventory_category", value:"software_enumeration");
  script_set_attribute(attribute:"agent", value:"windows");
  script_end_attributes();

  script_category(ACT_GATHER_INFO);
  script_family(english:"Windows");

  script_copyright(english:"This script is Copyright (C) 2007-2023 and is owned by Tenable, Inc. or an Affiliate thereof.");

  script_dependencies("smb_hotfixes.nasl");
  script_require_keys("SMB/Registry/Enumerated");
  script_require_ports(139, 445);

  exit(0);
}

include("audit.inc");
include("global_settings.inc");
include("misc_func.inc");
include("smb_func.inc");
include("install_func.inc");

app = "OpenOffice";

# Connect to the appropriate share.
get_kb_item_or_exit("SMB/Registry/Enumerated");
port    =  kb_smb_transport();
login   =  kb_smb_login();
pass    =  kb_smb_password();
domain  =  kb_smb_domain();

if(! smb_session_init()) audit(AUDIT_FN_FAIL, 'smb_session_init');

rc = NetUseAdd(login:login, password:pass, domain:domain, share:"IPC$");
if (rc != 1)
{
  NetUseDel();
  audit(AUDIT_SHARE_FAIL, "IPC$");
}

# Connect to remote registry.
hklm = RegConnectRegistry(hkey:HKEY_LOCAL_MACHINE);
if (isnull(hklm))
{
  NetUseDel();
  audit(AUDIT_REG_FAIL);
}

# Check whether it's installed.
buildid = NULL;
ooo = FALSE;
path = NULL;

key = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\soffice.exe";
key_h = RegOpenKey(handle:hklm, key:key, mode:MAXIMUM_ALLOWED);
if (!isnull(key_h))
{
  item = RegQueryValue(handle:key_h, item:"Path");
  if (!isnull(item))
  {
    path = item[1];
    path = ereg_replace(pattern:"^(.+)\\$", replace:"\1", string:path);
  }
  RegCloseKey(handle:key_h);
}

paths = make_list();

if (isnull(path))
{
  key = "SOFTWARE\OpenOffice.org";
  key_h = RegOpenKey(handle:hklm, key:key, mode:MAXIMUM_ALLOWED);
  if (!isnull(key_h))
  {
    info = RegQueryInfoKey(handle:key_h);
    for (i=0; i<info[1]; ++i)
    {
      subkey = RegEnumKey(handle:key_h, index:i);
      if (strlen(subkey) && subkey =~ "^OOo")
      {
        key2 = key + "\" + subkey;
        key2_h = RegOpenKey(handle:hklm, key:key2, mode:MAXIMUM_ALLOWED);
        if (!isnull(key2_h))
        {
          info2 = RegQueryInfoKey(handle:key2_h);
          for (i2=0; i2<info2[1]; ++i2)
          {
            subkey2 = RegEnumKey(handle:key2_h, index:i2);
            if (strlen(subkey2) && subkey2 =~ "^[0-9]+\.[0-9]+")
            {
              key3 = key + "\" + subkey + "\" + subkey2;
              key3_h = RegOpenKey(handle:hklm, key:key3, mode:MAXIMUM_ALLOWED);
              if (!isnull(key3_h))
              {
                info3 = RegQueryInfoKey(handle:key3_h);
                for (i3=0; i3<info3[1]; ++i3)
                {
                  subkey3 = RegEnumKey(handle:key3_h, index:i3);
                  if (strlen(subkey3) && subkey3 =~ "^\{[0-9A-Fa-f-]+\}")
                  {
                    key4 = key + "\" + subkey + "\" + subkey2 + "\" + subkey3;
                    key4_h = RegOpenKey(handle:hklm, key:key4, mode:MAXIMUM_ALLOWED);
                    if (!isnull(key4_h))
                    {
                      value = RegQueryValue(handle:key4_h, item:"INSTALLLOCATION");
                      if (isnull(value)) value = RegQueryValue(handle:key4_h, item:"OFFICEINSTALL");
                      if (!isnull(value))
                      {
                        path = value[1];
                        path = ereg_replace(pattern:"^(.+)\\$", replace:"\1", string:path);
                        paths = make_list(paths, path);
                      }
                      RegCloseKey(handle:key4_h);
                    }
                  }
                }
                RegCloseKey(handle:key3_h);
              }
            }
          }
          RegCloseKey(handle:key2_h);
        }
      }
    }
    RegCloseKey(handle:key_h);
  }
}

if (isnull(path))
{
  # Try to get it from Sun's property sheet handler.
  key = "SOFTWARE\Classes\CLSID\{63542C48-9552-494A-84F7-73AA6A7C99C1}\InprocServer32";
  key_h = RegOpenKey(handle:hklm, key:key, mode:MAXIMUM_ALLOWED);
  if (!isnull(key_h))
  {
    item = RegQueryValue(handle:key_h, item:NULL);
    if (!isnull(item))
    {
      path = item[1];
      # nb: the value is sometimes wrapped in quotes.
      path = ereg_replace(pattern:'^"(.+)"$', replace:"\1", string:path);
      path = ereg_replace(pattern:"^(.+)\\program\\shlxthdl\.dll$", replace:"\1", string:path);
    }
    RegCloseKey(handle:key_h);
  }
}

RegCloseKey(handle:hklm);
if (isnull(path))
{
  NetUseDel();
  audit(AUDIT_NOT_INST, app);
}

# Determine the version of the file.
share = ereg_replace(pattern:"^([A-Za-z]):.*", replace:"\1$", string:path);
cfg =  ereg_replace(pattern:"^[A-Za-z]:(.*)", replace:"\1\program\version.ini", string:path);
NetUseDel(close:FALSE);

rc = NetUseAdd(login:login, password:pass, domain:domain, share:share);
if (rc != 1)
{
  NetUseDel();
  audit(AUDIT_SHARE_FAIL, share);
}

fh = CreateFile(
  file:cfg,
  desired_access:GENERIC_READ,
  file_attributes:FILE_ATTRIBUTE_NORMAL,
  share_mode:FILE_SHARE_READ,
  create_disposition:OPEN_EXISTING
);
if (isnull(fh))
{
  # Version 1.x stores info in a different file.
  cfg =  ereg_replace(pattern:"^[A-Za-z]:(.*)", replace:"\1\program\bootstrap.ini", string:path);
  NetUseDel(close:FALSE);

  rc = NetUseAdd(login:login, password:pass, domain:domain, share:share);
  if (rc != 1)
  {
    NetUseDel();
    audit(AUDIT_SHARE_FAIL, share);
  }

  fh = CreateFile(
    file:cfg,
    desired_access:GENERIC_READ,
    file_attributes:FILE_ATTRIBUTE_NORMAL,
    share_mode:FILE_SHARE_READ,
    create_disposition:OPEN_EXISTING
  );
}
if (!isnull(fh))
{
  # nb: limit how much we'll read.
  fsize = GetFileSize(handle:fh);
  if (fsize > 1000) fsize = 1000;

  chunk = 1024;
  ofs = 0 ;

  while (fsize > 0 && ofs <= fsize)
  {
    data = ReadFile(handle:fh, length:chunk, offset:ofs);
    if (strlen(data) == 0) break;
    data = str_replace(find:raw_string(0), replace:"", string:data);
    if ("OpenOffice.org" >< data || "openoffice.org" >< data) ooo = TRUE;
    if ("buildid" >< data)
      buildid = ereg_replace(pattern:"^.+buildid *= *([0-9]+[a-z][0-9]+\(Build:[0-9]+\)).*", replace:"\1", string:data);
    if (isnull(buildid)) ofs += chunk;
    else break;
  }
  CloseFile(handle:fh);
}
NetUseDel();
vers = make_array();

# Save and report the version number and installation path.
if (ooo && !isnull(buildid) && !isnull(path))
{
  # Map build to a more user-friendly version number.
  vers[9790] = "4.1.6 (Revision 1844436)";
  vers[9789] = "4.1.5 (Revision 1817496)";
  vers[9788] = "4.1.4 (Revision 1811857)";
  vers[9783] = "4.1.3";
  vers[9782] = "4.1.2 (Revision 1709696)";
  vers[9775] = "4.1.1";
  vers[9764] = "4.1.0";
  vers[9760] = "4.1.0 Beta 1";
  vers[9714] = "4.0.1";
  vers[9702] = "4.0.0";
  vers[9593] = "3.4.1";
  vers[9590] = "3.4.0 (Revision 1327774)";
  vers[9589] = "3.4.0 (Revision 1303653)";
  vers[9583] = "3.4.0 Beta 1";
  vers[9567] = "3.3";
  vers[9502] = "3.2.1";
  vers[9483] = "3.2";
  vers[9420] = "3.1.1";
  vers[9399] = "3.1.0";
  vers[9379] = "3.0.1";
  vers[9358] = "3.0.0";
  vers[9364] = "2.4.2";
  vers[9310] = "2.4.1";
  vers[9286] = "2.4";
  vers[9238] = "2.3.1";
  vers[9221] = "2.3";
  vers[9161] = "2.2.1";
  vers[9134] = "2.2";
  vers[9073] = "2.0.4";
  vers[9044] = "2.0.3";
  vers[8950] = "1.1.5";

  set_kb_item(name:"SMB/OpenOffice/Path", value:path);
  set_kb_item(name:"SMB/OpenOffice/Build", value:buildid);

  ver = "build " + buildid;
  matches = pregmatch(pattern:"([0-9]+[a-z][0-9]+)\(Build:([0-9]+)\)", string:buildid);
  if (!isnull(matches))
  {
    prod = matches[1];
    build = int(matches[2]);
    if (build && vers[build]) ver = vers[build] + " (" + prod + " / build " + build + ")";
  }
  set_kb_item(name:"SMB/OpenOffice/Version_UI", value:ver);

  register_install(
    vendor:"Apache",
    product:"OpenOffice",
    app_name:app,
    path:path,
    version:buildid,
    display_version:ver,
    cpe:"cpe:/a:sun:openoffice.org");

  report_installs(app_name:app, port:port);
}