Hi All User

Please Translate C++ To Delphi

Thank You Very Much

<snip>

What does it do?

C++ and delphi are not compatible , better learn the algorithm and code it in delphi afresh.

Hi All User

Please Translate C++ To Delphi

Thank You Very Much

int Generate_Reloction_Map(BYTE* Reloc_Seg, DWORD Func_RVA, int Func_Size, DWORD* Reloc_Map)
{
	BYTE* Reloc_Ptr = Reloc_Seg;
	int _rel_Cnt = 0;
	while (*(DWORD*)Reloc_Ptr)
	{
		DWORD Reloc_RVA = ((DWORD*)Reloc_Ptr)[0];
		DWORD Block_Size = ((DWORD*)Reloc_Ptr)[1];		
		for (int i = 0; i < (Block_Size - 8) / 2; i++)
		{

			if ((Reloc_RVA + (((WORD*)(Reloc_Ptr + 8))[i] & 0xFFF) >= Func_RVA) &&
				(Reloc_RVA + (((WORD*)(Reloc_Ptr + 8))[i] & 0xFFF) < Func_RVA + Func_Size))
			{
				if (Reloc_Map) 
					Reloc_Map[_rel_Cnt] = Reloc_RVA + (((WORD*)(Reloc_Ptr + 8))[i] & 0xFFF);
				_rel_Cnt++;
			}
		}
		Reloc_Ptr += Block_Size;
	}
	return _rel_Cnt;
}
commented: Posting your malware one function at a time won't get it done either - go away -7

What are you writing? An OS?

We're not a translation service. You may want to try the Looking to Hire forum.

It looked more like a malware writing kit to me.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.