IPv6 地址的算术（大整数）

发布于 2024-07-17 00:37:32 字数 258 浏览 5 评论 0原文

我正在使用以下形式的 IPv6 地址：

FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF

在内部，我将它们存储在一个数组中：

TIp6Bytes = array [0..15] of Byte;

我需要以多种方式操作 IPv6 地址，包括添加、除法、乘法等。任何人都可以提出一个好方法来做到这一点吗？

我想我应该提到我正在使用 Delphi 2009

原文

I'm working with IPv6 addresses in the form:

FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF:FFFF

Internally, I store them in an array:

TIp6Bytes = array [0..15] of Byte;

I need to manipulate the IPv6 addresses in a number of ways including adding, dividing, multiplying etc. Can anyone suggest a good way to do this?

I guess I should have mentioned that I'm working with Delphi 2009

分享到QQ

分享到微博

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

发布评论

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

安静被遗忘 2024-07-24 00:37:32

Jes Klinke 在此处为 Pascal 编写了一个 bignum 单元。

免责声明：我个人没有使用过这个库。

回复收藏 0 原文

人事已非 2024-07-24 00:37:32

在尝试了许多建议之后，我找不到一个能够满足我所有需求并且没有错误的库。我进行了一些搜索，发现了 Alex Ciobanu 的一个相对较新的库，它无缝地处理 BigIntegers（和 Big Cardinals），允许您以与操作普通整数、基数等相同的方式操作它们。

除了 BigIntegers 之外，该库还提供了许多非常有用的功能。来自自述文件：

一组通用集合类
（列表、字典、哈希集等）。
日期/时间功能全部组合在一起
在一些结构中（以某种方式
相当于.NET的DateTime
结构）
类型支持概念，定义了
一组默认的“支持类”
每个内置的 Delphi 类型（用作
集合中的默认值）。风俗
“类型支持”类可以是
注册您的自定义数据
类型。
BigCardinal 和 BigInteger 数据类型。
Delphi 中的智能指针

该库正在积极开发中。事实上，作者在一天内修复了我发现的一个小错误。

您可以在 Alex 的博客上了解有关该库的更多信息，并从 Google 代码。

回复收藏 0 原文

昨迟人 2024-07-24 00:37:32

我曾经编写过一个 IPv4 和 IPv6 转换单元，其中包括自定义变体类型对于两种类型的 IP 地址。

例如，使用这些 Variant 类型，可以进行以下示例算术和转换：

procedure TForm1.Button1Click(Sender: TObject);
var
  I4: TIPv4;
  I6: TIPv6;
  V1, V2, V3, V4: Variant;
begin
  I4 := StrToIPv4('192.0.2.128');
  I6 := IPv4ToIPv6(I4);
  V1 := VarIPv6Create('2001:db8:85a3:0:0:8a2e:0370:7334');
  V2 := IPv6ToVar(I6);
  V3 := V1 - V2;
  V4 := V1 or V2;
  if V3 < V4 then
    Log(V3 + ' is smaller than ' + V4);
  if V2.Equals('::ffff:192.0.2.128') or V2.IsZero then
    Log('OK');
  Log('V1 = ' + V1.AsStringOutwritten);
  Log('V2 = ' + V2.AsURL);
  Log('V3 = ' + V3.AsStringCompressed);
  V4.Follow;
end;

procedure TForm1.Log(const S: String);
begin
  Memo.Lines.Add(S);
end;

自定义变体类型确实非常强大。

I once wrote a IPv4 and IPv6 conversion unit including a custom variant type for both types of IP addresses.

For instance, with these Variant types, the following example arithmetics and conversions are possible:

procedure TForm1.Button1Click(Sender: TObject);
var
  I4: TIPv4;
  I6: TIPv6;
  V1, V2, V3, V4: Variant;
begin
  I4 := StrToIPv4('192.0.2.128');
  I6 := IPv4ToIPv6(I4);
  V1 := VarIPv6Create('2001:db8:85a3:0:0:8a2e:0370:7334');
  V2 := IPv6ToVar(I6);
  V3 := V1 - V2;
  V4 := V1 or V2;
  if V3 < V4 then
    Log(V3 + ' is smaller than ' + V4);
  if V2.Equals('::ffff:192.0.2.128') or V2.IsZero then
    Log('OK');
  Log('V1 = ' + V1.AsStringOutwritten);
  Log('V2 = ' + V2.AsURL);
  Log('V3 = ' + V3.AsStringCompressed);
  V4.Follow;
end;

procedure TForm1.Log(const S: String);
begin
  Memo.Lines.Add(S);
end;

Custom variant types really are quite powerfull.

回复收藏 0 原文