Asp Base64 hex tipi

Merhaba, klasik asp ile
"7353cf97ed9471d8b1ca180b6277f855f27214668d40d3b01 34b8c91c8bb51a8"
elde ettiğim bu kodu base64 encode ediyorum
"NzM1M2NmOTdlZDk0NzFkOGIxY2ExODBiNjI3N2Y4NTVmMjcyM TQ2NjhkNDBkM2IwMTM0YjhjOTFjOGJiNTFhOA=="
text olarak bu şekilde bir sonuç çıkıyor. ancak çıkmasını istediğim sonuç
"c1PPl+2UcdixyhgLYnf4VfJyFGaNQNOwE0uMkci7Uag="
olması gerekiyor.

online converter üzerinden izah etmek gerekirse
https://emn178.github.io/online-tool...64_encode.html

"7353cf97ed9471d8b1ca180b6277f855f27214668d40d3b01 34b8c91c8bb51a8"
bu kodu input type hex seçerek encode edince
"c1PPl+2UcdixyhgLYnf4VfJyFGaNQNOwE0uMkci7Uag="
bu sonuca ulaşabiliyorum. asp ile nasıl yapabilirim?

verdiğiniz kod için denemedim ama olması lazım

<%
' Functions for encoding string to Base64
Function Base64Encode(sText)
  Dim oXML, oNode
  Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
  Set oNode = oXML.CreateElement("base64")
  oNode.dataType = "bin.base64"
  oNode.nodeTypedValue = Stream_StringToBinary(sText)
  Base64Encode = oNode.text
  Set oNode = Nothing
  Set oXML = Nothing
End Function

Function Base64Decode(ByVal vCode)
  Dim oXML, oNode
  Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
  Set oNode = oXML.CreateElement("base64")
  oNode.dataType = "bin.base64"
  oNode.text = vCode
  Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue)
  Set oNode = Nothing
  Set oXML = Nothing
End Function

Private Function Stream_StringToBinary(Text)
  Const adTypeText = 2
  Const adTypeBinary = 1
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")
  BinaryStream.Type = adTypeText
  BinaryStream.CharSet = "us-ascii"
  BinaryStream.Open
  BinaryStream.WriteText Text
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeBinary
  BinaryStream.Position = 0
  Stream_StringToBinary = BinaryStream.Read
  Set BinaryStream = Nothing
End Function

Private Function Stream_BinaryToString(Binary)
  Const adTypeText = 2
  Const adTypeBinary = 1
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")
  BinaryStream.Type = adTypeBinary
  BinaryStream.Open
  BinaryStream.Write Binary
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeText
  BinaryStream.CharSet = "us-ascii"
  Stream_BinaryToString = BinaryStream.ReadText
  Set BinaryStream = Nothing
End Function    


%>