Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Archreg en 5 Enero 2011, 23:48 pm


Título: Cifrar
Publicado por: Archreg 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  ;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:


Título: Re: En criptar
Publicado por: 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
  1. Option Explicit
  2.  
  3. ' Agrega un boton y un textbox escribe lo que quieras en el textbox y apreta el boton...
  4.  
  5. Private Sub Command1_Click()
  6.     Text1.Text = XorFF(Text1.Text)
  7. End Sub
  8.  
  9. Public Function XorFF(ByVal sData As String) As String
  10.     Dim i   As Long
  11.  
  12.     XorFF = sData
  13.  
  14.     For i = 1 To Len(XorFF)
  15.         Mid$(XorFF, i, 1) = Chr$(Asc(Mid$(XorFF, i, 1)) Xor &HFF)
  16.     Next i
  17. End Function

Título: Re: En criptar
Publicado por: Archreg en 6 Enero 2011, 00:05 am
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
  1. Option Explicit
  2.  
  3. ' Agrega un boton y un textbox escribe lo que quieras en el textbox y apreta el boton...
  4.  
  5. Private Sub Command1_Click()
  6.     Text1.Text = XorFF(Text1.Text)
  7. End Sub
  8.  
  9. Public Function XorFF(ByVal sData As String) As String
  10.     Dim i   As Long
  11.  
  12.     XorFF = sData
  13.  
  14.     For i = 1 To Len(XorFF)
  15.         Mid$(XorFF, i, 1) = Chr$(Asc(Mid$(XorFF, i, 1)) Xor &HFF)
  16.     Next i
  17. 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

Título: Re: Cifrar
Publicado por: Karcrack en 6 Enero 2011, 01:43 am
Código
  1. Option Explicit
  2.  
  3. ' Agrega un boton y un textbox escribe lo que quieras en el textbox y apreta el boton...
  4.  
  5. Private Sub Command1_Click()
  6.     Text1.Text = Xor0F(Text1.Text)
  7. End Sub
  8.  
  9. Public Function Xor0F(ByVal sData As String) As String
  10.     Dim i   As Long
  11.  
  12.     Xor0F = sData
  13.  
  14.     For i = 1 To Len(Xor0F)
  15.         Mid$(Xor0F, i, 1) = Chr$(Asc(Mid$(Xor0F, i, 1)) Xor &HF)
  16.     Next i
  17. End Function

Por si quieres aprender algo sobre estas tecnicas:
Código:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/269-cifrar-descifrar.htm

Un saludo ;)

Título: Re: Cifrar
Publicado por: Elemental Code en 6 Enero 2011, 03:14 am
depende para que lo queres podes hacer lo siguiente :P

Código:
StrReverse (String)

No es un super cifrado pero es algo.

Título: Re: Cifrar
Publicado por: Archreg en 6 Enero 2011, 11:29 am
Cita de: Karcrack en  6 Enero 2011, 01:43 am

Por si quieres aprender algo sobre estas tecnicas:
Código:
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

Código:
StrReverse (String)

No es un super cifrado pero es algo.

¿Pero eso dónde lo pongo?   :huh: Pero grx  :P

Título: Re: Cifrar
Publicado por: Elemental Code en 7 Enero 2011, 04:00 am
ROLF

busca en msdn como funciona strreverse. ¬¬

te ayudo mira hacele asi:
Código:
VariableAdondeGuardasElTextoCifrado = StrReverse(VariableAdondeEstaElTextoSinCifrar)

y para descifrar hace lo mismo pero al revez ¬¬

Si ya no entendes, dedicate a jugar al tetris.

Título: Re: Cifrar
Publicado por: Archreg en 8 Enero 2011, 14:36 pm
Cita de: Elemental Code en  7 Enero 2011, 04:00 am
ROLF

busca en msdn como funciona strreverse. ¬¬

te ayudo mira hacele asi:
Código:
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

Título: Re: Cifrar
Publicado por: Archreg en 8 Enero 2011, 14:41 pm
Sorry, me salió el mensaje de arriba 2 veces  :-\


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines