Encrypt/Decrypt VB.NET

[fLaSh_CF]

Boas;

Adiciono aqui uma função que pode ser útil para encriptar/decriptar strings em VB.NET..

 ''' <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.