ayuda con disque crypter

[asdexiva]

por que este codigo no remplaza como dice por ejemplo escribo b aparece z y debe aparecer e pongo d debe aparecer g y apareze h

Código [Seleccionar] Expandir

Text1.Text = Replace(Text1.Text, "b", "e")
Text1.Text = Replace(Text1.Text, "c", "f")
Text1.Text = Replace(Text1.Text, "d", "g")
Text1.Text = Replace(Text1.Text, "e", "h")
Text1.Text = Replace(Text1.Text, "f", "i")
Text1.Text = Replace(Text1.Text, "g", "j")
Text1.Text = Replace(Text1.Text, "h", "k")
Text1.Text = Replace(Text1.Text, "i", "l")
Text1.Text = Replace(Text1.Text, "j", "m")
Text1.Text = Replace(Text1.Text, "k", "n")
Text1.Text = Replace(Text1.Text, "l", "o")
Text1.Text = Replace(Text1.Text, "m", "p")
Text1.Text = Replace(Text1.Text, "n", "q")
Text1.Text = Replace(Text1.Text, "o", "r")
Text1.Text = Replace(Text1.Text, "p", "s")
Text1.Text = Replace(Text1.Text, "q", "t")
Text1.Text = Replace(Text1.Text, "r", "u")
Text1.Text = Replace(Text1.Text, "s", "v")
Text1.Text = Replace(Text1.Text, "t", "w")
Text1.Text = Replace(Text1.Text, "u", "x")
Text1.Text = Replace(Text1.Text, "v", "y")
Text1.Text = Replace(Text1.Text, "w", "z")
Text1.Text = Replace(Text1.Text, "x", "a")
Text1.Text = Replace(Text1.Text, "y", "b")
Text1.Text = Replace(Text1.Text, "z", "c")  
gracias

y si alguien me podria explicar el for each please xD

[Danyfirex]

Podrías hacer algo así en el caso keypress de tu caja de texto.

Código (vb) [Seleccionar] Expandir


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 And KeyAscii <= 119 Then KeyAscii = KeyAscii + 3: Exit Sub
  If KeyAscii = 120 Then KeyAscii = KeyAscii - 23
  If KeyAscii = 121 Then KeyAscii = KeyAscii - 23
   If KeyAscii = 122 Then KeyAscii = KeyAscii - 23
   End Sub


Saludos

[asdexiva]

muchisimas gracias
Danyfirex

si no es mucha molestia me podrias explicar como funciona el codigo que es lo que hace ?

[noalg]

El codigo no esta correctamente planeado, al ejecutarlo primero remplaza la b por la e, como esta previsto, pero luego encuentra que debe remplazar la e por h y asi sucesivamente, por lo que remplaza mas de una vez por letra deberias hacer un bucle for que recorriese letra por letra y las vaya remplazando una a una.

Saludos

[asdexiva]

El codigo no esta correctamente planeado, al ejecutarlo primero remplaza la b por la e, como esta previsto, pero luego encuentra que debe remplazar la e por h y asi sucesivamente, por lo que remplaza mas de una vez por letra deberias hacer un bucle for que recorriese letra por letra y las vaya remplazando una a una.

Saludos

me podrias explicar como hacer el for mas o menos?

ya esta solucionado pero si no es mucha molestia como aria eso del for

intente con for each pero no podia :S

[Danyfirex]

Espero se entienda.

Código (vb) [Seleccionar] Expandir

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Linea 1: Verifica que la tecla presionada este entre el rango a(97 en ascii) y w(119 en ascii)
'linea 1: si eso es verdadero le suma 3 a tu tecla presionada ejemplo si presionas b(98 en ascii) se cumple y sumas tres al valor ascii resultando en 98+3 = 101 que es el valor ascii de e, luego salimos de la rutina con exit sub
If KeyAscii >= 97 And KeyAscii <= 119 Then KeyAscii = KeyAscii + 3: Exit Sub '1 linea
' si no se cunple la de arriba es porque estamos en alguno de los valores x,y,z
 If KeyAscii = 120 Then KeyAscii = KeyAscii - 23 'si la tecla es 120 entonces restamos 23 resultando 97 que es valor ascii de a
 If KeyAscii = 121 Then KeyAscii = KeyAscii - 23 'si la tecla es 121 entonces restamos 23 resultando 98 que es valor ascii de b
  If KeyAscii = 122 Then KeyAscii = KeyAscii - 23 'si la tecla es 122 entonces restamos 23 resultando 99 que es valor ascii de c
  End Sub



PD: con for o each seria mucho mas lento.  

saludos

[asdexiva]

muchisimas gracias danyfirex ya entendi como quien diriaque   los 3 que le sumas y los 23 que le restas son como para verificar  

ay me tienes viendo la tabla esta jaja

Código [Seleccionar] Expandir

a 97
b 98
c 99
d 100
e 101
f 102
g 103
h 104
i 105
j 106
k 107
l 108
m 109
n 110
o 111
p 112
q 113
r 114
s 115
t 116
u 117
v 118
w 119
x 120
y 121
z 122

oye abra alguna forma de que esto por ejemplo pego lo que quiero convertir en el textbox a otro texto y presionar un boton y se convierta por que de letra en letra esta bien pero seria mas comodo si se pudiera pegando de antemano gracias

[Danyfirex]

Si la hay seria solo tienes que modificar un poco el código. y recorrer el texto.

[asdexiva]

Si la hay seria solo tienes que modificar un poco el código. y recorrer el texto.

habra alguna forma de que si presiono a se ponga %a% y se presiono b %b% asi susesivamente ?
y si podrias explicarme como ponerle el for muchas gracias
gracias

[Danyfirex]

Si lees un poco lo puedes hacer.y s tienesdudas pregunta.