Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[VBS] Base64 Encode/Decode metodo mas veloz (FUD)

  • 0 Respuestas
  • 2381 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

« en: Abril 18, 2018, 12:27:52 pm »
HOLA!!!

Aqui una serie de funciones para codificar y decodificar base64 de y a texto y de y a stream binario.

Código: Visual Basic
  1. Function Base64Encode(sText)
  2.     Dim oXML, oNode
  3.  
  4.     Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
  5.     Set oNode = oXML.CreateElement("base64")
  6.     oNode.dataType = "bin.base64"
  7.     oNode.nodeTypedValue =Stream_StringToBinary(sText)
  8.     Base64Encode = oNode.text
  9.     Set oNode = Nothing
  10.     Set oXML = Nothing
  11. End Function
  12.  
  13. Function Base64Decode(ByVal vCode)
  14.     Dim oXML, oNode
  15.  
  16.     Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
  17.     Set oNode = oXML.CreateElement("base64")
  18.     oNode.dataType = "bin.base64"
  19.     oNode.text = vCode
  20.     Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue)
  21.     Set oNode = Nothing
  22.     Set oXML = Nothing
  23. End Function
  24.  
  25. Function Stream_StringToBinary(Text)
  26.   Const adTypeText = 2
  27.   Const adTypeBinary = 1
  28.   Dim BinaryStream 'As New Stream
  29.  Set BinaryStream = CreateObject("ADODB.Stream")
  30.   BinaryStream.Type = adTypeText
  31.   BinaryStream.CharSet = "us-ascii"
  32.   BinaryStream.Open
  33.   BinaryStream.WriteText Text
  34.   BinaryStream.Position = 0
  35.   BinaryStream.Type = adTypeBinary
  36.   BinaryStream.Position = 0
  37.   Stream_StringToBinary = BinaryStream.Read
  38.   Set BinaryStream = Nothing
  39. End Function
  40.  
  41. Function Stream_BinaryToString(Binary)
  42.   Const adTypeText = 2
  43.   Const adTypeBinary = 1
  44.   Dim BinaryStream 'As New Stream
  45.  Set BinaryStream = CreateObject("ADODB.Stream")
  46.   BinaryStream.Type = adTypeBinary
  47.   BinaryStream.Open
  48.   BinaryStream.Write Binary
  49.   BinaryStream.Position = 0
  50.   BinaryStream.Type = adTypeText
  51.   BinaryStream.CharSet = "us-ascii"
  52.   Stream_BinaryToString = BinaryStream.ReadText
  53.   Set BinaryStream = Nothing
  54. End Function

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   DOORS.PARTY

 

¿Te gustó el post? COMPARTILO!



[VBS] String a Base64

Iniciado por xyz

Respuestas: 2
Vistas: 2813
Último mensaje Abril 18, 2018, 12:23:56 pm
por 79137913