Criação de um programa Visual Basic que pode transformar uma mensagem de texto em uma mensagem secreta ilegível ( e vice-versa , é claro) é relativamente fácil. A teoria é simples: Pegue a legenda de uma caixa de texto um carácter de cada vez e gire cada personagem através da tabela ASCII a 255 caracteres por um determinado número de passos. Para decodificar , girar cada personagem de volta que muitos passos. Por exemplo , girando a letra C para a frente um passo tornaria D. Encaminhar 254 passos seriam laço ao redor e levá-lo de volta um, transformando-o em B. Instruções
1
Criar um controle TextBox chamado "Text1 "e dois " " controles CommandButton . Altere as propriedades da legenda sobre os botões de comando para ler " Encode " e " Decode ".
2
Abra a janela de código no menu " View" e navegue até o objeto chamado " (General) " e o procedimento (identificado como " Proc " ) chamado "( declarações) . " Cole o seguinte código para declarar variáveis do programa :
Dim OrigMessage As String Dim
Codificado As String Dim
NextChar , KeyChar
3
Navegue até o procedimento de " Form" do objeto "Load " no menu de código e cole no código :
KeyChar = 254
KeyChar é o número de passos para a frente o programa vai passar cada personagem na tabela de caracteres ASCII. Você pode definir KeyChar para qualquer número de 1 a 254 . (255 é um valor válido , mas laço cada personagem em torno de si mesma e , portanto, não irá codificar sua mensagem. )
4
Navegue até "Click" procedimento do botão de comando Decode na janela e colar código neste código:
OrigMessage = Text1.Text
codificado = ""
While ( OrigMessage < > "")
NextChar = Esquerda ( OrigMessage , 1)
Se ( Asc ( NextChar ) - KeyChar < 255) Então
codificado = codificado + Chr ( Asc ( NextChar ) - KeyChar + 255)
Else
codificado = codificado + Chr ( Asc ( NextChar ) - KeyChar )
End If
OrigMessage = Right ( OrigMessage , Len ( OrigMessage ) - 1 ) < br >
Wend
Text1.Text = Codificado
5
Navegue até "Click" procedimento do botão de comando Encode na janela de código e cole neste código:
OrigMessage = Text1.Text
codificado = ""
While ( OrigMessage < > "")
NextChar = Esquerda ( OrigMessage , 1)
Se ( Asc ( NextChar ) + KeyChar > 255) Então
codificado = codificado + Chr ( Asc ( NextChar ) + KeyChar - 255)
Else
Codificado = codificado + Chr ( Asc ( NextChar ) + KeyChar )
End If
OrigMessage = Right ( OrigMessage , Len ( OrigMessage ) - 1)
Wend
Text1.Text = Codificado
6
Execute o programa e digite uma mensagem na caixa de texto e clique no botão " Encode " para transformá-lo em uma mensagem secreta eo botão "Decode " para devolvê-lo para a legibilidade.
