{*******************************************************}
{                                                       }
{       BSCrypto                                        }
{                                                       }
{       Copyright (C) 2023 kku                          }
{                                                       }
{*******************************************************}

unit BSCrypto;

interface

uses
  Winapi.Windows;

const
  DLL_BSCRYPTO = 'BSCrypto.dll';
//{$IFDEF Win64}
//  DLL_BSCRYPTO = 'BSCrypto64.dll';
//{$ELSE}
//  DLL_BSCRYPTO = 'BSCrypto32.dll';
//{$ENDIF}

type
  TARIA_test = procedure; cdecl;

procedure ARIA_test;

implementation

var
  _hBSc: THandle = 0;
  _fnARIA_test: TARIA_test = nil;

function InitBSCrypto: Boolean;
begin
  if _hBSc = 0 then
  begin
    _hBSc := LoadLibrary(DLL_BSCRYPTO);
    if _hBSc <> 0 then
    begin
      @_fnARIA_test := GetProcAddress(_hBSc, 'ARIA_test');
    end;
  end;
  Result := _hBSc <> 0;
end;

procedure ARIA_test;
begin
  if InitBSCrypto and Assigned(_fnARIA_test) then
    _fnARIA_test;
end;

end.