Ir para conteúdo
Fórum Script Brasil
  • 0

Codifica E Decodifica Strings


Guest - fabio -

Pergunta

1 resposta a esta questão

Posts Recomendados

  • 0

Eu tenho um bem simples cara veja se te serve wink.gif

'Num módulo

Function Codifica(Entrada As String, Senha As String) As String
Dim a As Long
Dim i As Long
Dim t As Long
On Error Resume Next
t = 1
Codifica = String(Len(Entrada), 0)
For i = 1 To Len(Entrada)
    a = Asc(Mid(Entrada, i, 1)) + Asc(Mid(Senha, t, 1))
    While a > 255
        a = a - 256
    Wend
    Mid$(Codifica, i, 1) = Chr(a)
    t = t + 1
    If t > Len(Senha) Then: t = 1
Next i
End Function

Function Decodifica(Entrada As String, Senha As String) As String
Dim a As Long
Dim i As Long
Dim t As Long
On Error Resume Next
t = 1
Decodifica = String(Len(Entrada), 0)
For i = 1 To Len(Entrada)
    a = Asc(Mid(Entrada, i, 1)) - Asc(Mid(Senha, t, 1))
    While a < 0
        a = a + 255
    Wend
    Mid$(Decodifica, i, 1) = Chr(a)
    t = t + 1
    If t > Len(Senha) Then: t = 1
Next i
End Function



'Exemplo:

'Num Form:

Private Sub Command1_Click()
Dim STR As String
STR = InputBox("Digite algum texto.")
STR = Codifica(STR, "abc")
MsgBox Decodifica(STR, "abc")
End Sub

Qualquer coisa volta ae cara.

beleza, falow!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...