descifrar

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP)

Programación Visual Basic (Moderadores: LeandroA, seba123neo)

descifrar

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

Páginas: [1]

Autor

Tema: descifrar (Leído 1,687 veces)

zerofive

Desconectado

Mensajes: 79

descifrar

« 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:
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


	En línea

soy un delincuente. Mi delito es la curiosidad<<hacker's manifiest>>

dPix

Desconectado

Mensajes: 222

¬_¬ - ¬O.o

Re: descifrar

« Respuesta #1 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


	En línea

Hendrix

In The Kernel Land
Colaborador

Desconectado

Mensajes: 2.276

Re: descifrar

« Respuesta #2 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


	En línea

"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

Desconectado

Mensajes: 107

¡Nacido para ******te!

Re: descifrar

« Respuesta #3 en: 26 Septiembre 2006, 23:55 pm »

Código:

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)


« Última modificación: 27 Septiembre 2006, 00:01 am por sircid »	En línea

zerofive

Desconectado

Mensajes: 79

Re: descifrar

« Respuesta #4 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


	En línea

soy un delincuente. Mi delito es la curiosidad<<hacker's manifiest>>

sircid

Desconectado

Mensajes: 107

¡Nacido para ******te!

Re: descifrar

« Respuesta #5 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?


	En línea

Páginas: [1]

Ir a: