Fix SHA384/512 examples (#9828)

* Fix SHA384/512 examples

* Add project files to make Snippet Builder happy

* Made snippets actually compile

Author: vcsjones

snippets/csharp/System.Security.Cryptography/SHA384/Overview/source.cs

@@ -12,8 +12,11 @@ protected void Method()
 // <Snippet1>
 byte[] data = new byte[DATA_SIZE];
 byte[] result;
-SHA384 shaM = new SHA384Managed();
-result = shaM.ComputeHash(data);
+
+using (SHA384 sha384 = SHA384.Create())
+{
+    result = sha384.ComputeHash(data);
+}
 // </Snippet1>
  }
 }

snippets/csharp/System.Security.Cryptography/SHA384Managed/Overview/source.cs

@@ -13,8 +13,10 @@ protected void Method()
 byte[] data = new byte[DATA_SIZE];
 byte[] result;
 
-SHA384 shaM = new SHA384Managed();
-result = shaM.ComputeHash(data);
+using (SHA384 shaM = new SHA384Managed())
+{
+    result = shaM.ComputeHash(data);
+}
 // </Snippet1>
  }
 }

snippets/csharp/System.Security.Cryptography/SHA512/Overview/source.cs

@@ -12,8 +12,11 @@ protected void Method()
 // <Snippet1>
 byte[] data = new byte[DATA_SIZE];
 byte[] result;
-SHA512 shaM = new SHA512Managed();
-result = shaM.ComputeHash(data);
+
+using (SHA512 sha512 = SHA512.Create())
+{
+    result = sha512.ComputeHash(data);
+}
 // </Snippet1>
  }
 }

snippets/csharp/System.Security.Cryptography/SHA512Managed/Overview/source.cs

@@ -13,8 +13,10 @@ protected void Method()
 byte[] data = new byte[DATA_SIZE];
 byte[] result;
 
-SHA512 shaM = new SHA512Managed();
-result = shaM.ComputeHash(data);
+using (SHA512 shaM = new SHA512Managed())
+{
+    result = shaM.ComputeHash(data);
+}
 // </Snippet1>
  }
 }

snippets/visualbasic/VS_Snippets_CLR_Classic/classic SHA384 Example/VB/source.vb

@@ -2,15 +2,17 @@
 Imports System.ComponentModel
 Imports System.Security.Cryptography
 
-Public Class Sample
-    Protected DATA_SIZE As Integer = 1024
-    
-    Protected Sub Method()
+Public Module Sample
+    Private DATA_SIZE As Integer = 1024
+
+    Public Sub Main()
 ' <Snippet1>
- Dim data(DATA_SIZE) As Byte
- Dim result() As Byte
- Dim shaM As New SHA384Managed()
- result = shaM.ComputeHash(data)
+Dim data(DATA_SIZE) As Byte
+Dim result() As Byte
+
+Using sha384 As SHA384 = SHA384.Create()
+    result = sha384.ComputeHash(data)
+End Using
 ' </Snippet1>
     End Sub
-End Class
+End Module

snippets/visualbasic/VS_Snippets_CLR_Classic/classic SHA384 Example/VB/vb.vbproj

@@ -0,0 +1,9 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <RootNamespace>vb</RootNamespace>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+</Project>

snippets/visualbasic/VS_Snippets_CLR_Classic/classic SHA384Managed Example/VB/source.vb

@@ -2,16 +2,16 @@
 Imports System.ComponentModel
 Imports System.Security.Cryptography
 
-Public Class Sample
-    Protected DATA_SIZE As Integer = 1024
-    
-    Protected Sub Method()
+Public Module Sample
+    Private DATA_SIZE As Integer = 1024
+
+    Public Sub Main()
 ' <Snippet1>
- Dim data(DATA_SIZE) As Byte
- Dim result() As Byte
-        
- Dim shaM As New SHA384Managed()
- result = shaM.ComputeHash(data)
+Dim data(DATA_SIZE) As Byte
+Dim result() As Byte
+Using shaM As New SHA384Managed()
+    result = shaM.ComputeHash(data)
+End Using
 ' </Snippet1>
     End Sub
-End Class
+End Module

snippets/visualbasic/VS_Snippets_CLR_Classic/classic SHA384Managed Example/VB/vb.vbproj

@@ -0,0 +1,9 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <RootNamespace>vb</RootNamespace>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+</Project>

snippets/visualbasic/VS_Snippets_CLR_Classic/classic SHA512 Example/VB/source.vb

@@ -2,15 +2,17 @@
 Imports System.ComponentModel
 Imports System.Security.Cryptography
 
-Public Class Sample
-    Protected DATA_SIZE As Integer = 1024
-    
-    Protected Sub Method()
+Public Module Sample
+    Private DATA_SIZE As Integer = 1024
+
+    Public Sub Main()
 ' <Snippet1>
- Dim data(DATA_SIZE) As Byte
- Dim result() As Byte
- Dim shaM As New SHA512Managed()
- result = shaM.ComputeHash(data)
+Dim data(DATA_SIZE) As Byte
+Dim result() As Byte
+
+Using sha512 As SHA512 = SHA512.Create()
+    result = sha512.ComputeHash(data)
+End Using
 ' </Snippet1>
     End Sub
-End Class
+End Module

snippets/visualbasic/VS_Snippets_CLR_Classic/classic SHA512 Example/VB/vb.vbproj

@@ -0,0 +1,9 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <RootNamespace>vb</RootNamespace>
+    <TargetFramework>net6.0</TargetFramework>
+  </PropertyGroup>
+
+</Project>