Une lettre
de trop

Aucun de ces domaines n'a été piraté. Ils ont été achetés.

Trois ans avant le virement de Surfside Beach, le gouvernement du Canada avait décrit le procédé en deux phrases, sur son site de sensibilisation grand public.

Le mot important n'est pas « piratage ». C'est « s'apparente ».

Les courriels de Surfside Beach venaient d'un domaine appartenant au fraudeur, régulièrement enregistré, payé quelques dollars. La revue indépendante n'a trouvé aucune intrusion dans les systèmes de la municipalité. De quel côté un compte de courrier a pu être compromis, personne ne l'a établi : la revue portait sur la ville, pas sur son entrepreneur. Ce qui est certain, c'est que le nom qui a servi à tromper n'a été volé à personne.

Et la victime n'est presque jamais celle qu'on croit. Le faux domaine de Surfside Beach a servi à tromper un fournisseur. Ceux de l'affaire L'Oréal visaient des candidats à l'embauche. Ceux du troisième cas visaient les employés eux-mêmes, en imitant le portail VPN ou le service d'assistance. Votre domaine est un actif dont vous ne contrôlez que la moitié : le nom exact vous appartient, tout ce qui lui ressemble appartient au premier qui l'enregistre.

Le problème n'est pas de bloquer ces domaines. C'est de savoir qu'ils existent.

Ce n'est pas une impression. Les deux chiffres qui suivent expliquent pourquoi la vérification annuelle ne peut pas fonctionner.

Ce n'est pas de la négligence, c'est une question de rythme. Une PME a un fournisseur informatique payé pour que les choses fonctionnent, pas pour interroger chaque matin le registre des noms de domaine. Personne n'a de raison de taper son propre nom avec une faute de frappe.

L'analyse est entièrement externe : aucun logiciel sur vos serveurs, aucun accès à vos systèmes, aucune interruption. Elle démarre d'un nom de domaine et regarde ce qui lui ressemble, exactement comme le ferait quelqu'un qui prépare un courriel en votre nom.

Elles ne demandent aucune connaissance technique. Elles se posent à votre responsable informatique, à votre fournisseur de services, ou aux deux dans la même rencontre.

Une minute pour le savoir, sans nous.

Ces quelques lignes se copient telles quelles dans un terminal : PowerShell sur Windows, Bash sur macOS et Linux. Elles fabriquent les fautes de frappe les plus courantes sur votre nom de domaine, puis demandent au DNS lesquelles répondent. Rien n'est installé, rien n'est envoyé nulle part, et aucun des sites trouvés n'est visité.

# Remplacez cyberazimut.com par votre propre nom de domaine complet.
domaine=cyberazimut.com
nom=${domaine%%.*}
exts=$(printf '%s\n' "${domaine#*.}" com ca net org | sort -u)

awk -v s=$nom 'BEGIN{ n = length(s); print s
  for (i=1;i<=n;i++) print substr(s,1,i-1) substr(s,i+1)             # lettre en moins
  for (i=1;i<=n;i++) print substr(s,1,i) substr(s,i,1) substr(s,i+1) # lettre doublee
  for (i=1;i<n;i++)  print substr(s,1,i-1) substr(s,i+1,1) substr(s,i,1) substr(s,i+2)
}' | sort -u | while read v; do
  for ext in $exts; do
    ip=$(dig +short +time=2 +tries=1 "$v.$ext" A | grep -m1 '^[0-9]')
    [ -n "$ip" ] && echo "$v.$ext  ->  $ip"
  done
done
echo "Termine. Un domaine qui repond n'est pas forcement hostile."

# Remplacez cyberazimut.com par votre propre nom de domaine complet.
$ErrorActionPreference = 'SilentlyContinue'
$domaine = "cyberazimut.com"
$nom = $domaine.Substring(0, $domaine.IndexOf('.'))
$exts = @($domaine.Substring($domaine.IndexOf('.') + 1), 'com', 'ca', 'net', 'org') | Select-Object -Unique

$variantes = [System.Collections.Generic.HashSet[string]]::new()
$variantes.Add($nom) | Out-Null
for ($i = 0; $i -lt $nom.Length; $i++) {
  $variantes.Add($nom.Remove($i,1)) | Out-Null                            # lettre en moins
  $variantes.Add($nom.Insert($i+1, $nom[$i])) | Out-Null                  # lettre doublee
}
for ($i = 0; $i -lt $nom.Length - 1; $i++) {
  $car = $nom.ToCharArray()
  $tmp = $car[$i]; $car[$i] = $car[$i+1]; $car[$i+1] = $tmp
  $variantes.Add(-join $car) | Out-Null                                   # lettres interverties
}

foreach ($v in ($variantes | Sort-Object)) {
  foreach ($ext in $exts) {
    try {
      $tache = [System.Net.Dns]::GetHostAddressesAsync("$v.$ext")
      if ($tache.Wait(1500) -and $tache.Status -eq 'RanToCompletion') {
        $ip = $tache.Result | Where-Object AddressFamily -eq 'InterNetwork' | Select-Object -First 1
        if ($ip) { Write-Output "$v.$ext  ->  $ip" }
      }
    } catch {}
  }
}
Write-Output "Termine. Un domaine qui repond n'est pas forcement hostile."

Le premier domaine que vous reconnaissez dans la liste devrait être le vôtre : c'est le témoin que tout fonctionne. Les suivants sont des domaines qui existent, qui répondent, et que vous n'avez pas enregistrés.