[?] Significado de la Función

[MeCraniDOS]

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

Código (vbnet) [Seleccionar] Expandir

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...

6F70656E

Saludos y espero que puedan ayudarme 

[BlackM4ster]

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

[MeCraniDOS]

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

[BlackM4ster]

Mira la respuesta bien

[MCKSys Argentina]

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

Código (vb) [Seleccionar] Expandir


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!