1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Encrypt/Decrypt VB.NET

Discussão em 'Programação' iniciada por fLaSh_CF, 29 de Setembro de 2008. (Respostas: 0; Visualizações: 1781)

  1. fLaSh_CF

    fLaSh_CF Banido

    Boas;

    Adiciono aqui uma função que pode ser útil para encriptar/decriptar strings em VB.NET..
    Código:
     ''' <summary>
    ''' Encrepita/Desencripita setrings
    ''' </summary>
    ''' <param name="sText">a string</param>
    ''' <param name="hTipo">0 = Encrypt: 1 = Decrypt</param>
    ''' <returns>a string convertida</returns>
    ''' <remarks></remarks>
    Function StringCrypt(ByVal sText As String, ByVal hTipo As Byte) As String
    Dim y As Short
    Dim strBuff As String = String.Empty
     
    'NOTA: esta string no pode ter mais de 255 caracteres..
    Const CHAVE_CRYPT As String = "chave_encriptação"
     
    'NOTA: esta string no pode ter mais de 255 caracteres..
    'Porque originara error em baixo no processo Mod..
    If CHAVE_CRYPT.Length > 250 Then
    Return String.Empty
    End If
     
    'Faz um ciclo em todos os caracteres da string
    For i As Integer = 1 To Len(sText)
    'Converte o char currente para o codigo Asc (valor numerico)
    y = Asc(Mid(sText, i, 1))
    '*Verifica o tipo de operação
    '*O truque está no Mod, ou seja atribui novo codigo Asc 
    'no bloco do tamanho da string CHAVE_CRYPT ..
    Select Case hTipo
    Case 0 : y += Asc(Mid(CHAVE_CRYPT, (i Mod Len(CHAVE_CRYPT)) + 1, 1)) ' *Encrypt
    Case 1 : y -= Asc(Mid(CHAVE_CRYPT, (i Mod Len(CHAVE_CRYPT)) + 1, 1)) ' *Decrypt
    End Select
    'Atribui novo valor com o numerico gerado e valor em byte..
    strBuff &= Chr(y And &HFFS)
    Next
     
    'Returna a string convertida..
    Return strBuff
     
    End Function
    
    PS: onde se coloca o código para o repositório é aqui? calculei que sim ;)

    Compr.
     
    Última edição pelo moderador: 6 de Outubro de 2008

Partilhar esta Página