Como criar chaves usando o Visual Basic .NET para uso em autenticação de formulários

Voltar para o início

Requisitos

• Microsoft Windows 2000 ou Microsoft Windows XP
• Microsoft .NET framework
• Microsoft Internet Information Services (IIS)

Voltar para o início

Criar o projeto

1. Inicie o Microsoft Visual Studio NET..
2. No menu arquivo , aponte para novo e, em seguida, clique em Project .
3. Na área Project Types , clique em Projetos do Visual Basic .
4. Na área modelos , clique em Aplicativo de console .
5. Na caixa de texto nome , digite HashConfigVb e, em seguida, clique em OK .

Voltar para o início

Escrever o código para uma senha de hash

• O primeiro argumento é o número de bytes é usado para criar o atributo decryptionKey .
• O segundo argumento é o número de bytes é usado para criar o atributo validationKey .

1. Adicione um novo arquivo de classe chamado KeyCreator ao seu projeto Visual Basic.
2. Replace the existing code in the KeyCreator.vb file with the following code:

   Imports System
   Imports System.Text
   Imports System.Security.Cryptography
   
   Namespace Crypto
     Public Class KeyCreator
   	
       Public Shared Sub CreateMachineKey()
         Dim commandLineArgs As String()
         commandLineArgs = System.Environment.GetCommandLineArgs()
   
         Dim decryptionKey As String
         decryptionKey = CreateKey(System.Convert.ToInt32(commandLineArgs(1)))
         Dim validationKey As String
         validationKey = CreateKey(System.Convert.ToInt32(commandLineArgs(2)))
   
         Console.WriteLine("<machineKey validationKey=""{0}"" decryptionKey=""{1}"" validation=""SHA1""/>", _
         validationKey, decryptionKey)
        End Sub
   
        Public Shared Function CreateKey(numBytes As Integer) As String
          Dim rng As RNGCryptoServiceProvider = New RNGCryptoServiceProvider()
          Dim buff(numBytes -1) As Byte
   
          rng.GetBytes(buff)
   				
          Return BytesToHexString(buff)
        End Function
    
        Public Shared Function BytesToHexString(bytes As Byte()) As String
          Dim hexString As StringBuilder = New StringBuilder(64)
          Dim counter as Integer
   
          For counter = 0 To bytes.Length - 1
            hexString.Append(String.Format("{0:X2}", bytes(counter)))
          Next
   
          Return hexString.ToString()
       End Function
   
     End Class
   End Namespace
   					

3. Abra o arquivo Module1.vb que é criado por padrão e em seguida, adicione o código seguinte a sub-rotina principal :

       Dim MyKeyCreator As New Crypto.KeyCreator()
       MyKeyCreator.CreateMachineKey()
   					

4. Crie o aplicativo.

Voltar para o início

Gerar os hashes

<machineKey validationKey="08CE6B478DCE73..........E566D8AC5D1C045BA60"
            decryptionKey="4252D6B2268.........67F451CE65D0F2ABE9BCD3A"
            validation="SHA1"/>
					

Voltar para o início

Atualizar o arquivo de configuração

1. Localize o Machine.config ou Web.config arquivo.
2. Localize a seção <system.web> no arquivo de configuração.
3. Substitua a seção <machinekey> com a saída do aplicativo de console. Se a seção <machinekey> não existir, crie-a.
4. Salve o arquivo de configuração.
5. Reinicie o IIS em todos os servidores no farm da Web para que as alterações Machine.config entrem em vigor.

Voltar para o início

Solução de problemas

• Quando você usa autenticação de formulários.
• Quando você executa o estado da sessão no modo StateServer.
• Quando você quiser ViewState esteja disponível em uma Web farm porque o atributo enableViewStateMAC está definido como True por padrão.

Voltar para o início