FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-17 17:36:01 +00:00
Code Issues Releases Wiki Activity

10_CUL_HM: AES handling

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8887 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2015-07-05 05:05:40 +00:00
parent 1433732c08
commit d3bdb8656b
1 changed files with 13 additions and 14 deletions

27
fhem/FHEM/10_CUL_HM.pm

@ -901,31 +901,27 @@ sub CUL_HM_hmInitMsg($){ #define device init msg for HMLAN
my $rxt = CUL_HM_getRxType($hash);
my $id = CUL_HM_hash2Id($hash);
my @p;
my %aH;
my $name = $hash->{NAME};
my $mask = ($hash->{helper}{role}{chn} && AttrVal($name,"aesCommReq",0))?2:0;
foreach (grep /channel/,keys %{$hash}){
my $chNo = substr($_,8,2);
$aH{$chNo} = AttrVal($hash->{$_},"aesCommReq",0);
}
my $mask = 0;
foreach my $no (keys %aH){
my $hNo = hex($no);
$mask |= (2 ** $hNo) * $aH{$no};
$mask |= (2 ** hex(substr($_,8,2))) if(AttrVal($hash->{$_},"aesCommReq",0));
}
if ($mask<256) {$mask = join("",reverse unpack "(A2)*",sprintf("%02X",$mask));}
elsif ($mask<65536) {$mask = join("",reverse unpack "(A2)*",sprintf("%04X",$mask));}
else {$mask = join("",reverse unpack "(A2)*",sprintf("%08X",$mask));}
my $key = sprintf("%02X",AttrVal($hash->{NAME},"aesKey","01"));
my ($highestKey, undef) = CUL_HM_getKeys($hash);
my $key = sprintf("%02X",AttrVal($name,"aesKey",$highestKey));
@p = ("$id","00",$key,$mask) if (!$hash->{helper}{role}{vrt});
if (AttrVal($hash->{NAME},"aesCommReq",0)){
if (AttrVal($name,"aesCommReq",0)){
$p[1] = sprintf("%02X",(hex($p[1]) + 1));
$p[3] = ($p[3]eq "")?"1E":$p[3];
}
$hash->{helper}{io}{newChn} = "";
$hash->{helper}{io}{rxt} = (($rxt & 0x18) #wakeup || #lazyConfig
&& AttrVal($hash->{NAME},"model",0) ne "HM-WDS100-C6-O") #Todo - not completely clear how it works
&& AttrVal($name,"model",0) ne "HM-WDS100-C6-O") #Todo - not completely clear how it works
?2:0;
$hash->{helper}{io}{p} = \@p;
CUL_HM_hmInitMsgUpdt($hash);
@ -6385,11 +6381,14 @@ sub CUL_HM_getKeys($) { #in: device-hash out:highest index, hash with keys
$keys{0} = pack("H*", "A4E375C6B09FD185F27C4E96FC273AE4"); #index 0: eQ-3 default
if (defined($hash->{IODev}->{owner_CCU})) {
my $vccu = $hash->{IODev}->{owner_CCU};
$vccu = $hash->{IODev}->{NAME} if(!AttrVal($vccu,"hmKey",""));# if keys are not in vccu
foreach my $i (1..3){
my ($kNo,$k) = split(":",AttrVal($vccu,"hmKey".($i== 1?"":$i),""));
$kNo = hex($kNo);
if (defined($k)) {
$keys{hex($kNo)} = pack("H*", $k);
$highestIdx = hex($kNo) if (hex($kNo) > $highestIdx);
$keys{$kNo} = pack("H*", $k);
$highestIdx = $kNo if ($kNo > $highestIdx);
}
}
}