Java 对比 Delphi Base64 编码

Question

Delphi 和 Java 生成完全不同的值。

我有 MD5 列表，我需要先用 Base64 编码，然后用 URLEncode。

这里是delphi和java相同哈希值的输出。

如何使用 Delphi 获得与 Java 相同的输出？

MD5 输入值：

BB8C890E3E6372F2720709262BD42BF4

Java Base64 编码输出值：

vIRYPbGf3toJDQehgv3SOamnTNk=

Delphi Base64 编码输出值：

QkI4Qzg5MEUzRTYzNzJGMjcyMDcwOTI2MkJENDJCRjQ=

delphi 代码行是：

IdEncoderMIME1.EncodeString('BB8C890E3E6372F2720709262BD42BF4');

而 Java 来源是：

String md5 = new String(Base64.encodeBase64(decodedHex));

完整的 Java 代码（我想得到与 Delphi 相同的结果）： public static void main(String[] args) 抛出异常 { 如果 ( args.length != 8 ) { 用法（）; return; }

WebClient webClient = null;

try
{
byte[] decodedHex = Hex.decodeHex(args[0].toCharArray());

String sha1 = new String(Base64.encodeBase64(decodedHex));

decodedHex = Hex.decodeHex(args[1].toCharArray());

String md5 = new String(Base64.encodeBase64(decodedHex));

String rep = args[2];
String comment = args[3];
String Server = args[4];
String ServerPort = args[5];
String username = args[6];
String password = args[7];

String params = "[{\"sha1\":\"" + sha1 + "\",\"md5\":\"" + md5 + "\",\"rep\":\"" + rep + "\",\"comment\":\"" + comment + "\"}]";

// Note the usage of URLEncoder to ensure special characters can be used within the parameters.
String url = "https://" + Server + ":" + ServerPort + "/setRep?fileReps=" + URLEncoder.encode(params, "UTF-8");

System.out.println("\nWeb API params with Base64 values but are not yet URL encoded:");
System.out.println("\n" + params + "\n");
System.out.println("\nWeb API URL call with URL encoded parameters:");
System.out.println("\n" + url + "\n");

webClient = new WebClient(BrowserVersion.FIREFOX_24);

webClient.getOptions().setUseInsecureSSL(true);

DefaultCredentialsProvider userCredentials = (DefaultCredentialsProvider)webClient.getCredentialsProvider();
userCredentials.addCredentials(username, password);
webClient.setCredentialsProvider(userCredentials);

Page setFileRepResponsePage = webClient.getPage(url);

String pageResponse = setFileRepResponsePage.getWebResponse().getContentAsString();

System.out.println("HTTP Status code: " + setFileRepResponsePage.getWebResponse().getStatusCode());
System.out.println(pageResponse);

}
catch(Exception ex)
{
ex.printStackTrace();
}
finally
{
try
{
webClient.closeAllWindows();
}
catch(Exception ex) {}
}
}

Answer 1

package main;

import java.io.UnsupportedEncodingException;
import java.util.Base64;

public class test {
    public static void main(String[] args) {
        try {
            // outputs QkI4Qzg5MEUzRTYzNzJGMjcyMDcwOTI2MkJENDJCRjQ=
            System.out.println(Base64.getEncoder()
                .encodeToString("BB8C890E3E6372F2720709262BD42BF4".getBytes("US-ASCII")));
        } catch (UnsupportedEncodingException e) {
            throw new RuntimeException(e);
        }
    }
}

Answer 2

IdEncoderMIME1.EncodeString('BB8C890E3E6372F2720709262BD42BF4');

这需要文本输入，编码为 ASCII，然后编码为 base64。

String md5 = new String(Base64.encodeBase64(decodedHex));

这采用 decodedHex 中的二进制数据并编码为 base64。

因此，您的两段代码在做不同的事情。为了让你取得任何进步，你真的需要弄清楚你想做什么。在我看来，采用二进制散列、编码为十六进制、编码为 ASCII，然后编码为 base64 是没有意义的。

所以我会说 Delphi 代码是问题所在。您从二进制哈希和 base64 编码开始。我不能给你代码来做到这一点，因为你没有给我们足够的代码来使用。例如，我很确定您不会以 'BB8C890E3E6372F2720709262BD42BF4' 作为字符串文字开头。

但实际上您在这里的主要任务不是编写代码，而是牢牢掌握您应该执行的编码。

FWIW，文本和二进制之间的这种混淆是 Delphi 标签中反复出现的重要主题之一。我猜这一切都源于 Delphi 程序员养成的使用 string 就好像它是字节数组的习惯。这种文本和二进制之间的区别的模糊导致了像 TIdEncoderMIME.EncodeString 这样的方法，它鼓励你错误地认为 base64 编码对文本输入进行操作。

根据您最近的编辑，您希望将十六进制字符串解码为二进制字符串，并对其进行 base64 编码。在 Delphi:

中是这样做的

uses
  System.Classes,
  System.NetEncoding;

function HexStringToBase64(const HexStr: string): string;
var
  md5bytes: TBytes;
begin
  SetLength(md5Bytes, Length(HexStr) div 2);
  HexToBin(PChar(HexStr), Pointer(md5Bytes), Length(md5Bytes));
  Result := TNetEncoding.Base64.EncodeBytesToString(md5Bytes);
end;

现在，除非您使用 XE7 或更高版本，否则您不会有 TNetEncoding。如果是这样，请选择另一个 base64 库。如果你更喜欢使用 Indy 编码器，那么你可以这样写：

function HexStringToBase64(const HexStr: string): string;
var
  md5bytes: TIdBytes;
begin
  SetLength(md5Bytes, Length(HexStr) div 2);
  HexToBin(PChar(HexStr), Pointer(md5Bytes), Length(md5Bytes));
  Result := TIdEncoderMIME.EncodeBytes(md5Bytes);
end;

FWIW，您的 Java 代码不会产生您声称的输出。

Java 对比 Delphi Base64 编码

Java vs Delphi Base64 Encoding

java

delphi

encoding

base64