Ignore Expired Certificate

BJReplay · Apr 17, 2022 · 6531905 · 6531905
1 parent 99facf2
commit 6531905
Show file tree

Hide file tree

Showing 5 changed files with 21 additions and 2 deletions.
diff --git a/PowerwallService/App.config b/PowerwallService/App.config
@@ -221,6 +221,9 @@
             <setting name="PWCloudRefreshToken" serializeAs="String">
                 <value />
             </setting>
+            <setting name="IgnoreCertificates" serializeAs="String">
+                <value>False</value>
+            </setting>
         </PowerwallService.My.MySettings>
     </applicationSettings>
   <runtime>

diff --git a/PowerwallService/My Project/AssemblyInfo.vb b/PowerwallService/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("4.8.1.0")>
-<Assembly: AssemblyFileVersion("4.8.1.0")>
+<Assembly: AssemblyVersion("4.8.2.0")>
+<Assembly: AssemblyFileVersion("4.8.2.0")>
diff --git a/PowerwallService/My Project/Settings.Designer.vb b/PowerwallService/My Project/Settings.Designer.vb
diff --git a/PowerwallService/My Project/Settings.settings b/PowerwallService/My Project/Settings.settings
@@ -241,5 +241,8 @@
     <Setting Name="PWCloudRefreshToken" Type="System.String" Scope="Application">
       <Value Profile="(Default)" />
     </Setting>
+    <Setting Name="IgnoreCertificates" Type="System.Boolean" Scope="Application">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
   </Settings>
 </SettingsFile>
diff --git a/PowerwallService/PowerwallService.vb b/PowerwallService/PowerwallService.vb
@@ -128,6 +128,10 @@ Public Class PowerwallService
     Protected Overrides Sub OnStart(ByVal args() As String)
         EventLog.WriteEntry("Powerwall Service Starting", EventLogEntryType.Information, 100)
 
+        If My.Settings.IgnoreCertificates Then
+            System.Net.ServicePointManager.ServerCertificateValidationCallback = Function(se As Object, cert As System.Security.Cryptography.X509Certificates.X509Certificate, chain As System.Security.Cryptography.X509Certificates.X509Chain, sslerror As System.Net.Security.SslPolicyErrors) True
+        End If
+
         SixSecondTimer.Interval = 6 * 1000 ' Every Six Seconds
         SixSecondTimer.AutoReset = True
         AddHandler SixSecondTimer.Elapsed, AddressOf OnSixSecondTimer