USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  pegando cada letra de uma text
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 04/03/2008 20:13 hs            
Só pra constar se você inserir um nome com acento este não será contado entendeu,
 
exemplo: JOÃO  ao se criptar ele irá criptar assim 964645 ao se descriptar será assim JOO
 
agoar você poderá fazer suas adaptações, só lembrando esta não é uma forma segura de se criptar, torno a dizer serve mais para estudo, para funcionar com numeros tmbém pode acontecer, só que vai ficar muito comprido o código,´para você fazer isso siga a lógica, crie arrays ex: um=array("00","AB",FT","JF")
depois faça a comparação assim if um=1 then resposta
 
e assim por diante valeu até
   
maxwell lima
não registrado
ENUNCIADA !
Postada em 11/03/2008 20:06 hs   
Treze....tenho 1 duvida foda....o cara p q eu esteja fazendo esse programa ele qr q eu crie 1 xave....
 
ele ainda qr q eu entregue a parte de programação, pq ele vai entregar p outra pessoa p ver se ele consegue descobrir.....
 
tem como fazer isso na msm programação....eu axo que não pq na programação já tem td.....eu preciso so d 1 luz de como fazer....
 
 
se vc poder me dar só + essa força....
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 11/03/2008 21:39 hs            
Bom colega a situação não é tão simples, prém não é impossivel, voltano lá atrás o código que lhe enviei é bastante simples ou seja simples até de mais o que posso fazer por é te enviar uma função pronta chamada Blowfish, é um código free, ele gera cryptografia com uma chave hamada assimétrica, como funciona você possui uma chave que descriptografa a senha é um negócio complexo porém muito seguro, pois achave dele não é como a sua veja um exemplo
 
        &H243F6A88, &H85A308D3, &H13198A2E, &H3707344, _
        &HA4093822, &H299F31D0, &H82EFA98, &HEC4E6C89, _
        &H452821E6, &H38D01377, &HBE5466CF, &H34E90C6C, _
        &HC0AC29B7, &HC97C50DD, &H3F84D5B5, &HB5470917, _
        &HD1310BA6, &H98DFB5AC, &H2FFD72DB, &HD01ADFB7, _
        &HB8E1AFED, &H6A267E96, &HBA7C9045, &HF12C7F99, _
        &H24A19947, &HB3916CF7, &H801F2E2, &H858EFC16, _
        &H636920D8, &H71574E69, &HA458FEA3, &HF4933D7E, _
        &HD95748F, &H728EB658, &H718BCD58, &H82154AEE, _
        &H7B54A41D, &HC25A59B5, &H9C30D539, &H2AF26013, _
        &HC5D1B023, &H286085F0, &HCA417918, &HB8DB38EF, _
        &H8E79DCB0, &H603A180E, &H6C9E0E8B, &HB01E8A3E, _
        &HD71577C1, &HBD314B27, &H78AF2FDA, &H55605C60, _
        &HE65525F3, &HAA55AB94, &H57489862, &H63E81440, _
        &H55CA396A, &H2AAB10B6, &HB4CC5C34, &H1141E8CE, _
        &HA15486AF, &H7C72E993, &HB3EE1411, &H636FBC2A, _
        &H2BA9C55D, &H741831F6, &HCE5C3E16, &H9B87931E, _
        &HAFD6BA33, &H6C24CF5C, &H7A325381, &H28958677, _
        &H3B8F4898, &H6B4BB9AF, &HC4BFE81B, &H66282193, _
        &H61D809CC, &HFB21A991, &H487CAC60, &H5DEC8032)
        &HEF845D5D, &HE98575B1, &HDC262302, &HEB651B88, _
        &H23893E81, &HD396ACC5, &HF6D6FF3, &H83F44239, _
        &H2E0B4482, &HA4842004, &H69C8F04A, &H9E1F9B5E, _
        &H21C66842, &HF6E96C9A, &H670C9C61, &HABD388F0, _
        &H6A51A0D2, &HD8542F68, &H960FA728, &HAB5133A3, _
        &H6EEF0B6C, &H137A3BE4, &HBA3BF050, &H7EFB2A98, _
        &HA1F1651D, &H39AF0176, &H66CA593E, &H82430E88, _
        &H8CEE8619, &H456F9FB4, &H7D84A5C3, &H3B8B5EBE, _
        &HE06F75D8, &H85C12073, &H401A449F, &H56C16AA6, _
        &H4ED3AA62, &H363F7706, &H1BFEDF72, &H429B023D, _
        &H37D0D724, &HD00A1248, &HDB0FEAD3, &H49F1C09B, _
        &H75372C9, &H80991B7B, &H25D479D8, &HF6E8DEF7, _
        &HE3FE501A, &HB6794C3B, &H976CE0BD, &H4C006BA, _
        &HC1A94FB6, &H409F60C4, &H5E5C9EC2, &H196A2463, _
        &H68FB6FAF, &H3E6C53B5, &H1339B2EB, &H3B52EC6F, _
        &H6DFC511F, &H9B30952C, &HCC814544, &HAF5EBD09)
        &HBEE3D004, &HDE334AFD, &H660F2807, &H192E4BB3, _
        &HC0CBA857, &H45C8740F, &HD20B5F39, &HB9D3FBDB, _
        &H5579C0BD, &H1A60320A, &HD6A100C6, &H402C7279, _
        &H679F25FE, &HFB1FA3CC, &H8EA5E9F8, &HDB3222F8, _
        &H3C7516DF, &HFD616B15, &H2F501EC8, &HAD0552AB, _
        &H323DB5FA, &HFD238760, &H53317B48, &H3E00DF82, _
        &H9E5C57BB, &HCA6F8CA0, &H1A87562E, &HDF1769DB, _
        &HF1290DC7, &HCC00FFA3, &HB5390F92, &H690FED0B........
 
