Cifrar

[Archreg]

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  

[Karcrack]

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:

Código (vb) [Seleccionar] Expandir

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

[Archreg]

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:

Código (vb) [Seleccionar] Expandir

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

[Karcrack]

Código (vb) [Seleccionar] Expandir

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:

Código [Seleccionar] Expandir

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/269-cifrar-descifrar.htm

Un saludo

[Elemental Code]

depende para que lo queres podes hacer lo siguiente

Código [Seleccionar] Expandir

StrReverse (String)

No es un super cifrado pero es algo.

[Archreg]

Por si quieres aprender algo sobre estas tecnicas:

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

StrReverse (String)

No es un super cifrado pero es algo.

¿Pero eso dónde lo pongo?   Pero grx 

[Elemental Code]

ROLF

busca en msdn como funciona strreverse. ¬¬

te ayudo mira hacele asi:

Código [Seleccionar] Expandir

VariableAdondeGuardasElTextoCifrado = StrReverse(VariableAdondeEstaElTextoSinCifrar)

y para descifrar hace lo mismo pero al revez ¬¬

Si ya no entendes, dedicate a jugar al tetris.

[Archreg]

ROLF

busca en msdn como funciona strreverse. ¬¬

te ayudo mira hacele asi:

Código [Seleccionar] Expandir

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

[Archreg]

Sorry, me salió el mensaje de arriba 2 veces