scrypt32.pas

The dinamyc link library that contains an implementation of SHA1, SHA512, CRC32, CRC32b, Adler32, Tw

{**************************************************}
{                                                  }
{           Small Encryption Library 1.0           }
{                 Interface Unit                   }
{                                                  }
{**************************************************}

unit SCrypt32;

{$ALIGN OFF}

interface

uses
  Windows;

type
  PKEY128 = ^_KEY128;
  _KEY128 = array[0..3] of DWORD;

  PKEY256 = ^_KEY256;
  _KEY256 = array[0..7] of DWORD;

  PBLOCK64 = ^_BLOCK64;
  _BLOCK64 = array[0..1] of DWORD;

  PBLOCK128 = ^_BLOCK128;
  _BLOCK128 = array[0..3] of DWORD;

  _CIPHER64PROC = procedure(Block: PBLOCK64); stdcall;
  _CIPHER128PROC = procedure(Block: PBLOCK128); stdcall;

  PSHA1_CTX = ^_SHA1_CTX;
  _SHA1_CTX = record
    state: array[0..4] of UINT;
    count: array[0..1] of UINT;
    buffer: array[0..63] of Byte;
  end;

  PSHA1_DIGEST = ^_SHA1_DIGEST;
  _SHA1_DIGEST = record
    case Integer of
      0: (A, B, C, D, E: DWORD);
      1: (v: array[0..19] of Byte);
    end;

  PSHA512_DIGEST = ^_SHA512_DIGEST;
  _SHA512_DIGEST = record
    case Integer of
      0: (A1, B1, C1, D1, A2, B2, C2, D2, A3, B3, C3, D3, A4, B4, C4, D4: DWORD);
      1: (v: array[0..63] of Byte);
    end;

{******************************************************************************}

{ RC4 - 镱蝾觐恹