Maxwell Lima
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 26/02/2008 21:52 hs
Galera....tenho q fazer 1 form q contenha 1 botao e 1 caixa de texto com até 255 caracteres e eu gostaria de saber como eu faço para pegar cada 1 destes caracteres e trata-los.
Quero praticamente criptografa-los q nem no exemplo abaixo:
frase na text: "eu to fudido"
a={01 , 02 , 03 , 04}
b={11 , 12 , 13 , 14}
c={21 , 22 , 23 , 24}
d={31 , 32 , 33 , 34}
e={41 , 42 , 43 , 44}
f={51 , 52 , 53 , 54}
g={61 , 62 , 63 , 64}
h={71 , 72 , 73 , 74}
i={81 , 82 , 83 , 84}
j={91 , 92 , 93 , 94}
k={05 , 06 , 07 , 08}
l={15 , 16 , 17 , 18}
m={25 , 26 , 27 , 28}
n={35 , 36 , 37 , 38}
o={45 , 46 , 47 , 48}
p={55 , 56 , 57 , 58}
q={65 , 66 , 67 , 68}
r={75 , 76 , 77 , 78}
s={85 , 86 , 87 , 88}
t={95 , 96 , 97 , 98}
u={10 , 20 , 30 , 40}
v={50 , 60 , 70 , 80}
w={90 , 00 , A0 , B0}
x={C0 , D0 , E0 , F0}
y={G0 , H0 , I0 , J0}
z={K0 , L0 , M0 , N0}
o resultado fica: "95 46 53 10 34 81 31 45"
eu gostaria que ele pegasse os valores aleatoriamente....
podem dar ideias quem tiver 1 jeito melhor....
eu sei mais ou menos como faz isso, mas tm muito tmpo q n mexo com VB e aí eu to ferrado....
quem poder me ajudar.....meu muito obrigado 
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/02/2008 08:28 hs
perdão colega ainda está meio confuso, bom deixa eu ver se entendi, cada letra terá quatro dezenas, e seria escolhido aleatóriamente uma das dezenas para identificar esta letra. É isso. Eu coloquei o exemplo apenas com dezenas, mas sei que você vai utilizar letras também. |
|
TÓPICO EDITADO
|
|
|
|
Macaubal
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/02/2008 12:49 hs
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/02/2008 13:12 hs
Bom tomei a liberdade de criar este código para você testar. Inclua em seu form 1 textbox um Label e um Commandbutton agora cole este código: Private Sub Command1_Click()
Dim Chave As Variant
Dim organiza As String
Dim SemEspaco 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 As Variant
a = Array("01", "02", "03", "04")
b = Array("11", "12", "13", "14")
c = Array("21", "22", "23", "24")
d = Array("31", "32", "33", "34")
e = Array("41", "42", "43", "44")
f = Array("51", "52", "53", "54")
g = Array("61", "62", "63", "64")
h = Array("71", "72", "73", "74")
i = Array("81", "82", "83", "84")
j = Array("91", "92", "93", "94")
k = Array("05", "06", "07", "08")
l = Array("15", "16", "17", "18")
m = Array("25", "26", "27", "28")
n = Array("35", "36", "37", "38")
o = Array("45", "46", "47", "48")
p = Array("55", "56", "57", "58")
q = Array("65", "66", "67", "68")
r = Array("75", "76", "77", "78")
s = Array("85", "86", "87", "88")
t = Array("95", "96", "97", "98")
u = Array("10", "20", "30", "40")
v = Array("50", "60", "70", "80")
w = Array("90", "00", "A0", "B0")
x = Array("C0", "D0", "E0", "F0")
y = Array("G0", "H0", "I0", "J0")
z = Array("K0", "L0", "M0", "N0")
SemEspaco = LCase(Replace(Text1.Text, " ", ""))
For busca = 0 To Len(SemEspaco)
Chave = Int(3 * Rnd)
Select Case Mid(SemEspaco, busca + 1, 1)
Case "a"
organiza = organiza + " " + a(Chave)
Case "b"
organiza = organiza + " " + b(Chave)
Case "c"
organiza = organiza + " " + c(Chave)
Case "d"
organiza = organiza + " " + d(Chave)
Case "e"
organiza = organiza + " " + e(Chave)
Case "f"
organiza = organiza + " " + f(Chave)
Case "g"
organiza = organiza + " " + g(Chave)
Case "h"
organiza = organiza + " " + h(Chave)
Case "i"
organiza = organiza + " " + i(Chave)
Case "j"
organiza = organiza + " " + j(Chave)
Case "k"
organiza = organiza + " " + k(Chave)
Case "l"
organiza = organiza + " " + l(Chave)
Case "m"
organiza = organiza + " " + m(Chave)
Case "n"
organiza = organiza + " " + n(Chave)
Case "o"
organiza = organiza + " " + o(Chave)
Case "p"
organiza = organiza + " " + p(Chave)
Case "q"
organiza = organiza + " " + q(Chave)
Case "r"
organiza = organiza + " " + r(Chave)
Case "s"
organiza = organiza + " " + s(Chave)
Case "t"
organiza = organiza + " " + t(Chave)
Case "u"
organiza = organiza + " " + u(Chave)
Case "v"
organiza = organiza + " " + v(Chave)
Case "w"
organiza = organiza + " " + w(Chave)
Case "x"
organiza = organiza + " " + x(Chave)
Case "y"
organiza = organiza + " " + y(Chave)
Case "z"
organiza = organiza + " " + z(Chave)
End Select
Next busca
Label1.Caption = organiza
End Sub Bom se não for isto o caminho foi indicado valeu até
|
|
|
|
Maxwell Lima
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/03/2008 23:02 hs
Treze....eh exatamente isso q eu precisava....mas eu gostaria q me explicasse essa sua programação p eu aprender, pq tenho q fazer o sentido inverso tb....
axo q to pedindo mto,mas se for possivel valeu....
e qual a variavel p eu colocar numeros também?
muito obrigado d vdd
|
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/03/2008 23:11 hs
Não é bem o que você quer, mas veja este programinha. Este é um programinha que faz criptografia (Bem simples) A frase "eu to fudido" Salvei a mesma frase 4 vezes. äGŽ7²ŽG[ž[²51 äGŽ7²ŽG[ž[²JM5 … U? ü"ÒØšÒÃ"{W{š * |
|
TÓPICO EDITADO
|
|
|
|
|
