Visualizza wikitesto di Ottenere un Identificativo Univoco Universale - UUID

Per ottenere un Identificativo Univoco Universale - [https://it.wikipedia.org/wiki/Universally_unique_identifier UUID] <SUP>&#091;[[#Note|Nota 1]]&#093;</sup> si possono invocare i seguenti file di sistema: <SUP>&#091;[[#Note|Nota 2]]&#093;</sup>
 *  <FONT Color=#B22222><B>/etc/machine-id</b></font>  = ritorna un UUID statico (è sempre lo stesso) durante la sessione.

 *  <FONT Color=#B22222><B>/proc/sys/kernel/random/uuid</b></font>  = ritorna un UUID dinamico (varía ogni volta che si invoca il file di sistema che lo contiene).
Vediamo un esempio pratico:
 Public Sub Main()
 
  Print RTrim(File.Load("/proc/sys/kernel/random/uuid"))
 
 End
Un altro esempio usando le sole risorse di Gambas:
 Public Sub Main()
 
  Print Hex(Rand32(), 8); "-"; Hex(Rand32() And &ffff&, 4); "-"; Hex((Rand32() And &0fff) Or &4000, 4); "-"; Hex((Rand32() And &3fff) + &8000, 4); "-"; Hex(Rand32() And &ffff&, 4); Hex(Rand32(), 8)
 
 End 
 
 Private Function Rand32() As Integer
 
  Dim dd As Integer = DateDiff("01/01/1970", Now, gb.Second)
  
  Return (Lsl(Rand(dd) And &03, 30)) Or (Lsl(Rand(dd) And &7fff, 15)) Or (Rand(dd) And &7fff)
 
 End

====Usare alcune funzioni della libreria libc.so.6====
 Library "libc:6"
 
 <FONT Color=gray>' ''void srand (unsigned int __seed)''
 ' ''Seed the random number generator with the given number.''</font>
 Private Extern srand(__seed As Integer)
 
 <FONT Color=gray>' ''int rand (void)''
 ' ''Return a random integer between 0 and RAND_MAX inclusive.''</font>
 Private Extern rand_C() As Integer Exec "rand"
 
 
 Public Sub Main()
 
 <FONT Color=gray>' ''"01/01/1970" è la data di inizio del "[https://it.wikipedia.org/wiki/Tempo_(Unix) Unix Time Stamp" - Epoch]:''</font>
  srand(DateDiff("01/01/1970", Now, gb.Second))
  
  Print Hex(Rand32(), 8); "-"; Hex(Rand32() And &ffff&, 4); "-"; Hex((Rand32() And &0fff) Or &4000, 4); "-"; Hex((Rand32() And &3fff) + &8000, 4); "-"; Hex(Rand32() And &ffff&, 4); Hex(Rand32(), 8)
 
 End 
 
 Private Function Rand32() As Integer
 
  Return (Lsl(rand_C() And &03, 30)) Or (Lsl(rand_C() And &7fff, 15)) Or (rand_C() And &7fff)
 
 End

====Usare una libreria esterna appositamente creata====
Si potrà usare anche una libreria esterna, appositamente creata, contenente alcune funzioni del API di "uuid".

Mostriamo un esempio pratico:
 <FONT Color=gray>' char * creauuid()</font>
 Private Extern creauuid() As Pointer In "/tmp/libcreauuid"
 
     
 Public Sub Main()
 
  Dim p As Pointer
 
  Creaso()
 
  p = creauuid()
 
  Print String@(p)
 
 End
 
      
 Private Procedure Creaso()
 
  File.Save("/tmp/libcreauuid.c", "#include <stdlib.h>\n#include <stdio.h>\n#include <uuid/uuid.h>\n\n" &
            "char out[UUID_STR_LEN]={0};\n\n"
            "char * creauuid() {\n\n" &
            "uuid_t i;\n\n" &
            "   uuid_generate(i);\n\n" &
            "   uuid_unparse_lower(i, out);\n\n" &
            "   return out;\n\n}")
 
  Shell "gcc -o /tmp/libcreauuid.so /tmp/libcreauuid.c -luuid -shared -fPIC" Wait
 
 End



=Note=
[1] Vedere anche la seguente pagina: https://digitalbunker.dev/understanding-how-uuids-are-generated/

[2] Vedere anche la seguente pagina: [[Identificare univocamente un computer]]