paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:31:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Additional functions needed in PEM/ASN

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-11-08 19:06:55 +01:00
parent 168cb8f2ca
commit 93f579ecd8
1 changed files with 69 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
packages/hash/src/hashutils.pp
View File

@ -20,23 +20,31 @@ uses
Procedure BytesFromVar(out aBytes : TBytes; aLocation : Pointer; aSize : Integer);
Function BytesFromVar(aLocation : Pointer; aSize : Integer) : TBytes;
Procedure BytesToVar(const aBytes : TBytes; out aLocation; aSize : Integer);
Procedure BytesToVar(const aBytes : TBytes; Out aLocation : Pointer);
Function HexStrToBytes(Const aHexStr : AnsiString; out aBytes : TBytes) : Integer;
Function BytesToHexStr(out aHexStr : AnsiString; aBytes : PByte; aSize : Integer) : Integer;
Function BytesToHexStr(out aHexStr : AnsiString; aBytes : TBytes) : Integer;
Function BytesToHexStr(aBytes : TBytes) : AnsiString;
Procedure HexStrToBytes(Const aHexStr : AnsiString; out aBytes : TBytes); overload;
Function HexStrToBytes(Const aHexStr : AnsiString) : TBytes; overload;
Function BytesToHexStr(Const aSource : AnsiString) : Ansistring; overload;
Procedure BytesToHexStr(out aHexStr : AnsiString;Const aSource : AnsiString); overload;
Procedure BytesToHexStr(out aHexStr : AnsiString; aBytes : PByte; aSize : Integer); overload;
Procedure BytesToHexStr(out aHexStr : AnsiString; aBytes : TBytes); overload;
Function BytesToHexStr(aBytes : TBytes) : AnsiString; overload;
Procedure BytesToHexStrAppend(aBytes : TBytes;var aHexStr : AnsiString);
procedure BytesEncodeBase64(Source: Tbytes; out Dest: AnsiString; const IsURL, MultiLines, Padding: Boolean);
Function BytesEncodeBase64(Source: Tbytes; const IsURL, MultiLines, Padding: Boolean) : AnsiString;
function CryptoGetRandomBytes(Buffer: PByte; const Count: Integer): Boolean;
Function ExtractBetween(const ASource,aStart,aEnd : String) : String;
implementation
Procedure BytesFromVar(out aBytes : TBytes; aLocation : Pointer; aSize : Integer);
begin
aBytes:=[];
SetLength(aBytes,aSize);
if aSize>0 then
Move(aLocation^,aBytes[0],aSize);
@ -48,7 +56,28 @@ begin
BytesFromVar(Result,aLocation,aSize);
end;
Function HexStrToBytes(Const aHexStr : AnsiString; out aBytes : TBytes) : Integer;
Procedure BytesToVar(const aBytes : TBytes; out aLocation; aSize : Integer);
begin
if aSize>Length(aBytes) then
aSize:=Length(aBytes);
Move(aBytes[0],aLocation,aSize);
end;
Procedure BytesToVar(const aBytes : TBytes; out aLocation : Pointer);
begin
BytesToVar(aBytes,aLocation,Length(aBytes));
end;
Function HexStrToBytes(Const aHexStr : AnsiString) : TBytes;
begin
Result:=[];
HexStrToBytes(ahexStr,Result);
end;
Procedure HexStrToBytes(Const aHexStr : AnsiString; out aBytes : TBytes);
const
Convert: array['0'..'f'] of SmallInt =
@ -64,6 +93,7 @@ Var
begin
Len:=Length(aHexStr);
aBytes:=[];
SetLength(aBytes, Len div 2);
if Len=0 then Exit;
P := PAnsiChar(aHexStr);
@ -77,7 +107,19 @@ begin
end;
end;
Function BytesToHexStr(out aHexStr : AnsiString; aBytes : PByte; aSize : Integer) : Integer;
Function BytesToHexStr(Const aSource : AnsiString) : Ansistring;
begin
BytesToHexStr(Result,aSource);
end;
Procedure BytesToHexStr(out aHexStr : AnsiString; Const aSource : AnsiString);
begin
BytesToHexStr(aHexStr,PByte(PChar(aSource)),Length(aSource))
end;
procedure BytesToHexStr(out aHexStr : AnsiString; aBytes : PByte; aSize : Integer);
Const
Digits: Array[0..15] of AnsiChar = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
@ -88,6 +130,7 @@ var
PC : PAnsiChar;
begin
aHexStr:='';
SetLength(aHexStr,aSize*2);
if aSize=0 then
exit;
@ -103,13 +146,14 @@ begin
end;
end;
function BytesToHexStr(out aHexStr: AnsiString; aBytes: TBytes): Integer;
Procedure BytesToHexStr(out aHexStr: AnsiString; aBytes: TBytes);
begin
BytesToHexStr(aHexStr,PByte(aBytes),Length(aBytes));
end;
function BytesToHexStr(aBytes: TBytes): AnsiString;
begin
BytesToHexStr(Result,aBytes);
end;
@ -197,6 +241,7 @@ begin
Exit;
DestCapacity := GetBase64EncodedSize(BufSize, MultiLines);
DestSize := 0;
Dest:='';
SetLength(Dest, DestCapacity);
SourceBuf := PByte(Source);
DestBuf := PByte(Dest);
@ -319,9 +364,26 @@ begin
begin
R := Lecuyer.Next;
Move(R, PByteArray(Buffer)[Rounds*SizeOf(UInt32)], Remainder);
R:=R+R;// Silence compiler warning
end;
end;
function ExtractBetween(const ASource, aStart, aEnd: String): String;
Var
P1,P2 : Integer;
begin
Result:='';
P1:=Pos(aStart,ASource);
if P1<=0 then exit;
Inc(P1,Length(aStart));
P2:=Pos(aEnd,ASource,P1);
if P2<=0 then exit;
Result:=Copy(aSource,P1,P2-P1);
end;
end.