Convert small function C to Delphi

[E]Key · 2011-03-19, 06:12 PM

Hey all, any1 can help convert small function writen on C to Delphi ?

Code:

#ifndef SSR_FILE_FORMAT_H_
#define SSR_FILE_FORMAT_H_

#define TRUE_SSR_IDENTIFIER (('S') + ('S' << 8) + ('R' << 16) + ('2' << 24))

typedef struct t_ssrheader {
    DWORD   numOfFiles;
    DWORD   contentOffset;
    DWORD   contentSize;
    DWORD   extra;
} SSR_HEADER;

typedef struct t_ssrcontentheader {
    DWORD   extra1;
    DWORD   fileOffset;
    DWORD   extra2;
    char    filename[16];
} SSR_CONTENT_HEADER;

typedef struct t_ssrfileheader {
    DWORD           extra1;
    DWORD           extra2;
    DWORD           extra3;
    DWORD           extra4;
    DWORD           fileSize;
    DWORD           extra5;
    unsigned char   filenameLength;
    char            extra6[7];
} SSR_FILE_HEADER;

#endif

Code:

void Decrypt(void *buffer, unsigned int byteCount, unsigned int key1, unsigned int key2) {
    unsigned char   *pKey;
    unsigned int    byteCount64;
    __int64         *buffer64;
    unsigned char   *pByte;
    unsigned int    cBytes;
    unsigned int    keys[2] = { key2, key1 };

    buffer64 = (__int64 *)buffer;
    byteCount64 = byteCount / 8;

    for (; byteCount64; --byteCount64, ++buffer64) {
        unsigned int    ulong;
        unsigned int    *pLong = ((unsigned int *)buffer64);

        ulong = *pLong;
        *pLong = ~((~ulong) ^ key2);
        ++pLong;
        ulong = *pLong;
        *pLong = ~((~ulong) ^ key1);
    }

    pByte = ((unsigned char *)buffer64);
    cBytes = byteCount % 8;
    pKey = ((unsigned char *)keys);

    for (; cBytes; --cBytes, ++pByte, ++pKey) {
        unsigned char byte  = *pByte;
        unsigned char key   = *pKey;

        *pByte = (unsigned char)(~((~byte) ^ key));
    }
}

PS: Sorry if wrong section

Dwar · 2011-03-20, 03:36 AM

Hi,
I'm not sure, but here is a draft conversion

const TRUE_SSR_IDENTIFIER =  (('S'( + ('S' shl 8) + ('R' shl 16) + ('2' shl 24));



type

	t_ssrheader = record 

		numOfFiles		: DWORD;

		contentOffset	: DWORD;

		contentSize		: DWORD;

		extra			: DWORD;

	end;

	SSR_HEADER = t_ssrheader;



type

	t_ssrcontentheader = record 

		extra1		: DWORD;

		fileOffset	: DWORD;

		extra2		: DWORD;

		filename 	: array[0..15] of char;

	end;

	SSR_CONTENT_HEADER = t_ssrcontentheader;



type

	t_ssrfileheader = record 

		extra1		: DWORD;

		extra2		: DWORD;

		extra3		: DWORD;

		extra4		: DWORD;

		fileSize	: DWORD;

		extra5		: DWORD;

		filenameLength: Byte;

		extra6 		: array[0..6] of char;

	end;

	SSR_FILE_HEADER = t_ssrfileheader;





procedure Decrypt(buffer, byteCount, key1, key2: integer);

var

	keys 		: array [0..1] of cardinal;

    pKey		: byte;

    byteCount64	: cardinal;

    buffer64	: int64;

    pByte		: byte;

	key			: byte;

	cbyte		: byte;

    cBytes		: integer;

    i			: integer;

	ulong		: cardinal

    buffer64 := (Int64 )buffer;

begin

	keys[0] := key2;

	keys[1] := key1;

    byteCount64 := byteCount / 8;

 

    for i := 0 to byteCount64 do

	begin 



        //Cardinal    *pLong := ((Cardinal )buffer64);

 

        //ulong := *pLong;

        pLong := not((not ulong) xor key2);

        inc(pLong);

        //ulong := *pLong;

        pLong := not ((not ulong) xor key1);

     end;

 

    pByte 	:= ((Byte )buffer64);

    cBytes 	:= byteCount mod 8;

    pKey 	:= ((Byte )keys);

 

    for i:=0 to do //(; cBytes; --cBytes, ++pByte, ++pKey)

	begin

        cbyte  	:= *pByte;

        key		:= *pKey;

        *pByte := not((not cbyte) xor key);

     end;

 end;

[E]Key · 2011-03-26, 01:46 PM

Awesome! Thanks Dwar

Thread: Convert small function C to Delphi

Thread Tools

Convert small function C to Delphi

The Following User Says Thank You to Dwar For This Useful Post:

Posting Permissions