GUI Anpassungen und Salt generierung bei Create User

login/CreateUser.aspx.vb

@@ -1,7 +1,8 @@
 
 Partial Class login_CreateUser
     Inherits System.Web.UI.Page
-
+    Dim salt As Byte()
+    Dim initrandzahl As Integer
     Protected Sub Page_Load(sender As Object, e As EventArgs)
         If User.Identity.IsAuthenticated = False Then
             FormsAuthentication.RedirectToLoginPage()
@@ -14,6 +15,9 @@ Partial Class login_CreateUser
             VERAG_VARIABLES.initerrorcount()
         End If
 
+        salt = VERAG_VARIABLES.GenerateSalt(VERAG_VARIABLES.RandomInteger(VERAG_VARIABLES.RandomInteger(0, Math.Pow(2, 6)), VERAG_VARIABLES.RandomInteger(Math.Pow(2, 7), Math.Pow(2, 10))))
+        initrandzahl = VERAG_VARIABLES.getiterationnumber
+
     End Sub
 
     Protected Sub LinkButton1_Click(sender As Object, e As EventArgs)
@@ -36,7 +40,7 @@ Partial Class login_CreateUser
         End If
     End Sub
 
-    Protected Sub btn_Save_Changes_Click(sender As Object, e As EventArgs)
+    Protected Async Sub btn_Save_Changes_Click(sender As Object, e As EventArgs)
         Dim validFileTypes As String() = {"bmp", "gif", "png", "jpg", "jpeg"}
         Dim ext As String = System.IO.Path.GetExtension(FileUpload_Desktop.PostedFile.FileName)
         Dim isValidFile As Boolean = False
@@ -57,6 +61,9 @@ Partial Class login_CreateUser
             lbl_message_desktop.ForeColor = System.Drawing.Color.Green
             lbl_message_desktop.Text = "File uploaded successfully."
         End If
+        If String.IsNullOrEmpty(txt_PW.Text) = False AndAlso String.IsNullOrEmpty(txt_PW_WH.Text) = False Then
+            Dim hashpw As Byte() = Await VERAG_VARIABLES.HashPassword(txt_PW_WH.Text, salt, initrandzahl, VERAG_VARIABLES.RandomInteger(0, Math.Pow(2, 7)))
+        End If
     End Sub