Änderungen codegenierung und verhashung pw

login/Change_PW.aspx.vb

@@ -7,7 +7,7 @@ Imports Konscious.Security.Cryptography
 
 Partial Class login_Change_PW
     Inherits System.Web.UI.Page
-    Dim intzahl As Integer = RandomInteger(Math.Pow(2, 7), Math.Pow(2, 10))
+    Dim intzahl As Integer = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 7), Math.Pow(2, 10))
     Dim intzahliterats As Integer = VERAG_VARIABLES.getiterationnumber
     Dim salt As Byte() = VERAG_VARIABLES.GenerateSalt(intzahl)
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -573,11 +573,4 @@ Partial Class login_Change_PW
             Return String.Empty
         End If
     End Function
-    Shared Function RandomInteger(ByVal min As Integer, ByVal _
-    max As Integer) As Integer
-        Dim rand As New RNGCryptoServiceProvider()
-        Dim one_byte() As Byte = {0}
-        rand.GetBytes(one_byte)
-        Return min + (max - min) * (one_byte(0) / 255)
-    End Function
 End Class