Public Shared Function DecodeBase64ToString(valor As String) As String Dim myBase64ret As Byte() = Convert.FromBase64String(valor) Dim myStr As String = System.Text.Encoding.UTF8.GetString(myBase64ret) Return myStr End Function Public Shared Function EncodeStrToBase64(valor As String) As String Dim myByte As Byte() = System.Text.Encoding.UTF8.GetBytes(valor) Dim myBase64 As String = Convert.ToBase64String(myByte) Return myBase64 End Function
Os dejo el código para codificar y descodificar desde un Procedure, por si os pudiera servir.
--
-- Codificar de string a b64
--
SELECT
CAST(N'' AS XML).value(
'xs:base64Binary(xs:hexBinary(sql:column("bin")))',
'VARCHAR(MAX)'
)
FROM (
SELECT CAST('{"targetid":"main","navigateFun":"openpage","objectname":"pers_tarea","objectwhere":"(tareas.IdTarea=6074)","defaults":"null","pagetypeid":"view","filtersValues":null,"pagename":"9806A868-0947-47AA-B4B3-364EF2B6A23F"}'
AS VARBINARY(MAX)) AS bin
) AS bin_sql_server_temp;
--
-- Decodificar de b64 a string
--
SELECT
CAST(
CAST(N'' AS XML).value(
'xs:base64Binary("eyJ0YXJnZXRpZCI6Im1haW4iLCJuYXZpZ2F0ZUZ1biI6Im9wZW5wYWdlIiwib2JqZWN0bmFtZSI6InBlcnNfdGFyZWEiLCJvYmplY3R3aGVyZSI6Iih0YXJlYXMuSWRUYXJlYT0nNjA3NCcpIiwiZGVmYXVsdHMiOiJudWxsIiwicGFnZXR5cGVpZCI6InZpZXciLCJmaWx0ZXJzVmFsdWVzIjpudWxsLCJwYWdlbmFtZSI6Ijk4MDZBODY4LTA5NDctNDdBQS1CNEIzLTM2NEVGMkI2QTIzRiJ9")'
, 'VARBINARY(MAX)'
)
AS VARCHAR(MAX)
) ASCIIEncoding
;
Buenos días, siguiendo con el hilo, seria posible que se abriera solo el objeto sin los menús superior y de la izquierda?
Berta Colom