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.