chishingchan 发表于 2012-11-13 16:58:06

BASE64 编解码（无需#include）

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

$objStream = ObjCreate("ADODB.Stream")
$objStream.Type = 1
$objStream.Open
$objStream.LoadFromFile($CmdLine)

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

$objStream.Close

MsgBox("",$CmdLine & " BASE64 编码",$sBase64String)

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

;MsgBox("",$CmdLine & " BASE64 解码",BinaryToString($Base64Decode))
MsgBox("",$CmdLine & " BASE64 解码",$Base64Decode)

A3fan 发表于 2012-11-13 17:04:56

原来需要组件。。。{:face (456):}

komaau3 发表于 2012-11-13 19:35:49

学习了 多谢楼主分享

jkq920 发表于 2012-11-14 00:38:47

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

zifeng 发表于 2013-4-8 09:39:45

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

zxxputian2 发表于 2018-6-2 18:04:20

看不懂，谢谢提供

zhaicheng 发表于 2018-10-18 14:37:48

编译完了之后拖到exe上面 参数传递

xyx115 发表于 2018-12-28 10:27:49

我用了你的工具，转码了一段base64的字符，出来的结果是：0x426F3833526C66646F6348347A36366854466C75492B31436D383154526C7A6E534733516D61536D48553647352F4C434E31624241476676396B4D4D356561655370596F2F2F4F6F78565A544B33535947704C6E334E2B566F6638326A51573461523257336C583844574670724165584A354A564F696C6F763976646E5058486E6D555062374274776573306D364B646E53444537336D6D59336E4F483454385A586A623961775A58744D3D
但我不知道，这个结果是16进制还是10进制或者是字符串。请指点。谢谢

傻娃 发表于 2020-4-9 11:18:19

记录一下，以后备用
页: [1]
查看完整版本: BASE64 编解码（无需#include）