desculpe pulei algumas cem linhas para encurtar o código
       
reparou como é complexo,não sei nem te explicar como fazer isto sei apenas, que é seguro. qual é a intenção deste seu cliente
 
este programa que possuo aqui pode ser adaptado em qualquer programa
 
qualquer coisa te envio por e-mail.
 
 
TÓPICO EDITADO
 
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 11/03/2008 22:04 hs            
deixa eu te explicar por cima como funciona o sitema de chave, uma explicação bem superficial:
 
primeiro você geraria um numero de preferência aleatório
 
deste numero seria criado a chave que seria abase para descriptorafar seu programa
 
ou seja mais o menos assim
 
numero ou letra gerado aleatoriamente= MAX
 
supondo que M=1, A=2, A=3
 
então sua chave seria 123
 
sua criptografia seria baseada nesta chave, ou seja, um exemplo basico de
como usar esta chave seria este 1x2x3=6
 
então no alfabeto a Sexta letra após o M seria o S, após o A seria o G, e após o X seria o D
 
MAX=SGD
 
Para Descryptografar seria o inverso disto porém somente com a chave seria possivel entendeu
 
isso foi um básico do que pode ser feito, o numero aleatório pode ser o numero do hd por exemplo, e existem inumeras outras formas entendeu
 
espero que sim porque é meio complicado até pra mim mesmo
 
 
 
   
Maxwell Lima
não registrado
ENUNCIADA !
Postada em 11/03/2008 22:59 hs   
Esse meu cliente chato ele é 1 investidor chato e tb é o administrador da rede da Porto Seguro, a principio ele queria 1 programa pessoal q criptografasse gerando 1 arquivo(que eu optei pelo *.txt) p ele mandar por e-1/2 ou sei la como. e a pessoa q recebesse tb tivesse esse mesmo programa e com ele descriptografar e entender a mensagem, só que quando eu fui hoje apresentar o programa p ele, ele adorou, abriu 1 sorriso de orelha a orelha. e agora começa a parte triste disso, ele me perguntou se pegando o codigo de programação daria p descobrir a mensagem criptografada. respondi que sim, mas que é impossivel ter acesso ao codigo e ele não gostou. falow q qr 1 programação que seja preciso 1 chave para criptografar e descriptografar e que com o codigo aberto não consigam descobrir o que tava escrito.

