|
Título: descifrar Publicado por: zerofive en 26 Septiembre 2006, 04:06 am 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: si me ayudan gracias y si no igualOption 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 Título: Re: descifrar Publicado por: dPix en 26 Septiembre 2006, 18:24 pm 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 Título: Re: descifrar Publicado por: Hendrix en 26 Septiembre 2006, 20:10 pm 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 Título: Re: descifrar Publicado por: sircid en 26 Septiembre 2006, 23:55 pm Código: Function Dec(Texto As String, Ruta As String) 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) Título: Re: descifrar Publicado por: zerofive en 28 Septiembre 2006, 02:05 am 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 Título: Re: descifrar Publicado por: sircid en 28 Septiembre 2006, 19:10 pm 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?
|