diff --git a/controls_TeslaPowerwall2AC.txt b/controls_TeslaPowerwall2AC.txt
index 9936ea2..6177318 100644
--- a/controls_TeslaPowerwall2AC.txt
+++ b/controls_TeslaPowerwall2AC.txt
@@ -1 +1,2 @@
-UPD 2021-04-21_10:01:00 6866 FHEM/46_TeslaPowerwall2AC.pm
+UPD 2021-04-22_08:19:01 6866 FHEM/46_TeslaPowerwall2AC.pm
+UPD 2021-04-22_08:24:27 29401 lib/FHEM/Tesla/Powerwall.pm
diff --git a/lib/FHEM/Tesla/Powerwall.pm b/lib/FHEM/Tesla/Powerwall.pm
index 6898a1f..f5f6e9d 100644
--- a/lib/FHEM/Tesla/Powerwall.pm
+++ b/lib/FHEM/Tesla/Powerwall.pm
@@ -935,35 +935,6 @@ sub CreateUri {
     return ( $uri, $method, $header, $data, $path );
 }
 
-sub StorePassword {
-    my $hash     = shift;
-    my $name     = shift;
-    my $password = shift;
-
-    my $index   = $hash->{TYPE} . q{_} . $name . q{_passwd};
-    my $key     = ::getUniqueId() . $index;
-    my $enc_pwd = q{};
-
-    if ( eval qq(use Digest::MD5;1) ) {
-
-        $key = Digest::MD5::md5_hex( unpack "H*", $key );
-        $key .= Digest::MD5::md5_hex($key);
-    }
-
-    for my $char ( split //, $password ) {
-
-        my $encode = chop($key);
-        $enc_pwd .= sprintf( "%.2x", ord($char) ^ ord($encode) );
-        $key = $encode . $key;
-    }
-
-    my $err = ::setKeyValue( $index, $enc_pwd );
-    return qq(error while saving the password - ${err})
-      if ( defined($err) );
-
-    return q{password successfully saved};
-}
-
 sub ReadPassword {
     my $hash = shift;
     my $name = shift;