当前位置：文江博客话题详情

如何从十六进制格式的解包中获取校验和？

发布于 2024-10-18 20:42:19 字数 362 浏览 1 评论 0原文

我一直试图找出 Perl 中的 unpack 函数，但不太清楚说出整个事情。

我有什么：一个字符串和一个 16 位十六进制校验和（例如“这是我的字符串”，“0671”）

我需要检查“这是我的字符串”等于校验和'0671'。

所以我知道 unpack("%16W*", $string) 会给我 16 位十进制值，但我需要十六进制表示。我知道这是一件容易的事，所以请原谅我的无知。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

涫野音 2024-10-25 20:42:19

正如您所说， unpack("%16W*", $string) 为您提供一个整数。要将整数转换为十六进制，请使用 sprintf：

my $string = "this is my string";
my $expected = '0671';

my $checksum = sprintf('%04x', unpack("%16W*", $string));
print "match\n" if $checksum eq $expected;

如果您想要大写的十六进制数字，使用 %X 而不是 %x （在本例中为 %04X）。

或者，您可以采用另一种方式，使用 hex 将十六进制校验和转换为整数：

my $string = "this is my string";
my $expected = '0671';

my $checksum = unpack("%16W*", $string);
print "match\n" if $checksum == hex $expected; # now using numeric equality

As you said, unpack("%16W*", $string) gives you an integer. To convert an integer to hex, use sprintf:

my $string = "this is my string";
my $expected = '0671';

my $checksum = sprintf('%04x', unpack("%16W*", $string));
print "match\n" if $checksum eq $expected;

If you want upper-case hex digits, use %X instead of %x (or %04X in this case).

Or, you could go the other way and convert your hex checksum to an integer using hex:

my $string = "this is my string";
my $expected = '0671';

my $checksum = unpack("%16W*", $string);
print "match\n" if $checksum == hex $expected; # now using numeric equality

回复收藏 0 原文