| JoSeMi |  |
|
2006-05-15 23:13 - Respuestas: 9 - Tema nº: 2413282
Un placer ayudarte.
Saludos. | |
|
|
| algo |  |
|
Re: Dudas sobre los codigos de hurricane en la seccion trucos - 2006-05-16 21:38 - Respuesta 7
Necesito ayua de nuevo Josemi:
esto no me funciona
yo copio el codigo de hurricane en un ocx y creo el ocx , despues lo agrego a un formulario y le introduzco S y P por dos textbox mi pregunta es:
la variable la debo agregar en el ocx o en el exe
sea como sea que debo poner para recibir la respuesta en un textbox o en un label.
Salu2 y gracias
PD: me recomiendas algun curso de VB en particular?? | |
|
|
| ebolo |  |
|
Re: Dudas sobre los codigos de hurricane en la seccion trucos - 2006-05-17 21:13 - Respuesta 8
Hola, algo no necesitas poner el código en ningún ocx, ni crearlo, lo puedes poenr directamente en el código del formulario. Luego desde donde quieras llamas la función.
Por ej, puedes colocar un botón de comando y en el evento _Click llama a la función que quieras. Te dejo el código:
Code:
Rem Encripta una cadena de caracteres.
Rem S = Cadena a encriptar
Rem P = Password
Function EncryptStr(ByVal S As String, ByVal P As String) As String
Dim I As Integer, R As String
Dim C1 As Integer, C2 As Integer
R = nulo;nulo;
If Len(P) nulo; 0 Then
For I = 1 To Len(S)
C1 = Asc(Mid(S, I, 1))
If I nulo; Len(P) Then
C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))
Else
C2 = Asc(Mid(P, I, 1))
End If
C1 = C1 + C2 + 64
If C1 nulo; 255 Then C1 = C1 - 256
R = R + Chr(C1)
Next I
Else
R = S
End If
EncryptStr = R
End Function
Rem Desencripta una cadena de caracteres.
Rem S = Cadena a desencriptar
Rem P = Password
Function UnEncryptStr(ByVal S As String, ByVal P As String) As String
Dim I As Integer, R As String
Dim C1 As Integer, C2 As Integer
R = nulo;nulo;
If Len(P) nulo; 0 Then
For I = 1 To Len(S)
C1 = Asc(Mid(S, I, 1))
If I nulo; Len(P) Then
C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))
Else
C2 = Asc(Mid(P, I, 1))
End If
C1 = C1 - C2 - 64
If Sgn(C1) = -1 Then C1 = 256 + C1
R = R + Chr(C1)
Next I
Else
R = S
End If
UnEncryptStr = R
End Function
Private Sub Command1_Click()
Text3.Text = EncryptStr(Text1.Text, Text2.Text)
End Sub
En el formulario pon un botón y 3 textbox.
Un saludo.
| |
|
|
| ebolo | |
|
Re: Dudas sobre los codigos de hurricane en la seccion trucos - 2006-05-17 21:20 - Respuesta 9
Hola de nuevo, te lo completo un poco más:
Code:
Private Sub Command2_Click()
Text4.Text = UnEncryptStr(Text3.Text, Text2.Text)
End Sub
Coloca un 4º textbox y otro botón.
Cuando aprietes el boton1 en text3 te aparecerá encriptado el texto; cuando apritetes el boton2 te aparecerá el text desencriptado, que debe ser igual al text1, con lo que te sirve para comparar.
+ saludos.
Espero haber sido claro.
| |
|
|
| algo | |
|
Re: Dudas sobre los codigos de hurricane en la seccion trucos - 2006-05-17 21:22 - Respuesta 10
Gracias por este ultimo detalle (pero he sido rapido y esto ultimo ya lo tenia hecho antes de tu segunda respuesta jaja )
Muchas Gracias
Salu2 | |
|
|
|
