Ajudem Por favor. VB 2008

[coixo]

Eu quero criar um programa que quando clico num botao abra uma InputBox e eu insira o texto e codifique para outras letras e apresente numa label.
Eu estou a por assim.
Onde estou a falhar?


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim inp As String, texto As String
inp = InputBox("Insere um texto")
Texto = Replace(Texto, "a", "1")
Texto = Replace(Texto, "b", "2")
Texto = Replace(Texto, "c", "3")
Texto = Replace(Texto, "d", "4")
Texto = Replace(Texto, "e", "5")
Texto = Replace(Texto, "f", "6")
Texto = Replace(Texto, "g", "7")
Texto = Replace(Texto, "h", "8")
Texto = Replace(Texto, "i", "9")
Texto = Replace(Texto, "j", "0")
Texto = Replace(Texto, "k", "?")
Texto = Replace(Texto, "l", "+")
Texto = Replace(Texto, "m", "<")
Texto = Replace(Texto, "n", ">")
Texto = Replace(Texto, "o", "@")
Texto = Replace(Texto, "p", "!")
Texto = Replace(Texto, "q", "$")
Texto = Replace(Texto, "r", "%")
Texto = Replace(Texto, "s", "&")
Texto = Replace(Texto, "t", "/")
Texto = Replace(Texto, "u", "\")
Texto = Replace(Texto, "v", "#")
Texto = Replace(Texto, "w", "=")
Texto = Replace(Texto, "x", "®")
Texto = Replace(Texto, "y", "¯")
texto = Replace(texto, "z", ";")
Label1.Text = inp

End Sub
End Class

 

[jpaulino]

Mas o objectivo é esconder a password ? Se esse é o objectivo tens de encriptar a password usando criptografia e não fazer isso.

Vê este exemplo:
VB.NET: Criptografia - TripleDES


Boa sorte!

 

[coixo]

eu nao qero encriptar, so qero trocar as letras

 

[afonseca]

boa noite ,
que erro é que aparece ?

 

[alfinete]

se queres encriptar uma string tenta utilizar o algoritmo md5, penso que é o mais rapido e seguro que existe ate ao momento ,,,

é a minha opinião...

 

[alfinete]

crias um botão e uma text box e uma label

se queres substituir o testo da string é realtivamente simples

crias dois array

variaveis globais

// guarda a string digitada
 string [] palavra =  new string [string.length] ;

// guarda a string substituida
 string [] substituicao =  new string [string.length] ;

string strfinal = string.empty; // guarda a string mostrada

fazes o for a começar do 0 ate comprimento da string (guardas essa string num array)

  for (int j = 0; j < string.lenght; j++)
            {
                palavra[j] = stringprincipal.Substring(j,1); 
            
            }

outro for para te por as substituições dos caracteres chamando o metodo dacaracter
e vai guardando numa string....

for (int k = 0 ; k< string.lenght; k++)
{
   substituicao[k]=dacaracter( palavra[k] );
   strfinal = strfinal + substituicao[k];
 
}

este é feito fora do botão ..................

uma função com um switch que recebe um caracter e devolve outro

private string dacaracter(string caracter)
{
   string valor = string.empty;

   switch(caracter)
  {
  case "a" :
       valor="x";
       break;
   case "b" :
       valor="y";
       break;

  restantes casos .............
  ...................................

  default :
    break;
  }
 return valor;
}

resultado da label

label.txt = strfinal;

isto foi programado aqui no editor e não testado é provavel que dê erros , mas se não der melhor...

espero que tenha ajudado

 

[Mig]

Label1.Text = inp

Será esta linha?
É que com esta linha estás a atribuir à Label o que escreveste no input.


Se queres que a label mostre o que "codificaste" terá de ser:

Label1.Text = [COLOR="Red"]Texto[/COLOR]

 

[ribeiro55]

O Mig anda lá perto.

Na verdade basta-te substituíres os "inp" por "Texto" ou vice versa.

No teu código, o que escreves na input fica no "inp", depois afectas a variável "Texto" que está vazia o tempo inteiro, depois no final mostras a "inp" de novo, que é nada mais nada menos que aquilo que escreveste na inputbox.

Já agora, porque não continuaste aqui, no mesmo tópico?