Please C++ TO Delphi

Expand Post »

Pascal and Delphi Syntax (Toggle Plain Text)
IMAGE_NT_HEADERS* inh;
IMAGE_SECTION_HEADER* ish;
 
DWORD newRVA = (ish + inh->FileHeader.NumberOfSections - 1)->VirtualAddress + ((ish + inh->FileHeader.NumberOfSections - 1)->Misc.VirtualSize + (inh->OptionalHeader.SectionAlignment - (((ish + inh->FileHeader.NumberOfSections - 1)->Misc.VirtualSize % inh->OptionalHeader.SectionAlignment) ? ((ish + inh->FileHeader.NumberOfSections - 1)->Misc.VirtualSize % inh->OptionalHeader.SectionAlignment) : inh->OptionalHeader.SectionAlignment)));
 
 
newSecSize = (newSecSize + (inh->OptionalHeader.FileAlignment - ((newSecSize % inh->OptionalHeader.FileAlignment) ? (newSecSize % inh->OptionalHeader.FileAlignment) : inh->OptionalHeader.FileAlignment)));
 
 
ish->Misc.VirtualSize = (newSecSize + (inh->OptionalHeader.SectionAlignment - ((newSecSize % inh->OptionalHeader.SectionAlignment) ? (newSecSize % inh->OptionalHeader.SectionAlignment) : inh->OptionalHeader.SectionAlignment)));
 
DWORD* hVMImg;
 
DWORD _ssss = (*(DWORD*)(hVMImg + 7))*4 + (*(DWORD*)(hVMImg + 8))*8 + 4;
 
 
BYTE* outCodeBuf;
int outPos = 0;
BYTE* instr;
 
*(DWORD*)(outCodeBuf + outPos + 4) = (int)*((char*)instr + 3);
*(DWORD*)(outCodeBuf + outPos + 4) = *(DWORD*)(instr + 2);
 
BYTE* outCodeBuf;
int outPos = 0;
BYTE* codeBase;
int curPos = 0;
struct 
{
DWORD disasm_len;
} dis;
 
memmove(outCodeBuf + outPos + 1, codeBase + curPos, dis.disasm_len);
IMAGE_NT_HEADERS* inh;
IMAGE_SECTION_HEADER* ish;

DWORD newRVA = (ish + inh->FileHeader.NumberOfSections - 1)->VirtualAddress + ((ish + inh->FileHeader.NumberOfSections - 1)->Misc.VirtualSize + (inh->OptionalHeader.SectionAlignment - (((ish + inh->FileHeader.NumberOfSections - 1)->Misc.VirtualSize % inh->OptionalHeader.SectionAlignment) ? ((ish + inh->FileHeader.NumberOfSections - 1)->Misc.VirtualSize % inh->OptionalHeader.SectionAlignment) : inh->OptionalHeader.SectionAlignment)));


newSecSize = (newSecSize + (inh->OptionalHeader.FileAlignment - ((newSecSize % inh->OptionalHeader.FileAlignment) ? (newSecSize % inh->OptionalHeader.FileAlignment) : inh->OptionalHeader.FileAlignment)));


ish->Misc.VirtualSize = (newSecSize + (inh->OptionalHeader.SectionAlignment - ((newSecSize % inh->OptionalHeader.SectionAlignment) ? (newSecSize % inh->OptionalHeader.SectionAlignment) : inh->OptionalHeader.SectionAlignment)));

DWORD* hVMImg;

DWORD _ssss = (*(DWORD*)(hVMImg + 7))*4 + (*(DWORD*)(hVMImg + 8))*8 + 4;


BYTE* outCodeBuf;
int outPos = 0;
BYTE* instr;

*(DWORD*)(outCodeBuf + outPos + 4) = (int)*((char*)instr + 3);
*(DWORD*)(outCodeBuf + outPos + 4) = *(DWORD*)(instr + 2);

BYTE* outCodeBuf;
int outPos = 0;
BYTE* codeBase;
int curPos = 0;
struct 
{
DWORD disasm_len;
} dis;

memmove(outCodeBuf + outPos + 1, codeBase + curPos, dis.disasm_len);

Similar Threads

How to use bluetooth libs with Delphi 7 in Pascal and Delphi
Delphi Onjects in Pascal and Delphi
Cscgal wouldja add a Delphi forum here? in IT Professionals' Lounge

Leila1

Reputation Points: -11

Solved Threads: 0

Newbie Poster

Offline

5 posts
since May 2009

Permalink

Aug 7th, 2009

Re: Please C++ TO Delphi

See http://www.daniweb.com/forums/faq.ph...niweb_policies for the forum rules before posting.

Quote originally posted by DaniWeb Rules ...

Do not post homework problems expecting a quick answer without showing any effort yourself. This especially pertains to the software development forums.

Why not see how much you can do by yourself. You'll learn more that way, and you may (god forbid) have a little fun :p

TeejMonster

Reputation Points: 9

Solved Threads: 2

Newbie Poster

Offline

19 posts
since Jul 2009

Permalink

Aug 7th, 2009

Re: Please C++ TO Delphi

They're just a helpless skiddie wannabe, trying to do something or other with someone else's malware kit.

I've seen it, it's rubbish.
http://www.daniweb.com/forums/thread194496.html
http://www.daniweb.com/forums/thread195594.html

Salem

Team Colleague

Reputation Points: 5862

Solved Threads: 950

Posting Sage

Offline

7,164 posts
since Dec 2005

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Pascal and Delphi Forum Timeline: CreateNew affecting all objects

Next Thread in Pascal and Delphi Forum Timeline: basic operations

DaniWeb Message

Cancel Changes

User Name
Password