Anpassung Verhalten Menüleitse und Rechnungsaussehen

This commit is contained in:
ja
2021-12-01 15:54:26 +01:00
parent 8a85ececfd
commit 8b62dd33b3
4 changed files with 9 additions and 9 deletions

View File

@@ -238,7 +238,7 @@ Partial Class login_FLEX
Try
Dim salt As String = VERAG_VARIABLES.GenerateSalt(My1stRandomNumber)
Dim passw As String = password
token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(VERAG_VARIABLES.HashPassword(passw, salt, 10101, My1stRandomNumber))
token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(VERAG_VARIABLES.HashPassword(passw, salt, 101, My1stRandomNumber))
Return token
Catch Ex As Exception
'Dim Msg, Style, Title As String
@@ -250,7 +250,7 @@ Partial Class login_FLEX
'genToken(username, password, email)
Dim salt As String = VERAG_VARIABLES.GenerateSalt(My1stRandomNumber)
Dim passw As String = password
token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(VERAG_VARIABLES.HashPassword(passw, salt, 10101, My2ndRandomNumber))
token = VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(VERAG_VARIABLES.HashPassword(passw, salt, 101, My2ndRandomNumber))
'Else