FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-12 02:39:57 +00:00
Code Issues Releases Wiki Activity

HMLan:AES handling

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10053 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2015-11-29 19:10:00 +00:00
parent cdca546fb5
commit 3534c94909
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/FHEM/00_HMLAN.pm
View File

@ -927,13 +927,26 @@ sub HMLAN_assignIDs($){
sub HMLAN_writeAesKey($) {#####################################################
my ($name) = @_;
return if (!$name || !$defs{$name} || $defs{$name}{TYPE} ne "HMLAN");
my %keys = ();
my $vccu = InternalVal($name,"owner_CCU",$name);
$vccu = $name if(!AttrVal($vccu,"hmKey",""));
foreach my $i (1..3){
my ($kNo,$k) = split(":",AttrVal($vccu,"hmKey".($i== 1?"":$i),""));
HMLAN_SimpleWrite($defs{$name}, "Y0$i,".($k?"$kNo,$k":"00,"));
}
}
if (defined($kNo) && defined($k)) {
$keys{$kNo} = $k;
}
}
my @kNos = reverse(sort(keys(%keys)));
foreach my $i (1..3){
my $k;
my $kNo;
if (defined($kNos[$i-1])) {
$kNo = $kNos[$i-1];
$k = $keys{$kNo};
}
HMLAN_SimpleWrite($defs{$name}, "Y0$i,".($k?"$kNo,$k":"00,"));
}
}
sub HMLAN_KeepAlive($) {#######################################################
my($in ) = shift;