# A simple implementation of a band of 62

Recommended for you: Get network issues from WhatsUp Gold. Not end users.

Character and order 62 hexadecimal need: 0..9 a..Z A..Z; only the exchange of 62 hexadecimal strings and integers.

```unit H62;

interface

uses SysUtils;

function IntToH62(N: UInt64): string; //Integer to 62 hexadecimal string
function H62ToInt(S: string): UInt64; //62 hexadecimal string to integer

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 = 10) and (B = 36) and (B  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'); //Not more than 11
for I := L downto 1 do
begin
C := S[I];
N := L - I;
Result := Result + _C2V(C, N);
end;
end;

end.
```
```//Test:
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';     // The maximum value
I := H62ToInt(str);       // 15143072536417990655; The maximum values than UInt64 (18446744073709551615) is smaller than Int64, the maximum value (922337203685477580) a little
end;
```
Recommended from our users: Dynamic Network Monitoring from WhatsUp Gold from IPSwitch. Free Download

Posted by Lauren at January 07, 2014 - 6:40 PM