A criação de chaves utilizando o Visual Basic .NET para utilização na autenticação de formulários

Voltar ao topo

Requisitos

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

Voltar ao topo

Criar projecto

1. Inicie o Microsoft Visual Studio NET..
2. No menu ficheiro , aponte para Novo e, em seguida, clique em projecto .
3. Na área Project Types , clique em Projectos do Visual Basic .
4. Na área modelos , clique em Consola de aplicação .
5. Na caixa de texto nome , escreva HashConfigVb e, em seguida, clique em OK .

Voltar ao topo

Escrever código para uma palavra-passe hash

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

1. Adicione um novo ficheiro de classe chamado KeyCreator ao projecto 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 ficheiro Module1.vb criado por predefinição e, em seguida, adicione o código seguinte na rotina de sub principal :

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

4. Compilar a aplicação.

Voltar ao topo

Gerar os hashes

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

Voltar ao topo

Actualizar o ficheiro de configuração

1. Localize a Machine.config ou a Web.config ficheiro.
2. Localize a secção de <system.web> no ficheiro de configuração.
3. Substitua a secção <machinekey> com o resultado da aplicação de consola. Se a secção <machinekey> não existir, crie-o.
4. Guarde o ficheiro de configuração.
5. Reinicie o IIS em todos os servidores Web farm para que as alterações Machine.config entrem em vigor.

Voltar ao topo

Resolução de problemas

• Quando utiliza a autenticação de formulários.
• Quando executa o estado da sessão em modo StateServer.
• Quando pretende ViewState esteja disponível através de uma Web farm, porque o atributo enableViewStateMAC está definido como true por predefinição.

Voltar ao topo