abscipher.hpp

Absolute Database 5.12 src. Absolute Database lets you forget the Borland Database Engine (BDE). Th

};


class DELPHICLASS TCipher_3DES;
class PASCALIMPLEMENTATION TCipher_3DES : public TCipher_1DES 
{
	typedef TCipher_1DES inherited;
	
protected:
	#pragma option push -w-inl
	/* virtual class method */ virtual void __fastcall GetContext(int &ABufSize, int &AKeySize, int &AUserSize) { GetContext(__classid(TCipher_3DES), ABufSize, AKeySize, AUserSize); }
	#pragma option pop
	/*         class method */ static void __fastcall GetContext(TMetaClass* vmt, int &ABufSize, int &AKeySize, int &AUserSize);
	#pragma option push -w-inl
	/* virtual class method */ virtual void * __fastcall TestVector() { return TestVector(__classid(TCipher_3DES)); }
	#pragma option pop
	/*         class method */ static void * __fastcall TestVector(TMetaClass* vmt);
	virtual void __fastcall Encode(void * Data);
	virtual void __fastcall Decode(void * Data);
	
public:
	virtual void __fastcall Init(const void *Key, int Size, void * IVector);
public:
	#pragma option push -w-inl
	/* TCipher.Create */ inline __fastcall TCipher_3DES(const AnsiString Password, Absdecutil::TProtection* AProtection) : TCipher_1DES(Password, AProtection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCipher.Destroy */ inline __fastcall virtual ~TCipher_3DES(void) { }
	#pragma option pop
	
};


class DELPHICLASS TCipher_3TDES;
class PASCALIMPLEMENTATION TCipher_3TDES : public TCipher_3DES 
{
	typedef TCipher_3DES inherited;
	
protected:
	#pragma option push -w-inl
	/* virtual class method */ virtual void __fastcall GetContext(int &ABufSize, int &AKeySize, int &AUserSize) { GetContext(__classid(TCipher_3TDES), ABufSize, AKeySize, AUserSize); }
	#pragma option pop
	/*         class method */ static void __fastcall GetContext(TMetaClass* vmt, int &ABufSize, int &AKeySize, int &AUserSize);
	#pragma option push -w-inl
	/* virtual class method */ virtual void * __fastcall TestVector() { return TestVector(__classid(TCipher_3TDES)); }
	#pragma option pop
	/*         class method */ static void * __fastcall TestVector(TMetaClass* vmt);
	virtual void __fastcall Encode(void * Data);
	virtual void __fastcall Decode(void * Data);
public:
	#pragma option push -w-inl
	/* TCipher.Create */ inline __fastcall TCipher_3TDES(const AnsiString Password, Absdecutil::TProtection* AProtection) : TCipher_3DES(Password, AProtection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCipher.Destroy */ inline __fastcall virtual ~TCipher_3TDES(void) { }
	#pragma option pop
	
};


class DELPHICLASS TCipher_Twofish;
class PASCALIMPLEMENTATION TCipher_Twofish : public TCipher 
{
	typedef TCipher inherited;
	
protected:
	#pragma option push -w-inl
	/* virtual class method */ virtual void __fastcall GetContext(int &ABufSize, int &AKeySize, int &AUserSize) { GetContext(__classid(TCipher_Twofish), ABufSize, AKeySize, AUserSize); }
	#pragma option pop
	/*         class method */ static void __fastcall GetContext(TMetaClass* vmt, int &ABufSize, int &AKeySize, int &AUserSize);
	#pragma option push -w-inl
	/* virtual class method */ virtual void * __fastcall TestVector() { return TestVector(__classid(TCipher_Twofish)); }
	#pragma option pop
	/*         class method */ static void * __fastcall TestVector(TMetaClass* vmt);
	virtual void __fastcall Encode(void * Data);
	virtual void __fastcall Decode(void * Data);
	
public:
	virtual void __fastcall Init(const void *Key, int Size, void * IVector);
public:
	#pragma option push -w-inl
	/* TCipher.Create */ inline __fastcall TCipher_Twofish(const AnsiString Password, Absdecutil::TProtection* AProtection) : TCipher(Password, AProtection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCipher.Destroy */ inline __fastcall virtual ~TCipher_Twofish(void) { }
	#pragma option pop
	
};


class DELPHICLASS TCipher_Square;
class PASCALIMPLEMENTATION TCipher_Square : public TCipher 
{
	typedef TCipher inherited;
	
protected:
	#pragma option push -w-inl
	/* virtual class method */ virtual void __fastcall GetContext(int &ABufSize, int &AKeySize, int &AUserSize) { GetContext(__classid(TCipher_Square), ABufSize, AKeySize, AUserSize); }
	#pragma option pop
	/*         class method */ static void __fastcall GetContext(TMetaClass* vmt, int &ABufSize, int &AKeySize, int &AUserSize);
	#pragma option push -w-inl
	/* virtual class method */ virtual void * __fastcall TestVector() { return TestVector(__classid(TCipher_Square)); }
	#pragma option pop
	/*         class method */ static void * __fastcall TestVector(TMetaClass* vmt);
	virtual void __fastcall Encode(void * Data);
	virtual void __fastcall Decode(void * Data);
	
public:
	virtual void __fastcall Init(const void *Key, int Size, void * IVector);
public:
	#pragma option push -w-inl
	/* TCipher.Create */ inline __fastcall TCipher_Square(const AnsiString Password, Absdecutil::TProtection* AProtection) : TCipher(Password, AProtection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCipher.Destroy */ inline __fastcall virtual ~TCipher_Square(void) { }
	#pragma option pop
	
};


class DELPHICLASS THash_MD4;
class PASCALIMPLEMENTATION THash_MD4 : public THash 
{
	typedef THash inherited;
	
private:
	unsigned FCount;
	Byte FBuffer[64];
	unsigned FDigest[10];
	
protected:
	#pragma option push -w-inl
	/* virtual class method */ virtual void * __fastcall TestVector() { return TestVector(__classid(THash_MD4)); }
	#pragma option pop
	/*         class method */ static void * __fastcall TestVector(TMetaClass* vmt);
	virtual void __fastcall Transform(Absdecutil::PIntArray Buffer);
	
public:
	#pragma option push -w-inl
	/* virtual class method */ virtual int __fastcall DigestKeySize() { return DigestKeySize(__classid(THash_MD4)); }
	#pragma option pop
	/*         class method */ static int __fastcall DigestKeySize(TMetaClass* vmt);
	virtual void __fastcall Init(void);
	virtual void __fastcall Done(void);
	virtual void __fastcall Calc(const void *Data, int DataSize);
	virtual void * __fastcall DigestKey(void);
public:
	#pragma option push -w-inl
	/* THash.Destroy */ inline __fastcall virtual ~THash_MD4(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TProtection.Create */ inline __fastcall THash_MD4(Absdecutil::TProtection* AProtection) : THash(AProtection) { }
	#pragma option pop
	
};


class DELPHICLASS THash_RipeMD128;
class PASCALIMPLEMENTATION THash_RipeMD128 : public THash_MD4 
{
	typedef THash_MD4 inherited;
	
protected:
	#pragma option push -w-inl
	/* virtual class method */ virtual void * __fastcall TestVector() { return TestVector(__classid(THash_RipeMD128)); }
	#pragma option pop
	/*         class method */ static void * __fastcall TestVector(TMetaClass* vmt);
	virtual void __fastcall Transform(Absdecutil::PIntArray Buffer);
public:
	#pragma option push -w-inl
	/* THash.Destroy */ inline __fastcall virtual ~THash_RipeMD128(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TProtection.Create */ inline __fastcall THash_RipeMD128(Absdecutil::TProtection* AProtection) : THash_MD4(AProtection) { }
	#pragma option pop
	
};


class DELPHICLASS THash_RipeMD256;
class PASCALIMPLEMENTATION THash_RipeMD256 : public THash_MD4 
{
	typedef THash_MD4 inherited;
	
protected:
	#pragma option push -w-inl
	/* virtual class method */ virtual void * __fastcall TestVector() { return TestVector(__classid(THash_RipeMD256)); }
	#pragma option pop
	/*         class method */ static void * __fastcall TestVector(TMetaClass* vmt);
	virtual void __fastcall Transform(Absdecutil::PIntArray Buffer);
	
public:
	#pragma option push -w-inl
	/* virtual class method */ virtual int __fastcall DigestKeySize() { return DigestKeySize(__classid(THash_RipeMD256)); }
	#pragma option pop
	/*         class method */ static int __fastcall DigestKeySize(TMetaClass* vmt);
	virtual void __fastcall Init(void);
public:
	#pragma option push -w-inl
	/* THash.Destroy */ inline __fastcall virtual ~THash_RipeMD256(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TProtection.Create */ inline __fastcall THash_RipeMD256(Absdecutil::TProtection* AProtection) : THash_MD4(AProtection) { }
	#pragma option pop
	
};


class DELPHICLASS TChecksum;
class PASCALIMPLEMENTATION TChecksum : public THash 
{
	typedef THash inherited;
	
public:
	#pragma option push -w-inl
	/* THash.Destroy */ inline __fastcall virtual ~TChecksum(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TProtection.Create */ inline __fastcall TChecksum(Absdecutil::TProtection* AProtection) : THash(AProtection) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint Rijndael_Cipher = 0x1;
static const Shortint RIPEMD_128_Hash = 0x0;
static const Shortint RIPEMD_256_Hash = 0x1;
static const Shortint Default_Cipher_Method = 0x1;
static const Shortint Default_Hash_Method = 0x0;
static const Shortint errGeneric = 0x0;
static const Shortint errInvalidKey = 0x1;
static const Shortint errInvalidKeySize = 0x2;
static const Shortint errNotInitialized = 0x3;
static const Shortint errInvalidMACMode = 0x4;
static const Shortint errCantCalc = 0x5;
extern PACKAGE bool CheckCipherKeySize;
extern PACKAGE TMetaClass* __fastcall DefaultCipherClass(void);
extern PACKAGE void __fastcall SetDefaultCipherClass(TMetaClass* CipherClass);
extern PACKAGE void __fastcall RaiseCipherException(const int ErrorCode, const AnsiString Msg);
extern PACKAGE bool __fastcall RegisterCipher(const TMetaClass* ACipher, const AnsiString AName, const AnsiString ADescription);
extern PACKAGE bool __fastcall UnregisterCipher(const TMetaClass* ACipher);
extern PACKAGE Classes::TStrings* __fastcall CipherList(void);
extern PACKAGE void __fastcall CipherNames(Classes::TStrings* List);
extern PACKAGE TMetaClass* __fastcall GetCipherClass(const AnsiString Name);
extern PACKAGE AnsiString __fastcall GetCipherName(TMetaClass* CipherClass);
extern PACKAGE TMetaClass* __fastcall DefaultHashClass(void);
extern PACKAGE void __fastcall SetDefaultHashClass(TMetaClass* HashClass);
extern PACKAGE bool __fastcall RegisterHash(const TMetaClass* AHash, const AnsiString AName, const AnsiString ADescription);
extern PACKAGE bool __fastcall UnregisterHash(const TMetaClass* AHash);
extern PACKAGE Classes::TStrings* __fastcall HashList(void);
extern PACKAGE void __fastcall HashNames(Classes::TStrings* List);
extern PACKAGE TMetaClass* __fastcall GetHashClass(const AnsiString Name);
extern PACKAGE AnsiString __fastcall GetHashName(TMetaClass* HashClass);

}	/* namespace Abscipher */
using namespace Abscipher;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Abscipher