Lines Matching refs:uuid
36 my($uuid, $pubk, $cfg_list) = unpack 'H32 a256 a*', tpm_cmd_nohdr 0x1C2,
38 $uuid = join "-", unpack 'a8a4a4a4a12', $uuid;
43 print "Group $group ($uuid):\n";
77 my($uuid, $pubkey, $pksig) = unpack 'H32 a256 a*', tpm_cmd_nohdr 0x1C2, pack 'N(a*)*',
79 $uuid = join "-", unpack 'a8a4a4a4a12', $uuid;
80 print "$uuid\n";
81 mkdir "group-$uuid";
82 open F, ">group-$uuid/aik.pub";
85 open F, ">group-$uuid/aik.priv-ca-data";
108 my($group,$uuid) = @_;
109 if ($uuid) {
110 $uuid =~ s/-//g;
111 $uuid = pack('H32', $uuid)."\0";
113 $uuid = '';
115 $uuid = unpack 'H32', tpm_cmd_nohdr 0x1C2, pack 'NNa*', 0x02000204, $group, $uuid;
116 printf "%s\n", join "-", unpack 'a8a4a4a4a12', $uuid;
120 my($uuid) = @_;
121 $uuid =~ s/-//g;
122 tpm_cmd_nohdr 0x1C2, pack 'NH32', 0x02000205, $uuid;