| | |
Please C++ TO Delphi
Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site
![]() |
•
•
Join Date: May 2009
Posts: 5
Reputation:
Solved Threads: 0
Please C++ TO Delphi
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);
See http://www.daniweb.com/forums/faq.ph...niweb_policies for the forum rules before posting.
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
•
•
•
•
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.
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
I've seen it, it's rubbish.
http://www.daniweb.com/forums/thread194496.html
http://www.daniweb.com/forums/thread195594.html
![]() |
Similar Threads
- How to use bluetooth libs with Delphi 7 (Pascal and Delphi)
- Looking for a Senior DELPHI Developer (Software Development Job Offers)
- Delphi Onjects (Pascal and Delphi)
- Cscgal wouldja add a Delphi forum here? (IT Professionals' Lounge)
Other Threads in the Pascal and Delphi Forum
- Previous Thread: CreateNew affecting all objects
- Next Thread: basic operations
Views: 383 | Replies: 2
| Thread Tools | Search this Thread |
Tag cloud for Pascal and Delphi






