Помогите перевести на Delphi

← →
ZLOFENIX © (2005-12-18 23:39) [0]

#ifndef _UOENCRYPTION_H_INCLUDED #define _UOENCRYPTION_H_INCLUDED #ifdef _cplusplus extern "C" { #endif /* Huffman adapted for network usage */ typedef struct tagHuffmanObj { int has_incomplete; int incomplete_node; char incomplete_byte; }HuffmanObj; /* declares the minimal size of a buffer to decompress n bytes */ #define MIN_DECBUF_SIZE(in) ((in * 4) + 4) void Compress(char *dest, const char *src, int *dest_size, int *src_size); void Decompress(char *dest, const char *src, int *dest_size, int *src_size, HuffmanObj *obj); void DecompressClean(HuffmanObj *obj); /* Login crypt */ #define GETKEYS_MIN_SIZE 61 typedef struct tagLoginCryptInfo { /* public, must be declared */ unsigned int pseed; unsigned int k1, k2; /* private, dynamic vars used by the crypt code, each encrypted byte changes them */ unsigned int m_key[2]; /* [0] - m_CryptMaskLo [1] - m_CryptMaskHi */ unsigned int m_k1, m_k2; /* [1] - m_MasterHi [2] - m_MasterLo */ }LoginCryptObj; void LoginCryptInit(LoginCryptObj *obj); void LoginCryptEncrypt(LoginCryptObj *obj, unsigned char * in, unsigned char * out, int len); int CalculateKeys(unsigned char *Plaintext, unsigned char *Ciphertext, unsigned int *Seed, unsigned int *Key1, unsigned int *Key2); /* Game crypt */ #define CRYPT_GAMEKEY_COUNT 25 #define CRYPT_GAMESEED_LENGTH 8 /* BLOWFISH */ typedef struct tagBlowfishObject { unsigned char seed[CRYPT_GAMESEED_LENGTH]; int table_index; /* init: 0 */ int stream_pos; /* init: 0 */ int block_pos; /* init: 0 */ }BlowfishObj; void BlowfishInit(BlowfishObj *Obj); void BlowfishEncrypt(BlowfishObj *Obj, unsigned char * in, unsigned char * out, int len); void BlowfishDecrypt(BlowfishObj *Obj, unsigned char * in, unsigned char * out, int len); /* UO.cfg Password crypt */ void PWEncrypt(unsigned char *in, unsigned char *out, int len); void PWDecrypt(unsigned char *in, unsigned char *out, int len); #if _cplusplus } #endif #endif
Все функции вызываются из Dll

← →
ZLOFENIX © (2005-12-24 11:08) [1]

И никто не поможет ?
Все тупые ?

Помогите перевести на Delphi Найти похожие ветки