文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 374
阅读 10
收藏 0
点赞 0
评论 0

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;

本文转载自:http://www.cnblogs.com/del/p/3172098.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
短网址(short URL)系统的原理及其实现

背景 提供一个短址服务 你有没有发现,我们的任务中出现长 URL 就会比较麻烦?如果有一个短址生成器就好了。虽然市面上有很多,但是我们可以重复发明一个轮子,利用这个机会尝试一下简单的 ...

琯琯
01/20
0
0
微博短网址原理的算法

短网址一直都在微博上应用。例如腾讯微博的短网址url.cn,新浪的sinaurl.cn等。 他们是如何实现呢,我在网上看了一下,大多是下面的一些思路: 例如:http://url.cn/1zJdGX?type=1&from=19&u...

疯狂的流浪
2012/12/10
13K
29
java java.lang.Long详解之一:toString()

文章看过后感觉受益匪浅,所以留下了以备温故:http://www.congmo.net/blog/2012/03/05/Long-toString/ 陆陆续续花了近两周时间看完了Long.java,可以说收获颇丰。也花了几天时间构思应该如何...

赵小宾
2014/12/08
0
1
C/C++ Base64解码器

Base64被广泛用于xml类型的文档中,通过实现编码和译码,可以练习一下c++ 首先,我们要知道什么是Base64编码。它是把二进制文件存储成为文本文件后的文件的编码,它是64位进制的编码,所以对...

李三乎
2012/09/04
0
0
深入理解JAVA虚拟机学习笔记14——Class类文件的结构(2访问标志, 继承, 实现)

各位朋友,上一篇的常量池都掌握了吧,我们的口号是:每天进步一点点! 开始之前,我们先巩固并扩充一下昨天的知识,用Excel表示一下就是这样的(请原谅笔者low到爆的画图水平,画这种图有什...

徐可心
06/08
0
0
shell中二进制、十进制、十六进制等进制转换

shell中二进制、十进制、十六进制等进制转换 笑遍世界2017-11-261 阅读 ShellLinux Shell脚本中数值都是默认按照十进制处理的,除非这个数值做了特殊标记,如:以 0 开头就是 8 进制数,以0...

笑遍世界
2017/11/26
0
0
如何用JavaScript手动实现一个栈

什么是栈(Stack) 栈是一种遵从后进先出(LIFO)原则的有序集合。 新添加的或待删除的元素都保存在栈的末尾,称为栈顶,另一端叫栈底。 在栈里,新元素都靠近栈顶,旧元素都接近栈底 现实中...

行无忌
06/15
0
0
C#实现整型数据字任意编码任意进制的转换和逆转换

又是个闲极无聊的下午,无聊写了这么个东西,可以实现任意整数按照任意编码和任意进制的转换和逆向转换。 用途: 恶。。这个我也不清楚,目前看来可以用来做验证码,用来做短网址,其他?暂时...

晨曦之光
2012/06/06
79
0
Java MD5加密原理分析及代码示例

由于MD5的不可逆,所以有的网站会把密码转换MD5,然后存储。但是这种算法并不是100%严密的,参考MD5 - 维基百科 下面就写写MD5在Java中的使用。 主要分为四步 定义一个char数组,存储16进制的...

Mr_river
2015/11/27
1K
1
一道笔试题

分析 诚然,最先想到的方法就是10层循环(OMG!),这显然是一个很可怕的方法(虽然这并没有错)。 那么我们该怎么办呢? 接下来就该想到将这62个字符对应一个固定的下标,我们按一定的方法生...

小强零号
2015/10/21
148
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Laravel5.5 MySQL配置、读写分离及操作

Laravel 让连接不同数据库以及对数据库进行增删改查操作: 参考:http://laravelacademy.org/post/854.html 配置读写分离 应用的数据库配置位于 config/database.php(但是数据库用户及密码等...

MichaelShu
8分钟前
0
0
Linux 查看用户

存储帐号的文件:/etc/passwd 存储密码的文件:/etc/shadow 查看当前系统所有用户 grep bash /etc/passwd root修改普通用户的密码 sudo passwd user_name 然后连续两次输入新的用户密码即可...

yeahlife
14分钟前
0
0
Webpack使用nodemon实时打包编译

业务场景: 1.编写一个npm组件包并且link到了项目文件中 2.需要不断的修改并run build编译npm包并且在项目run dev 查看效果 3.问题: 每次改完npm包都要手动run build编译十分的麻烦且低效,可不...

JamesView
25分钟前
0
0
电脑炸了,浪费我好几天时间,还是简要记下来吧

我的小本本一直在兢兢业业的干活,然而前几天说炸就炸了...... 爆炸现场: 软件: windows10 pro + EIS11+ 360卫士 BIOS:N1DET98W 2.24 硬件: Xeon E3 1505-V5 nv-M3000M thinkpadP70:20E...

Oh_really
30分钟前
0
0
Git之branch和checkout

1.branch是查看、创建、删除分支 #>git branch --helpNAME git-branch - List, create, or delete branchesSYNOPSIS git branch [--color[=<when>] | --no-color] [......

汉斯-冯-拉特
31分钟前
0
0
Mybatis拦截器之数据权限过滤与分页集成

需求场景 最近项目有个数据权限的业务需求,要求大致为每个单位只能查看本级单位及下属单位的数据,例如:一个集团军下属十二个旅,那么军级用户可以看到所有数据,而每个旅则只能看到本旅部...

佛系程序猿灬
40分钟前
9
0
SpringCloud 微服务 (十六) 服务追踪 Zipkin

问题 在服务中,有一个接口,该A接口中又调用了其他服务的B、C、D接口,出现一个请求耗时大的问题,这时候并不知道该B、C、D接口中哪个接口造成的耗时量,然后比如确定C服务接口出现的耗时量大,但...

___大侠
今天
0
0
Java面试基础篇——第八篇:抽象类与接口的区别

1.抽象类 抽象类:如果一个类中包含有抽象方法,或这个类使用abstract关键字修饰,则称这个类是抽象类。 抽象方法是什么呢?抽象方法就是指用abstract关键字修饰的方法。 需要注意的是:抽象...

developlee的潇洒人生
今天
2
0
jsoup 相关资料

1.jsoup 2.Jsoup概述 3.jsoup入门 4.jsoup Java HTML Parser 1.11.3 API

IT追寻者
今天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部