Treze
|
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
|
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
|
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
|
|
|
|