## 做了一个 62 进制的简单实现 转

涂孟超

62 进制需要的字符及次序: 0..9 a..z A..Z; 只实现了 62 进制字符串与正整数的互换.

``````unit H62;

interface

uses SysUtils;

function IntToH62(N: UInt64): string; //整数转到 62 进制字符串
function H62ToInt(S: string): UInt64; //62 进制字符串转到整数

implementation

function _C2B(C: Char): Byte; inline;
begin
Result := 0;
if CharInSet(C, ['0'..'9']) then Exit(Byte(C) - 48);      //0..9
if CharInSet(C, ['a'..'z']) then Exit(Byte(C) - 97 + 10); //a..z
if CharInSet(C, ['A'..'Z']) then Exit(Byte(C) - 65 + 36); //A..Z
end;

function _B2C(B: Byte): Char; inline;
begin
Result := #0;
if B <= 9 then Exit(Char(B + 48));                       //0..9
if (B >= 10) and (B <= 35) then Exit(Char(B - 10 + 97)); //a..z
if (B >= 36) and (B <= 61) then Exit(Char(B - 36 + 65)); //A..Z
end;

function _Power(B,P: Cardinal): UInt64; inline;
var
i: Integer;
begin
Result := B;
for i := 1 to P-1 do Result := Result * B;
end;

function _C2V(C: Char; N: Byte): UInt64; inline;
begin
Result := 0;
if (N = 0) then Exit(_C2B(C));
if (N > 0) then Result := _C2B(C) * _Power(62, N);
end;

function IntToH62(N: UInt64): string;
var
C: Char;
begin
Result := '';
repeat
C := _B2C(N mod 62);
Result := C + Result;
N := N div 62;
until (N = 0);
end;

function H62ToInt(S: string): UInt64;
var
C: Char;
L,N,I: Cardinal;
begin
Result := 0;
L := Length(S);
if L > 11 then raise Exception.Create('Err: H62ToInt'); //不能多于 11 位
for I := L downto 1 do
begin
C := S[I];
N := L - I;
Result := Result + _C2V(C, N);
end;
end;

end.``````

``````//测试:
uses H62;

procedure TForm1.FormCreate(Sender: TObject);
var
n: Cardinal;
I: UInt64;
str: string;
begin
str := IntToH62(MaxInt);  // 2lkCB1
n := H62ToInt(str);       // 2147483647

I := 9999999999999999999; // 19 位
str := IntToH62(I);       // bUI6zOLZTrh

str := 'ZZZZZZZZZZZ';     // 最大值
I := H62ToInt(str);       // 15143072536417990655; 比 UInt64 的最大值(18446744073709551615)小一点, 比 Int64 的最大值(9223372036854775807)大一点
end;``````

### 涂孟超

2018/08/23
0
0

2018/01/20
0
0

2012/12/10
13.6K
29
java java.lang.Long详解之一：toString()

2014/12/08
0
1
PHP如何实现62进制数据？

PHP如何实现62进制数据？

Cral
2014/12/06
934
4

o0无忧亦无怖
40分钟前
2
0
Mac Vim配置

1.升级 vim　　 我自己 MacBook Pro 的系统还是 10.11 ，其自带的 vim 版本为 7.3 ，我们将其升至最新版： 使用 homebrew ： brew install vim --with-lua --with-override-system-vim 这将下...

Pasenger
53分钟前
2
0
vmware安装Ubuntu上不了网？上网了安装不了net-tools，无法执行ifconfig？

1.重新设置网络适配器还是不行，如下指定nat 2.还需要指定共享网络，我是在无线环境下 3.无法执行ifconfig https://packages.ubuntu.com/bionic/net-tools到这个网站下载net-tools的deb文件...

noob_chr

1
0

svn:E210007 svn: Cannot negotiate authentication mechanism 执行下面代码即可 sudo yum install cyrus-sasl cyrus-sasl-plain cyrus-sasl-ldap...

1
0
java8的时间和`Date`的对比

java8的时间和Date的对比 java8提供了新的时间接口。相对Date,Calendar,个人感觉最大的好处是对时间操作的学习成本很低，比Calendar低。 1. LocalDate,LocalTime,LocalDateTime LocalDate 代...

2
0