CRYPTOGRAFIA

USUARIO.EXCLUIDOS 20/11/2006 22:06:51
#185467
olá amigos

seguinte eu quero fazer um sisteminha de cryptografia, pra aprender sabe...


je tenho um padrão a seguir...


minha dúvida é:


como eu fasso para capturar letra por legra de um textbox e substituir por outra tipo:

no text1.text eu tenho a frase:

"este é um teste"

e preciso capturar letra por letra e substitur por exemplo para

"htao w ja 5tyw"

alguem sabe uma maneira de fazer isso?

USUARIO.EXCLUIDOS 20/11/2006 22:55:57
#185471
Dim str1 as String
Dim str2 as String
Dim strFinal as String

str1 = Text1.Text
str2 = "htao w ja 5tyw"

For i = 1 to Len(str1)
StrFinal = StrFinal & mid(str2,i,1)
Next

Msgbox StrFinal



Tah aeew...

soh não intendi a finalidade...rs
ESLEYSANCHES 21/11/2006 00:37:19
#185479
Amigo de uma olhadinha no linka abaixo, escrevi uma dica sobre este tipo de criptografia:

http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=4347&TxtSearch=criptografia propria&CmbSort=ftitulo&varPagina=1

O código fonte do projeto está logo abaixo:
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=4348&TxtSearch=criptografia propria&CmbSort=ftitulo&varPagina=1


Espero que te ajude amigo, abraços !!
Tópico encerrado , respostas não são mais permitidas