Section courante

A propos

Section administrative du site

Face à la quantité toujours croissante d'informations échangées sur Internet, les bases de données sont constamment exposées à l'insertion de données erronées ou incomplètes. Parmi les validations les plus importantes à effectuer figure celle des noms de domaine et de leurs extensions. Une adresse comportant une extension inexistante ou mal orthographiée peut rapidement entraîner des erreurs de communication, des échecs d'envoi de courriels ou encore des problèmes d'accès à des services en ligne. Il devient donc essentiel de vérifier qu'une extension de domaine appartient bien à une liste reconnue avant d'accepter ou d'enregistrer une information dans un système informatique.

Cette vérification est particulièrement fréquente dans les formulaires Web, les applications de gestion de clients, les systèmes d'authentification ainsi que les logiciels de messagerie électronique. Lorsqu'un utilisateur saisit une adresse de courriel ou un nom de domaine, il est souvent préférable d'effectuer un premier contrôle syntaxique avant même de tenter une connexion réseau. Cette étape permet de détecter rapidement les erreurs de frappe les plus courantes et d'améliorer considérablement la qualité des données conservées dans les bases de données.

L'une des méthodes les plus simples consiste à comparer l'extension saisie avec une liste prédéfinie d'extensions de domaines valides. Cette liste peut contenir les domaines génériques les plus populaires, tels que .com, .org ou .net, mais également des extensions nationales comme .ca, .fr, .uk ou encore plusieurs sous-domaines régionaux. Bien que cette approche nécessite de maintenir une table de référence à jour, elle demeure rapide, efficace et parfaitement adaptée à de nombreuses applications où une validation préliminaire est suffisante.

L'exemple Delphi présenté ci-dessous illustre précisément cette technique. Une fonction parcourt une importante table contenant plusieurs centaines d'extensions reconnues et vérifie si la chaîne fournie se termine par l'une d'entre elles. Si une correspondance est trouvée, le domaine est considéré comme valide; dans le cas contraire, il est rejeté. Cette méthode permet ainsi de contrôler efficacement les noms de domaine et les adresses de courriel avant leur traitement, tout en offrant une solution simple à comprendre et facile à intégrer dans des projets Delphi, Kylix ou Lazarus :

  1. Program IsExtDomainValidSource;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.  
  7. Function IsExtDomainValid(DomainName:String):Boolean;
  8. Const ListExt: Array[0..256] of PChar=(
  9.                 '.ab.ca','.ac','.ad','.ae','.aero','.af','.ag','.ai','.al','.am','.an','.ao','.aq','.ar','.as','.at','.au','.aw','.az',
  10.                 '.ba','.bb','.bc.ca','.bd','.be','.bf','.bg','.bh','.bi','.biz','.bj','.bj','.bm','.bn','.bo','.br','.bs','.bt','.bv','.bw','.by','.bz',
  11.                 '.ca','.cat','.cc','.cd','.cf','.cg','.ch','.ci','.ck','.cl','.cm','.cn','.co','.co.me','.com','.coop','.cr','.cu','.cv','.cx','.cy','.cz',
  12.                 '.de','.dj','.dk','.dm','.do','.dz',
  13.                 '.ec','.edu','.ee','.eg','.eh','.er','.es','.et',
  14.                 '.fi','.fj','.fk','.fm','.fo','.fr','.fx',
  15.                 '.ga','.gb','.gc.ca','.gd','.ge','.gf','.gg','.gh','.gi','.gl','.gm','.gn','.gov','.gov.me','.gp','.gq','.gr','.gs','.gt','.gu','.gw','.gy',
  16.                 '.hk','.hm','.hn','.hr',
  17.                 '.info','.int',
  18.                 '.jobs',
  19.                 '.kw','.ky','.kz',
  20.                 '.la','.lb','.lc','.li','.lk','.lr','.ls','.lt','.lu','.lv','.ly',
  21.                 '.ma','.mb.ca','.mc','.md','.me','.mg','.mh','.mk','.ml','.mm','.mn','.mo','.mobi','.mp','.mq','.mr','.ms','.mt','.mu','.museum','.mv','.mw','.mx','.my','.mz',
  22.                 '.na','.name','.nb.ca','.nc','.ne','.net','.nf','.ng','.ni','.nl','.nl.ca','.no','.np','.nr','.ns.ca','.nt.ca','.nu','.nu.ca','.nz',
  23.                 '.om','.on.ca','.org',
  24.                 '.pa','.pe','.pe.ca','.pf','.pg','.ph','.pk','.pl','.pm','.pn','.pr','.pro','.ps','.pt','.pw','.py',
  25.                 '.qa','.qc.ca',
  26.                 '.re','.ro','.ru','.rw',
  27.                 '.sa','.sb','.sc','.sd','.se','.sg','.sh','.si','.sj','.sk','.sk.ca','.sl','.sm','.sn','.so','.sr','.st','.sv','.sy','.sz',
  28.                 '.tc','.td','.tel','.tf','.tg','.th','.tj','.tk','.tm','.tn','.to','.tp','.tr','.travel','.tt','.tv','.tw','.tz',
  29.                 '.ua','.ug','.uk','.um','.us','.uy','.uz',
  30.                 '.va','.vc','.ve','.vg','.vi','.vn','.vu',
  31.                 '.wf','.ws',
  32.                 '.ye',
  33.                 '.yk.ca','.yt','.yu',
  34.                 '.za','.zm','.zw'
  35.         );
  36. Var
  37.  I:Integer;
  38. Begin
  39.  IsExtDomainValid := False;
  40.  If('' = DomainName)Then Exit;
  41.  For I := 0 to High(ListExt) do Begin
  42.   If(StrPas(ListExt[I]) = Copy(DomainName,Length(DomainName)-StrLen(ListExt[I])+1,StrLen(ListExt[I])))Then Begin
  43.    IsExtDomainValid := True;
  44.   End;
  45.  End;        
  46. End;
  47.     
  48. BEGIN 
  49.  WriteLn('domain.ext = ',IsExtDomainValid('domain.ext'));
  50.  WriteLn('domain.ca = ',IsExtDomainValid('domain.ca'));
  51.  WriteLn('moncourriel@gladir.com = ',IsExtDomainValid('moncourriel@gladir.com'));
  52.  WriteLn('moncourriel@gladir.com.dev = ',IsExtDomainValid('moncourriel@gladir.com.dev')); 
  53. END.

on obtiendra le résultat suivant :

domain.ext = FALSE
domain.ca = TRUE
moncourriel@gladir.com = TRUE
moncourriel@gladir.com.dev = FALSE

Dernière mise à jour : Dimanche, le 17 août 2014