¿Como puedo encriptar un texto

Wenas, me he estado comiendo el coco para haber como podia "encriptar" un texto pero he sido incapaz!!!..

La verdad no tengo ni idea de como se hace, haber si alguien sabe algo y se pone aqui un ejemplo ...xD



Digamos que tenemos un text y un boton y que se encripte automaticamente al pulsar el boton...nose si es mucho lo q pido, me imagino q no.. jeje





Weno venga un saludo y grax por adelantado

Existen muchos algoritmos para encriptar caracteres, éstas funciones las vi hace mucho y me sirvieron para practicar.

Encriptar

Código:

'S=Cadena a encriptar

'P=Password

Function Encriptar(ByVal S As String, ByVal P As String) As String

 * *Dim I As Integer, R As String

 * *Dim C1 As Integer, C2 As Integer

 * *R = ""

 * *If Len(P) > 0 Then

 * * * *For I = 1 To Len(S)

 * * * * * *C1 = Asc(Mid(S, I, 1))

 * * * * * *If I > Len(P) Then

 * * * * * * * *C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))

 * * * * * *Else

 * * * * * * * *C2 = Asc(Mid(P, I, 1))

 * * * * * *End If

 * * * * * * * *C1 = C1 + C2 + 64

 * * * * * *If C1 > 255 Then C1 = C1 - 256

 * * * * * * * *R = R + Chr(C1)

 * * * *Next I

 * *Else

 * * * *R = S

 * *End If

 * *Encriptar = R

End Function

Desencriptar

Código:

'S=Cadena a encriptar

'P=Password

Function Desencriptar(ByVal S As String, ByVal P As String) As String

 * *Dim I As Integer, R As String

 * *Dim C1 As Integer, C2 As Integer

 * *R = ""

 * *If Len(P) > 0 Then

 * * * *For I = 1 To Len(S)

 * * * * * *C1 = Asc(Mid(S, I, 1))

 * * * * * *If I > Len(P) Then

 * * * * * * * *C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))

 * * * * * *Else

 * * * * * * * *C2 = Asc(Mid(P, I, 1))

 * * * * * *End If

 * * * * * * * *C1 = C1 - C2 - 64

 * * * * * *If Sgn(C1) = -1 Then C1 = 256 + C1

 * * * * * * * *R = R + Chr(C1)

 * * * *Next I

 * *Else

 * * * *R = S

 * *End If

 * *Desencriptar = R

End Function

Su uso es muy sencillo, por ejemplo para mandarlas llamar desde un boton:

Código:

'Text1 es el texto a encriptar

'Text2 se visualiza el texto ya encriptado

Private Sub Command1_Click()

 * *Text2.Text = Encriptar(Text1.Text, "robbie")

End Sub

Código:

'Text2 es el texto encriptado

'Text3 se visualiza el texto ya desencriptado

Private Sub Command2_Click()

 * *Text3.Text = Desencriptar(Text2.Text, "robbie")

End Sub

grax rob1104, haber si pronto lo domino y puedo crear el mio jeje..



De todas maneras ayer vi otra forma de encriptar textos ( creo q no es un algoritmo, ¿¿pero entonces q es?? )

Nose..xD lo dejo aqui aver q te parece..



Private Sub Command1_Click()

Dim TextoAux1 As String, Texto As String, TextoAux As String, ghj as integer

On Error Resume Next

Texto = ""

TextoAux1 = Text1.Text

For ghj = 1 To Len(TextoAux1)

Text1.SelStart = ghj - 1

Text1.SelLength = 201 ' SelLength, cambias este numero y cambia la manera de encriptar

TextoAux = Text1.SelText

Texto = Texto + Chr$(Asc(TextoAux) Xor 139) 'Xor, se cambia el numero y cambia la manera de encriptar

Next ghj



Text1.Text = Texto



end sub



Añadir un Text y un boton en el form



*Un par de preguntillas, ¿se puede "hacer mas grande" el algoritmo q tu has puesto?

Código:

Private Sub Command1_Click()

 * Text2.Text = Encriptar(Text1.Text, "robbie") '--->"robbie" funciona como una variable?(¿Cual es?).. luego la he cambiado en los dos codes y el resultado es distinto..xD esq son muxas preguntas jeje pero con estas ya me arreglare;)



End Sub

un saludo

Hay un tipo de encriptación bastante sencillo, el algoritmo de Cesar, búscalo y lo entenderas de una.

Grax RadicalEd, la verdad esq me estaba torturando haciendo unos "algoritmos" un tanto extraños xD...



Si alguien lo quiere aqui pongo el lugar dond lo baje : Algoritmo de Cesar

un saludo