o que eu pensei:
Criar 1 chave com 5 digitos e que somando os 3 primeiros vc obtem os 2 ultimos digitos. exemplo:

132
1+3+2=06

vamos dizer que a mensagem seja: "ta dificil"
aí eu vou pega o resultado dos 2 ultimos digitos e fazer como vc falow acima
a sexta d T=Z, A=F, D=J,I=O,F=L,I=O,C=I,I=O,L=T

a mensagem criptografada seria "ZFJOLOIOT"

mas depois eu me perguntei: "e o espaço?"
e tb:"como vou fazer o vb somar as letras?"
"e a acentuação?" - td bm q acentuação talvez seja o de menos

ou vc axa eu fazer assim:

a=1
b=2
c=3
d=4
e=5
f=6
...

ainda usando o resultado da soma como 06

palavra a ser criptografada: "cade"
c=3+06=09
a=1+06=07
d=4+06=10
e=5+06=11

o problema deste modo é que vai passar do numero 99 e aí tem q aumentar 1 casa
e usar com 3 digitos no final ia ficar meio estranho, n axa? pq ao invez d 09071011 ia ficar 009007010011.

será q da p colocar no codigo criptografado os 3 primeiros numeros da chave para q a pessoa saíba o q tm q fazer?tipo assim:

13209071011
ou
132-09071011
sendo q 132 são os 3 primeiros digitos da chave.


aí faria assim: p criptografar
text1.text=3 primeiros digitos da chave

text2.text=frase a ser criptografada

text3.text=a pessoa informa o nome que será dado ao arquivo

text4.text=frase criptografada

command1_click()
Open (Text3.Text) + ".txt" For Output As #1
Print #1, (text1.text) + " - " + (Text4.Text)
Close #1
MsgBox ("arquivo " + (Text3.Text) + ".txt" + " gerado com sucesso")


hehe....a parte facil eu sei....
agora n sei como fazer o resto....na verdade eu até saiba....vou tentar fazer algo com o que vc me passou anteriormente, mas me da 1 assistencia aí no que pode ser feito e no que vc axa disso tudo....

"Sua opnião é muito importante para nós [ : ) ]"


valeu mesmo
   
maxwell lima
não registrado
ENUNCIADA !
Postada em 15/03/2008 12:04 hs   
  
alguem por favor poderia ver o q tm de errado no codigo abaixo:
pq quando eu executo a função descripta em um form ele da o erro "Run-Time '9':
subscript out of range" e eu clico em Debug e ele mostra p mim em amarelo a linha "If chave = a(letra) Then"

segue o codigo abaixo:

Function Cripta(Texto As String) As String
Dim a, b, c, d, e, f As Variant
Dim g, h, i, j, k, l As Variant
Dim m, n, o, p, q, r As Variant
Dim s, t, u, v, x, w As Variant
Dim y, z, Espaco, ç As Variant
Dim ã, â, á, à, ä As Variant
Dim ê, é, è, ë, î As Variant
Dim í, ì, ï, õ, ô As Variant
Dim ó, ò, ö, û, ú As Variant
Dim ù, ü, ñ As Variant
Dim um, dois, tres, quatro, cinco As Variant
Dim seis, sete, oito, nove, zero As Variant
Dim aspsim, exclam, arrob, sust, cifrao As Variant
Dim porcento, comerc, asterisco, abpa, fepa As Variant
Dim under, hif, cruz, igual, ss, abchave As Variant
Dim abco, apqno, fechave, feco, opqno As Variant
Dim menor, maior, virgula, pontofim, ponto As Variant
Dim pontovi, interrog, barrainv, japo, barra As Variant
Dim aspadu, ump, doisp, tresp, funder, ccortado As Variant
Dim zoinfech, tio, chapeu, pdir, pesq, pp As Variant
Dim Chave1 As Variant
Dim chave As Variant

a = Array("001")
b = Array("002")
c = Array("003")
d = Array("004")
e = Array("005")
f = Array("006")
g = Array("007")
h = Array("008")
i = Array("009")
j = Array("010")
k = Array("011")
l = Array("012")
m = Array("013")
n = Array("014")
o = Array("015")
p = Array("016")
q = Array("017")
r = Array("018")
s = Array("019")
t = Array("020")
u = Array("021")
v = Array("022")
w = Array("023")
x = Array("024")
y = Array("025")
z = Array("026")
Espaco = Array("027")
ç = Array("028")
ã = Array("029")
â = Array("030")
á = Array("031")
à = Array("032")
ä = Array("033")
ê = Array("034")
é = Array("035")
è = Array("036")
ë = Array("037")
î = Array("038")
í = Array("039")
ì = Array("040")
ï = Array("041")
õ = Array("042")
ô = Array("043")
ó = Array("044")
ò = Array("045")
ö = Array("046")
û = Array("047")
ú = Array("048")
ù = Array("049")
ü = Array("050")
ñ = Array("051")
um = Array("052")
dois = Array("053")
tres = Array("054")
quatro = Array("055")
cinco = Array("056")
seis = Array("057")
sete = Array("058")
oito = Array("059")
nove = Array("060")
zero = Array("061")
aspsim = Array("062")
exclam = Array("063")
arrob = Array("064")
sust = Array("065")
cifrao = Array("066")
porcento = Array("067")
comerc = Array("068")
asterisco = Array("069")
abpa = Array("070")
fepa = Array("071")
under = Array("072")
hif = Array("073")
cruz = Array("074")
igual = Array("075")
ss = Array("076")
abchave = Array("077")
abco = Array("078")
apqno = Array("079")
fechave = Array("080")
feco = Array("081")
opqno = Array("082")
menor = Array("083")
maior = Array("084")
virgula = Array("085")
pontofim = Array("086")
ponto = Array("087")
pontovi = Array("088")
interrog = Array("089")
barrainv = Array("090")
japo = Array("091")
barra = Array("092")
aspadu = Array("093")
ump = Array("094")
doisp = Array("095")
tresp = Array("096")
funder = Array("097")
ccortado = Array("098")
zoinfech = Array("099")
tio = Array("100")
pdir = Array("101")
pesq = Array("102")
pp = Array("103")
chapeu = Array("104")

For busca = 0 To Len(Texto)
chave = Int(1 * Rnd)
Select Case LCase(Mid(Texto, busca + 1, 1))

