55 lines
1.1 KiB
Plaintext
55 lines
1.1 KiB
Plaintext
{*******************************************************}
|
|
{ }
|
|
{ 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.
|