如何为 AutoIt 和 PowerShell 获得相同的 Base64 编码？

Question

我使用 Ward 的 AutoIt 机器代码算法集合 在 AutoIt 中获取字符串的 Base64 编码：

#Include "Base64.au3"

Dim $Encode = _Base64Encode("ps")
MsgBox(0, 'Base64 Encode Data', $Encode)

结果：

cHM=

PowerShell 代码获取同一字符串“ps”的 Base64 编码：

$commands = 'ps'
$bytes = [System.Text.Encoding]::Unicode.GetBytes($commands)
$encodedString = [Convert]::ToBase64String($bytes)
$encodedString

我得到的是：

cABzAA==

PowerShell 的结果是我想要什么。如何使用 AutoIt 获得相同的结果？我猜这是一个字符编码问题。

Answer 1

当我运行此脚本时：

#Include "Base64.au3"

$Decode = _Base64Decode("cABzAA==")
ConsoleWrite($Decode & @CRLF)

我得到结果：0x70007300。基本上，这意味着有一个“70”字符（p）、一个“00”字符（nul）、一个“73”字符（s）、“00”字符。您可以使用如下函数轻松地在 AutoIt 中重新创建此行为：

#Include "Base64.au3"

Dim $Encode = _Base64WEncode("ps")
ConsoleWrite($Encode & @CRLF)

Func _Base64WEncode($string)
    Local $result = ""
    Local $arr = StringSplit($string, "")
    For $i = 1 To UBound($arr) - 1
        $result &= $arr[$i] & Chr(0)
    Next
    $result = _Base64Encode($result)
    Return $result
EndFunc

结果是： cABzAA==

有点 hack 式，但我想说，如果您不需要完整的 Unicode 编码，则它优于完整的 Unicode 编码。

Answer 2

#Include "Base64.au3"    
#include <MsgBoxConstants.au3>
#include <StringConstants.au3>

Dim $Encode = _Base64Encode(StringToBinary("ps", $SB_UTF16LE))
MsgBox(0, 'Base64 Encode Data', $Encode)

这将给出你想要的：

cABzAA==

Answer 3

使用 ASCII 编码而不是 Unicode：

$bytes = [System.Text.Encoding]::ASCII.GetBytes($commands)