返回列表 发帖

[原创] BASE64 编解码(无需#include)

以下这段代码由 VBScript 转化过来的,使用方法很简单,将需要转换的文件拖一个到此脚本中即可!
  1. If $CmdLine[0] <> 1 Then Exit

  2. $objStream = ObjCreate("ADODB.Stream")
  3. $objStream.Type = 1
  4. $objStream.Open
  5. $objStream.LoadFromFile($CmdLine[1])

  6. $objXMLDoc = ObjCreate("Msxml2.DOMDocument")
  7. $objDocElem = $objXMLDoc.CreateElement("base64")
  8. $objDocElem.dataType = "bin.base64"
  9. $objDocElem.nodeTypedValue = $objStream.Read
  10. $sBase64String = $objDocElem.text

  11. $objStream.Close

  12. MsgBox("",$CmdLine[1] & " BASE64 编码",$sBase64String)

  13. ;$objXMLDoc = ObjCreate("Msxml2.DOMDocument")
  14. ;$objDocElem = $objXMLDoc.CreateElement("base64")
  15. ;$objDocElem.dataType = "bin.base64"
  16. $objDocElem.text = $sBase64String
  17. $Base64Decode = $objDocElem.nodeTypedValue

  18. ;MsgBox("",$CmdLine[1] & " BASE64 解码",BinaryToString($Base64Decode))
  19. MsgBox("",$CmdLine[1] & " BASE64 解码",$Base64Decode)
复制代码

原来需要组件。。。
I’m a3fan

TOP

学习了 多谢楼主分享
业精于勤荒于嬉。

TOP

多谢楼主分享.....................学习了

TOP

这东西好像不行啊。我怎么拖进去呢

TOP

看不懂,谢谢提供

TOP

返回列表