DESCRIPTOGRAFAR SENHA
Oi.Será que alguém poderia me ajudar a desvender este problema.Meu professor é foda. Existe uma tabela onde tenho que fazer uma função para descriptografar uma senha.
Funciona da seguinte maneira:o primeiro caracter da senha é o tamanho da senha informada, tendo como base desconsiderar os d+ caracteres.
Por exemplo: a senha IPRMLAS2NFDS igual descriptografada 123 então a função teria q verificar somente até a letra [Ô]M[Ô]. I = 3 então a senha informada é de 3 números.
Tentei adicionar os caracteres em um array + sem sucesso
.
A tabela segue em anexo.
Funciona da seguinte maneira:o primeiro caracter da senha é o tamanho da senha informada, tendo como base desconsiderar os d+ caracteres.
Por exemplo: a senha IPRMLAS2NFDS igual descriptografada 123 então a função teria q verificar somente até a letra [Ô]M[Ô]. I = 3 então a senha informada é de 3 números.
Tentei adicionar os caracteres em um array + sem sucesso
.A tabela segue em anexo.
[txt-color=#0000f0]Option Explicit[/txt-color]
[txt-color=#0000f0]Private Sub[/txt-color] Command1_Click()
[txt-color=#0000f0]Dim[/txt-color] a [txt-color=#0000f0]As Variant[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] s, Senha [txt-color=#0000f0]As String[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] h, i, p, t, y [txt-color=#0000f0]As Long[/txt-color]
a = [txt-color=#0000f0]Split[/txt-color]([Ô]B,P,H,I,J,R,K,Q,7,M,U,C,D,F,N,2,G,L,A,S[Ô], [Ô],[Ô])
s = [txt-color=#0000f0]Left$[/txt-color](Text1.Text, 1)
[txt-color=#0000f0]For[/txt-color] i = 0 [txt-color=#0000f0]To UBound[/txt-color](a)
[txt-color=#0000f0]If[/txt-color] a(i) = s [txt-color=#0000f0]Then[/txt-color] t = i: [txt-color=#0000f0]Exit For[/txt-color]
[txt-color=#0000f0]Next[/txt-color] i
[txt-color=#007100] [ô]p = 0
[ô]Senha = [Ô][Ô][/txt-color]
[txt-color=#0000f0]For[/txt-color] i = 1 [txt-color=#0000f0]To[/txt-color] t
s = [txt-color=#0000f0]Mid$[/txt-color](Text1.Text, i + 1, 1)
[txt-color=#0000f0]For[/txt-color] h = 0 [txt-color=#0000f0]To UBound[/txt-color](a)
[txt-color=#0000f0]If[/txt-color] a(h) = s [txt-color=#0000f0]Then[/txt-color] y = h: [txt-color=#0000f0]Exit For[/txt-color]
[txt-color=#0000f0]Next[/txt-color] h
Senha = Senha & (y - p)
p = p + t
[txt-color=#0000f0]Next[/txt-color] i
Text2.Text = Senha
[txt-color=#0000f0]End Sub[/txt-color]
Atenciosamente,
Fabio Araujo Damascena
[txt-color=#0000f0]Private Sub[/txt-color] Command1_Click()
[txt-color=#0000f0]Dim[/txt-color] a [txt-color=#0000f0]As Variant[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] s, Senha [txt-color=#0000f0]As String[/txt-color]
[txt-color=#0000f0]Dim[/txt-color] h, i, p, t, y [txt-color=#0000f0]As Long[/txt-color]
a = [txt-color=#0000f0]Split[/txt-color]([Ô]B,P,H,I,J,R,K,Q,7,M,U,C,D,F,N,2,G,L,A,S[Ô], [Ô],[Ô])
s = [txt-color=#0000f0]Left$[/txt-color](Text1.Text, 1)
[txt-color=#0000f0]For[/txt-color] i = 0 [txt-color=#0000f0]To UBound[/txt-color](a)
[txt-color=#0000f0]If[/txt-color] a(i) = s [txt-color=#0000f0]Then[/txt-color] t = i: [txt-color=#0000f0]Exit For[/txt-color]
[txt-color=#0000f0]Next[/txt-color] i
[txt-color=#007100] [ô]p = 0
[ô]Senha = [Ô][Ô][/txt-color]
[txt-color=#0000f0]For[/txt-color] i = 1 [txt-color=#0000f0]To[/txt-color] t
s = [txt-color=#0000f0]Mid$[/txt-color](Text1.Text, i + 1, 1)
[txt-color=#0000f0]For[/txt-color] h = 0 [txt-color=#0000f0]To UBound[/txt-color](a)
[txt-color=#0000f0]If[/txt-color] a(h) = s [txt-color=#0000f0]Then[/txt-color] y = h: [txt-color=#0000f0]Exit For[/txt-color]
[txt-color=#0000f0]Next[/txt-color] h
Senha = Senha & (y - p)
p = p + t
[txt-color=#0000f0]Next[/txt-color] i
Text2.Text = Senha
[txt-color=#0000f0]End Sub[/txt-color]
Atenciosamente,
Fabio Araujo Damascena
Tópico encerrado , respostas não são mais permitidas