1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Ajudem Por favor. VB 2008

Discussão em 'Programação' iniciada por coixo, 28 de Novembro de 2008. (Respostas: 7; Visualizações: 878)

  1. coixo

    coixo Power Member

    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
     
  2. jpaulino

    jpaulino Power Member

    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!
     
  3. coixo

    coixo Power Member

    eu nao qero encriptar, so qero trocar as letras
     
  4. afonseca

    afonseca Banido

    boa noite ,
    que erro é que aparece ?
     
  5. alfinete

    alfinete Power Member

    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...
     
  6. alfinete

    alfinete Power Member

    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

    Código:
    // 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)

    Código:
      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....

    Código:
    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
    Código:
    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

    Código:
    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
     
  7. Mig

    Mig Power Member


    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:

    Código:
    Label1.Text = [COLOR="Red"]Texto[/COLOR]
     
  8. ribeiro55

    ribeiro55 Power Member

    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?
     

Partilhar esta Página