CONVERTER PARA ASCII

LEONARDO136 22/04/2011 17:11:42
#372192
Eai pessoal, como vai? Curtindo bastante o feriado?

Bom pra programar não tem hora nem dia. Andei pensando em fazer minha propria criptografia e
a base de tudo é converter os caracteres em Ascii. Meu problema esta em converter ascii para as caracteres,
pois a conversão para ascii já sei como é. Se alguem tiver algum modo de [Ô]desconverter[Ô] o ascii por favor
poste uma solução. Desde já agradeço, abraços.
CHPMOTTA 22/04/2011 20:47:59
#372204
só se você criar 2 functions para isso:

Function Cripto(Texto As String) As String
   
   Dim Pronto As String
   
   For i = 1 To Len(Texto)
      Pronto = Pronto & Asc(Mid(Texto, i, 1)) & [Ô];[Ô]
   Next i
   
   Cripto = Pronto
   
End Function

Function DeCripto(Código As String) As String
   
   Dim Pronto As String
   Dim Caract As String
   
   For i = 1 To Len(Código)
      If Mid(Código, i, 1) = [Ô];[Ô] Then
         Pronto = Pronto & Chr(Val(Caract))
         Caract = [Ô][Ô]
      Else
         Caract = Caract & Mid(Código, i, 1)
      End If
   Next
   
   DeCripto = Pronto
   
End Function


Resultados:

? cripto([Ô]TESTE DE CRIPTOGRAFIA[Ô])
84;69;83;84;69;32;68;69;32;67;82;73;80;84;79;71;82;65;70;73;65;

? decripto([Ô]84;69;83;84;69;32;68;69;32;67;82;73;80;84;79;71;82;65;70;73;65;[Ô])
TESTE DE CRIPTOGRAFIA


Ou você pode criar uma função simples que gere outros caracteres ao invés de códigos:



Function Cripto(Texto)
   
   Resultado = [Ô][Ô]
   For i = 1 To Len(Texto)
      If Asc(Mid(Texto, i, 1)) > 127 Then
         Resultado = Resultado & Chr(Asc(Mid(Texto, i, 1)) - 127)
      ElseIf Asc(Mid(Texto, i, 1)) < 127 Then
         Resultado = Resultado & Chr(Asc(Mid(Texto, i, 1)) + 127)
      End If
   Next

   Cripto = Resultado

End Function


Resultados:
? cripto([Ô]TESTE DE CRIPTOGRAFIA[Ô])
ÓÄÒÓÄŸÃÄŸÂÑÈÏÓÎÆÑÀÅÈÀ

? cripto([Ô]ÓÄÒÓÄŸÃÄŸÂÑÈÏÓÎÆÑÀÅÈÀ[Ô])
TESTE DE CRIPTOGRAFIA
Tópico encerrado , respostas não são mais permitidas
Voltar