FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-07 16:59:18 +00:00
Code Issues Releases Wiki Activity

10_CUL_HM: move aes key to vccu - step1

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8711 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2015-06-07 17:35:33 +00:00
parent 6c4199361a
commit f1d9601b02
2 changed files with 43 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
fhem/FHEM/00_HMLAN.pm
View File

@ -196,6 +196,7 @@ sub HMLAN_Attr(@) {############################################################
elsif($aName =~ m /^hmKey/){
my $retVal= "";
if ($cmd eq "set"){
# eQ3 default key A4E375C6B09FD185F27C4E96FC273AE4
my $kno = ($aName eq "hmKey")?1:substr($aName,5,1);
my ($no,$val) = (sprintf("%02X",$kno),$aVal);
if ($aVal =~ m/:/){#number given
@ -886,14 +887,17 @@ sub HMLAN_assignIDs($){
sub HMLAN_writeAesKey($) {#####################################################
my ($name) = @_;
return if (!$name || !$defs{$name});
my $vccu = InternalVal($name,"owner_CCU",$name);
$vccu = $name if(!AttrVal($vccu,"hmKey",""));#General if keys are not in vccu
foreach my $i (1..5){
my ($kNo,$k) = split(":",AttrVal($vccu,"hmKey".($i== 1?"":$i),""));
HMLAN_SimpleWrite($defs{$name}, "Y0$i,".($k?"$kNo,$k":"00,"));
}
}
my ($k,$kNo);
foreach my $i (1..3){
($kNo,$k) = ("0".$i,AttrVal($name,"hmKey".($i== 1?"":$i),""));
($kNo,$k) = split(":",$k);
HMLAN_SimpleWrite($defs{$name}, "Y0$i,".($k?"$kNo,$k":"00,"));
}
}
sub HMLAN_KeepAlive($) {#######################################################
my($in ) = shift;
my(undef,$name) = split(':',$in);

36
fhem/FHEM/10_CUL_HM.pm
View File

@ -142,7 +142,8 @@ sub CUL_HM_Initialize($) {
."IODev IOList IOgrp "
."hmProtocolEvents:0_off,1_dump,2_dumpFull,3_dumpTrigger "
."rssiLog:1,0 " # enable writing RSSI to Readings (device only)
."actCycle " # also for action detector
."actCycle " # also for action detector
."hmKey hmKey2 hmKey3 hmKey4 hmKey5 "
;
$hash->{Attr}{devPhy} = # -- physical device only attributes
"serialNr firmware .stc .devInfo "
@ -741,7 +742,7 @@ sub CUL_HM_Attr(@) {#################################
}
}
elsif($attrName eq "IOList"){
return "use $attrName only for ccu device"
return "use $attrName only for vccu device"
if (!$hash->{helper}{role}{dev}
|| AttrVal($name,"model","CCU-FHEM") !~ "CCU-FHEM");
if($cmd eq "set"){$attr{$name}{$attrName} = $attrVal;}
@ -809,6 +810,33 @@ sub CUL_HM_Attr(@) {#################################
return "$attrName only usable for ActionDetector" if(CUL_HM_hash2Id($hash) ne "000000");#only for device
}
}
elsif($attrName =~ m /^hmKey/){
my $retVal= "";
return "use $attrName only for vccu device"
if (!$hash->{helper}{role}{dev}
|| AttrVal($name,"model","CCU-FHEM") !~ "CCU-FHEM");
if ($cmd eq "set"){
# eQ3 default key A4E375C6B09FD185F27C4E96FC273AE4
my $kno = ($attrName eq "hmKey")?1:substr($attrName,5,1);
my ($no,$val) = (sprintf("%02X",$kno),$attrVal);
if ($attrVal =~ m/:/){#number given
($no,$val) = split ":",$attrVal;
return "illegal number:$no" if (hex($no) < 1 || hex($no) > 255 || length($no) != 2);
}
$attr{$name}{$attrName} = "$no:".
(($val =~ m /^[0-9A-Fa-f]{32}$/ )
? $val
: unpack('H*', md5($val)));
$retVal = "$attrName set to $attr{$name}{$attrName}"
if($attrVal ne $attr{$name}{$attrName});
}
else{
delete $attr{$name}{$attrName};
}
HMLAN_writeAesKey($_) foreach (split ",",AttrVal($name,"IOList",""));
return $retVal;
}
CUL_HM_queueUpdtCfg($name) if ($updtReq);
return;
@ -7250,7 +7278,7 @@ sub CUL_HM_noDupInString($) {#return string with no duplicates, comma separated
}
sub CUL_HM_storeRssi(@){
my ($name,$peerName,$val,$mNo) = @_;
return if (!$val || !defined $defs{$name});
return if (!$val || !$name|| !defined $defs{$name});
my $hash = $defs{$name};
if (AttrVal($peerName,"subType","") eq "virtual"){
my $h = InternalVal($name,"IODev","");#CUL_HM_name2IoName($peerName);
@ -7637,7 +7665,7 @@ sub CUL_HM_getAttr($$$){#return attrValue - consider device if empty
sub CUL_HM_getAttrInt($@){#return attrValue as integer
my ($name,$attrName,$default) = @_;
$default = 0 if (!defined $default);
if($defs{$name}){
if($name && $defs{$name}){
my $val = (defined $attr{$name}{$attrName})
?$attr{$name}{$attrName}
:"";