descifrar

[zerofive]

necesito saber como descifrar, no se si se pone igual a cifrado,la verdad no se
les doy el code que uso para cifrar:

Proyecto:
Option Explicit
Private Sub LaVolpeButton1_Click()
Enc Text1.Text, Text2.Text ' cifra el texto y pone los caracteres en el fichero de texto
End Sub
y la del modulo:
Option Explicit
Function Enc(Texto As String, Ruta As String)
Dim Codigo
Dim Actual
Dim i
For i = 1 To Len(Texto)
Actual = Hex(Asc(Mid(Texto, i, 1)) Xor 23)
Codigo = Codigo & Actual
Next
Open Ruta For Append As #1
Print #1, Codigo
Close #1
End Function

si me ayudan gracias y si no igual

[dPix]

tienes que hacer la operación contraria a cifrar, cuando digo contraria me refiero a que has de llevar a cabo los pasos en el sentido contrario.

Un saludo,

dPix

[Hendrix]

No hay que ahcer nada kontrario proke esta encritpado kon el Xor (si no saben kee s konsulten el google).

Este kodigo es facilito, dediken un solo minuto a buskar en google y veran komo enkontraran la explikacion a todo lo que no komprendan de este kodigo, no se komo pueden usar un kodigo sin saber que hacer....

Salu2

[sircid]

Código [Seleccionar] Expandir

Function Dec(Texto As String, Ruta As String)
Dim Codigo
Dim Actual
Dim i
For i = 1 To Len(Texto) Step 2
Actual = Chr(Val( "&h" & Mid(Texto, i, 2)) Xor 23)
Codigo = Codigo & Actual
Next
Open Ruta For Append As #1
Print #1, Codigo
Close #1
End Function

Code editado Enc por Dec, Actual = Hex(... por Actual = Chr(Val( "&h" & Mid(Texto, i, 2)) Xor 23), Bucle de 2 en 2 (Step 2), ya que los valores hexadecimales ocupan 2 espacios.

Para descifrar lo que he hecho es pasar el valor hexadecimal a decimal (Val("&hC1"))(compruébalo ya veras como da el mismo valor que la calculadora), descifrar el valor decimal con Xor con el mismo número usado en la cifrado y después de desencriptarlo faltará pasar ese resultado decimal al código Ascii con Asc(cualquier numero)

[zerofive]

Muxas Grax por la mejora de codigo en encript pero en la desencriptacion, perdona pero no lo entendi muy bien.podrias poner un code de ejemplo...
perdona si no lo logro entender

[sircid]

jajaja el codigo que postee es el codigo que vale para descifrar! te explique las modificaciones que tiene conforme el code de cifrar para que entiendas lo que he hecho... ya que supongo que estaras aqui para aprender y no para copiar code sin mas no?