Autor
|
Tema: ayuda con disque crypter (Leído 2,710 veces)
|
asdexiva
Desconectado
Mensajes: 217
|
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 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
|
|
« Última modificación: 11 Agosto 2013, 00:28 am por asdexiva »
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Podrías hacer algo así en el caso keypress de tu caja de texto. 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
|
|
|
En línea
|
|
|
|
asdexiva
Desconectado
Mensajes: 217
|
muchisimas gracias Danyfirex
si no es mucha molestia me podrias explicar como funciona el codigo que es lo que hace ?
|
|
|
En línea
|
|
|
|
noalg
Desconectado
Mensajes: 26
|
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
|
|
|
En línea
|
|
|
|
asdexiva
Desconectado
Mensajes: 217
|
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
|
|
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Espero se entienda. 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
|
|
« Última modificación: 11 Agosto 2013, 02:09 am por Danyfirex »
|
En línea
|
|
|
|
asdexiva
Desconectado
Mensajes: 217
|
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 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
|
|
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Si la hay seria solo tienes que modificar un poco el código. y recorrer el texto.
|
|
|
En línea
|
|
|
|
asdexiva
Desconectado
Mensajes: 217
|
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
|
|
« Última modificación: 11 Agosto 2013, 18:55 pm por asdexiva »
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Si lees un poco lo puedes hacer.y s tienesdudas pregunta.
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
[AYUDA] Crypter
Análisis y Diseño de Malware
|
pocholopd
|
2
|
3,980
|
28 Septiembre 2012, 14:37 pm
por pocholopd
|
|
|
Ayuda crypter en C
« 1 2 »
Programación C/C++
|
Hacklinx
|
11
|
6,247
|
18 Enero 2014, 12:12 pm
por Hacklinx
|
|
|
AYUDA CON CRYPTER PLEASE !!!
Programación General
|
fsinatra
|
0
|
2,304
|
1 Marzo 2014, 02:35 am
por fsinatra
|
|
|
[Ayuda] Crypter para Archivos .exe FUD
Hacking
|
xElNoobx
|
2
|
4,166
|
10 Junio 2014, 14:43 pm
por xavicibi
|
|
|
Ayuda Crypter
Análisis y Diseño de Malware
|
P3liks
|
1
|
4,370
|
30 Octubre 2017, 22:27 pm
por fary
|
|