asutils.int

CryptoKit使用简便的加密解密控件。(源代码

unit ASUtils;
interface
uses SysUtils, Classes, Windows;

type
  PInt64 = ^Int64;

  PInt64Rec = ^Int64Rec;
  Int64Rec = record
    case Integer of
      0: (I64:              Int64);
      1: (Lo, Hi:           DWord);
      2: (B: array[0..7] of Byte);
  end;

  PDWordArray = ^TDWordArray;
  TDWordArray = array[0..32767] of DWord;

  PDWRec = ^DWRec;
  DWRec = record
    case Integer of
      0: (D:                DWord);
      1: (Lo, Hi:           Word);
      2: (B: array[0..3] of Byte);
  end;

  PDWRecArray = ^TDWRecArray;
  TDWRecArray = array[0..32767] of DWRec;

  function  BytesToHexStr(Data: Pointer; count: Integer; Reverse: Boolean): string;
  function  BytesToStr(Data: Pointer; count: Integer; Reverse: Boolean): string;

  procedure HexStrToBytes(S: string; Data: Pointer; Reverse: Boolean);
  function  HexStrToStr(S: string; Reverse: Boolean): string;
  function  HexStrNeedBytes(S: string): Integer;
  function  StrToHexStr(S: string; Reverse: Boolean): string;

  function  CompareBytes(D1, D2: PByteArray; count: Integer): Integer;
  procedure CopyReverse(p1, p2: PByteArray; count: Integer);
  function  CopyUntil(const S: string; Index: Integer; Delim: Char): string;

  function  IncPtr(P: Pointer; Delta: Longint): Pointer;
  function  AddPtr(P: Pointer; D: DWord): Pointer;

  function  ROTATE_LEFT(x, n: DWord): DWord;
  function  ROTATE_RIGHT(x, n: DWord): DWord;
  function  ROTATE_L16(x, n: Word): Word;
  function  ROTATE_R16(x, n: Word): Word;

implementation

end.