Autor
Esto es un código que tengo, y lo que supuestamente hace es coger una cadena "cifrada" de un textbox y "desencriptarlo" y mandarlo a otro textbox. La cosa es que cada letra o numero, esta alli "cifrada" en tres numeros. Por eso use el split, pero no estoy convencido de haberlo usado correctamente. Aunque luego me tira error en la parte del array. Alguien podría tirarme un cable? o orientarme un poco?
Código:
Private Sub Command2_Click()
Dim Tamaño As String
Dim Carac As String
Dim Cadena As String
Dim tArray() As String
Dim Traduc As String
Dim Decrip As String
Dim valor As Byte
Tamaño = Len(Text5.Text)
Carac = Tamaño \ 3
Cadena = Text5.Text
tArray = Split(Cadena, Carac)
valor = 101
Text3.Text = Carac
For i = 1 To Carac
Traduc = tArray(i) - valor
Decrip = Chr(Traduc)
txto = Text2.Text
Text2.Text = txto & Decrip
Next i
End Sub
tambien probe con el LBound y UBound pero alli me enrolle más todavía
Gracias
Salu2
En línea
