 Autor
|
Tema: ayuda con disque crypter (Leído 2,472 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,771
|
28 Septiembre 2012, 14:37 pm
por pocholopd
|
|
|
|
Ayuda crypter en C
« 1 2 »
Programación C/C++
|
Hacklinx
|
11
|
5,567
|
18 Enero 2014, 12:12 pm
por Hacklinx
|
|
|
|
AYUDA CON CRYPTER PLEASE !!!
Programación General
|
fsinatra
|
0
|
2,111
|
1 Marzo 2014, 02:35 am
por fsinatra
|
|
|
|
[Ayuda] Crypter para Archivos .exe FUD
Hacking
|
xElNoobx
|
2
|
3,758
|
10 Junio 2014, 14:43 pm
por xavicibi
|
|
|
|
Ayuda Crypter
Análisis y Diseño de Malware
|
P3liks
|
1
|
4,178
|
30 Octubre 2017, 22:27 pm
por fary
|
 |
