descifrar

Iniciado por zerofive, 26 Septiembre 2006, 04:06 AM

0 Miembros y 1 Visitante están viendo este tema.

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:
Citar
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
soy un delincuente. Mi delito es la curiosidad<<hacker's manifiest>>

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

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

sircid

#3
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
soy un delincuente. Mi delito es la curiosidad<<hacker's manifiest>>

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?