Cifrar

Iniciado por Archreg, 5 Enero 2011, 23:48 PM

0 Miembros y 2 Visitantes están viendo este tema.

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  ;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:

Lol...

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]
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

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:
Código (vb) [Seleccionar]
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
Lol...

Karcrack

#3
Código (vb) [Seleccionar]
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 ;)

Elemental Code

depende para que lo queres podes hacer lo siguiente :P

StrReverse (String)

No es un super cifrado pero es algo.

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas

Archreg

#5
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
Lol...

Elemental Code

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.

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas

Archreg

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
Lol...

Archreg

#8
Sorry, me salió el mensaje de arriba 2 veces  :-\
Lol...