maxwell lima
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 15/03/2008 12:13 hs
ahhh, eu tnho outro probleminha....
eu tenho a variavel Chave1, ela armazena a soma de 3 text: "Chave1 = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)"
o q eu qria fazer, por exemplo, era, quando a pessoa digitasse "A" em text5.text ela multiplicasse o valor d A que é 001 pelo valor da Chave1.exemplo abaixo:
001*6=006
006 é o valor q iria aparecer p mim quando eu clicasse em criptografar,
eu tentei fazer assim na função cripta:
Case "a"
Cripta = Cripta + (Chave1 * a(chave))
mas da erro: "type mismach" ou algo assim...
alguem consegue desvendar + essa?
valeu
obs: se alguem poder me falar como fazer o inverso na hr d descriptografar seria d grande ajuda.....
|
|
|
|
|
|
maxwell lima
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/03/2008 14:05 hs
tenho outra duvida....fora as outras 2....
eu tenho 1 arquivo *txt, com o seguinte conteudo, por exemplo:
"123024021005012"
eu qro q os 3 primeiros numeros (123) fique numa label e o restante apareça numa text ,mas só quero q isso aconteça se a pessoa colocar numa text o resultado da soma dos 3 primeiros numeros(1+2+3=6)
if text2.text=6 then
text1.enabled=true
text1.text=(conteudo do arquivo descriptografado)
end if
text2 é onde o cara vai colocar o valor correspondente a soma dos 3 primeiros numeros do arquivo e só entaum aparece o conteudo arquivo, só que descriptografado, mas so souberem como aparece sem ser descriptografado ja ajuda.
sera q entenderam?
valeu
|
|
|
|
|
|
Postada em 15/03/2008 22:28 hs
if text2.text=6 then
text1.enabled=true Open nomearquivo.txt For Input As #f1 'abre o arquivo Line Input #f1, texto 'grava o conteúdo da linha na variável texto '---------------Rotina para descriptografar a variável texto-------------
text1.text = texto
Close #f1 'fecha o arquivo end if
espero ter ajudado
Linguagens: VB6, ASP, PHP, AS, Delphi
|
|
|
|
maxwell lima
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/03/2008 07:33 hs
mas eu preciso q habilite não só se a text2 for 6, mas sim se a text2 for o resultado dos 3 primeiros numeros do arquivo....
mas valeu...
alguem pode me ajudar?
|
|
|
|
|
|
Postada em 17/03/2008 07:57 hs
dim numero as integerOpen nomearquivo.txt For Input As #f1 'abre o arquivo Line Input #f1, texto 'grava o conteúdo da linha na variável texto numero = 0 for v = 1 to 3 numero = val(mid(texto,v,1)) + numero 'faz a soma dos 3 primeiros numeros do arquivo next if text2.text = numero then 'se colocar o valor certo
text1.enabled = true 'habilita a text1 '---------------Rotina para descriptografar a variável texto-------------
text1.text = texto 'exibe texto descriptografado
end if
Close #f1 'fecha o arquivo é esta sua dúvida?? |
|
|
|
maxwell lima
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/03/2008 19:48 hs
sim Murilo, vc conseguiu sanar essa minha duvida....mas n sei como eu faço a multiplicação na hora de criptografar... se por exemplo eu colocar na text a letra "a" ele vai multiplicar a soma dos 3 numeros inseridos nas 3 text. exemplo: text1.text=1 text2.text=2 text3.text=3 eu tentei fazer desse modo: dim chave1 as integer chave1=val(text1.text)+val(text2.text)+val(text3.text) Case "a"
Cripta = Cripta + (Chave1 * a(chave)) mas dá erro, o erro informado eh "type mismach" ou algo do tipo.... só preciso saber onde eu informo isso...valeu.... |
|
|
|
