找回密码
 加入
搜索
查看: 5996|回复: 9

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

[复制链接]
发表于 2012-11-13 16:58:06 | 显示全部楼层 |阅读模式
以下这段代码由 VBScript 转化过来的,使用方法很简单,将需要转换的文件拖一个到此脚本中即可!
If $CmdLine[0] <> 1 Then Exit

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

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

$objStream.Close

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

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

;MsgBox("",$CmdLine[1] & " BASE64 解码",BinaryToString($Base64Decode))
MsgBox("",$CmdLine[1] & " BASE64 解码",$Base64Decode)
发表于 2012-11-13 17:04:56 | 显示全部楼层
原来需要组件。。。
发表于 2012-11-13 19:35:49 | 显示全部楼层
学习了 多谢楼主分享
发表于 2012-11-14 00:38:47 | 显示全部楼层
多谢楼主分享.....................学习了
发表于 2013-4-8 09:39:45 | 显示全部楼层
这东西好像不行啊。我怎么拖进去呢
发表于 2018-6-2 18:04:20 | 显示全部楼层
看不懂,谢谢提供
发表于 2018-10-18 14:37:48 | 显示全部楼层
编译完了之后拖到exe上面 参数传递
发表于 2018-12-28 10:27:49 | 显示全部楼层
我用了你的工具,转码了一段base64的字符,出来的结果是:
0x426F3833526C66646F6348347A36366854466C75492B31436D383154526C7A6E534733516D61536D48553647352F4C434E31624241476676396B4D4D356561655370596F2F2F4F6F78565A544B33535947704C6E334E2B566F6638326A51573461523257336C583844574670724165584A354A564F696C6F763976646E5058486E6D555062374274776573306D364B646E53444537336D6D59336E4F483454385A586A623961775A58744D3D
但我不知道,这个结果是16进制还是10进制或者是字符串。请指点。谢谢

点评

是属于BASE64编码字符串  发表于 2018-12-29 00:04
发表于 2020-4-9 11:18:19 | 显示全部楼层
记录一下,以后备用
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 13:39 , Processed in 0.116181 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表