 Autor
|
Tema: Cifrar (Leído 4,611 veces)
|
Archreg
 Desconectado
Mensajes: 25
Archreg...
|
 |
Cifrar
« en: 5 Enero 2011, 23:48 pm » |
|
Hoola!Quisiera poder cifrar en VB, me da igual si es en 6 o 2010 (Preferiblemente VB 2010)... He buscado por ahí pero no he encontrado nada...  ¿Teneis algún source o tuto de cómo cifrar? Gracias  Pero por ejemplo, si escribo algo en X TextBox y al darle a un botón se cifre, no cifrar cadenas de texto.. No se si me entendeis 
|
|
|
|
« Última modificación: 6 Enero 2011, 00:19 am por Archreg »
|
En línea
|
Lol...
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
En castellano se dice cifrar, no encriptarNo parece que tengas mucha idea sobre cifrados... No estoy seguro de lo que quieres... pero te pongo este ejemplo: Option Explicit ' Agrega un boton y un textbox escribe lo que quieras en el textbox y apreta el boton... Private Sub Command1_Click() Text1.Text = XorFF(Text1.Text) End Sub Public Function XorFF(ByVal sData As String) As String Dim i As Long XorFF = sData For i = 1 To Len(XorFF) Mid$(XorFF, i, 1) = Chr$(Asc(Mid$(XorFF, i, 1)) Xor &HFF) Next i End Function
|
|
|
|
|
En línea
|
|
|
|
Archreg
Desconectado
Mensajes: 25
Archreg...
|
En castellano se dice cifrar, no encriptarNo parece que tengas mucha idea sobre cifrados... No estoy seguro de lo que quieres... pero te pongo este ejemplo: Option Explicit ' Agrega un boton y un textbox escribe lo que quieras en el textbox y apreta el boton... Private Sub Command1_Click() Text1.Text = XorFF(Text1.Text) End Sub Public Function XorFF(ByVal sData As String) As String Dim i As Long XorFF = sData For i = 1 To Len(XorFF) Mid$(XorFF, i, 1) = Chr$(Asc(Mid$(XorFF, i, 1)) Xor &HFF) Next i End Function
Sí, eso era lo que quería hacer! Grx Pero una cosa... Al cifrar me dan unos carácteres muy raros, me gustaría algo más "normal" Como letras y números Y si, tienes razón, no se mucho sobre cifrados xD, Grx
|
|
|
|
|
En línea
|
Lol...
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
|
Re: Cifrar
« Respuesta #3 en: 6 Enero 2011, 01:43 am » |
|
Option Explicit ' Agrega un boton y un textbox escribe lo que quieras en el textbox y apreta el boton... Private Sub Command1_Click() Text1.Text = Xor0F(Text1.Text) End Sub Public Function Xor0F(ByVal sData As String) As String Dim i As Long Xor0F = sData For i = 1 To Len(Xor0F) Mid$(Xor0F, i, 1) = Chr$(Asc(Mid$(Xor0F, i, 1)) Xor &HF) Next i End Function
Por si quieres aprender algo sobre estas tecnicas: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/269-cifrar-descifrar.htm Un saludo 
|
|
|
|
« Última modificación: 6 Enero 2011, 01:46 am por Karcrack »
|
En línea
|
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
|
Re: Cifrar
« Respuesta #4 en: 6 Enero 2011, 03:14 am » |
|
depende para que lo queres podes hacer lo siguiente  No es un super cifrado pero es algo. |
|
|
|
|
En línea
|
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas |
|
|
Archreg
Desconectado
Mensajes: 25
Archreg...
|
|
Re: Cifrar
« Respuesta #5 en: 6 Enero 2011, 11:29 am » |
|
Por si quieres aprender algo sobre estas tecnicas: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/269-cifrar-descifrar.htm Un saludo Gracias Pero el link está roto...  Ya miraré la página depende para que lo queres podes hacer lo siguiente No es un super cifrado pero es algo. ¿Pero eso dónde lo pongo?  Pero grx
|
|
|
|
« Última modificación: 6 Enero 2011, 11:31 am por Archreg »
|
En línea
|
Lol...
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
|
Re: Cifrar
« Respuesta #6 en: 7 Enero 2011, 04:00 am » |
|
ROLF busca en msdn como funciona strreverse. ¬¬ te ayudo mira hacele asi: VariableAdondeGuardasElTextoCifrado = StrReverse(VariableAdondeEstaElTextoSinCifrar) y para descifrar hace lo mismo pero al revez ¬¬ Si ya no entendes, dedicate a jugar al tetris. |
|
|
|
|
En línea
|
I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas |
|
|
Archreg
Desconectado
Mensajes: 25
Archreg...
|
|
Re: Cifrar
« Respuesta #7 en: 8 Enero 2011, 14:36 pm » |
|
ROLF busca en msdn como funciona strreverse. ¬¬ te ayudo mira hacele asi: VariableAdondeGuardasElTextoCifrado = StrReverse(VariableAdondeEstaElTextoSinCifrar) y para descifrar hace lo mismo pero al revez ¬¬ Si ya no entendes, dedicate a jugar al tetris. Gracias Y no me gusta el tetris xDD
|
|
|
|
|
En línea
|
Lol...
|
|
|
Archreg
Desconectado
Mensajes: 25
Archreg...
|
|
Re: Cifrar
« Respuesta #8 en: 8 Enero 2011, 14:41 pm » |
|
Sorry, me salió el mensaje de arriba 2 veces  |
|
|
|
« Última modificación: 8 Enero 2011, 14:43 pm por Archreg »
|
En línea
|
Lol...
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
[C#] cifrar/descifrar en AES
.NET (C#, VB.NET, ASP)
|
Mace Windu
|
4
|
18,893
|
20 Diciembre 2010, 04:56 am
por [D4N93R]
|
|
|
|
¿Cifrar contraseñas?
Scripting
|
RedKnight
|
4
|
4,130
|
29 Mayo 2009, 00:47 am
por Darioxhcx
|
|
|
|
Como cifrar los parámetros de una URL en PHP
Criptografía
|
stefani04
|
2
|
9,768
|
8 Abril 2011, 00:07 am
por Gambinoh
|
|
|
|
Cifrar 'todo' el disco
GNU/Linux
|
Distorsion
|
4
|
3,275
|
26 Marzo 2012, 01:17 am
por Foxy Rider
|
|
|
|
software cifrar o cifrar
Criptografía
|
ambrayas
|
7
|
7,982
|
21 Septiembre 2017, 04:41 am
por AlbertoBSD
|
 |
