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
maxwell lima
não registrado
ENUNCIADA !
Postada em 17/03/2008 19:53 hs   
obs: a letra 'a' vale 001
   
maxwell lima
não registrado
ENUNCIADA !
Postada em 17/03/2008 19:58 hs   
eu estava pensando tb....em colocar a chave , por exemplo '1234' no arquivo e o programa só descriptografa se a pessoa digitar a mesma chave na text. sera q deu p entender...axo q a função é facil...mas como não to em casa e to sem o vb neste momento, n custa nd postar minha duvida...
alguem poderia me dar a propria opnião se quizer tb...
 
 
obrigado pela atenção!
   
maxwell lima
não registrado
ENUNCIADA !
Postada em 17/03/2008 22:39 hs   
Treze, vc n consegue me ajudar nisso???
   
Treze
 Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 18/03/2008 08:39 hs            
Olha eu aqui vamos lá eu perdi a linha de raciocinio, me ajude o que você deseja mesmo? me explique novamente o que você fez até agora e o que deseja fazer que te ajudarei.
   
Maxwell Lima
não registrado
ENUNCIADA !
Postada em 18/03/2008 18:14 hs   
bom, eu tenho q fazer 1 programa q criptografa e descriptografa com chave, o q eu tava pensando, a pessoa que vai criptografar, vai me passar os 3 numeros de 1 chave, que servira p descriptografar, vamos fazer de conta q esta chave sera "123", e para descriptografar a pessoa tera q informar o valor da soma dos 3 numeros da chave(ou a mesma....) e se o valor que a pessoa colocou na text for certa o programa descriptografa, isso foi a primeira coisa q eu pensei.

a soma da chave(123(1+2+3=6)) é o valor multiplicador das letras a ser criptografada, por exemplo se eu digitar a letra 'a'(o valor da letra 'a' é 001) vai fik assim: 001*6=006

bom, se vc tiver 1 ideia melhor d como eu posso fazer isso será d grande ajuda. já me falaram p usar o código ASCII/ANSI de cada caracter,mas n tenho a minima ideia d como usa-lo. eu só preciso q ele criptografe sem que a pessoa consiga descobrir a frase de modo facil e q n descubra ela facil pelo codigo....

valeu Treze.


ahhh.
vou colocar o codigo q eu fiz aqui:

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")
Chave1 = Array("6")

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                <----- da erro nessa linha aqui tb....
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
   
Treze
 Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 19/03/2008 17:50 hs            
Colega vou estar analizando o código e tentando achar uma solução pra você mas de uma olhada neste link, talves ele te ajude a ter uma luz.
 
 
   
Página(s): 5/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