Hex Artifact Content

Not logged in

Artifact ceb5b518aee9d6cf7abed2627e907b39cc8369c6:


0000: 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  /***************
0010: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0020: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0030: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0040: 2a 2a 2a 2a 2a 2a 2a 2a 5c 0a 2a 20 20 20 20 20  ********\.*     
0050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0060: 20 20 20 20 20 20 20 20 20 20 20 73 65 63 65 78             secex
0070: 74 2e 64 20 20 20 20 20 20 20 20 20 20 20 20 20  t.d             
0080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0090: 20 20 2a 0a 2a 20 20 20 20 20 20 20 20 20 20 20    *.*           
00a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
00b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
00c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
00d0: 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 2a 20              *.* 
00e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
00f0: 20 20 20 20 20 20 57 69 6e 64 6f 77 73 20 41 50        Windows AP
0100: 49 20 68 65 61 64 65 72 20 6d 6f 64 75 6c 65 20  I header module 
0110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0120: 20 20 20 20 20 20 2a 0a 2a 20 20 20 20 20 20 20        *.*       
0130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0170: 2a 0a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20  *.*             
0180: 20 20 20 20 54 72 61 6e 73 6c 61 74 65 64 20 66      Translated f
0190: 72 6f 6d 20 4d 69 6e 47 57 20 57 69 6e 64 6f 77  rom MinGW Window
01a0: 73 20 68 65 61 64 65 72 73 20 20 20 20 20 20 20  s headers       
01b0: 20 20 20 20 20 20 20 20 20 20 2a 0a 2a 20 20 20            *.*   
01c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
01f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0200: 20 20 20 20 2a 0a 2a 20 20 20 20 20 20 20 20 20      *.*         
0210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 6c                Pl
0220: 61 63 65 64 20 69 6e 74 6f 20 70 75 62 6c 69 63  aced into public
0230: 20 64 6f 6d 61 69 6e 20 20 20 20 20 20 20 20 20   domain         
0240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a                *.
0250: 5c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  \***************
0260: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0270: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0280: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0290: 2a 2a 2a 2a 2a 2a 2a 2a 2f 0a 2f 2f 20 44 6f 6e  ********/.// Don
02a0: 27 74 20 69 6e 63 6c 75 64 65 20 74 68 69 73 20  't include this 
02b0: 66 69 6c 65 20 64 69 72 65 63 74 6c 79 2c 20 75  file directly, u
02c0: 73 65 20 77 69 6e 33 32 2e 73 65 63 75 72 69 74  se win32.securit
02d0: 79 20 69 6e 73 74 65 61 64 2e 0a 6d 6f 64 75 6c  y instead..modul
02e0: 65 20 77 69 6e 33 32 2e 73 65 63 65 78 74 3b 0a  e win32.secext;.
02f0: 70 72 61 67 6d 61 28 6c 69 62 2c 20 22 73 65 63  pragma(lib, "sec
0300: 75 72 33 32 2e 6c 69 62 22 29 3b 0a 0a 70 72 69  ur32.lib");..pri
0310: 76 61 74 65 20 69 6d 70 6f 72 74 20 77 69 6e 33  vate import win3
0320: 32 2e 77 33 32 61 70 69 2c 20 77 69 6e 33 32 2e  2.w32api, win32.
0330: 77 69 6e 64 65 66 3b 0a 0a 73 74 61 74 69 63 20  windef;..static 
0340: 61 73 73 65 72 74 20 28 5f 57 49 4e 33 32 5f 57  assert (_WIN32_W
0350: 49 4e 4e 54 20 3e 3d 20 30 78 30 35 30 31 2c 0a  INNT >= 0x0501,.
0360: 20 20 22 53 65 63 45 78 74 20 69 73 20 6f 6e 6c    "SecExt is onl
0370: 79 20 61 76 61 69 6c 61 62 6c 65 20 6f 6e 20 57  y available on W
0380: 69 6e 64 6f 77 73 58 50 20 61 6e 64 20 6c 61 74  indowsXP and lat
0390: 65 72 22 29 3b 0a 0a 65 6e 75 6d 20 45 58 54 45  er");..enum EXTE
03a0: 4e 44 45 44 5f 4e 41 4d 45 5f 46 4f 52 4d 41 54  NDED_NAME_FORMAT
03b0: 20 7b 0a 09 4e 61 6d 65 55 6e 6b 6e 6f 77 6e 2c   {..NameUnknown,
03c0: 0a 09 4e 61 6d 65 46 75 6c 6c 79 51 75 61 6c 69  ..NameFullyQuali
03d0: 66 69 65 64 44 4e 2c 0a 09 4e 61 6d 65 53 61 6d  fiedDN,..NameSam
03e0: 43 6f 6d 70 61 74 69 62 6c 65 2c 0a 09 4e 61 6d  Compatible,..Nam
03f0: 65 44 69 73 70 6c 61 79 2c 20 20 20 20 20 20 20  eDisplay,       
0400: 20 20 20 2f 2f 20 3d 20 20 33 0a 09 4e 61 6d 65     // =  3..Name
0410: 55 6e 69 71 75 65 49 64 20 20 20 20 20 20 20 20  UniqueId        
0420: 20 20 20 20 20 3d 20 20 36 2c 0a 09 4e 61 6d 65       =  6,..Name
0430: 43 61 6e 6f 6e 69 63 61 6c 2c 0a 09 4e 61 6d 65  Canonical,..Name
0440: 55 73 65 72 50 72 69 6e 63 69 70 61 6c 2c 0a 09  UserPrincipal,..
0450: 4e 61 6d 65 43 61 6e 6f 6e 69 63 61 6c 45 78 2c  NameCanonicalEx,
0460: 0a 09 4e 61 6d 65 53 65 72 76 69 63 65 50 72 69  ..NameServicePri
0470: 6e 63 69 70 61 6c 2c 20 2f 2f 20 3d 20 31 30 0a  ncipal, // = 10.
0480: 09 4e 61 6d 65 44 6e 73 44 6f 6d 61 69 6e 20 20  .NameDnsDomain  
0490: 20 20 20 20 20 20 20 20 20 20 3d 20 31 32 0a 7d            = 12.}
04a0: 0a 61 6c 69 61 73 20 45 58 54 45 4e 44 45 44 5f  .alias EXTENDED_
04b0: 4e 41 4d 45 5f 46 4f 52 4d 41 54 2a 20 50 45 58  NAME_FORMAT* PEX
04c0: 54 45 4e 44 45 44 5f 4e 41 4d 45 5f 46 4f 52 4d  TENDED_NAME_FORM
04d0: 41 54 3b 0a 0a 65 78 74 65 72 6e 20 28 57 69 6e  AT;..extern (Win
04e0: 64 6f 77 73 29 20 7b 0a 09 42 4f 4f 4c 45 41 4e  dows) {..BOOLEAN
04f0: 20 47 65 74 43 6f 6d 70 75 74 65 72 4f 62 6a 65   GetComputerObje
0500: 63 74 4e 61 6d 65 41 28 45 58 54 45 4e 44 45 44  ctNameA(EXTENDED
0510: 5f 4e 41 4d 45 5f 46 4f 52 4d 41 54 2c 20 4c 50  _NAME_FORMAT, LP
0520: 53 54 52 2c 20 50 55 4c 4f 4e 47 29 3b 0a 09 42  STR, PULONG);..B
0530: 4f 4f 4c 45 41 4e 20 47 65 74 43 6f 6d 70 75 74  OOLEAN GetComput
0540: 65 72 4f 62 6a 65 63 74 4e 61 6d 65 57 28 45 58  erObjectNameW(EX
0550: 54 45 4e 44 45 44 5f 4e 41 4d 45 5f 46 4f 52 4d  TENDED_NAME_FORM
0560: 41 54 2c 20 4c 50 57 53 54 52 2c 20 50 55 4c 4f  AT, LPWSTR, PULO
0570: 4e 47 29 3b 0a 09 42 4f 4f 4c 45 41 4e 20 47 65  NG);..BOOLEAN Ge
0580: 74 55 73 65 72 4e 61 6d 65 45 78 41 28 45 58 54  tUserNameExA(EXT
0590: 45 4e 44 45 44 5f 4e 41 4d 45 5f 46 4f 52 4d 41  ENDED_NAME_FORMA
05a0: 54 2c 20 4c 50 53 54 52 2c 20 50 55 4c 4f 4e 47  T, LPSTR, PULONG
05b0: 29 3b 0a 09 42 4f 4f 4c 45 41 4e 20 47 65 74 55  );..BOOLEAN GetU
05c0: 73 65 72 4e 61 6d 65 45 78 57 28 45 58 54 45 4e  serNameExW(EXTEN
05d0: 44 45 44 5f 4e 41 4d 45 5f 46 4f 52 4d 41 54 2c  DED_NAME_FORMAT,
05e0: 20 4c 50 57 53 54 52 2c 20 50 55 4c 4f 4e 47 29   LPWSTR, PULONG)
05f0: 3b 0a 09 42 4f 4f 4c 45 41 4e 20 54 72 61 6e 73  ;..BOOLEAN Trans
0600: 6c 61 74 65 4e 61 6d 65 41 28 4c 50 43 53 54 52  lateNameA(LPCSTR
0610: 2c 20 45 58 54 45 4e 44 45 44 5f 4e 41 4d 45 5f  , EXTENDED_NAME_
0620: 46 4f 52 4d 41 54 2c 0a 09 20 20 45 58 54 45 4e  FORMAT,..  EXTEN
0630: 44 45 44 5f 4e 41 4d 45 5f 46 4f 52 4d 41 54 2c  DED_NAME_FORMAT,
0640: 20 4c 50 53 54 52 2c 20 50 55 4c 4f 4e 47 29 3b   LPSTR, PULONG);
0650: 0a 09 42 4f 4f 4c 45 41 4e 20 54 72 61 6e 73 6c  ..BOOLEAN Transl
0660: 61 74 65 4e 61 6d 65 57 28 4c 50 43 57 53 54 52  ateNameW(LPCWSTR
0670: 2c 20 45 58 54 45 4e 44 45 44 5f 4e 41 4d 45 5f  , EXTENDED_NAME_
0680: 46 4f 52 4d 41 54 2c 0a 09 20 20 45 58 54 45 4e  FORMAT,..  EXTEN
0690: 44 45 44 5f 4e 41 4d 45 5f 46 4f 52 4d 41 54 2c  DED_NAME_FORMAT,
06a0: 20 4c 50 57 53 54 52 2c 20 50 55 4c 4f 4e 47 29   LPWSTR, PULONG)
06b0: 3b 0a 7d 0a 0a 76 65 72 73 69 6f 6e 20 28 55 6e  ;.}..version (Un
06c0: 69 63 6f 64 65 29 20 7b 0a 09 61 6c 69 61 73 20  icode) {..alias 
06d0: 47 65 74 43 6f 6d 70 75 74 65 72 4f 62 6a 65 63  GetComputerObjec
06e0: 74 4e 61 6d 65 57 20 47 65 74 43 6f 6d 70 75 74  tNameW GetComput
06f0: 65 72 4f 62 6a 65 63 74 4e 61 6d 65 3b 0a 09 61  erObjectName;..a
0700: 6c 69 61 73 20 47 65 74 55 73 65 72 4e 61 6d 65  lias GetUserName
0710: 45 78 57 20 47 65 74 55 73 65 72 4e 61 6d 65 45  ExW GetUserNameE
0720: 78 3b 0a 09 61 6c 69 61 73 20 54 72 61 6e 73 6c  x;..alias Transl
0730: 61 74 65 4e 61 6d 65 57 20 54 72 61 6e 73 6c 61  ateNameW Transla
0740: 74 65 4e 61 6d 65 3b 0a 7d 20 65 6c 73 65 20 7b  teName;.} else {
0750: 0a 09 61 6c 69 61 73 20 47 65 74 43 6f 6d 70 75  ..alias GetCompu
0760: 74 65 72 4f 62 6a 65 63 74 4e 61 6d 65 41 20 47  terObjectNameA G
0770: 65 74 43 6f 6d 70 75 74 65 72 4f 62 6a 65 63 74  etComputerObject
0780: 4e 61 6d 65 3b 0a 09 61 6c 69 61 73 20 47 65 74  Name;..alias Get
0790: 55 73 65 72 4e 61 6d 65 45 78 41 20 47 65 74 55  UserNameExA GetU
07a0: 73 65 72 4e 61 6d 65 45 78 3b 0a 09 61 6c 69 61  serNameEx;..alia
07b0: 73 20 54 72 61 6e 73 6c 61 74 65 4e 61 6d 65 41  s TranslateNameA
07c0: 20 54 72 61 6e 73 6c 61 74 65 4e 61 6d 65 3b 0a   TranslateName;.
07d0: 7d 0a                                            }.