/* * Hotspot 2.0 OSU client * Copyright (c) 2012-2014, Qualcomm Atheros, Inc. * * This software may be distributed under the terms of the BSD license. * See README for more details. */ #include "includes.h" #include #include #ifdef ANDROID #include "private/android_filesystem_config.h" #endif /* ANDROID */ #include "common.h" #include "utils/browser.h" #include "utils/base64.h" #include "utils/xml-utils.h" #include "utils/http-utils.h" #include "common/wpa_ctrl.h" #include "common/wpa_helpers.h" #include "eap_common/eap_defs.h" #include "crypto/crypto.h" #include "crypto/sha256.h" #include "osu_client.h" const char *spp_xsd_fname = "spp.xsd"; void write_result(struct hs20_osu_client *ctx, const char *fmt, ...) { va_list ap; FILE *f; char buf[500]; va_start(ap, fmt); vsnprintf(buf, sizeof(buf), fmt, ap); va_end(ap); write_summary(ctx, "%s", buf); if (!ctx->result_file) return; f = fopen(ctx->result_file, "w"); if (f == NULL) return; va_start(ap, fmt); vfprintf(f, fmt, ap); va_end(ap); fprintf(f, "\n"); fclose(f); } void write_summary(struct hs20_osu_client *ctx, const char *fmt, ...) { va_list ap; FILE *f; if (!ctx->summary_file) return; f = fopen(ctx->summary_file, "a"); if (f == NULL) return; va_start(ap, fmt); vfprintf(f, fmt, ap); va_end(ap); fprintf(f, "\n"); fclose(f); } void debug_dump_node(struct hs20_osu_client *ctx, const char *title, xml_node_t *node) { char *str = xml_node_to_str(ctx->xml, node); wpa_printf(MSG_DEBUG, "[hs20] %s: '%s'", title, str); free(str); } static int valid_fqdn(const char *fqdn) { const char *pos; /* TODO: could make this more complete.. */ if (strchr(fqdn, '.') == 0 || strlen(fqdn) > 255) return 0; for (pos = fqdn; *pos; pos++) { if (*pos >= 'a' && *pos <= 'z') continue; if (*pos >= 'A' && *pos <= 'Z') continue; if (*pos >= '0' && *pos <= '9') continue; if (*pos == '-' || *pos == '.' || *pos == '_') continue; return 0; } return 1; } int osu_get_certificate(struct hs20_osu_client *ctx, xml_node_t *getcert) { xml_node_t *node; char *url, *user = NULL, *pw = NULL; char *proto; int ret = -1; proto = xml_node_get_attr_value(ctx->xml, getcert, "enrollmentProtocol"); if (!proto) return -1; wpa_printf(MSG_INFO, "getCertificate - enrollmentProtocol=%s", proto); write_summary(ctx, "getCertificate - enrollmentProtocol=%s", proto); if (os_strcasecmp(proto, "EST") != 0) { wpa_printf(MSG_INFO, "Unsupported enrollmentProtocol"); xml_node_get_attr_value_free(ctx->xml, proto); return -1; } xml_node_get_attr_value_free(ctx->xml, proto); node = get_node(ctx->xml, getcert, "enrollmentServerURI"); if (node == NULL) { wpa_printf(MSG_INFO, "Could not find enrollmentServerURI node"); xml_node_get_attr_value_free(ctx->xml, proto); return -1; } url = xml_node_get_text(ctx->xml, node); if (url == NULL) { wpa_printf(MSG_INFO, "Could not get URL text"); return -1; } wpa_printf(MSG_INFO, "enrollmentServerURI: %s", url); write_summary(ctx, "enrollmentServerURI: %s", url); node = get_node(ctx->xml, getcert, "estUserID"); if (node == NULL && !ctx->client_cert_present) { wpa_printf(MSG_INFO, "Could not find estUserID node"); goto fail; } if (node) { user = xml_node_get_text(ctx->xml, node); if (user == NULL) { wpa_printf(MSG_INFO, "Could not get estUserID text"); goto fail; } wpa_printf(MSG_INFO, "estUserID: %s", user); write_summary(ctx, "estUserID: %s", user); } node = get_node(ctx->xml, getcert, "estPassword"); if (node == NULL && !ctx->client_cert_present) { wpa_printf(MSG_INFO, "Could not find estPassword node"); goto fail; } if (node) { pw = xml_node_get_base64_text(ctx->xml, node, NULL); if (pw == NULL) { wpa_printf(MSG_INFO, "Could not get estPassword text"); goto fail; } wpa_printf(MSG_INFO, "estPassword: %s", pw); } mkdir("Cert", S_IRWXU); if (est_load_cacerts(ctx, url) < 0 || est_build_csr(ctx, url) < 0 || est_simple_enroll(ctx, url, user, pw) < 0) goto fail; ret = 0; fail: xml_node_get_text_free(ctx->xml, url); xml_node_get_text_free(ctx->xml, user); xml_node_get_text_free(ctx->xml, pw); return ret; } static int process_est_cert(struct hs20_osu_client *ctx, xml_node_t *cert, const char *fqdn) { u8 digest1[SHA256_MAC_LEN], digest2[SHA256_MAC_LEN]; char *der, *pem; size_t der_len, pem_len; char *fingerprint; char buf[200]; wpa_printf(MSG_INFO, "PPS for certificate credential - fqdn=%s", fqdn); fingerprint = xml_node_get_text(ctx->xml, cert); if (fingerprint == NULL) return -1; if (hexstr2bin(fingerprint, digest1, SHA256_MAC_LEN) < 0) { wpa_printf(MSG_INFO, "Invalid SHA256 hash value"); write_result(ctx, "Invalid client certificate SHA256 hash value in PPS"); xml_node_get_text_free(ctx->xml, fingerprint); return -1; } xml_node_get_text_free(ctx->xml, fingerprint); der = os_readfile("Cert/est_cert.der", &der_len); if (der == NULL) { wpa_printf(MSG_INFO, "Could not find client certificate from EST"); write_result(ctx, "Could not find client certificate from EST"); return -1; } if (sha256_vector(1, (const u8 **) &der, &der_len, digest2) < 0) { os_free(der); return -1; } os_free(der); if (os_memcmp(digest1, digest2, sizeof(digest1)) != 0) { wpa_printf(MSG_INFO, "Client certificate from EST does not match fingerprint from PPS MO"); write_result(ctx, "Client certificate from EST does not match fingerprint from PPS MO"); return -1; } wpa_printf(MSG_INFO, "Client certificate from EST matches PPS MO"); unlink("Cert/est_cert.der"); os_snprintf(buf, sizeof(buf), "SP/%s/client-ca.pem", fqdn); if (rename("Cert/est-cacerts.pem", buf) < 0) { wpa_printf(MSG_INFO, "Could not move est-cacerts.pem to client-ca.pem: %s", strerror(errno)); return -1; } pem = os_readfile(buf, &pem_len); os_snprintf(buf, sizeof(buf), "SP/%s/client-cert.pem", fqdn); if (rename("Cert/est_cert.pem", buf) < 0) { wpa_printf(MSG_INFO, "Could not move est_cert.pem to client-cert.pem: %s", strerror(errno)); os_free(pem); return -1; } if (pem) { FILE *f = fopen(buf, "a"); if (f) { fwrite(pem, pem_len, 1, f); fclose(f); } os_free(pem); } os_snprintf(buf, sizeof(buf), "SP/%s/client-key.pem", fqdn); if (rename("Cert/privkey-plain.pem", buf) < 0) { wpa_printf(MSG_INFO, "Could not move privkey-plain.pem to client-key.pem: %s", strerror(errno)); return -1; } unlink("Cert/est-req.b64"); unlink("Cert/est-req.pem"); unlink("Cert/est-resp.raw"); rmdir("Cert"); return 0; } #define TMP_CERT_DL_FILE "tmp-cert-download" static int download_cert(struct hs20_osu_client *ctx, xml_node_t *params, const char *fname) { xml_node_t *url_node, *hash_node; char *url, *hash; char *cert; size_t len; u8 digest1[SHA256_MAC_LEN], digest2[SHA256_MAC_LEN]; int res; unsigned char *b64; FILE *f; url_node = get_node(ctx->xml, params, "CertURL"); hash_node = get_node(ctx->xml, params, "CertSHA256Fingerprint"); if (url_node == NULL || hash_node == NULL) return -1; url = xml_node_get_text(ctx->xml, url_node); hash = xml_node_get_text(ctx->xml, hash_node); if (url == NULL || hash == NULL) { xml_node_get_text_free(ctx->xml, url); xml_node_get_text_free(ctx->xml, hash); return -1; } wpa_printf(MSG_INFO, "CertURL: %s", url); wpa_printf(MSG_INFO, "SHA256 hash: %s", hash); if (hexstr2bin(hash, digest1, SHA256_MAC_LEN) < 0) { wpa_printf(MSG_INFO, "Invalid SHA256 hash value"); write_result(ctx, "Invalid SHA256 hash value for downloaded certificate"); xml_node_get_text_free(ctx->xml, hash); return -1; } xml_node_get_text_free(ctx->xml, hash); write_summary(ctx, "Download certificate from %s", url); ctx->no_osu_cert_validation = 1; http_ocsp_set(ctx->http, 1); res = http_download_file(ctx->http, url, TMP_CERT_DL_FILE, NULL); http_ocsp_set(ctx->http, (ctx->workarounds & WORKAROUND_OCSP_OPTIONAL) ? 1 : 2); ctx->no_osu_cert_validation = 0; xml_node_get_text_free(ctx->xml, url); if (res < 0) return -1; cert = os_readfile(TMP_CERT_DL_FILE, &len); remove(TMP_CERT_DL_FILE); if (cert == NULL) return -1; if (sha256_vector(1, (const u8 **) &cert, &len, digest2) < 0) { os_free(cert); return -1; } if (os_memcmp(digest1, digest2, sizeof(digest1)) != 0) { wpa_printf(MSG_INFO, "Downloaded certificate fingerprint did not match"); write_result(ctx, "Downloaded certificate fingerprint did not match"); os_free(cert); return -1; } b64 = base64_encode((unsigned char *) cert, len, NULL); os_free(cert); if (b64 == NULL) return -1; f = fopen(fname, "wb"); if (f == NULL) { os_free(b64); return -1; } fprintf(f, "-----BEGIN CERTIFICATE-----\n" "%s" "-----END CERTIFICATE-----\n", b64); os_free(b64); fclose(f); wpa_printf(MSG_INFO, "Downloaded certificate into %s and validated fingerprint", fname); write_summary(ctx, "Downloaded certificate into %s and validated fingerprint", fname); return 0; } static int cmd_dl_osu_ca(struct hs20_osu_client *ctx, const char *pps_fname, const char *ca_fname) { xml_node_t *pps, *node; int ret; pps = node_from_file(ctx->xml, pps_fname); if (pps == NULL) { wpa_printf(MSG_INFO, "Could not read or parse '%s'", pps_fname); return -1; } node = get_child_node(ctx->xml, pps, "SubscriptionUpdate/TrustRoot"); if (node == NULL) { wpa_printf(MSG_INFO, "No SubscriptionUpdate/TrustRoot/CertURL found from PPS"); xml_node_free(ctx->xml, pps); return -1; } ret = download_cert(ctx, node, ca_fname); xml_node_free(ctx->xml, pps); return ret; } static int cmd_dl_polupd_ca(struct hs20_osu_client *ctx, const char *pps_fname, const char *ca_fname) { xml_node_t *pps, *node; int ret; pps = node_from_file(ctx->xml, pps_fname); if (pps == NULL) { wpa_printf(MSG_INFO, "Could not read or parse '%s'", pps_fname); return -1; } node = get_child_node(ctx->xml, pps, "Policy/PolicyUpdate/TrustRoot"); if (node == NULL) { wpa_printf(MSG_INFO, "No Policy/PolicyUpdate/TrustRoot/CertURL found from PPS"); xml_node_free(ctx->xml, pps); return -1; } ret = download_cert(ctx, node, ca_fname); xml_node_free(ctx->xml, pps); return ret; } static int cmd_dl_aaa_ca(struct hs20_osu_client *ctx, const char *pps_fname, const char *ca_fname) { xml_node_t *pps, *node, *aaa; int ret; pps = node_from_file(ctx->xml, pps_fname); if (pps == NULL) { wpa_printf(MSG_INFO, "Could not read or parse '%s'", pps_fname); return -1; } node = get_child_node(ctx->xml, pps, "AAAServerTrustRoot"); if (node == NULL) { wpa_printf(MSG_INFO, "No AAAServerTrustRoot/CertURL found from PPS"); xml_node_free(ctx->xml, pps); return -1; } aaa = xml_node_first_child(ctx->xml, node); if (aaa == NULL) { wpa_printf(MSG_INFO, "No AAAServerTrustRoot/CertURL found from PPS"); xml_node_free(ctx->xml, pps); return -1; } ret = download_cert(ctx, aaa, ca_fname); xml_node_free(ctx->xml, pps); return ret; } static int download_trust_roots(struct hs20_osu_client *ctx, const char *pps_fname) { char *dir, *pos; char fname[300]; int ret; dir = os_strdup(pps_fname); if (dir == NULL) return -1; pos = os_strrchr(dir, '/'); if (pos == NULL) { os_free(dir); return -1; } *pos = '\0'; snprintf(fname, sizeof(fname), "%s/ca.pem", dir); ret = cmd_dl_osu_ca(ctx, pps_fname, fname); snprintf(fname, sizeof(fname), "%s/polupd-ca.pem", dir); cmd_dl_polupd_ca(ctx, pps_fname, fname); snprintf(fname, sizeof(fname), "%s/aaa-ca.pem", dir); cmd_dl_aaa_ca(ctx, pps_fname, fname); os_free(dir); return ret; } static int server_dnsname_suffix_match(struct hs20_osu_client *ctx, const char *fqdn) { size_t match_len, len, i; const char *val; match_len = os_strlen(fqdn); for (i = 0; i < ctx->server_dnsname_count; i++) { wpa_printf(MSG_INFO, "Checking suffix match against server dNSName %s", ctx->server_dnsname[i]); val = ctx->server_dnsname[i]; len = os_strlen(val); if (match_len > len) continue; if (os_strncasecmp(val + len - match_len, fqdn, match_len) != 0) continue; /* no match */ if (match_len == len) return 1; /* exact match */ if (val[len - match_len - 1] == '.') return 1; /* full label match completes suffix match */ /* Reject due to incomplete label match */ } /* None of the dNSName(s) matched */ return 0; } int hs20_add_pps_mo(struct hs20_osu_client *ctx, const char *uri, xml_node_t *add_mo, char *fname, size_t fname_len) { char *str; char *fqdn, *pos; xml_node_t *tnds, *mo, *cert; const char *name; int ret; if (strncmp(uri, "./Wi-Fi/", 8) != 0) { wpa_printf(MSG_INFO, "Unsupported location for addMO to add PPS MO: '%s'", uri); write_result(ctx, "Unsupported location for addMO to add PPS MO: '%s'", uri); return -1; } fqdn = strdup(uri + 8); if (fqdn == NULL) return -1; pos = strchr(fqdn, '/'); if (pos) { if (os_strcasecmp(pos, "/PerProviderSubscription") != 0) { wpa_printf(MSG_INFO, "Unsupported location for addMO to add PPS MO (extra directory): '%s'", uri); write_result(ctx, "Unsupported location for addMO to " "add PPS MO (extra directory): '%s'", uri); return -1; } *pos = '\0'; /* remove trailing slash and PPS node name */ } wpa_printf(MSG_INFO, "SP FQDN: %s", fqdn); if (!server_dnsname_suffix_match(ctx, fqdn)) { wpa_printf(MSG_INFO, "FQDN '%s' for new PPS MO did not have suffix match with server's dNSName values, count: %d", fqdn, (int) ctx->server_dnsname_count); write_result(ctx, "FQDN '%s' for new PPS MO did not have suffix match with server's dNSName values", fqdn); free(fqdn); return -1; } if (!valid_fqdn(fqdn)) { wpa_printf(MSG_INFO, "Invalid FQDN '%s'", fqdn); write_result(ctx, "Invalid FQDN '%s'", fqdn); free(fqdn); return -1; } mkdir("SP", S_IRWXU); snprintf(fname, fname_len, "SP/%s", fqdn); if (mkdir(fname, S_IRWXU) < 0) { if (errno != EEXIST) { int err = errno; wpa_printf(MSG_INFO, "mkdir(%s) failed: %s", fname, strerror(err)); free(fqdn); return -1; } } #ifdef ANDROID /* Allow processes running with Group ID as AID_WIFI, * to read files from SP/ directory */ if (chown(fname, -1, AID_WIFI)) { wpa_printf(MSG_INFO, "CTRL: Could not chown directory: %s", strerror(errno)); /* Try to continue anyway */ } if (chmod(fname, S_IRWXU | S_IRGRP | S_IXGRP) < 0) { wpa_printf(MSG_INFO, "CTRL: Could not chmod directory: %s", strerror(errno)); /* Try to continue anyway */ } #endif /* ANDROID */ snprintf(fname, fname_len, "SP/%s/pps.xml", fqdn); if (os_file_exists(fname)) { wpa_printf(MSG_INFO, "PPS file '%s' exists - reject addMO", fname); write_result(ctx, "PPS file '%s' exists - reject addMO", fname); free(fqdn); return -2; } wpa_printf(MSG_INFO, "Using PPS file: %s", fname); str = xml_node_get_text(ctx->xml, add_mo); if (str == NULL) { wpa_printf(MSG_INFO, "Could not extract MO text"); free(fqdn); return -1; } wpa_printf(MSG_DEBUG, "[hs20] addMO text: '%s'", str); tnds = xml_node_from_buf(ctx->xml, str); xml_node_get_text_free(ctx->xml, str); if (tnds == NULL) { wpa_printf(MSG_INFO, "[hs20] Could not parse addMO text"); free(fqdn); return -1; } mo = tnds_to_mo(ctx->xml, tnds); if (mo == NULL) { wpa_printf(MSG_INFO, "[hs20] Could not parse addMO TNDS text"); free(fqdn); return -1; } debug_dump_node(ctx, "Parsed TNDS", mo); name = xml_node_get_localname(ctx->xml, mo); if (os_strcasecmp(name, "PerProviderSubscription") != 0) { wpa_printf(MSG_INFO, "[hs20] Unexpected PPS MO root node name '%s'", name); free(fqdn); return -1; } cert = get_child_node(ctx->xml, mo, "Credential/DigitalCertificate/" "CertSHA256Fingerprint"); if (cert && process_est_cert(ctx, cert, fqdn) < 0) { xml_node_free(ctx->xml, mo); free(fqdn); return -1; } free(fqdn); if (node_to_file(ctx->xml, fname, mo) < 0) { wpa_printf(MSG_INFO, "Could not write MO to file"); xml_node_free(ctx->xml, mo); return -1; } xml_node_free(ctx->xml, mo); wpa_printf(MSG_INFO, "A new PPS MO added as '%s'", fname); write_summary(ctx, "A new PPS MO added as '%s'", fname); ret = download_trust_roots(ctx, fname); if (ret < 0) { wpa_printf(MSG_INFO, "Remove invalid PPS MO file"); write_summary(ctx, "Remove invalid PPS MO file"); unlink(fname); } return ret; } int update_pps_file(struct hs20_osu_client *ctx, const char *pps_fname, xml_node_t *pps) { char *str; FILE *f; char backup[300]; if (ctx->client_cert_present) { xml_node_t *cert; cert = get_child_node(ctx->xml, pps, "Credential/DigitalCertificate/" "CertSHA256Fingerprint"); if (cert && os_file_exists("Cert/est_cert.der") && process_est_cert(ctx, cert, ctx->fqdn) < 0) { wpa_printf(MSG_INFO, "EST certificate update processing failed on PPS MO update"); return -1; } } wpa_printf(MSG_INFO, "Updating PPS MO %s", pps_fname); str = xml_node_to_str(ctx->xml, pps); if (str == NULL) { wpa_printf(MSG_ERROR, "No node found"); return -1; } wpa_printf(MSG_MSGDUMP, "[hs20] Updated PPS: '%s'", str); snprintf(backup, sizeof(backup), "%s.bak", pps_fname); rename(pps_fname, backup); f = fopen(pps_fname, "w"); if (f == NULL) { wpa_printf(MSG_INFO, "Could not write PPS"); rename(backup, pps_fname); free(str); return -1; } fprintf(f, "%s\n", str); fclose(f); free(str); return 0; } void get_user_pw(struct hs20_osu_client *ctx, xml_node_t *pps, const char *alt_loc, char **user, char **pw) { xml_node_t *node; node = get_child_node(ctx->xml, pps, "Credential/UsernamePassword/Username"); if (node) *user = xml_node_get_text(ctx->xml, node); node = get_child_node(ctx->xml, pps, "Credential/UsernamePassword/Password"); if (node) *pw = xml_node_get_base64_text(ctx->xml, node, NULL); node = get_child_node(ctx->xml, pps, alt_loc); if (node) { xml_node_t *a; a = get_node(ctx->xml, node, "Username"); if (a) { xml_node_get_text_free(ctx->xml, *user); *user = xml_node_get_text(ctx->xml, a); wpa_printf(MSG_INFO, "Use OSU username '%s'", *user); } a = get_node(ctx->xml, node, "Password"); if (a) { free(*pw); *pw = xml_node_get_base64_text(ctx->xml, a, NULL); wpa_printf(MSG_INFO, "Use OSU password"); } } } /* Remove old credentials based on HomeSP/FQDN */ static void remove_sp_creds(struct hs20_osu_client *ctx, const char *fqdn) { char cmd[300]; os_snprintf(cmd, sizeof(cmd), "REMOVE_CRED provisioning_sp=%s", fqdn); if (wpa_command(ctx->ifname, cmd) < 0) wpa_printf(MSG_INFO, "Failed to remove old credential(s)"); } static void set_pps_cred_policy_spe(struct hs20_osu_client *ctx, int id, xml_node_t *spe) { xml_node_t *ssid; char *txt; ssid = get_node(ctx->xml, spe, "SSID"); if (ssid == NULL) return; txt = xml_node_get_text(ctx->xml, ssid); if (txt == NULL) return; wpa_printf(MSG_DEBUG, "- Policy/SPExclusionList//SSID = %s", txt); if (set_cred_quoted(ctx->ifname, id, "excluded_ssid", txt) < 0) wpa_printf(MSG_INFO, "Failed to set cred excluded_ssid"); xml_node_get_text_free(ctx->xml, txt); } static void set_pps_cred_policy_spel(struct hs20_osu_client *ctx, int id, xml_node_t *spel) { xml_node_t *child; xml_node_for_each_child(ctx->xml, child, spel) { xml_node_for_each_check(ctx->xml, child); set_pps_cred_policy_spe(ctx, id, child); } } static void set_pps_cred_policy_prp(struct hs20_osu_client *ctx, int id, xml_node_t *prp) { xml_node_t *node; char *txt = NULL, *pos; char *prio, *country_buf = NULL; const char *country; char val[200]; int priority; node = get_node(ctx->xml, prp, "Priority"); if (node == NULL) return; prio = xml_node_get_text(ctx->xml, node); if (prio == NULL) return; wpa_printf(MSG_INFO, "- Policy/PreferredRoamingPartnerList//Priority = %s", prio); priority = atoi(prio); xml_node_get_text_free(ctx->xml, prio); node = get_node(ctx->xml, prp, "Country"); if (node) { country_buf = xml_node_get_text(ctx->xml, node); if (country_buf == NULL) return; country = country_buf; wpa_printf(MSG_INFO, "- Policy/PreferredRoamingPartnerList//Country = %s", country); } else { country = "*"; } node = get_node(ctx->xml, prp, "FQDN_Match"); if (node == NULL) goto out; txt = xml_node_get_text(ctx->xml, node); if (txt == NULL) goto out; wpa_printf(MSG_INFO, "- Policy/PreferredRoamingPartnerList//FQDN_Match = %s", txt); pos = strrchr(txt, ','); if (pos == NULL) goto out; *pos++ = '\0'; snprintf(val, sizeof(val), "%s,%d,%d,%s", txt, strcmp(pos, "includeSubdomains") != 0, priority, country); if (set_cred_quoted(ctx->ifname, id, "roaming_partner", val) < 0) wpa_printf(MSG_INFO, "Failed to set cred roaming_partner"); out: xml_node_get_text_free(ctx->xml, country_buf); xml_node_get_text_free(ctx->xml, txt); } static void set_pps_cred_policy_prpl(struct hs20_osu_client *ctx, int id, xml_node_t *prpl) { xml_node_t *child; xml_node_for_each_child(ctx->xml, child, prpl) { xml_node_for_each_check(ctx->xml, child); set_pps_cred_policy_prp(ctx, id, child); } } static void set_pps_cred_policy_min_backhaul(struct hs20_osu_client *ctx, int id, xml_node_t *min_backhaul) { xml_node_t *node; char *type, *dl = NULL, *ul = NULL; int home; node = get_node(ctx->xml, min_backhaul, "NetworkType"); if (node == NULL) { wpa_printf(MSG_INFO, "Ignore MinBackhaulThreshold without mandatory NetworkType node"); return; } type = xml_node_get_text(ctx->xml, node); if (type == NULL) return; wpa_printf(MSG_INFO, "- Policy/MinBackhaulThreshold//NetworkType = %s", type); if (os_strcasecmp(type, "home") == 0) home = 1; else if (os_strcasecmp(type, "roaming") == 0) home = 0; else { wpa_printf(MSG_INFO, "Ignore MinBackhaulThreshold with invalid NetworkType"); xml_node_get_text_free(ctx->xml, type); return; } xml_node_get_text_free(ctx->xml, type); node = get_node(ctx->xml, min_backhaul, "DLBandwidth"); if (node) dl = xml_node_get_text(ctx->xml, node); node = get_node(ctx->xml, min_backhaul, "ULBandwidth"); if (node) ul = xml_node_get_text(ctx->xml, node); if (dl == NULL && ul == NULL) { wpa_printf(MSG_INFO, "Ignore MinBackhaulThreshold without either DLBandwidth or ULBandwidth nodes"); return; } if (dl) wpa_printf(MSG_INFO, "- Policy/MinBackhaulThreshold//DLBandwidth = %s", dl); if (ul) wpa_printf(MSG_INFO, "- Policy/MinBackhaulThreshold//ULBandwidth = %s", ul); if (home) { if (dl && set_cred(ctx->ifname, id, "min_dl_bandwidth_home", dl) < 0) wpa_printf(MSG_INFO, "Failed to set cred bandwidth limit"); if (ul && set_cred(ctx->ifname, id, "min_ul_bandwidth_home", ul) < 0) wpa_printf(MSG_INFO, "Failed to set cred bandwidth limit"); } else { if (dl && set_cred(ctx->ifname, id, "min_dl_bandwidth_roaming", dl) < 0) wpa_printf(MSG_INFO, "Failed to set cred bandwidth limit"); if (ul && set_cred(ctx->ifname, id, "min_ul_bandwidth_roaming", ul) < 0) wpa_printf(MSG_INFO, "Failed to set cred bandwidth limit"); } xml_node_get_text_free(ctx->xml, dl); xml_node_get_text_free(ctx->xml, ul); } static void set_pps_cred_policy_min_backhaul_list(struct hs20_osu_client *ctx, int id, xml_node_t *node) { xml_node_t *child; wpa_printf(MSG_INFO, "- Policy/MinBackhaulThreshold"); xml_node_for_each_child(ctx->xml, child, node) { xml_node_for_each_check(ctx->xml, child); set_pps_cred_policy_min_backhaul(ctx, id, child); } } static void set_pps_cred_policy_update(struct hs20_osu_client *ctx, int id, xml_node_t *node) { wpa_printf(MSG_INFO, "- Policy/PolicyUpdate"); /* Not used in wpa_supplicant */ } static void set_pps_cred_policy_required_proto_port(struct hs20_osu_client *ctx, int id, xml_node_t *tuple) { xml_node_t *node; char *proto, *port; char *buf; size_t buflen; node = get_node(ctx->xml, tuple, "IPProtocol"); if (node == NULL) { wpa_printf(MSG_INFO, "Ignore RequiredProtoPortTuple without mandatory IPProtocol node"); return; } proto = xml_node_get_text(ctx->xml, node); if (proto == NULL) return; wpa_printf(MSG_INFO, "- Policy/RequiredProtoPortTuple//IPProtocol = %s", proto); node = get_node(ctx->xml, tuple, "PortNumber"); port = node ? xml_node_get_text(ctx->xml, node) : NULL; if (port) { wpa_printf(MSG_INFO, "- Policy/RequiredProtoPortTuple//PortNumber = %s", port); buflen = os_strlen(proto) + os_strlen(port) + 10; buf = os_malloc(buflen); if (buf) os_snprintf(buf, buflen, "%s:%s", proto, port); xml_node_get_text_free(ctx->xml, port); } else { buflen = os_strlen(proto) + 10; buf = os_malloc(buflen); if (buf) os_snprintf(buf, buflen, "%s", proto); } xml_node_get_text_free(ctx->xml, proto); if (buf == NULL) return; if (set_cred(ctx->ifname, id, "req_conn_capab", buf) < 0) wpa_printf(MSG_INFO, "Could not set req_conn_capab"); os_free(buf); } static void set_pps_cred_policy_required_proto_ports(struct hs20_osu_client *ctx, int id, xml_node_t *node) { xml_node_t *child; wpa_printf(MSG_INFO, "- Policy/RequiredProtoPortTuple"); xml_node_for_each_child(ctx->xml, child, node) { xml_node_for_each_check(ctx->xml, child); set_pps_cred_policy_required_proto_port(ctx, id, child); } } static void set_pps_cred_policy_max_bss_load(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- Policy/MaximumBSSLoadValue - %s", str); if (set_cred(ctx->ifname, id, "max_bss_load", str) < 0) wpa_printf(MSG_INFO, "Failed to set cred max_bss_load limit"); xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_policy(struct hs20_osu_client *ctx, int id, xml_node_t *node) { xml_node_t *child; const char *name; wpa_printf(MSG_INFO, "- Policy"); xml_node_for_each_child(ctx->xml, child, node) { xml_node_for_each_check(ctx->xml, child); name = xml_node_get_localname(ctx->xml, child); if (os_strcasecmp(name, "PreferredRoamingPartnerList") == 0) set_pps_cred_policy_prpl(ctx, id, child); else if (os_strcasecmp(name, "MinBackhaulThreshold") == 0) set_pps_cred_policy_min_backhaul_list(ctx, id, child); else if (os_strcasecmp(name, "PolicyUpdate") == 0) set_pps_cred_policy_update(ctx, id, child); else if (os_strcasecmp(name, "SPExclusionList") == 0) set_pps_cred_policy_spel(ctx, id, child); else if (os_strcasecmp(name, "RequiredProtoPortTuple") == 0) set_pps_cred_policy_required_proto_ports(ctx, id, child); else if (os_strcasecmp(name, "MaximumBSSLoadValue") == 0) set_pps_cred_policy_max_bss_load(ctx, id, child); else wpa_printf(MSG_INFO, "Unknown Policy node '%s'", name); } } static void set_pps_cred_priority(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- CredentialPriority = %s", str); if (set_cred(ctx->ifname, id, "sp_priority", str) < 0) wpa_printf(MSG_INFO, "Failed to set cred sp_priority"); xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_aaa_server_trust_root(struct hs20_osu_client *ctx, int id, xml_node_t *node) { wpa_printf(MSG_INFO, "- AAAServerTrustRoot - TODO"); } static void set_pps_cred_sub_update(struct hs20_osu_client *ctx, int id, xml_node_t *node) { wpa_printf(MSG_INFO, "- SubscriptionUpdate"); /* not used within wpa_supplicant */ } static void set_pps_cred_home_sp_network_id(struct hs20_osu_client *ctx, int id, xml_node_t *node) { xml_node_t *ssid_node, *hessid_node; char *ssid, *hessid; ssid_node = get_node(ctx->xml, node, "SSID"); if (ssid_node == NULL) { wpa_printf(MSG_INFO, "Ignore HomeSP/NetworkID without mandatory SSID node"); return; } hessid_node = get_node(ctx->xml, node, "HESSID"); ssid = xml_node_get_text(ctx->xml, ssid_node); if (ssid == NULL) return; hessid = hessid_node ? xml_node_get_text(ctx->xml, hessid_node) : NULL; wpa_printf(MSG_INFO, "- HomeSP/NetworkID//SSID = %s", ssid); if (hessid) wpa_printf(MSG_INFO, "- HomeSP/NetworkID//HESSID = %s", hessid); /* TODO: Configure to wpa_supplicant */ xml_node_get_text_free(ctx->xml, ssid); xml_node_get_text_free(ctx->xml, hessid); } static void set_pps_cred_home_sp_network_ids(struct hs20_osu_client *ctx, int id, xml_node_t *node) { xml_node_t *child; wpa_printf(MSG_INFO, "- HomeSP/NetworkID"); xml_node_for_each_child(ctx->xml, child, node) { xml_node_for_each_check(ctx->xml, child); set_pps_cred_home_sp_network_id(ctx, id, child); } } static void set_pps_cred_home_sp_friendly_name(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- HomeSP/FriendlyName = %s", str); /* not used within wpa_supplicant(?) */ xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_home_sp_icon_url(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- HomeSP/IconURL = %s", str); /* not used within wpa_supplicant */ xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_home_sp_fqdn(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- HomeSP/FQDN = %s", str); if (set_cred_quoted(ctx->ifname, id, "domain", str) < 0) wpa_printf(MSG_INFO, "Failed to set cred domain"); if (set_cred_quoted(ctx->ifname, id, "domain_suffix_match", str) < 0) wpa_printf(MSG_INFO, "Failed to set cred domain_suffix_match"); xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_home_sp_oi(struct hs20_osu_client *ctx, int id, xml_node_t *node) { xml_node_t *child; const char *name; char *homeoi = NULL; int required = 0; char *str; xml_node_for_each_child(ctx->xml, child, node) { xml_node_for_each_check(ctx->xml, child); name = xml_node_get_localname(ctx->xml, child); if (strcasecmp(name, "HomeOI") == 0 && !homeoi) { homeoi = xml_node_get_text(ctx->xml, child); wpa_printf(MSG_INFO, "- HomeSP/HomeOIList//HomeOI = %s", homeoi); } else if (strcasecmp(name, "HomeOIRequired") == 0) { str = xml_node_get_text(ctx->xml, child); wpa_printf(MSG_INFO, "- HomeSP/HomeOIList//HomeOIRequired = '%s'", str); if (str == NULL) continue; required = strcasecmp(str, "true") == 0; xml_node_get_text_free(ctx->xml, str); } else wpa_printf(MSG_INFO, "Unknown HomeOIList node '%s'", name); } if (homeoi == NULL) { wpa_printf(MSG_INFO, "- HomeSP/HomeOIList/ without HomeOI ignored"); return; } wpa_printf(MSG_INFO, "- HomeSP/HomeOIList/ '%s' required=%d", homeoi, required); if (required) { if (set_cred(ctx->ifname, id, "required_roaming_consortium", homeoi) < 0) wpa_printf(MSG_INFO, "Failed to set cred required_roaming_consortium"); } else { if (set_cred_quoted(ctx->ifname, id, "roaming_consortium", homeoi) < 0) wpa_printf(MSG_INFO, "Failed to set cred roaming_consortium"); } xml_node_get_text_free(ctx->xml, homeoi); } static void set_pps_cred_home_sp_oi_list(struct hs20_osu_client *ctx, int id, xml_node_t *node) { xml_node_t *child; wpa_printf(MSG_INFO, "- HomeSP/HomeOIList"); xml_node_for_each_child(ctx->xml, child, node) { xml_node_for_each_check(ctx->xml, child); set_pps_cred_home_sp_oi(ctx, id, child); } } static void set_pps_cred_home_sp_other_partner(struct hs20_osu_client *ctx, int id, xml_node_t *node) { xml_node_t *child; const char *name; char *fqdn = NULL; xml_node_for_each_child(ctx->xml, child, node) { xml_node_for_each_check(ctx->xml, child); name = xml_node_get_localname(ctx->xml, child); if (os_strcasecmp(name, "FQDN") == 0 && !fqdn) { fqdn = xml_node_get_text(ctx->xml, child); wpa_printf(MSG_INFO, "- HomeSP/OtherHomePartners//FQDN = %s", fqdn); } else wpa_printf(MSG_INFO, "Unknown OtherHomePartners node '%s'", name); } if (fqdn == NULL) { wpa_printf(MSG_INFO, "- HomeSP/OtherHomePartners/ without FQDN ignored"); return; } if (set_cred_quoted(ctx->ifname, id, "domain", fqdn) < 0) wpa_printf(MSG_INFO, "Failed to set cred domain for OtherHomePartners node"); xml_node_get_text_free(ctx->xml, fqdn); } static void set_pps_cred_home_sp_other_partners(struct hs20_osu_client *ctx, int id, xml_node_t *node) { xml_node_t *child; wpa_printf(MSG_INFO, "- HomeSP/OtherHomePartners"); xml_node_for_each_child(ctx->xml, child, node) { xml_node_for_each_check(ctx->xml, child); set_pps_cred_home_sp_other_partner(ctx, id, child); } } static void set_pps_cred_home_sp_roaming_consortium_oi( struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- HomeSP/RoamingConsortiumOI = %s", str); /* TODO: Set to wpa_supplicant */ xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_home_sp(struct hs20_osu_client *ctx, int id, xml_node_t *node) { xml_node_t *child; const char *name; wpa_printf(MSG_INFO, "- HomeSP"); xml_node_for_each_child(ctx->xml, child, node) { xml_node_for_each_check(ctx->xml, child); name = xml_node_get_localname(ctx->xml, child); if (os_strcasecmp(name, "NetworkID") == 0) set_pps_cred_home_sp_network_ids(ctx, id, child); else if (os_strcasecmp(name, "FriendlyName") == 0) set_pps_cred_home_sp_friendly_name(ctx, id, child); else if (os_strcasecmp(name, "IconURL") == 0) set_pps_cred_home_sp_icon_url(ctx, id, child); else if (os_strcasecmp(name, "FQDN") == 0) set_pps_cred_home_sp_fqdn(ctx, id, child); else if (os_strcasecmp(name, "HomeOIList") == 0) set_pps_cred_home_sp_oi_list(ctx, id, child); else if (os_strcasecmp(name, "OtherHomePartners") == 0) set_pps_cred_home_sp_other_partners(ctx, id, child); else if (os_strcasecmp(name, "RoamingConsortiumOI") == 0) set_pps_cred_home_sp_roaming_consortium_oi(ctx, id, child); else wpa_printf(MSG_INFO, "Unknown HomeSP node '%s'", name); } } static void set_pps_cred_sub_params(struct hs20_osu_client *ctx, int id, xml_node_t *node) { wpa_printf(MSG_INFO, "- SubscriptionParameters"); /* not used within wpa_supplicant */ } static void set_pps_cred_creation_date(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- Credential/CreationDate = %s", str); /* not used within wpa_supplicant */ xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_expiration_date(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- Credential/ExpirationDate = %s", str); /* not used within wpa_supplicant */ xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_username(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- Credential/UsernamePassword/Username = %s", str); if (set_cred_quoted(ctx->ifname, id, "username", str) < 0) wpa_printf(MSG_INFO, "Failed to set cred username"); xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_password(struct hs20_osu_client *ctx, int id, xml_node_t *node) { int len, i; char *pw, *hex, *pos, *end; pw = xml_node_get_base64_text(ctx->xml, node, &len); if (pw == NULL) return; wpa_printf(MSG_INFO, "- Credential/UsernamePassword/Password = %s", pw); hex = malloc(len * 2 + 1); if (hex == NULL) { free(pw); return; } end = hex + len * 2 + 1; pos = hex; for (i = 0; i < len; i++) { snprintf(pos, end - pos, "%02x", pw[i]); pos += 2; } free(pw); if (set_cred(ctx->ifname, id, "password", hex) < 0) wpa_printf(MSG_INFO, "Failed to set cred password"); free(hex); } static void set_pps_cred_machine_managed(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- Credential/UsernamePassword/MachineManaged = %s", str); /* not used within wpa_supplicant */ xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_soft_token_app(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- Credential/UsernamePassword/SoftTokenApp = %s", str); /* not used within wpa_supplicant */ xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_able_to_share(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- Credential/UsernamePassword/AbleToShare = %s", str); /* not used within wpa_supplicant */ xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_eap_method(struct hs20_osu_client *ctx, int id, xml_node_t *node) { wpa_printf(MSG_INFO, "- Credential/UsernamePassword/EAPMethod - TODO"); } static void set_pps_cred_username_password(struct hs20_osu_client *ctx, int id, xml_node_t *node) { xml_node_t *child; const char *name; wpa_printf(MSG_INFO, "- Credential/UsernamePassword"); xml_node_for_each_child(ctx->xml, child, node) { xml_node_for_each_check(ctx->xml, child); name = xml_node_get_localname(ctx->xml, child); if (os_strcasecmp(name, "Username") == 0) set_pps_cred_username(ctx, id, child); else if (os_strcasecmp(name, "Password") == 0) set_pps_cred_password(ctx, id, child); else if (os_strcasecmp(name, "MachineManaged") == 0) set_pps_cred_machine_managed(ctx, id, child); else if (os_strcasecmp(name, "SoftTokenApp") == 0) set_pps_cred_soft_token_app(ctx, id, child); else if (os_strcasecmp(name, "AbleToShare") == 0) set_pps_cred_able_to_share(ctx, id, child); else if (os_strcasecmp(name, "EAPMethod") == 0) set_pps_cred_eap_method(ctx, id, child); else wpa_printf(MSG_INFO, "Unknown Credential/UsernamePassword node '%s'", name); } } static void set_pps_cred_digital_cert(struct hs20_osu_client *ctx, int id, xml_node_t *node, const char *fqdn) { char buf[200], dir[200]; wpa_printf(MSG_INFO, "- Credential/DigitalCertificate"); if (getcwd(dir, sizeof(dir)) == NULL) return; /* TODO: could build username from Subject of Subject AltName */ if (set_cred_quoted(ctx->ifname, id, "username", "cert") < 0) { wpa_printf(MSG_INFO, "Failed to set username"); } snprintf(buf, sizeof(buf), "%s/SP/%s/client-cert.pem", dir, fqdn); if (os_file_exists(buf)) { if (set_cred_quoted(ctx->ifname, id, "client_cert", buf) < 0) { wpa_printf(MSG_INFO, "Failed to set client_cert"); } } snprintf(buf, sizeof(buf), "%s/SP/%s/client-key.pem", dir, fqdn); if (os_file_exists(buf)) { if (set_cred_quoted(ctx->ifname, id, "private_key", buf) < 0) { wpa_printf(MSG_INFO, "Failed to set private_key"); } } } static void set_pps_cred_realm(struct hs20_osu_client *ctx, int id, xml_node_t *node, const char *fqdn, int sim) { char *str = xml_node_get_text(ctx->xml, node); char buf[200], dir[200]; if (str == NULL) return; wpa_printf(MSG_INFO, "- Credential/Realm = %s", str); if (set_cred_quoted(ctx->ifname, id, "realm", str) < 0) wpa_printf(MSG_INFO, "Failed to set cred realm"); xml_node_get_text_free(ctx->xml, str); if (sim) return; if (getcwd(dir, sizeof(dir)) == NULL) return; snprintf(buf, sizeof(buf), "%s/SP/%s/aaa-ca.pem", dir, fqdn); if (os_file_exists(buf)) { if (set_cred_quoted(ctx->ifname, id, "ca_cert", buf) < 0) { wpa_printf(MSG_INFO, "Failed to set CA cert"); } } } static void set_pps_cred_check_aaa_cert_status(struct hs20_osu_client *ctx, int id, xml_node_t *node) { char *str = xml_node_get_text(ctx->xml, node); if (str == NULL) return; wpa_printf(MSG_INFO, "- Credential/CheckAAAServerCertStatus = %s", str); if (os_strcasecmp(str, "true") == 0 && set_cred(ctx->ifname, id, "ocsp", "2") < 0) wpa_printf(MSG_INFO, "Failed to set cred ocsp"); xml_node_get_text_free(ctx->xml, str); } static void set_pps_cred_sim(struct hs20_osu_client *ctx, int id, xml_node_t *sim, xml_node_t *realm) { xml_node_t *node; char *imsi, *eaptype, *str, buf[20]; int type; int mnc_len = 3; size_t imsi_len; node = get_node(ctx->xml, sim, "EAPType"); if (node == NULL) { wpa_printf(MSG_INFO, "No SIM/EAPType node in credential"); return; } eaptype = xml_node_get_text(ctx->xml, node); if (eaptype == NULL) { wpa_printf(MSG_INFO, "Could not extract SIM/EAPType"); return; } wpa_printf(MSG_INFO, " - Credential/SIM/EAPType = %s", eaptype); type = atoi(eaptype); xml_node_get_text_free(ctx->xml, eaptype); switch (type) { case EAP_TYPE_SIM: if (set_cred(ctx->ifname, id, "eap", "SIM") < 0) wpa_printf(MSG_INFO, "Could not set eap=SIM"); break; case EAP_TYPE_AKA: if (set_cred(ctx->ifname, id, "eap", "AKA") < 0) wpa_printf(MSG_INFO, "Could not set eap=SIM"); break; case EAP_TYPE_AKA_PRIME: if (set_cred(ctx->ifname, id, "eap", "AKA'") < 0) wpa_printf(MSG_INFO, "Could not set eap=SIM"); break; default: wpa_printf(MSG_INFO, "Unsupported SIM/EAPType %d", type); return; } node = get_node(ctx->xml, sim, "IMSI"); if (node == NULL) { wpa_printf(MSG_INFO, "No SIM/IMSI node in credential"); return; } imsi = xml_node_get_text(ctx->xml, node); if (imsi == NULL) { wpa_printf(MSG_INFO, "Could not extract SIM/IMSI"); return; } wpa_printf(MSG_INFO, " - Credential/SIM/IMSI = %s", imsi); imsi_len = os_strlen(imsi); if (imsi_len < 7 || imsi_len + 2 > sizeof(buf)) { wpa_printf(MSG_INFO, "Invalid IMSI length"); xml_node_get_text_free(ctx->xml, imsi); return; } str = xml_node_get_text(ctx->xml, node); if (str) { char *pos; pos = os_strstr(str, "mnc"); if (pos && os_strlen(pos) >= 6) { if (os_strncmp(imsi + 3, pos + 3, 3) == 0) mnc_len = 3; else if (os_strncmp(imsi + 3, pos + 4, 2) == 0) mnc_len = 2; } xml_node_get_text_free(ctx->xml, str); } os_memcpy(buf, imsi, 3 + mnc_len); buf[3 + mnc_len] = '-'; os_strlcpy(buf + 3 + mnc_len + 1, imsi + 3 + mnc_len, sizeof(buf) - 3 - mnc_len - 1); xml_node_get_text_free(ctx->xml, imsi); if (set_cred_quoted(ctx->ifname, id, "imsi", buf) < 0) wpa_printf(MSG_INFO, "Could not set IMSI"); if (set_cred_quoted(ctx->ifname, id, "milenage", "90dca4eda45b53cf0f12d7c9c3bc6a89:" "cb9cccc4b9258e6dca4760379fb82581:000000000123") < 0) wpa_printf(MSG_INFO, "Could not set Milenage parameters"); } static void set_pps_cred_credential(struct hs20_osu_client *ctx, int id, xml_node_t *node, const char *fqdn) { xml_node_t *child, *sim, *realm; const char *name; wpa_printf(MSG_INFO, "- Credential"); sim = get_node(ctx->xml, node, "SIM"); realm = get_node(ctx->xml, node, "Realm"); xml_node_for_each_child(ctx->xml, child, node) { xml_node_for_each_check(ctx->xml, child); name = xml_node_get_localname(ctx->xml, child); if (os_strcasecmp(name, "CreationDate") == 0) set_pps_cred_creation_date(ctx, id, child); else if (os_strcasecmp(name, "ExpirationDate") == 0) set_pps_cred_expiration_date(ctx, id, child); else if (os_strcasecmp(name, "UsernamePassword") == 0) set_pps_cred_username_password(ctx, id, child); else if (os_strcasecmp(name, "DigitalCertificate") == 0) set_pps_cred_digital_cert(ctx, id, child, fqdn); else if (os_strcasecmp(name, "Realm") == 0) set_pps_cred_realm(ctx, id, child, fqdn, sim != NULL); else if (os_strcasecmp(name, "CheckAAAServerCertStatus") == 0) set_pps_cred_check_aaa_cert_status(ctx, id, child); else if (os_strcasecmp(name, "SIM") == 0) set_pps_cred_sim(ctx, id, child, realm); else wpa_printf(MSG_INFO, "Unknown Credential node '%s'", name); } } static void set_pps_credential(struct hs20_osu_client *ctx, int id, xml_node_t *cred, const char *fqdn) { xml_node_t *child; const char *name; xml_node_for_each_child(ctx->xml, child, cred) { xml_node_for_each_check(ctx->xml, child); name = xml_node_get_localname(ctx->xml, child); if (os_strcasecmp(name, "Policy") == 0) set_pps_cred_policy(ctx, id, child); else if (os_strcasecmp(name, "CredentialPriority") == 0) set_pps_cred_priority(ctx, id, child); else if (os_strcasecmp(name, "AAAServerTrustRoot") == 0) set_pps_cred_aaa_server_trust_root(ctx, id, child); else if (os_strcasecmp(name, "SubscriptionUpdate") == 0) set_pps_cred_sub_update(ctx, id, child); else if (os_strcasecmp(name, "HomeSP") == 0) set_pps_cred_home_sp(ctx, id, child); else if (os_strcasecmp(name, "SubscriptionParameters") == 0) set_pps_cred_sub_params(ctx, id, child); else if (os_strcasecmp(name, "Credential") == 0) set_pps_cred_credential(ctx, id, child, fqdn); else wpa_printf(MSG_INFO, "Unknown credential node '%s'", name); } } static void set_pps(struct hs20_osu_client *ctx, xml_node_t *pps, const char *fqdn) { xml_node_t *child; const char *name; int id; char *update_identifier = NULL; /* * TODO: Could consider more complex mechanism that would remove * credentials only if there are changes in the information sent to * wpa_supplicant. */ remove_sp_creds(ctx, fqdn); xml_node_for_each_child(ctx->xml, child, pps) { xml_node_for_each_check(ctx->xml, child); name = xml_node_get_localname(ctx->xml, child); if (os_strcasecmp(name, "UpdateIdentifier") == 0) { update_identifier = xml_node_get_text(ctx->xml, child); if (update_identifier) { wpa_printf(MSG_INFO, "- UpdateIdentifier = %s", update_identifier); break; } } } xml_node_for_each_child(ctx->xml, child, pps) { xml_node_for_each_check(ctx->xml, child); name = xml_node_get_localname(ctx->xml, child); if (os_strcasecmp(name, "UpdateIdentifier") == 0) continue; id = add_cred(ctx->ifname); if (id < 0) { wpa_printf(MSG_INFO, "Failed to add credential to wpa_supplicant"); write_summary(ctx, "Failed to add credential to wpa_supplicant"); break; } write_summary(ctx, "Add a credential to wpa_supplicant"); if (update_identifier && set_cred(ctx->ifname, id, "update_identifier", update_identifier) < 0) wpa_printf(MSG_INFO, "Failed to set update_identifier"); if (set_cred_quoted(ctx->ifname, id, "provisioning_sp", fqdn) < 0) wpa_printf(MSG_INFO, "Failed to set provisioning_sp"); wpa_printf(MSG_INFO, "credential localname: '%s'", name); set_pps_credential(ctx, id, child, fqdn); ctx->pps_cred_set = 1; } xml_node_get_text_free(ctx->xml, update_identifier); } void cmd_set_pps(struct hs20_osu_client *ctx, const char *pps_fname) { xml_node_t *pps; const char *fqdn; char *fqdn_buf = NULL, *pos; pps = node_from_file(ctx->xml, pps_fname); if (pps == NULL) { wpa_printf(MSG_INFO, "Could not read or parse '%s'", pps_fname); return; } fqdn = os_strstr(pps_fname, "SP/"); if (fqdn) { fqdn_buf = os_strdup(fqdn + 3); if (fqdn_buf == NULL) return; pos = os_strchr(fqdn_buf, '/'); if (pos) *pos = '\0'; fqdn = fqdn_buf; } else fqdn = "wi-fi.org"; wpa_printf(MSG_INFO, "Set PPS MO info to wpa_supplicant - SP FQDN %s", fqdn); set_pps(ctx, pps, fqdn); os_free(fqdn_buf); xml_node_free(ctx->xml, pps); } static int cmd_get_fqdn(struct hs20_osu_client *ctx, const char *pps_fname) { xml_node_t *pps, *node; char *fqdn = NULL; pps = node_from_file(ctx->xml, pps_fname); if (pps == NULL) { wpa_printf(MSG_INFO, "Could not read or parse '%s'", pps_fname); return -1; } node = get_child_node(ctx->xml, pps, "HomeSP/FQDN"); if (node) fqdn = xml_node_get_text(ctx->xml, node); xml_node_free(ctx->xml, pps); if (fqdn) { FILE *f = fopen("pps-fqdn", "w"); if (f) { fprintf(f, "%s", fqdn); fclose(f); } xml_node_get_text_free(ctx->xml, fqdn); return 0; } xml_node_get_text_free(ctx->xml, fqdn); return -1; } static void cmd_to_tnds(struct hs20_osu_client *ctx, const char *in_fname, const char *out_fname, const char *urn, int use_path) { xml_node_t *mo, *node; mo = node_from_file(ctx->xml, in_fname); if (mo == NULL) { wpa_printf(MSG_INFO, "Could not read or parse '%s'", in_fname); return; } node = mo_to_tnds(ctx->xml, mo, use_path, urn, NULL); if (node) { node_to_file(ctx->xml, out_fname, node); xml_node_free(ctx->xml, node); } xml_node_free(ctx->xml, mo); } static void cmd_from_tnds(struct hs20_osu_client *ctx, const char *in_fname, const char *out_fname) { xml_node_t *tnds, *mo; tnds = node_from_file(ctx->xml, in_fname); if (tnds == NULL) { wpa_printf(MSG_INFO, "Could not read or parse '%s'", in_fname); return; } mo = tnds_to_mo(ctx->xml, tnds); if (mo) { node_to_file(ctx->xml, out_fname, mo); xml_node_free(ctx->xml, mo); } xml_node_free(ctx->xml, tnds); } struct osu_icon { int id; char lang[4]; char mime_type[256]; char filename[256]; }; struct osu_data { char bssid[20]; char url[256]; unsigned int methods; char osu_ssid[33]; char osu_nai[256]; struct osu_lang_text friendly_name[MAX_OSU_VALS]; size_t friendly_name_count; struct osu_lang_text serv_desc[MAX_OSU_VALS]; size_t serv_desc_count; struct osu_icon icon[MAX_OSU_VALS]; size_t icon_count; }; static struct osu_data * parse_osu_providers(const char *fname, size_t *count) { FILE *f; char buf[1000]; struct osu_data *osu = NULL, *last = NULL; size_t osu_count = 0; char *pos, *end; f = fopen(fname, "r"); if (f == NULL) { wpa_printf(MSG_ERROR, "Could not open %s", fname); return NULL; } while (fgets(buf, sizeof(buf), f)) { pos = strchr(buf, '\n'); if (pos) *pos = '\0'; if (strncmp(buf, "OSU-PROVIDER ", 13) == 0) { last = realloc(osu, (osu_count + 1) * sizeof(*osu)); if (last == NULL) break; osu = last; last = &osu[osu_count++]; memset(last, 0, sizeof(*last)); snprintf(last->bssid, sizeof(last->bssid), "%s", buf + 13); continue; } if (!last) continue; if (strncmp(buf, "uri=", 4) == 0) { snprintf(last->url, sizeof(last->url), "%s", buf + 4); continue; } if (strncmp(buf, "methods=", 8) == 0) { last->methods = strtol(buf + 8, NULL, 16); continue; } if (strncmp(buf, "osu_ssid=", 9) == 0) { snprintf(last->osu_ssid, sizeof(last->osu_ssid), "%s", buf + 9); continue; } if (os_strncmp(buf, "osu_nai=", 8) == 0) { os_snprintf(last->osu_nai, sizeof(last->osu_nai), "%s", buf + 8); continue; } if (strncmp(buf, "friendly_name=", 14) == 0) { struct osu_lang_text *txt; if (last->friendly_name_count == MAX_OSU_VALS) continue; pos = strchr(buf + 14, ':'); if (pos == NULL) continue; *pos++ = '\0'; txt = &last->friendly_name[last->friendly_name_count++]; snprintf(txt->lang, sizeof(txt->lang), "%s", buf + 14); snprintf(txt->text, sizeof(txt->text), "%s", pos); } if (strncmp(buf, "desc=", 5) == 0) { struct osu_lang_text *txt; if (last->serv_desc_count == MAX_OSU_VALS) continue; pos = strchr(buf + 5, ':'); if (pos == NULL) continue; *pos++ = '\0'; txt = &last->serv_desc[last->serv_desc_count++]; snprintf(txt->lang, sizeof(txt->lang), "%s", buf + 5); snprintf(txt->text, sizeof(txt->text), "%s", pos); } if (strncmp(buf, "icon=", 5) == 0) { struct osu_icon *icon; if (last->icon_count == MAX_OSU_VALS) continue; icon = &last->icon[last->icon_count++]; icon->id = atoi(buf + 5); pos = strchr(buf, ':'); if (pos == NULL) continue; pos = strchr(pos + 1, ':'); if (pos == NULL) continue; pos = strchr(pos + 1, ':'); if (pos == NULL) continue; pos++; end = strchr(pos, ':'); if (!end) continue; *end = '\0'; snprintf(icon->lang, sizeof(icon->lang), "%s", pos); pos = end + 1; end = strchr(pos, ':'); if (end) *end = '\0'; snprintf(icon->mime_type, sizeof(icon->mime_type), "%s", pos); if (!pos) continue; pos = end + 1; end = strchr(pos, ':'); if (end) *end = '\0'; snprintf(icon->filename, sizeof(icon->filename), "%s", pos); continue; } } fclose(f); *count = osu_count; return osu; } static int osu_connect(struct hs20_osu_client *ctx, const char *bssid, const char *ssid, const char *url, unsigned int methods, int no_prod_assoc, const char *osu_nai) { int id; const char *ifname = ctx->ifname; char buf[200]; struct wpa_ctrl *mon; int res; id = add_network(ifname); if (id < 0) return -1; if (set_network_quoted(ifname, id, "ssid", ssid) < 0) return -1; if (osu_nai && os_strlen(osu_nai) > 0) { char dir[255], fname[300]; if (getcwd(dir, sizeof(dir)) == NULL) return -1; os_snprintf(fname, sizeof(fname), "%s/osu-ca.pem", dir); if (set_network(ifname, id, "proto", "OSEN") < 0 || set_network(ifname, id, "key_mgmt", "OSEN") < 0 || set_network(ifname, id, "pairwise", "CCMP") < 0 || set_network(ifname, id, "group", "GTK_NOT_USED") < 0 || set_network(ifname, id, "eap", "WFA-UNAUTH-TLS") < 0 || set_network(ifname, id, "ocsp", "2") < 0 || set_network_quoted(ifname, id, "identity", osu_nai) < 0 || set_network_quoted(ifname, id, "ca_cert", fname) < 0) return -1; } else { if (set_network(ifname, id, "key_mgmt", "NONE") < 0) return -1; } mon = open_wpa_mon(ifname); if (mon == NULL) return -1; wpa_printf(MSG_INFO, "Associate with OSU SSID"); write_summary(ctx, "Associate with OSU SSID"); snprintf(buf, sizeof(buf), "SELECT_NETWORK %d", id); if (wpa_command(ifname, buf) < 0) return -1; res = get_wpa_cli_event(mon, "CTRL-EVENT-CONNECTED", buf, sizeof(buf)); wpa_ctrl_detach(mon); wpa_ctrl_close(mon); if (res < 0) { wpa_printf(MSG_INFO, "Could not connect"); write_summary(ctx, "Could not connect to OSU network"); wpa_printf(MSG_INFO, "Remove OSU network connection"); snprintf(buf, sizeof(buf), "REMOVE_NETWORK %d", id); wpa_command(ifname, buf); return -1; } write_summary(ctx, "Waiting for IP address for subscription registration"); if (wait_ip_addr(ifname, 15) < 0) { wpa_printf(MSG_INFO, "Could not get IP address for WLAN - try connection anyway"); } if (no_prod_assoc) { if (res < 0) return -1; wpa_printf(MSG_INFO, "No production connection used for testing purposes"); write_summary(ctx, "No production connection used for testing purposes"); return 0; } ctx->no_reconnect = 1; if (methods & 0x02) { wpa_printf(MSG_DEBUG, "Calling cmd_prov from osu_connect"); res = cmd_prov(ctx, url); } else if (methods & 0x01) { wpa_printf(MSG_DEBUG, "Calling cmd_oma_dm_prov from osu_connect"); res = cmd_oma_dm_prov(ctx, url); } wpa_printf(MSG_INFO, "Remove OSU network connection"); write_summary(ctx, "Remove OSU network connection"); snprintf(buf, sizeof(buf), "REMOVE_NETWORK %d", id); wpa_command(ifname, buf); if (res < 0) return -1; wpa_printf(MSG_INFO, "Requesting reconnection with updated configuration"); write_summary(ctx, "Requesting reconnection with updated configuration"); if (wpa_command(ctx->ifname, "INTERWORKING_SELECT auto") < 0) { wpa_printf(MSG_INFO, "Failed to request wpa_supplicant to reconnect"); write_summary(ctx, "Failed to request wpa_supplicant to reconnect"); return -1; } return 0; } static int cmd_osu_select(struct hs20_osu_client *ctx, const char *dir, int connect, int no_prod_assoc, const char *friendly_name) { char fname[255]; FILE *f; struct osu_data *osu = NULL, *last = NULL; size_t osu_count, i, j; int ret; write_summary(ctx, "OSU provider selection"); if (dir == NULL) { wpa_printf(MSG_INFO, "Missing dir parameter to osu_select"); return -1; } snprintf(fname, sizeof(fname), "%s/osu-providers.txt", dir); osu = parse_osu_providers(fname, &osu_count); if (osu == NULL) { wpa_printf(MSG_INFO, "Could not find any OSU providers from %s", fname); write_result(ctx, "No OSU providers available"); return -1; } if (friendly_name) { for (i = 0; i < osu_count; i++) { last = &osu[i]; for (j = 0; j < last->friendly_name_count; j++) { if (os_strcmp(last->friendly_name[j].text, friendly_name) == 0) break; } if (j < last->friendly_name_count) break; } if (i == osu_count) { wpa_printf(MSG_INFO, "Requested operator friendly name '%s' not found in the list of available providers", friendly_name); write_summary(ctx, "Requested operator friendly name '%s' not found in the list of available providers", friendly_name); free(osu); return -1; } wpa_printf(MSG_INFO, "OSU Provider selected based on requested operator friendly name '%s'", friendly_name); write_summary(ctx, "OSU Provider selected based on requested operator friendly name '%s'", friendly_name); ret = i + 1; goto selected; } snprintf(fname, sizeof(fname), "%s/osu-providers.html", dir); f = fopen(fname, "w"); if (f == NULL) { wpa_printf(MSG_INFO, "Could not open %s", fname); free(osu); return -1; } fprintf(f, "" "Select service operator" "

