none
Criptografia RRS feed

  • Pergunta

  • Bom dia pessoal, alguém poderia me indicar algum link ou material para trabalhar com criptografia, estou utilizando vs2003 windows forms.

    Abraços t+

     

     

     

    segunda-feira, 18 de setembro de 2006 11:45

Respostas

  • Oi Eduardo,

     

    Aqui tem um link com um artigo que escrevi. Ele cobre criptografia simétrica e assimétrica no .NET.

    http://www.dotnetmaniacs.com.br/dotnetmaniacs/article_view.aspx?ArticleId=16

    Espero que te ajude (é em VB, mas pra converter pra C# é barbada).

     

    Maurício Ritter
    http://www.dotnetmaniacs.com.br

     

    quarta-feira, 20 de setembro de 2006 18:10
  •  

    Recentemente precisei fazer uma classe para trabalhar com criptografia apartir da classe System.Security.Cryptography utilizando CryptoStream e MemoryStream apartir de um artigo da internet em ingles.

     

    Segue abaixo a classe de criptografia:

     

    Imports System.Security.Cryptography
    Imports System.IO
    Imports System.Text

    Namespace Utilitarios

        Public Class cCriptografia

            Public Shared Function Encrypt(ByVal stringToEncrypt As String) As String
                Dim key() As Byte = {}
                Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
                Try
                    Dim sEncryptionKey As String = "sua_chave_de_Criptografia_aqui"
                    key = System.Text.Encoding.UTF8.GetBytes(Left(sEncryptionKey, 8))
                    Dim des As New DESCryptoServiceProvider
                    Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(stringToEncrypt)
                    Dim ms As New MemoryStream
                    Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV), CryptoStreamMode.Write)
                    cs.Write(inputByteArray, 0, inputByteArray.Length)
                    cs.FlushFinalBlock()
                    Return Convert.ToBase64String(ms.ToArray())
                Catch e As Exception
                    Return e.Message
                End Try
            End Function

            Public Shared Function Decrypt(ByVal stringToDecrypt As String) As String
                Dim key() As Byte = {}
                Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
                Dim inputByteArray(stringToDecrypt.Length) As Byte
                Try
                    Dim sEncryptionKey As String = "sua_chave_de_Criptografia_aqui"
                    key = System.Text.Encoding.UTF8.GetBytes(Left(sEncryptionKey, 8))
                    Dim des As New DESCryptoServiceProvider
                    inputByteArray = Convert.FromBase64String(stringToDecrypt)
                    Dim ms As New MemoryStream
                    Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, IV), CryptoStreamMode.Write)
                    cs.Write(inputByteArray, 0, inputByteArray.Length)
                    cs.FlushFinalBlock()
                    Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
                    Return encoding.GetString(ms.ToArray())
                Catch e As Exception
                    Return e.Message
                End Try
            End Function

        End Class

    End Namespace

    quarta-feira, 4 de outubro de 2006 12:11

Todas as Respostas

  • Eduardo,

    criptografia é um assunto bastante amplo. O que exatamente gostaria de fazer?

     


    Ricardo Oneda
    http://thespoke.net/blogs/oneda

    segunda-feira, 18 de setembro de 2006 12:12
    Moderador
  • Na realidade gostaria de saber como utilizar a criptografia de senhas por exemplo no vs2003, seriam exemplos de como trabalhar com criptografia
    quarta-feira, 20 de setembro de 2006 18:04
  • Oi Eduardo,

     

    Aqui tem um link com um artigo que escrevi. Ele cobre criptografia simétrica e assimétrica no .NET.

    http://www.dotnetmaniacs.com.br/dotnetmaniacs/article_view.aspx?ArticleId=16

    Espero que te ajude (é em VB, mas pra converter pra C# é barbada).

     

    Maurício Ritter
    http://www.dotnetmaniacs.com.br

     

    quarta-feira, 20 de setembro de 2006 18:10
  • Ok obrigado pela dica, com certeza será útil.

    Abraços t+

    quinta-feira, 21 de setembro de 2006 11:48
  •  

    Recentemente precisei fazer uma classe para trabalhar com criptografia apartir da classe System.Security.Cryptography utilizando CryptoStream e MemoryStream apartir de um artigo da internet em ingles.

     

    Segue abaixo a classe de criptografia:

     

    Imports System.Security.Cryptography
    Imports System.IO
    Imports System.Text

    Namespace Utilitarios

        Public Class cCriptografia

            Public Shared Function Encrypt(ByVal stringToEncrypt As String) As String
                Dim key() As Byte = {}
                Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
                Try
                    Dim sEncryptionKey As String = "sua_chave_de_Criptografia_aqui"
                    key = System.Text.Encoding.UTF8.GetBytes(Left(sEncryptionKey, 8))
                    Dim des As New DESCryptoServiceProvider
                    Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(stringToEncrypt)
                    Dim ms As New MemoryStream
                    Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV), CryptoStreamMode.Write)
                    cs.Write(inputByteArray, 0, inputByteArray.Length)
                    cs.FlushFinalBlock()
                    Return Convert.ToBase64String(ms.ToArray())
                Catch e As Exception
                    Return e.Message
                End Try
            End Function

            Public Shared Function Decrypt(ByVal stringToDecrypt As String) As String
                Dim key() As Byte = {}
                Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
                Dim inputByteArray(stringToDecrypt.Length) As Byte
                Try
                    Dim sEncryptionKey As String = "sua_chave_de_Criptografia_aqui"
                    key = System.Text.Encoding.UTF8.GetBytes(Left(sEncryptionKey, 8))
                    Dim des As New DESCryptoServiceProvider
                    inputByteArray = Convert.FromBase64String(stringToDecrypt)
                    Dim ms As New MemoryStream
                    Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, IV), CryptoStreamMode.Write)
                    cs.Write(inputByteArray, 0, inputByteArray.Length)
                    cs.FlushFinalBlock()
                    Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
                    Return encoding.GetString(ms.ToArray())
                Catch e As Exception
                    Return e.Message
                End Try
            End Function

        End Class

    End Namespace

    quarta-feira, 4 de outubro de 2006 12:11
  • Ok André muito obrigado pela ajuda
    sexta-feira, 6 de outubro de 2006 15:23
  • Disponha...

     

    Se a informação foi util por favor marque-a como tal para facíl localização!

     

    sábado, 7 de outubro de 2006 14:30