CRIPTOGRAFIA EM VISUAL BASIC(BASICO)

IAE PESSOAL!

DE BOAS DE FERIAS NEH MESMO?
MAS NUNCA PODEMOS LARGAR A PROGRAMAÇÃO....'' O SUCESSO É O TESOURO E A PRATICA É A CHAVE' '

NESSE SEMESTRE APRENDEREMOS VISUAL BASIC .NET E SEMPRE PE BOM COLOCAR ALGUMAS COISA REFERENTE.

BOM JA CONHECEMOS OS CODIGOS EM ASCII E USAREMOS ESSE CONCEITO PRA EMBARALHAR CARACTERES COM VB 6.0

INICIEM UM NOVO PROJETO....3 TEXTBOX EM MULTILINE E DOIS BOTOES..EIS O CODIGO:

------------
Private Sub Command1_Click()
'DECLARAÇÃO DE VARIAVEIS
On Error Resume Next
Dim i As Integer
Dim size As Integer
Dim cnvt As String
Dim asci As Integer
Dim calc As Integer

'ARMAZENANDO A QUANTIDADE DE CARACTERES NA VARIAVEL SIZE
size = (Len(Text1.Text))

'CONTAR DE 1 ATÉ O VALOR DO SIZE
For i = 1 To size
'A VARIAVEL ASCII RECEBE O VALOR DAS LETRAS CONTIDAS NA TEXTBOX,NA MEDIDA EM QUE O 'FOR' VAI AVANÇANDO O ASCII VAI ARMAZENANDO OS VALORS COM A FUNÇÃO ASC PARA OBTER O CODIGO EM ASCII E O MID$ PRA VERIFICAR CARACTERE POR CARACTERE
asci = Asc(Mid$(Text1.Text, i, i))
'PEGAR O VALOR EM ASCII E MULTIPLICAR POR 2
calc = (asci * 2)
'PEGAR O VALOR MULTIPLICADO POR 2 E CONVERTE-LO EM VALOR CORRESPONDENTE
cnvt = Chr(calc)
'EXIBIR NO TEXTBOX OS VALORES MODIFICADOS DENTRO DO FOR
Text2.Text = Text2 & cnvt
'PROXIMO...
Next
Clipboard.Clear
Clipboard.SetText (Text2.Text)
End Sub
----------------------------------

PARA DESCRIPTOGRAFAR BASTA USAR O PROC. INVERSO
EU ESCREVO UMA PALAVRA E FICA ASSIM

'†‚œˆ‚œŽž¦@d`b`@¦žšž¦@ž¦@Œžˆ‚¦@ˆ‚@¦‚˜‚@‚‚‚'

DESCUBRAM OQUE TA ESCRITO AI HAHAH

FALOWWW BY PHOENIX 2010

Cara não consegui, puxa vida, percebi que o visual basic 2008 não igual à maravilha do VB6. O VB6 é mais fácil de lidar.

É isso aí, vamos estudar VB !!!!!!!!!!!!!

da sim niltao..
fica assim oh:

'asci = Asc(Mid(Text1.Text, i, i))'

saka?

abraçao