CRYPTOGRAFIA
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?
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?
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
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 !!
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