From 438f434ab1d9c65b380540454086b2474449c8ea Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Sun, 13 Jan 2019 11:41:08 +0000
Subject: [PATCH] 39_alexa.pm: return empty value if decrypting nothing instead
 of an error

git-svn-id: https://svn.fhem.de/fhem/trunk@18236 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/39_alexa.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/39_alexa.pm b/fhem/FHEM/39_alexa.pm
index 3c76dca37..f0e2222a9 100644
--- a/fhem/FHEM/39_alexa.pm
+++ b/fhem/FHEM/39_alexa.pm
@@ -1213,10 +1213,11 @@ alexa_encrypt($)
 {
   my ($decoded) = @_;
   my $key = getUniqueId();
-  my $encoded;
 
+  return "" if( !$decoded );
   return $decoded if( $decoded =~ /^crypt:(.*)/ );
 
+  my $encoded;
   for my $char (split //, $decoded) {
     my $encode = chop($key);
     $encoded .= sprintf("%.2x",ord($char)^ord($encode));
@@ -1230,10 +1231,12 @@ alexa_decrypt($)
 {
   my ($encoded) = @_;
   my $key = getUniqueId();
-  my $decoded;
+
+  return "" if( !$encoded );
 
   $encoded = $1 if( $encoded =~ /^crypt:(.*)/ );
 
+  my $decoded;
   for my $char (map { pack('C', hex($_)) } ($encoded =~ /(..)/g)) {
     my $decode = chop($key);
     $decoded .= chr(ord($char)^ord($decode));