Hola, alguien podría explicarme como descifra esta función?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 FunctionEsta cadena esta cifrada con ese algoritmo...Citar6F70656E
Saludos y espero que puedan ayudarme :-\ :-\
Pues coje cada 2 carácteres. saca el hexadecimal, y lo pasa al carácter del int
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
Mira la respuesta bien
Como acotación: La función se podría simplificar asi:
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!