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) 抛出异常 { if ( args.length != 8 ) { 用法(); 返回; }

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

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 代码不会产生您声称的输出。