Case "a"
Cripta = Cripta + a(chave)
Case "b"
Cripta = Cripta + b(chave)
Case "c"
Cripta = Cripta + c(chave)
Case "d"
Cripta = Cripta + d(chave)
Case "e"
Cripta = Cripta + e(chave)
Case "f"
Cripta = Cripta + f(chave)
Case "g"
Cripta = Cripta + g(chave)
Case "h"
Cripta = Cripta + h(chave)
Case "i"
Cripta = Cripta + i(chave)
Case "j"
Cripta = Cripta + j(chave)
Case "k"
Cripta = Cripta + k(chave)
Case "l"
Cripta = Cripta + l(chave)
Case "m"
Cripta = Cripta + m(chave)
Case "n"
Cripta = Cripta + n(chave)
Case "o"
Cripta = Cripta + o(chave)
Case "p"
Cripta = Cripta + p(chave)
Case "q"
Cripta = Cripta + q(chave)
Case "r"
Cripta = Cripta + r(chave)
Case "s"
Cripta = Cripta + s(chave)
Case "t"
Cripta = Cripta + t(chave)
Case "u"
Cripta = Cripta + u(chave)
Case "v"
Cripta = Cripta + v(chave)
Case "w"
Cripta = Cripta + w(chave)
Case "x"
Cripta = Cripta + x(chave)
Case "y"
Cripta = Cripta + y(chave)
Case "z"
Cripta = Cripta + z(chave)
Case " "
Cripta = Cripta + Espaco(chave)
Case "1"
Cripta = Cripta + um(chave)
Case "2"
Cripta = Cripta + dois(chave)
Case "3"
Cripta = Cripta + tres(chave)
Case "4"
Cripta = Cripta + quatro(chave)
Case "5"
Cripta = Cripta + cinco(chave)
Case "6"
Cripta = Cripta + seis(chave)
Case "7"
Cripta = Cripta + sete(chave)
Case "8"
Cripta = Cripta + oito(chave)
Case "9"
Cripta = Cripta + nove(chave)
Case "0"
Cripta = Cripta + zero(chave)
Case "'"
Cripta = Cripta + aspsim(chave)
Case "!"
Cripta = Cripta + exclam(chave)
Case "@"
Cripta = Cripta + arrob(chave)
Case "#"
Cripta = Cripta + sust(chave)
Case "$"
Cripta = Cripta + cifrao(chave)
Case "%"
Cripta = Cripta + porcento(chave)
Case "&"
Cripta = Cripta + comerc(chave)
Case "*"
Cripta = Cripta + asterisco(chave)
Case "("
Cripta = Cripta + abpa(chave)
Case ")"
Cripta = Cripta + fepa(chave)
Case "_"
Cripta = Cripta + under(chave)
Case "-"
Cripta = Cripta + hif(chave)
Case "+"
Cripta = Cripta + cruz(chave)
Case "="
Cripta = Cripta + igual(chave)
Case "§"
Cripta = Cripta + ss(chave)
Case "{"
Cripta = Cripta + abchave(chave)
Case "["
Cripta = Cripta + abco(chave)
Case "ª"
Cripta = Cripta + apqno(chave)
Case "}"
Cripta = Cripta + fechave(chave)
Case "]"
Cripta = Cripta + feco(chave)
Case "º"
Cripta = Cripta + opqno(chave)
Case "<"
Cripta = Cripta + menor(chave)
Case ">"
Cripta = Cripta + maior(chave)
Case ","
Cripta = Cripta + virgula(chave)
Case "."
Cripta = Cripta + pontofim(chave)
Case ":"
Cripta = Cripta + ponto(chave)
Case ";"
Cripta = Cripta + pontovi(chave)
Case "?"
Cripta = Cripta + interrog(chave)
Case "/"
Cripta = Cripta + barrainv(chave)
Case "|"
Cripta = Cripta + japo(chave)
Case ""
Cripta = Cripta + barra(chave)
Case """"
Cripta = Cripta + aspadu(chave)
Case "¹"
Cripta = Cripta + ump(chave)
Case "²"
Cripta = Cripta + doisp(chave)
Case "³"
Cripta = Cripta + tresp(chave)
Case "£"
Cripta = Cripta + funder(chave)
Case "¢"
Cripta = Cripta + ccortado(chave)
Case "¬"
Cripta = Cripta + zoinfech(chave)
Case "ã"
Cripta = Cripta + ã(chave)
Case "â"
Cripta = Cripta + â(chave)
Case "á"
Cripta = Cripta + á(chave)
Case "à"
Cripta = Cripta + à(chave)
Case "ä"
Cripta = Cripta + ä(chave)
Case "ê"
Cripta = Cripta + ê(chave)
Case "é"
Cripta = Cripta + é(chave)
Case "è"
Cripta = Cripta + è(chave)
Case "ë"
Cripta = Cripta + ë(chave)
Case "î"
Cripta = Cripta + î(chave)
Case "í"
Cripta = Cripta + í(chave)
Case "ì"
Cripta = Cripta + ì(chave)
Case "ï"
Cripta = Cripta + ï(chave)
Case "õ"
Cripta = Cripta + õ(chave)
Case "ô"
Cripta = Cripta + ô(chave)
Case "ó"
Cripta = Cripta + ó(chave)
Case "ò"
Cripta = Cripta + ò(chave)
Case "ö"
Cripta = Cripta + ö(chave)
Case "û"
Cripta = Cripta + û(chave)
Case "ú"
Cripta = Cripta + ú(chave)
Case "ù"
Cripta = Cripta + ù(chave)
Case "ü"
Cripta = Cripta + ü(chave)
Case "ñ"
Cripta = Cripta + ñ(chave)
Case "ç"
Cripta = Cripta + ç(chave)
Case "~"
Cripta = Cripta + tio(chave)
Case "^"
Cripta = Cripta + chapeu(chave)
Case "´"
Cripta = Cripta + pdir(chave)
Case "`"
Cripta = Cripta + pesq(chave)
Case "¨"
Cripta = Cripta + pp(chave)

End Select
Next busca
End Function

Function Descripta(Texto As String) As String
Dim chave As Variant
Dim a, b, c, d, e, f As Variant
Dim g, h, i, j, k, l As Variant
Dim m, n, o, p, q, r As Variant
Dim s, t, u, v, x, w As Variant
Dim y, z, Espaco, ç As Variant
Dim ã, â, á, à, ä As Variant
Dim ê, é, è, ë, î As Variant
Dim í, ì, ï, õ, ô As Variant
Dim ó, ò, ö, û, ú As Variant
Dim ù, ü, ñ As Variant
Dim um, dois, tres, quatro, cinco As Variant
Dim seis, sete, oito, nove, zero As Variant
Dim aspsim, exclam, arrob, sust, cifrao As Variant
Dim porcento, comerc, asterisco, abpa, fepa As Variant
Dim under, hif, cruz, igual, ss, abchave As Variant
Dim abco, apqno, fechave, feco, opqno As Variant
Dim menor, maior, virgula, pontofim, ponto As Variant
Dim pontovi, interrog, barrainv, japo, barra As Variant
Dim aspadu, ump, doisp, tresp, funder, ccortado As Variant
Dim zoinfech, tio, chapeu, pdir, pesq, pp As Variant

a = Array("001")
b = Array("002")
c = Array("003")
d = Array("004")
e = Array("005")
f = Array("006")
g = Array("007")
h = Array("008")
i = Array("009")
j = Array("010")
k = Array("011")
l = Array("012")
m = Array("013")
n = Array("014")
o = Array("015")
p = Array("016")
q = Array("017")
r = Array("018")
s = Array("019")
t = Array("020")
u = Array("021")
v = Array("022")
w = Array("023")
x = Array("024")
y = Array("025")
z = Array("026")
Espaco = Array("027")
ç = Array("028")
ã = Array("029")
â = Array("030")
á = Array("031")
à = Array("032")
ä = Array("033")
ê = Array("034")
é = Array("035")
è = Array("036")
ë = Array("037")
î = Array("038")
í = Array("039")
ì = Array("040")
ï = Array("041")
õ = Array("042")
ô = Array("043")
ó = Array("044")
ò = Array("045")
ö = Array("046")
û = Array("047")
ú = Array("048")
ù = Array("049")
ü = Array("050")
ñ = Array("051")
um = Array("052")
dois = Array("053")
tres = Array("054")
quatro = Array("055")
cinco = Array("056")
seis = Array("057")
sete = Array("058")
oito = Array("059")
nove = Array("060")
zero = Array("061")
aspsim = Array("062")
exclam = Array("063")
arrob = Array("064")
sust = Array("065")
cifrao = Array("066")
porcento = Array("067")
comerc = Array("068")
asterisco = Array("069")
abpa = Array("070")
fepa = Array("071")
under = Array("072")
hif = Array("073")
cruz = Array("074")
igual = Array("075")
ss = Array("076")
abchave = Array("077")
abco = Array("078")
apqno = Array("079")
fechave = Array("080")
feco = Array("081")
opqno = Array("082")
menor = Array("083")
maior = Array("084")
virgula = Array("085")
pontofim = Array("086")
ponto = Array("087")
pontovi = Array("088")
interrog = Array("089")
barrainv = Array("090")
japo = Array("091")
barra = Array("092")
aspadu = Array("093")
ump = Array("094")
doisp = Array("095")
tresp = Array("096")
funder = Array("097")
ccortado = Array("098")
zoinfech = Array("099")
tio = Array("100")
pdir = Array("101")
pesq = Array("102")
pp = Array("103")
chapeu = Array("104")

For busca = 0 To Len(Texto) Step 3
For letra = 0 To 4
chave = UCase(Mid(Texto, busca + 1, 3))

If chave = a(letra) Then
Descripta = Descripta + "A"
ElseIf chave = b(letra) Then
Descripta = Descripta + "B"
ElseIf chave = c(letra) Then
Descripta = Descripta + "C"
ElseIf chave = d(letra) Then
Descripta = Descripta + "D"
ElseIf chave = e(letra) Then
Descripta = Descripta + "E"
ElseIf chave = f(letra) Then
Descripta = Descripta + "F"
ElseIf chave = g(letra) Then
Descripta = Descripta + "G"
ElseIf chave = h(letra) Then
Descripta = Descripta + "H"
ElseIf chave = i(letra) Then
Descripta = Descripta + "I"
ElseIf chave = j(letra) Then
Descripta = Descripta + "J"
ElseIf chave = k(letra) Then
Descripta = Descripta + "K"
ElseIf chave = l(letra) Then
Descripta = Descripta + "L"
ElseIf chave = m(letra) Then
Descripta = Descripta + "M"
ElseIf chave = n(letra) Then
Descripta = Descripta + "N"
ElseIf chave = o(letra) Then
Descripta = Descripta + "O"
ElseIf chave = p(letra) Then
Descripta = Descripta + "P"
ElseIf chave = q(letra) Then
Descripta = Descripta + "Q"
ElseIf chave = r(letra) Then
Descripta = Descripta + "R"
ElseIf chave = s(letra) Then
Descripta = Descripta + "S"
ElseIf chave = t(letra) Then
Descripta = Descripta + "T"
ElseIf chave = u(letra) Then
Descripta = Descripta + "U"
ElseIf chave = v(letra) Then
Descripta = Descripta + "V"
ElseIf chave = w(letra) Then
Descripta = Descripta + "W"
ElseIf chave = x(letra) Then
Descripta = Descripta + "X"
ElseIf chave = y(letra) Then
Descripta = Descripta + "Y"
ElseIf chave = z(letra) Then
Descripta = Descripta + "Z"
ElseIf chave = Espaco(letra) Then
Descripta = Descripta + " "
ElseIf chave = um(letra) Then
Descripta = Descripta + "1"
ElseIf chave = dois(letra) Then
Descripta = Descripta + "2"
ElseIf chave = tres(letra) Then
Descripta = Descripta + "3"
ElseIf chave = quatro(letra) Then
Descripta = Descripta + "4"
ElseIf chave = cinco(letra) Then
Descripta = Descripta + "5"
ElseIf chave = seis(letra) Then
Descripta = Descripta + "6"
ElseIf chave = sete(letra) Then
Descripta = Descripta + "7"
ElseIf chave = oito(letra) Then
Descripta = Descripta + "8"
ElseIf chave = nove(letra) Then
Descripta = Descripta + "9"
ElseIf chave = zero(letra) Then
Descripta = Descripta + "0"
ElseIf chave = aspsim(letra) Then
Descripta = Descripta + "'"
ElseIf chave = exclam(letra) Then
Descripta = Descripta + "!"
ElseIf chave = arrob(letra) Then
Descripta = Descripta + "@"
ElseIf chave = sust(letra) Then
Descripta = Descripta + "#"
ElseIf chave = cifrao(letra) Then
Descripta = Descripta + "$"
ElseIf chave = porcento(letra) Then
Descripta = Descripta + "%"
ElseIf chave = comerc(letra) Then
Descripta = Descripta + "&"
ElseIf chave = asterisco(letra) Then
Descripta = Descripta + "*"
ElseIf chave = abpa(letra) Then
Descripta = Descripta + "("
ElseIf chave = fepa(letra) Then
Descripta = Descripta + ")"
ElseIf chave = under(letra) Then
Descripta = Descripta + "_"
ElseIf chave = hif(letra) Then
Descripta = Descripta + "-"
ElseIf chave = cruz(letra) Then
Descripta = Descripta + "+"
ElseIf chave = igual(letra) Then
Descripta = Descripta + "="
ElseIf chave = ss(letra) Then
Descripta = Descripta + "§"
ElseIf chave = abchave(letra) Then
Descripta = Descripta + "{"
ElseIf chave = abco(letra) Then
Descripta = Descripta + "["
ElseIf chave = apqno(letra) Then
Descripta = Descripta + "ª"
ElseIf chave = fechave(letra) Then
Descripta = Descripta + "}"
ElseIf chave = feco(letra) Then
Descripta = Descripta + "]"
ElseIf chave = opqno(letra) Then
Descripta = Descripta + "º"
ElseIf chave = menor(letra) Then
Descripta = Descripta + "<"
ElseIf chave = maior(letra) Then
Descripta = Descripta + ">"
ElseIf chave = virgula(letra) Then
Descripta = Descripta + ","
ElseIf chave = pontofim(letra) Then
Descripta = Descripta + "."
ElseIf chave = ponto(letra) Then
Descripta = Descripta + ":"
ElseIf chave = pontovi(letra) Then
Descripta = Descripta + ";"
ElseIf chave = interrog(letra) Then
Descripta = Descripta + "?"
ElseIf chave = barrainv(letra) Then
Descripta = Descripta + "/"
ElseIf chave = japo(letra) Then
Descripta = Descripta + "|"
ElseIf chave = barra(letra) Then
Descripta = Descripta + ""
ElseIf chave = aspadu(letra) Then
Descripta = Descripta + """"
ElseIf chave = ump(letra) Then
Descripta = Descripta + "¹"
ElseIf chave = doisp(letra) Then
Descripta = Descripta + "²"
ElseIf chave = tresp(letra) Then
Descripta = Descripta + "³"
ElseIf chave = funder(letra) Then
Descripta = Descripta + "£"
ElseIf chave = ccortado(letra) Then
Descripta = Descripta + "¢"
ElseIf chave = zoinfech(letra) Then
Descripta = Descripta + "¬"
ElseIf chave = ã(letra) Then
Descripta = Descripta + "Ã"
ElseIf chave = â(letra) Then
Descripta = Descripta + "Â"
ElseIf chave = á(letra) Then
Descripta = Descripta + "Á"
ElseIf chave = à(letra) Then
Descripta = Descripta + "À"
ElseIf chave = ä(letra) Then
Descripta = Descripta + "Ä"
ElseIf chave = ê(letra) Then
Descripta = Descripta + "Ê"
ElseIf chave = é(letra) Then
Descripta = Descripta + "É"
ElseIf chave = è(letra) Then
Descripta = Descripta + "È"
ElseIf chave = ë(letra) Then
Descripta = Descripta + "Ë"
ElseIf chave = î(letra) Then
Descripta = Descripta + "Î"
ElseIf chave = í(letra) Then
Descripta = Descripta + "Í"
ElseIf chave = ì(letra) Then
Descripta = Descripta + "Ì"
ElseIf chave = ï(letra) Then
Descripta = Descripta + "Ï"
ElseIf chave = õ(letra) Then
Descripta = Descripta + "Õ"
ElseIf chave = ô(letra) Then
Descripta = Descripta + "Ô"
ElseIf chave = ó(letra) Then
Descripta = Descripta + "Ó"
ElseIf chave = ò(letra) Then
Descripta = Descripta + "Ò"
ElseIf chave = ö(letra) Then
Descripta = Descripta + "Ö"
ElseIf chave = û(letra) Then
Descripta = Descripta + "Û"
ElseIf chave = ú(letra) Then
Descripta = Descripta + "Ú"
ElseIf chave = ù(letra) Then
Descripta = Descripta + "Ù"
ElseIf chave = ü(letra) Then
Descripta = Descripta + "Ü"
ElseIf chave = ñ(letra) Then
Descripta = Descripta + "Ñ"
ElseIf chave = ç(letra) Then
Descripta = Descripta + "Ç"
ElseIf chave = tio(letra) Then
Descripta = Descripta + "~"
ElseIf chave = chapeu(letra) Then
Descripta = Descripta + "^"
ElseIf chave = pesq(letra) Then
Descripta = Descripta + "`"
ElseIf chave = pdir(letra) Then
Descripta = Descripta + "´"
ElseIf chave = pp(letra) Then
Descripta = Descripta + "¨"
End If
Next letra
Next busca
End Function

no formulario q eu chamo a função descripta ta assim:

Private Sub Command1_Click()
Text2.Text = Descripta(Text1.Text)
End Sub

as 2 text existem e os nomes delas estão certos

valeu
   
Página(s): 3/6     « ANTERIOR    PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página