Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: MeCraniDOS en 28 Mayo 2013, 15:52 pm

Título: [?] Significado de la Función
Publicado por: MeCraniDOS en 28 Mayo 2013, 15:52 pm

Hola, alguien podría explicarme como descifra esta función?

Código

Function descifrar(DataValue As Variant) As Variant
 
        Dim x As Long
        Dim Temp As String
        Dim HexByte As String
 
        For x = 1 To Len(DataValue) Step 2
 
            HexByte = Mid(DataValue, x, 2)
            Temp = Temp & Chr(ConvToInt(HexByte))
 
        Next x
        ' retorno
        descifrar = Temp
 
End Function

Esta cadena esta cifrada con ese algoritmo...

Citar

6F70656E

Saludos y espero que puedan ayudarme :-\ :-\

Título: Re: [?] Significado de la Función
Publicado por: BlackM4ster en 28 Mayo 2013, 16:43 pm

Pues coje cada 2 carácteres. saca el hexadecimal, y lo pasa al carácter del int

Título: Re: [?] Significado de la Función
Publicado por: MeCraniDOS en 28 Mayo 2013, 19:28 pm

Cita de: Black Master en 28 Mayo 2013, 16:43 pm

Pues coje cada 2 carácteres. saca el hexadecimal, y lo pasa a int

Vale vale, muchas gracias, ha sido una pregunta un poco tonta... :-\

Saludos

Título: Re: [?] Significado de la Función
Publicado por: BlackM4ster en 28 Mayo 2013, 21:31 pm

Mira la respuesta bien

Título: Re: [?] Significado de la Función
Publicado por: MCKSys Argentina en 30 Mayo 2013, 19:31 pm

Como acotación: La función se podría simplificar asi:

Código

Function descifrar(DataValue As Variant) As Variant
Dim x As Long
Dim Temp As String
Dim HexByte As String
 
For x = 1 To Len(DataValue) Step 2
    HexByte = Mid(DataValue, x, 2)
    'Temp = Temp & Chr(ConvToInt(HexByte))
    Temp = Temp & Chr(cInt("&H" + HexByte))
Next x
descifrar = Temp
End Function

Asi ConvToInt no haria falta.

Aunque, bueno, es sólo una acotación... :)

Saludos!