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 ;D
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 :rolleyes:
En castellano se dice cifrar, no encriptar
No 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
Cita de: Karcrack en 5 Enero 2011, 23:59 PM
En castellano se dice cifrar, no encriptar
No 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 ;D
Pero una cosa... Al cifrar me dan unos carácteres muy raros, me gustaría algo más "normal" Como letras y números ;D
Y si, tienes razón, no se mucho sobre cifrados xD, Grx
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 ;)
depende para que lo queres podes hacer lo siguiente :P
StrReverse (String)
No es un super cifrado pero es algo.
Cita de: Karcrack en 6 Enero 2011, 01:43 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 ;D Pero el link está roto... :-[ Ya miraré la página ;D
Cita de: Elemental Code en 6 Enero 2011, 03:14 AM
depende para que lo queres podes hacer lo siguiente :P
StrReverse (String)
No es un super cifrado pero es algo.
¿Pero eso dónde lo pongo? :huh: Pero grx :P
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.
Cita de: Elemental Code 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.
Gracias ;D Y no me gusta el tetris xDD
Sorry, me salió el mensaje de arriba 2 veces :-\