Select service operator

\n"); if (osu_count == 0) fprintf(f, "No online signup available\n"); for (i = 0; i < osu_count; i++) { last = &osu[i]; #ifdef ANDROID fprintf(f, "

\n" "" "
", (int) i + 1); #else /* ANDROID */ fprintf(f, "

\n" "" "
", (int) i + 1); #endif /* ANDROID */ for (j = 0; j < last->icon_count; j++) { fprintf(f, "\n", last->icon[j].id, strcasecmp(last->icon[j].mime_type, "image/png") == 0 ? "png" : "icon"); } fprintf(f, ""); for (j = 0; j < last->friendly_name_count; j++) { fprintf(f, "[%s] %s
\n", last->friendly_name[j].lang, last->friendly_name[j].text); } fprintf(f, "
"); for (j = 0; j < last->serv_desc_count; j++) { fprintf(f, "[%s] %s
\n", last->serv_desc[j].lang, last->serv_desc[j].text); } fprintf(f, "

BSSID: %s
\n" "SSID: %s
\n", last->bssid, last->osu_ssid); if (last->osu_nai) fprintf(f, "NAI: %s
\n", last->osu_nai); fprintf(f, "URL: %s
\n" "methods:%s%s
\n" "

\n", last->url, last->methods & 0x01 ? " OMA-DM" : "", last->methods & 0x02 ? " SOAP-XML-SPP" : ""); } fprintf(f, "\n"); fclose(f); snprintf(fname, sizeof(fname), "file://%s/osu-providers.html", dir); write_summary(ctx, "Start web browser with OSU provider selection page"); ret = hs20_web_browser(fname); selected: if (ret > 0 && (size_t) ret <= osu_count) { char *data; size_t data_len; wpa_printf(MSG_INFO, "Selected OSU id=%d", ret); last = &osu[ret - 1]; ret = 0; wpa_printf(MSG_INFO, "BSSID: %s", last->bssid); wpa_printf(MSG_INFO, "SSID: %s", last->osu_ssid); wpa_printf(MSG_INFO, "URL: %s", last->url); write_summary(ctx, "Selected OSU provider id=%d BSSID=%s SSID=%s URL=%s", ret, last->bssid, last->osu_ssid, last->url); ctx->friendly_name_count = last->friendly_name_count; for (j = 0; j < last->friendly_name_count; j++) { wpa_printf(MSG_INFO, "FRIENDLY_NAME: [%s]%s", last->friendly_name[j].lang, last->friendly_name[j].text); os_strlcpy(ctx->friendly_name[j].lang, last->friendly_name[j].lang, sizeof(ctx->friendly_name[j].lang)); os_strlcpy(ctx->friendly_name[j].text, last->friendly_name[j].text, sizeof(ctx->friendly_name[j].text)); } ctx->icon_count = last->icon_count; for (j = 0; j < last->icon_count; j++) { char fname[256]; os_snprintf(fname, sizeof(fname), "%s/osu-icon-%d.%s", dir, last->icon[j].id, strcasecmp(last->icon[j].mime_type, "image/png") == 0 ? "png" : "icon"); wpa_printf(MSG_INFO, "ICON: %s (%s)", fname, last->icon[j].filename); os_strlcpy(ctx->icon_filename[j], last->icon[j].filename, sizeof(ctx->icon_filename[j])); data = os_readfile(fname, &data_len); if (data) { sha256_vector(1, (const u8 **) &data, &data_len, ctx->icon_hash[j]); os_free(data); } } if (connect == 2) { if (last->methods & 0x02) { wpa_printf(MSG_DEBUG, "Calling cmd_prov from cmd_osu_select"); ret = cmd_prov(ctx, last->url); } else if (last->methods & 0x01) { wpa_printf(MSG_DEBUG, "Calling cmd_oma_dm_prov from cmd_osu_select"); ret = cmd_oma_dm_prov(ctx, last->url); } else { wpa_printf(MSG_DEBUG, "No supported OSU provisioning method"); ret = -1; } } else if (connect) ret = osu_connect(ctx, last->bssid, last->osu_ssid, last->url, last->methods, no_prod_assoc, last->osu_nai); } else ret = -1; free(osu); return ret; } static int cmd_signup(struct hs20_osu_client *ctx, int no_prod_assoc, const char *friendly_name) { char dir[255]; char fname[300], buf[400]; struct wpa_ctrl *mon; const char *ifname; int res; ifname = ctx->ifname; if (getcwd(dir, sizeof(dir)) == NULL) return -1; snprintf(fname, sizeof(fname), "%s/osu-info", dir); if (mkdir(fname, S_IRWXU | S_IRWXG) < 0 && errno != EEXIST) { wpa_printf(MSG_INFO, "mkdir(%s) failed: %s", fname, strerror(errno)); return -1; } snprintf(buf, sizeof(buf), "SET osu_dir %s", fname); if (wpa_command(ifname, buf) < 0) { wpa_printf(MSG_INFO, "Failed to configure osu_dir to wpa_supplicant"); return -1; } mon = open_wpa_mon(ifname); if (mon == NULL) return -1; wpa_printf(MSG_INFO, "Starting OSU fetch"); write_summary(ctx, "Starting OSU provider information fetch"); if (wpa_command(ifname, "FETCH_OSU") < 0) { wpa_printf(MSG_INFO, "Could not start OSU fetch"); wpa_ctrl_detach(mon); wpa_ctrl_close(mon); return -1; } res = get_wpa_cli_event(mon, "OSU provider fetch completed", buf, sizeof(buf)); wpa_ctrl_detach(mon); wpa_ctrl_close(mon); if (res < 0) { wpa_printf(MSG_INFO, "OSU fetch did not complete"); write_summary(ctx, "OSU fetch did not complete"); return -1; } wpa_printf(MSG_INFO, "OSU provider fetch completed"); return cmd_osu_select(ctx, fname, 1, no_prod_assoc, friendly_name); } static int cmd_sub_rem(struct hs20_osu_client *ctx, const char *address, const char *pps_fname, const char *ca_fname) { xml_node_t *pps, *node; char pps_fname_buf[300]; char ca_fname_buf[200]; char *cred_username = NULL; char *cred_password = NULL; char *sub_rem_uri = NULL; char client_cert_buf[200]; char *client_cert = NULL; char client_key_buf[200]; char *client_key = NULL; int spp; wpa_printf(MSG_INFO, "Subscription remediation requested with Server URL: %s", address); if (!pps_fname) { char buf[256]; wpa_printf(MSG_INFO, "Determining PPS file based on Home SP information"); if (os_strncmp(address, "fqdn=", 5) == 0) { wpa_printf(MSG_INFO, "Use requested FQDN from command line"); os_snprintf(buf, sizeof(buf), "%s", address + 5); address = NULL; } else if (get_wpa_status(ctx->ifname, "provisioning_sp", buf, sizeof(buf)) < 0) { wpa_printf(MSG_INFO, "Could not get provisioning Home SP FQDN from wpa_supplicant"); return -1; } os_free(ctx->fqdn); ctx->fqdn = os_strdup(buf); if (ctx->fqdn == NULL) return -1; wpa_printf(MSG_INFO, "Home SP FQDN for current credential: %s", buf); os_snprintf(pps_fname_buf, sizeof(pps_fname_buf), "SP/%s/pps.xml", ctx->fqdn); pps_fname = pps_fname_buf; os_snprintf(ca_fname_buf, sizeof(ca_fname_buf), "SP/%s/ca.pem", ctx->fqdn); ca_fname = ca_fname_buf; } if (!os_file_exists(pps_fname)) { wpa_printf(MSG_INFO, "PPS file '%s' does not exist or is not accessible", pps_fname); return -1; } wpa_printf(MSG_INFO, "Using PPS file: %s", pps_fname); if (ca_fname && !os_file_exists(ca_fname)) { wpa_printf(MSG_INFO, "CA file '%s' does not exist or is not accessible", ca_fname); return -1; } wpa_printf(MSG_INFO, "Using server trust root: %s", ca_fname); ctx->ca_fname = ca_fname; pps = node_from_file(ctx->xml, pps_fname); if (pps == NULL) { wpa_printf(MSG_INFO, "Could not read PPS MO"); return -1; } if (!ctx->fqdn) { char *tmp; node = get_child_node(ctx->xml, pps, "HomeSP/FQDN"); if (node == NULL) { wpa_printf(MSG_INFO, "No HomeSP/FQDN found from PPS"); return -1; } tmp = xml_node_get_text(ctx->xml, node); if (tmp == NULL) { wpa_printf(MSG_INFO, "No HomeSP/FQDN text found from PPS"); return -1; } ctx->fqdn = os_strdup(tmp); xml_node_get_text_free(ctx->xml, tmp); if (!ctx->fqdn) { wpa_printf(MSG_INFO, "No FQDN known"); return -1; } } node = get_child_node(ctx->xml, pps, "SubscriptionUpdate/UpdateMethod"); if (node) { char *tmp; tmp = xml_node_get_text(ctx->xml, node); if (tmp && os_strcasecmp(tmp, "OMA-DM-ClientInitiated") == 0) spp = 0; else spp = 1; } else { wpa_printf(MSG_INFO, "No UpdateMethod specified - assume SPP"); spp = 1; } get_user_pw(ctx, pps, "SubscriptionUpdate/UsernamePassword", &cred_username, &cred_password); if (cred_username) wpa_printf(MSG_INFO, "Using username: %s", cred_username); if (cred_password) wpa_printf(MSG_DEBUG, "Using password: %s", cred_password); if (cred_username == NULL && cred_password == NULL && get_child_node(ctx->xml, pps, "Credential/DigitalCertificate")) { wpa_printf(MSG_INFO, "Using client certificate"); os_snprintf(client_cert_buf, sizeof(client_cert_buf), "SP/%s/client-cert.pem", ctx->fqdn); client_cert = client_cert_buf; os_snprintf(client_key_buf, sizeof(client_key_buf), "SP/%s/client-key.pem", ctx->fqdn); client_key = client_key_buf; ctx->client_cert_present = 1; } node = get_child_node(ctx->xml, pps, "SubscriptionUpdate/URI"); if (node) { sub_rem_uri = xml_node_get_text(ctx->xml, node); if (sub_rem_uri && (!address || os_strcmp(address, sub_rem_uri) != 0)) { wpa_printf(MSG_INFO, "Override sub rem URI based on PPS: %s", sub_rem_uri); address = sub_rem_uri; } } if (!address) { wpa_printf(MSG_INFO, "Server URL not known"); return -1; } write_summary(ctx, "Wait for IP address for subscriptiom remediation"); wpa_printf(MSG_INFO, "Wait for IP address before starting subscription remediation"); if (wait_ip_addr(ctx->ifname, 15) < 0) { wpa_printf(MSG_INFO, "Could not get IP address for WLAN - try connection anyway"); } if (spp) spp_sub_rem(ctx, address, pps_fname, client_cert, client_key, cred_username, cred_password, pps); else oma_dm_sub_rem(ctx, address, pps_fname, client_cert, client_key, cred_username, cred_password, pps); xml_node_get_text_free(ctx->xml, sub_rem_uri); xml_node_get_text_free(ctx->xml, cred_username); str_clear_free(cred_password); xml_node_free(ctx->xml, pps); return 0; } static int cmd_pol_upd(struct hs20_osu_client *ctx, const char *address, const char *pps_fname, const char *ca_fname) { xml_node_t *pps; xml_node_t *node; char pps_fname_buf[300]; char ca_fname_buf[200]; char *uri = NULL; char *cred_username = NULL; char *cred_password = NULL; char client_cert_buf[200]; char *client_cert = NULL; char client_key_buf[200]; char *client_key = NULL; int spp; wpa_printf(MSG_INFO, "Policy update requested"); if (!pps_fname) { char buf[256]; wpa_printf(MSG_INFO, "Determining PPS file based on Home SP information"); if (os_strncmp(address, "fqdn=", 5) == 0) { wpa_printf(MSG_INFO, "Use requested FQDN from command line"); os_snprintf(buf, sizeof(buf), "%s", address + 5); address = NULL; } else if (get_wpa_status(ctx->ifname, "provisioning_sp", buf, sizeof(buf)) < 0) { wpa_printf(MSG_INFO, "Could not get provisioning Home SP FQDN from wpa_supplicant"); return -1; } os_free(ctx->fqdn); ctx->fqdn = os_strdup(buf); if (ctx->fqdn == NULL) return -1; wpa_printf(MSG_INFO, "Home SP FQDN for current credential: %s", buf); os_snprintf(pps_fname_buf, sizeof(pps_fname_buf), "SP/%s/pps.xml", ctx->fqdn); pps_fname = pps_fname_buf; os_snprintf(ca_fname_buf, sizeof(ca_fname_buf), "SP/%s/ca.pem", buf); ca_fname = ca_fname_buf; } if (!os_file_exists(pps_fname)) { wpa_printf(MSG_INFO, "PPS file '%s' does not exist or is not accessible", pps_fname); return -1; } wpa_printf(MSG_INFO, "Using PPS file: %s", pps_fname); if (ca_fname && !os_file_exists(ca_fname)) { wpa_printf(MSG_INFO, "CA file '%s' does not exist or is not accessible", ca_fname); return -1; } wpa_printf(MSG_INFO, "Using server trust root: %s", ca_fname); ctx->ca_fname = ca_fname; pps = node_from_file(ctx->xml, pps_fname); if (pps == NULL) { wpa_printf(MSG_INFO, "Could not read PPS MO"); return -1; } if (!ctx->fqdn) { char *tmp; node = get_child_node(ctx->xml, pps, "HomeSP/FQDN"); if (node == NULL) { wpa_printf(MSG_INFO, "No HomeSP/FQDN found from PPS"); return -1; } tmp = xml_node_get_text(ctx->xml, node); if (tmp == NULL) { wpa_printf(MSG_INFO, "No HomeSP/FQDN text found from PPS"); return -1; } ctx->fqdn = os_strdup(tmp); xml_node_get_text_free(ctx->xml, tmp); if (!ctx->fqdn) { wpa_printf(MSG_INFO, "No FQDN known"); return -1; } } node = get_child_node(ctx->xml, pps, "Policy/PolicyUpdate/UpdateMethod"); if (node) { char *tmp; tmp = xml_node_get_text(ctx->xml, node); if (tmp && os_strcasecmp(tmp, "OMA-DM-ClientInitiated") == 0) spp = 0; else spp = 1; } else { wpa_printf(MSG_INFO, "No UpdateMethod specified - assume SPP"); spp = 1; } get_user_pw(ctx, pps, "Policy/PolicyUpdate/UsernamePassword", &cred_username, &cred_password); if (cred_username) wpa_printf(MSG_INFO, "Using username: %s", cred_username); if (cred_password) wpa_printf(MSG_DEBUG, "Using password: %s", cred_password); if (cred_username == NULL && cred_password == NULL && get_child_node(ctx->xml, pps, "Credential/DigitalCertificate")) { wpa_printf(MSG_INFO, "Using client certificate"); os_snprintf(client_cert_buf, sizeof(client_cert_buf), "SP/%s/client-cert.pem", ctx->fqdn); client_cert = client_cert_buf; os_snprintf(client_key_buf, sizeof(client_key_buf), "SP/%s/client-key.pem", ctx->fqdn); client_key = client_key_buf; } if (!address) { node = get_child_node(ctx->xml, pps, "Policy/PolicyUpdate/URI"); if (node) { uri = xml_node_get_text(ctx->xml, node); wpa_printf(MSG_INFO, "URI based on PPS: %s", uri); address = uri; } } if (!address) { wpa_printf(MSG_INFO, "Server URL not known"); return -1; } if (spp) spp_pol_upd(ctx, address, pps_fname, client_cert, client_key, cred_username, cred_password, pps); else oma_dm_pol_upd(ctx, address, pps_fname, client_cert, client_key, cred_username, cred_password, pps); xml_node_get_text_free(ctx->xml, uri); xml_node_get_text_free(ctx->xml, cred_username); str_clear_free(cred_password); xml_node_free(ctx->xml, pps); return 0; } static char * get_hostname(const char *url) { const char *pos, *end, *end2; char *ret; if (url == NULL) return NULL; pos = os_strchr(url, '/'); if (pos == NULL) return NULL; pos++; if (*pos != '/') return NULL; pos++; end = os_strchr(pos, '/'); end2 = os_strchr(pos, ':'); if (end && end2 && end2 < end) end = end2; if (end) end--; else { end = pos; while (*end) end++; if (end > pos) end--; } ret = os_malloc(end - pos + 2); if (ret == NULL) return NULL; os_memcpy(ret, pos, end - pos + 1); ret[end - pos + 1] = '\0'; return ret; } static int osu_cert_cb(void *_ctx, struct http_cert *cert) { struct hs20_osu_client *ctx = _ctx; unsigned int i, j; int found; char *host = NULL; wpa_printf(MSG_INFO, "osu_cert_cb(osu_cert_validation=%d)", !ctx->no_osu_cert_validation); host = get_hostname(ctx->server_url); for (i = 0; i < ctx->server_dnsname_count; i++) os_free(ctx->server_dnsname[i]); os_free(ctx->server_dnsname); ctx->server_dnsname = os_calloc(cert->num_dnsname, sizeof(char *)); ctx->server_dnsname_count = 0; found = 0; for (i = 0; i < cert->num_dnsname; i++) { if (ctx->server_dnsname) { ctx->server_dnsname[ctx->server_dnsname_count] = os_strdup(cert->dnsname[i]); if (ctx->server_dnsname[ctx->server_dnsname_count]) ctx->server_dnsname_count++; } if (host && os_strcasecmp(host, cert->dnsname[i]) == 0) found = 1; wpa_printf(MSG_INFO, "dNSName '%s'", cert->dnsname[i]); } if (host && !found) { wpa_printf(MSG_INFO, "Server name from URL (%s) did not match any dNSName - abort connection", host); write_result(ctx, "Server name from URL (%s) did not match any dNSName - abort connection", host); os_free(host); return -1; } os_free(host); for (i = 0; i < cert->num_othername; i++) { if (os_strcmp(cert->othername[i].oid, "1.3.6.1.4.1.40808.1.1.1") == 0) { wpa_hexdump_ascii(MSG_INFO, "id-wfa-hotspot-friendlyName", cert->othername[i].data, cert->othername[i].len); } } for (j = 0; !ctx->no_osu_cert_validation && j < ctx->friendly_name_count; j++) { int found = 0; for (i = 0; i < cert->num_othername; i++) { if (os_strcmp(cert->othername[i].oid, "1.3.6.1.4.1.40808.1.1.1") != 0) continue; if (cert->othername[i].len < 3) continue; if (os_strncasecmp((char *) cert->othername[i].data, ctx->friendly_name[j].lang, 3) != 0) continue; if (os_strncmp((char *) cert->othername[i].data + 3, ctx->friendly_name[j].text, cert->othername[i].len - 3) == 0) { found = 1; break; } } if (!found) { wpa_printf(MSG_INFO, "No friendly name match found for '[%s]%s'", ctx->friendly_name[j].lang, ctx->friendly_name[j].text); write_result(ctx, "No friendly name match found for '[%s]%s'", ctx->friendly_name[j].lang, ctx->friendly_name[j].text); return -1; } } for (i = 0; i < cert->num_logo; i++) { struct http_logo *logo = &cert->logo[i]; wpa_printf(MSG_INFO, "logo hash alg %s uri '%s'", logo->alg_oid, logo->uri); wpa_hexdump_ascii(MSG_INFO, "hashValue", logo->hash, logo->hash_len); } for (j = 0; !ctx->no_osu_cert_validation && j < ctx->icon_count; j++) { int found = 0; char *name = ctx->icon_filename[j]; size_t name_len = os_strlen(name); wpa_printf(MSG_INFO, "[%i] Looking for icon file name '%s' match", j, name); for (i = 0; i < cert->num_logo; i++) { struct http_logo *logo = &cert->logo[i]; size_t uri_len = os_strlen(logo->uri); char *pos; wpa_printf(MSG_INFO, "[%i] Comparing to '%s' uri_len=%d name_len=%d", i, logo->uri, (int) uri_len, (int) name_len); if (uri_len < 1 + name_len) { wpa_printf(MSG_INFO, "URI Length is too short"); continue; } pos = &logo->uri[uri_len - name_len - 1]; if (*pos != '/') continue; pos++; if (os_strcmp(pos, name) == 0) { found = 1; break; } } if (!found) { wpa_printf(MSG_INFO, "No icon filename match found for '%s'", name); write_result(ctx, "No icon filename match found for '%s'", name); return -1; } } for (j = 0; !ctx->no_osu_cert_validation && j < ctx->icon_count; j++) { int found = 0; for (i = 0; i < cert->num_logo; i++) { struct http_logo *logo = &cert->logo[i]; if (logo->hash_len != 32) { wpa_printf(MSG_INFO, "[%i][%i] Icon hash length invalid (should be 32): %d", j, i, (int) logo->hash_len); continue; } if (os_memcmp(logo->hash, ctx->icon_hash[j], 32) == 0) { found = 1; break; } wpa_printf(MSG_DEBUG, "[%u][%u] Icon hash did not match", j, i); wpa_hexdump_ascii(MSG_DEBUG, "logo->hash", logo->hash, 32); wpa_hexdump_ascii(MSG_DEBUG, "ctx->icon_hash[j]", ctx->icon_hash[j], 32); } if (!found) { wpa_printf(MSG_INFO, "No icon hash match (by hash) found"); write_result(ctx, "No icon hash match (by hash) found"); return -1; } } return 0; } static int init_ctx(struct hs20_osu_client *ctx) { xml_node_t *devinfo, *devid; os_memset(ctx, 0, sizeof(*ctx)); ctx->ifname = "wlan0"; ctx->xml = xml_node_init_ctx(ctx, NULL); if (ctx->xml == NULL) return -1; devinfo = node_from_file(ctx->xml, "devinfo.xml"); if (!devinfo) { wpa_printf(MSG_ERROR, "devinfo.xml not found"); return -1; } devid = get_node(ctx->xml, devinfo, "DevId"); if (devid) { char *tmp = xml_node_get_text(ctx->xml, devid); if (tmp) { ctx->devid = os_strdup(tmp); xml_node_get_text_free(ctx->xml, tmp); } } xml_node_free(ctx->xml, devinfo); if (ctx->devid == NULL) { wpa_printf(MSG_ERROR, "Could not fetch DevId from devinfo.xml"); return -1; } ctx->http = http_init_ctx(ctx, ctx->xml); if (ctx->http == NULL) { xml_node_deinit_ctx(ctx->xml); return -1; } http_ocsp_set(ctx->http, 2); http_set_cert_cb(ctx->http, osu_cert_cb, ctx); return 0; } static void deinit_ctx(struct hs20_osu_client *ctx) { size_t i; http_deinit_ctx(ctx->http); xml_node_deinit_ctx(ctx->xml); os_free(ctx->fqdn); os_free(ctx->server_url); os_free(ctx->devid); for (i = 0; i < ctx->server_dnsname_count; i++) os_free(ctx->server_dnsname[i]); os_free(ctx->server_dnsname); } static void check_workarounds(struct hs20_osu_client *ctx) { FILE *f; char buf[100]; unsigned long int val = 0; f = fopen("hs20-osu-client.workarounds", "r"); if (f == NULL) return; if (fgets(buf, sizeof(buf), f)) val = strtoul(buf, NULL, 16); fclose(f); if (val) { wpa_printf(MSG_INFO, "Workarounds enabled: 0x%lx", val); ctx->workarounds = val; if (ctx->workarounds & WORKAROUND_OCSP_OPTIONAL) http_ocsp_set(ctx->http, 1); } } static void usage(void) { printf("usage: hs20-osu-client [-dddqqKt] [-S] \\\n" " [-w] " "[-r] [-f] \\\n" " [-s] \\\n" " [-x] \\\n" " [arguments..]\n" "commands:\n" "- to_tnds [URN]\n" "- to_tnds2 \n" "- from_tnds \n" "- set_pps \n" "- get_fqdn \n" "- pol_upd [Server URL] [PPS] [CA cert]\n" "- sub_rem [PPS] [CA cert]\n" "- prov [CA cert]\n" "- oma_dm_prov [CA cert]\n" "- sim_prov [CA cert]\n" "- oma_dm_sim_prov [CA cert]\n" "- signup [CA cert]\n" "- dl_osu_ca \n" "- dl_polupd_ca \n" "- dl_aaa_ca \n" "- browser \n" "- parse_cert \n" "- osu_select [CA cert]\n"); } int main(int argc, char *argv[]) { struct hs20_osu_client ctx; int c; int ret = 0; int no_prod_assoc = 0; const char *friendly_name = NULL; const char *wpa_debug_file_path = NULL; extern char *wpas_ctrl_path; extern int wpa_debug_level; extern int wpa_debug_show_keys; extern int wpa_debug_timestamp; if (init_ctx(&ctx) < 0) return -1; for (;;) { c = getopt(argc, argv, "df:hKNO:qr:s:S:tw:x:"); if (c < 0) break; switch (c) { case 'd': if (wpa_debug_level > 0) wpa_debug_level--; break; case 'f': wpa_debug_file_path = optarg; break; case 'K': wpa_debug_show_keys++; break; case 'N': no_prod_assoc = 1; break; case 'O': friendly_name = optarg; break; case 'q': wpa_debug_level++; break; case 'r': ctx.result_file = optarg; break; case 's': ctx.summary_file = optarg; break; case 'S': ctx.ifname = optarg; break; case 't': wpa_debug_timestamp++; break; case 'w': wpas_ctrl_path = optarg; break; case 'x': spp_xsd_fname = optarg; break; case 'h': default: usage(); exit(0); break; } } if (argc - optind < 1) { usage(); exit(0); } wpa_debug_open_file(wpa_debug_file_path); #ifdef __linux__ setlinebuf(stdout); #endif /* __linux__ */ if (ctx.result_file) unlink(ctx.result_file); wpa_printf(MSG_DEBUG, "===[hs20-osu-client START - command: %s ]======" "================", argv[optind]); check_workarounds(&ctx); if (strcmp(argv[optind], "to_tnds") == 0) { if (argc - optind < 2) { usage(); exit(0); } cmd_to_tnds(&ctx, argv[optind + 1], argv[optind + 2], argc > optind + 3 ? argv[optind + 3] : NULL, 0); } else if (strcmp(argv[optind], "to_tnds2") == 0) { if (argc - optind < 2) { usage(); exit(0); } cmd_to_tnds(&ctx, argv[optind + 1], argv[optind + 2], argc > optind + 3 ? argv[optind + 3] : NULL, 1); } else if (strcmp(argv[optind], "from_tnds") == 0) { if (argc - optind < 2) { usage(); exit(0); } cmd_from_tnds(&ctx, argv[optind + 1], argv[optind + 2]); } else if (strcmp(argv[optind], "sub_rem") == 0) { if (argc - optind < 2) { usage(); exit(0); } if (argc - optind < 2) wpa_printf(MSG_ERROR, "Server URL missing from command line"); else ret = cmd_sub_rem(&ctx, argv[optind + 1], argc > optind + 2 ? argv[optind + 2] : NULL, argc > optind + 3 ? argv[optind + 3] : NULL); } else if (strcmp(argv[optind], "pol_upd") == 0) { if (argc - optind < 2) { usage(); exit(0); } ret = cmd_pol_upd(&ctx, argc > 2 ? argv[optind + 1] : NULL, argc > optind + 2 ? argv[optind + 2] : NULL, argc > optind + 3 ? argv[optind + 3] : NULL); } else if (strcmp(argv[optind], "prov") == 0) { if (argc - optind < 2) { usage(); exit(0); } ctx.ca_fname = argv[optind + 2]; wpa_printf(MSG_DEBUG, "Calling cmd_prov from main"); cmd_prov(&ctx, argv[optind + 1]); } else if (strcmp(argv[optind], "sim_prov") == 0) { if (argc - optind < 2) { usage(); exit(0); } ctx.ca_fname = argv[optind + 2]; cmd_sim_prov(&ctx, argv[optind + 1]); } else if (strcmp(argv[optind], "dl_osu_ca") == 0) { if (argc - optind < 2) { usage(); exit(0); } cmd_dl_osu_ca(&ctx, argv[optind + 1], argv[optind + 2]); } else if (strcmp(argv[optind], "dl_polupd_ca") == 0) { if (argc - optind < 2) { usage(); exit(0); } cmd_dl_polupd_ca(&ctx, argv[optind + 1], argv[optind + 2]); } else if (strcmp(argv[optind], "dl_aaa_ca") == 0) { if (argc - optind < 2) { usage(); exit(0); } cmd_dl_aaa_ca(&ctx, argv[optind + 1], argv[optind + 2]); } else if (strcmp(argv[optind], "osu_select") == 0) { if (argc - optind < 2) { usage(); exit(0); } ctx.ca_fname = argc > optind + 2 ? argv[optind + 2] : NULL; cmd_osu_select(&ctx, argv[optind + 1], 2, 1, NULL); } else if (strcmp(argv[optind], "signup") == 0) { ctx.ca_fname = argc > optind + 1 ? argv[optind + 1] : NULL; ret = cmd_signup(&ctx, no_prod_assoc, friendly_name); } else if (strcmp(argv[optind], "set_pps") == 0) { if (argc - optind < 2) { usage(); exit(0); } cmd_set_pps(&ctx, argv[optind + 1]); } else if (strcmp(argv[optind], "get_fqdn") == 0) { if (argc - optind < 1) { usage(); exit(0); } ret = cmd_get_fqdn(&ctx, argv[optind + 1]); } else if (strcmp(argv[optind], "oma_dm_prov") == 0) { if (argc - optind < 2) { usage(); exit(0); } ctx.ca_fname = argv[optind + 2]; cmd_oma_dm_prov(&ctx, argv[optind + 1]); } else if (strcmp(argv[optind], "oma_dm_sim_prov") == 0) { if (argc - optind < 2) { usage(); exit(0); } ctx.ca_fname = argv[optind + 2]; if (cmd_oma_dm_sim_prov(&ctx, argv[optind + 1]) < 0) { write_summary(&ctx, "Failed to complete OMA DM SIM provisioning"); return -1; } } else if (strcmp(argv[optind], "oma_dm_add") == 0) { if (argc - optind < 2) { usage(); exit(0); } cmd_oma_dm_add(&ctx, argv[optind + 1], argv[optind + 2]); } else if (strcmp(argv[optind], "oma_dm_replace") == 0) { if (argc - optind < 2) { usage(); exit(0); } cmd_oma_dm_replace(&ctx, argv[optind + 1], argv[optind + 2]); } else if (strcmp(argv[optind], "est_csr") == 0) { if (argc - optind < 2) { usage(); exit(0); } mkdir("Cert", S_IRWXU); est_build_csr(&ctx, argv[optind + 1]); } else if (strcmp(argv[optind], "browser") == 0) { int ret; if (argc - optind < 2) { usage(); exit(0); } wpa_printf(MSG_INFO, "Launch web browser to URL %s", argv[optind + 1]); ret = hs20_web_browser(argv[optind + 1]); wpa_printf(MSG_INFO, "Web browser result: %d", ret); } else if (strcmp(argv[optind], "parse_cert") == 0) { if (argc - optind < 2) { usage(); exit(0); } wpa_debug_level = MSG_MSGDUMP; http_parse_x509_certificate(ctx.http, argv[optind + 1]); wpa_debug_level = MSG_INFO; } else { wpa_printf(MSG_INFO, "Unknown command '%s'", argv[optind]); } deinit_ctx(&ctx); wpa_printf(MSG_DEBUG, "===[hs20-osu-client END ]======================"); wpa_debug_close_file(); return ret; }