ace-dent/kolibrios-gitea
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity
26c8e413a9
kolibrios-gitea/programs/develop/cmm/outpe.cpp

1106 lines
36 KiB
C++
Raw Normal View History

Added source files C--. git-svn-id: svn://kolibrios.org@6446 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-06-13 04:07:22 +02:00
#include "tok.h"
#include "coff.h"
#define _OUTPE_
/* -----------------------------------------------------------------------
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> PE <EFBFBD><EFBFBD>ଠ<EFBFBD><EFBFBD>
------------------------------------------------------------------------ */
#define SIZESTUB 96
#define STRVERS 0x20 //ᬥ饭<E1ACA5><E9A5AD> ⥪<><E2A5AA><EFBFBD> <20> <20><><EFBFBD><EFBFBD>஬ <20><><EFBFBD>ᨨ
char stub[]={0x4D,0x5A,0x50,0x00,0x02,0x00,0x00,0x00,
0x04,0x00,0x0F,0x00,0xFF,0xFF,0x00,0x00,
0xB8,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x40,0x00,0x1A,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x60,0x00,0x00,0x00,
0xBA,0x0E,0x00,0x0E,0x1F,0xB4,0x09,0xCD,
0x21,0xB8,0x01,0x4C,0xCD,0x21,0x46,0x6F,
0x72,0x20,0x57,0x69,0x6E,0x33,0x32,0x20,
0x6F,0x6E,0x6C,0x79,0x21,0x0D,0x0A,0x24};
#define SIZESTUB2 12
char stub2[]={0x4D,0x5A,0x53,0x50,0x48,0x49,0x4E,0x58,
0x20,0x43,0x2D,0x2D};
unsigned int numdll,numapi;
unsigned char FixUpTable=FALSE; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᮧ<><E1AEA7><EFBFBD><EFBFBD><EFBFBD> ⠡<><E2A0A1><EFBFBD><EFBFBD> Fix UP for Windows
unsigned char WinMonoBlock=TRUE;
int numexport=0;
unsigned long ImageBase=0x400000;
unsigned long vsizeheader=0x1000; //<2F><><EFBFBD><EFBFBD>㠫<EFBFBD><E3A0AB><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
unsigned long FILEALIGN=0;//512; // <20><>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᥪ権 <20> 䠩<><E4A0A9>
int filingzerope;
struct listexport *lexport=NULL;
static unsigned long sizestub;
static unsigned long numrs=1;
unsigned long Align(unsigned long size,unsigned long val)
{
if(val<2)return size;
val--;
return (size+val)&(~val);
}
/*
#include <conio.h>
void PrintMem(void *mem)
{
unsigned char *m,*n;
int i,j;
m=(unsigned char *)mem;
for(i=0;i<192;){
n=m;
for(j=0;j<16;j++,i++){
printf("%02X ",*m);
m++;
}
for(j=0;j<16;j++){
char c=*n;
n++;
if(c<0x20||c>0x7e)c='.';
putch(c);
}
puts("");
}
}
void CheckMem()
{
if(listdll!=NULL){ //<2F><><EFBFBD><EFBFBD> api-<2D><><EFBFBD><EFBFBD>
DLLLIST *newdll=listdll; //<2F><>砫<EFBFBD> ᯨ᪠ DLL
APIPROC *listapi=newdll->list;
idrec *rec=listapi->recapi;
PrintMem(rec);
}
} */
void AddJmpApi()
{
//<2F><><EFBFBD><EFBFBD><EFBFBD> api <20><><EFBFBD>楤<EFBFBD><E6A5A4>
//᪮<>४<EFBFBD><E0A5AA>஢<EFBFBD><E0AEA2><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> ⠡<><E2A0A1><EFBFBD><EFBFBD> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
alignersize+=AlignCD(CS,4);
if(listdll!=NULL){ //<2F><><EFBFBD><EFBFBD> api-<2D><><EFBFBD><EFBFBD>
DLLLIST *newdll=listdll; //<2F><>砫<EFBFBD> ᯨ᪠ DLL
numdll=numapi=0;
for(APIPROC *listapi=newdll->list;;){
unsigned short numapiprocdll=0; //<2F><>᫮ <20>ᯮ<EFBFBD><E1AFAE><EFBFBD>㥬<EFBFBD><E3A5AC> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥪<EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4>
for(short i=0;i<newdll->num;i++){ //<2F>஢<EFBFBD><E0AEA2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD>
idrec *rec=(listapi+i)->recapi;
unsigned int idnum=rec->recnumber; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> ᯨ᪠
char useapi=FALSE; //䫠<> <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD>
for(unsigned int j=0;j<posts;j++){ //<2F><><EFBFBD><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD>
if((postbuf+j)->num==idnum){
if((postbuf+j)->type==CALL_32){ //<2F><>諨
useapi=API_JMP; //䫠<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
unsigned long hold=outptr-((postbuf+j)->loc+4); //<2F><><EFBFBD><EFBFBD><EFBFBD>ﭨ<EFBFBD> <20><> <20>맮<EFBFBD><EBA7AE>
*(long *)&output[(postbuf+j)->loc]=hold; //<2F><><EFBFBD>ࠢ<EFBFBD><E0A0A2><EFBFBD>
}
else if((postbuf+j)->type==CALL_32I){
useapi=API_FAST; //䫠<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
numrel++;
}
}
}
if(useapi==API_JMP){ // <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD>뢠<EFBFBD><EBA2A0><EFBFBD><EFBFBD>
*(short *)&output[outptr]=0x25ff; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> JMP
outptr+=2;
rec->recnumber=outptr; //⥯<><E2A5AF><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>. <20><>窠 <20>室<EFBFBD>
AddReloc(CS); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20> ⠡<> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
*(long *)&output[outptr]=0; //<2F><><EFBFBD><EFBFBD><EFBFBD> <20>맮<EFBFBD><EBA7AE>
outptr+=4;
numapi++; //<2F><>饥 <20><>᫮ <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD> api-<2D><><EFBFBD>楤<EFBFBD><E6A5A4>
numapiprocdll++; //<2F><>᫮ <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4> <20> <20>⮩ DLL
}
else if(useapi==API_FAST){
numapi++; //<2F><>饥 <20><>᫮ <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD> api-<2D><><EFBFBD>楤<EFBFBD><E6A5A4>
numapiprocdll++; //<2F><>᫮ <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4> <20> <20>⮩ DLL
}
rec->recrm=useapi; //⨯ <20>맮<EFBFBD><EBA7AE> api; 0 - not used
if(rec->newid!=NULL){
free(rec->newid); //ᯨ᮪ <20><>ࠬ<EFBFBD><E0A0AC>஢ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20>㦥<EFBFBD>
rec->newid=NULL;
}
}
newdll->num=numapiprocdll; //<2F><><EFBFBD>ࠢ<EFBFBD><E0A0A2><EFBFBD> <20><>᫮ ॠ<>쭮 <20>ᯮ<EFBFBD><E1AFAE><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4>
if(numapiprocdll==0){ //<2F> <20>⮩ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥪<EFBFBD> <20><> <20>ᯮ<EFBFBD><E1AFAE><EFBFBD> <20><> <20><><EFBFBD><EFBFBD> <20>맮<EFBFBD>
free(newdll->list); //㤠<><E3A4A0><EFBFBD><EFBFBD> ᯨ᮪ <20><><EFBFBD>楤<EFBFBD><E6A5A4>.
}
else numdll++;
if(newdll->next==NULL)break; //<2F><><EFBFBD><EFBFBD><EFBFBD> ᯨ᪠
newdll=newdll->next;
listapi=newdll->list;
}
}
outptrdata=outptr;
}
int MakePE()
{
unsigned short numobj=1;
char *importblock=NULL;
char *relocblock=NULL;
char *exportblock=NULL;
c-- cppchecked git-svn-id: svn://kolibrios.org@7626 a494cfbc-eb01-0410-851d-a64ba20cac60
2019-04-11 09:12:30 +02:00
unsigned long psize = 0,vsize=0,sizereloc=0,sizeReloc=0,sizeImport=0,sizeExport=0,
Added source files C--. git-svn-id: svn://kolibrios.org@6446 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-06-13 04:07:22 +02:00
sizebss=0,sizeRes=0;
unsigned long startsec=0,startsecr=0,startsece=0,startsecres=0;
unsigned int posrel=0,sizeimport=0,startimportname=0,sizeexport=0,sizeres=0,
startexportname=0;
unsigned int sizehead; //ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
unsigned int exportnum=0; //<2F><><EFBFBD><EFBFBD><EFBFBD> ᥪ樨 <20><>ᯮ<EFBFBD><E1AFAE><EFBFBD>
unsigned int relocnum=0; //<2F><><EFBFBD><EFBFBD><EFBFBD> ᥪ樨 <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
unsigned int importnum=0; //<2F><><EFBFBD><EFBFBD><EFBFBD> ᥪ樨 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
unsigned int codenum=0; //<2F><><EFBFBD><EFBFBD><EFBFBD> ᥪ樨 <20><><EFBFBD><EFBFBD>
unsigned int resnum=0; //<2F><><EFBFBD><EFBFBD><EFBFBD> ᥪ樨 <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ
if(hout==NULL)return -1;
if(WinMonoBlock==FALSE){
vsize=Align(outptr+(wbss==FALSE?postsize:0),OBJECTALIGN);//<2F><><EFBFBD><EFBFBD>㠫<EFBFBD><E3A0AB><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> ᥪ樨 <20><><EFBFBD><EFBFBD>
psize=Align(outptr,FILEALIGN); //䨧<><E4A8A7><EFBFBD>᪨<EFBFBD> ࠧ<><E0A0A7><EFBFBD> ᥪ樨 <20><><EFBFBD><EFBFBD>
}
else vsize=outptr;
// sizehead=((postsize&&wbss)?2:1)*sizeof(OBJECT_ENTRY);
sizehead=numrs*sizeof(OBJECT_ENTRY);
OBJECT_ENTRY *objentry=(OBJECT_ENTRY *)MALLOC(sizehead);//⠢<><E2A0A2><EFBFBD><EFBFBD> <20><>ꥪ⮢
memset(objentry,0,sizehead);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⠡<><E2A0A1><EFBFBD><EFBFBD> <20><>ꥪ⮢
//ᥪ<><E1A5AA><EFBFBD> .bss
if(wbss){ //<2F><><EFBFBD><EFBFBD> post <20><>६<EFBFBD><E0A5AC><EFBFBD><EFBFBD><EFBFBD>
numobj++; //㢥<><E3A2A5>稢<EFBFBD><E7A8A2><EFBFBD> <20><>᫮ <20><>ꥪ⮢
codenum=1; //<2F><><EFBFBD><EFBFBD><EFBFBD> ᥪ樨 <20><><EFBFBD><EFBFBD>
strcpy(objentry->name,".bss"); //<2F><><EFBFBD> ᥪ樨
objentry->vsize=sizebss=Align(postsize,OBJECTALIGN);
objentry->pOffset=objentry->psize=0;
objentry->flags=0xC0000080;
objentry->sectionRVA=vsizeheader;
}
strcpy((objentry+codenum)->name,"CODE"); //<2F><> <20><><EFBFBD>
(objentry+codenum)->vsize=vsize; //ࠧ<><E0A0A7><EFBFBD> ᥪ樨 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
(objentry+codenum)->psize=psize; //ࠧ<><E0A0A7><EFBFBD> ᥪ樨 <20> 䠩<><E4A0A9>
(objentry+codenum)->flags=0xe0000060; //䫠<> ᥪ樨
(objentry+codenum)->sectionRVA=vsizeheader+sizebss;//<2F><><EFBFBD><EFBFBD>㠫<EFBFBD><E3A0AB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ᥪ樨 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//ᥪ<><E1A5AA><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if(numapi!=0){ //<2F><><EFBFBD><EFBFBD> <20>맮<EFBFBD><EBA7AE> api-<2D><><EFBFBD>楤<EFBFBD><E6A5A4> ᮧ<> ᥪ<><E1A5AA><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if(!WinMonoBlock){ //<2F>᫨ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
importnum=numobj;
numobj++; //㢥<><E3A2A5>稢<EFBFBD><E7A8A2><EFBFBD> <20><>᫮ <20><>ꥪ⮢
}
startsec=vsizeheader+vsize+sizebss; //<2F><>砫<EFBFBD> ᥪ樨 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//ॠ<><E0A5A0><EFBFBD><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> ᥪ樨
startimportname=(numdll+1)*20+(numapi+numdll)*(shortimport==0?8:4);
sizeimport=Align(startimportname,FILEALIGN); //ࠧ<><E0A0A7><EFBFBD> ᥪ樨 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
importblock=(char *)MALLOC(sizeimport); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
memset(importblock,0,sizeimport); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>
DLLLIST *newdll=listdll; //⠡<><E2A0A1>窠 dll <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㥬묨 <20><><EFBFBD>楤<EFBFBD>ࠬ<EFBFBD>
unsigned long sn,sn1;
sn1=sn=(numdll+1)*20;
for(int i=0;;i++){
while(newdll->num==0)if((newdll=newdll->next)==NULL)break;//<2F>ய<EFBFBD><E0AEAF><EFBFBD> <20><><EFBFBD>ᯮ<EFBFBD><E1AFAE><EFBFBD>㥬<EFBFBD><E3A5AC>
if(newdll==NULL)break; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 横<> <20>᫨ ᯨ᮪ dll <20><><EFBFBD><EFBFBD>
APIPROC *listapi=newdll->list; //⠡<><E2A0A1>窠 <20><><EFBFBD>楤<EFBFBD><E6A5A4> <20><> ⥪<>饩 dll
*(long *)&importblock[i*20+12]=startsec+startimportname;
*(long *)&importblock[i*20]=(shortimport==0?startsec+sn:0);
*(long *)&importblock[i*20+16]=startsec+sn+(shortimport==0?(numdll+numapi)*4:0);
sn+=(newdll->num+1)*4;
unsigned int lenn=strlen(newdll->name)+1;
if((lenn+startimportname+1)>=sizeimport){
sizeimport+=FILEALIGN; //㢥<><E3A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> ᥪ樨
importblock=(char *)REALLOC(importblock,sizeimport);
memset(importblock+sizeimport-FILEALIGN,0,FILEALIGN);
}
strcpy(&importblock[startimportname],newdll->name);
startimportname+=lenn;
for(int n=0,t=0;n<newdll->num;n++,t++){
while((listapi+t)->recapi->recrm==0)t++;
idrec *rec=(listapi+t)->recapi;
unsigned long newadr;
newadr=ImageBase+startsec+sn1+(shortimport==0?(numdll+numapi)*4:0);
if(rec->recrm==API_JMP)*(long *)&output[rec->recnumber]=newadr;
else{
for(unsigned int j=0;j<posts;j++){ //<2F><><EFBFBD><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD>
if((postbuf+j)->num==(unsigned long)rec->recnumber&&(postbuf+j)->type==CALL_32I){
*(long *)&output[(postbuf+j)->loc]=newadr; //<2F><><EFBFBD>ࠢ<EFBFBD><E0A0A2><EFBFBD>
}
}
}
if(useordinal&&rec->recsib!=-1){
*(long *)&importblock[sn1]=rec->recsib|0x80000000;
if(shortimport==0)*(long *)&importblock[sn1+(numdll+numapi)*4]=rec->recsib|0x80000000;
}
else{
if((startimportname%2)==1)importblock[startimportname++]=0;
*(long *)&importblock[sn1]=startsec+startimportname;
if(shortimport==0)*(long *)&importblock[sn1+(numdll+numapi)*4]=startsec+startimportname;
if(rec->recsize!=-1)sprintf((char *)string2,"%s@%u",rec->recid,rec->recsize);
else strcpy((char *)string2,rec->recid);
lenn=strlen((char *)string2)+1;
if((lenn+startimportname+4)>=sizeimport){
sizeimport+=FILEALIGN;
importblock=(char *)REALLOC(importblock,sizeimport);
memset(importblock+sizeimport-FILEALIGN,0,FILEALIGN);
}
*(short *)&importblock[startimportname]=0;
startimportname+=2;
strcpy(&importblock[startimportname],(char *)string2);
startimportname+=lenn;
}
sn1+=4;
}
if(newdll->next==NULL)break;
newdll=newdll->next;
sn1+=4;
}
importblock[startimportname++]=0;
if(!WinMonoBlock){ //<2F>᫨ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
strcpy((objentry+importnum)->name,".idata"); //<2F><><EFBFBD> ᥪ樨
(objentry+importnum)->vsize=sizeImport=Align(sizeimport,OBJECTALIGN);
(objentry+importnum)->psize=sizeimport;
(objentry+importnum)->flags=0xC0000040;
(objentry+importnum)->sectionRVA=startsec;
}
else sizeImport=sizeimport=Align(startimportname,4);
}
//ᥪ<><E1A5AA><EFBFBD> <20><>ᯮ<EFBFBD><E1AFAE><EFBFBD>
if(numexport!=0){
if(!WinMonoBlock){ //<2F>᫨ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
exportnum=numobj;
numobj++; //㢥<><E3A2A5>稢<EFBFBD><E7A8A2><EFBFBD> <20><>᫮ <20><>ꥪ⮢
}
startsece=vsizeheader+vsize+sizeImport+sizebss;//<2F><>砫<EFBFBD> ᥪ樨 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
startexportname=sizeof(EXPORT_TABLE)+numexport*10;//ॠ<><E0A5A0><EFBFBD><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> ᥪ樨
sizeexport=Align(startexportname,FILEALIGN); //ࠧ<><E0A0A7><EFBFBD> ᥪ樨 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
exportblock=(char *)MALLOC(sizeexport); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
memset(exportblock,0,sizeexport); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>
*(long *)&exportblock[12]=startsece+startexportname;//<2F><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 䠩<><E4A0A9>
*(long *)&exportblock[16]=1; //Ordinal Base
*(long *)&exportblock[20]=numexport; //Num of Functions
*(long *)&exportblock[24]=numexport; //Num of Name Pointer
*(long *)&exportblock[28]=startsece+sizeof(EXPORT_TABLE);//Address Table RVA
*(long *)&exportblock[32]=startsece+sizeof(EXPORT_TABLE)+numexport*4;//Name Pointers RVA
*(long *)&exportblock[36]=startsece+sizeof(EXPORT_TABLE)+numexport*8;//Ordinal Table RVA
char *oname;
strcpy((char *)string2,(char *)rawfilename);
oname=strrchr((char *)string2,'\\');
if(oname==NULL)oname=(char *)string2;
else oname=oname+1;
sprintf((char *)string,"%s.%s",oname,outext);
unsigned int lenn=strlen((char *)string)+1;
if((lenn+startexportname+1)>=sizeexport){
sizeexport+=FILEALIGN; //㢥<><E3A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> ᥪ樨
exportblock=(char *)REALLOC(exportblock,sizeexport);
memset(exportblock+sizeexport-FILEALIGN,0,FILEALIGN);
}
strcpy(&exportblock[startexportname],(char *)string);
startexportname+=lenn;
for(int i=0;i<numexport;i++){
*(long *)&exportblock[sizeof(EXPORT_TABLE)+i*4]=(lexport+i)->address+vsizeheader+sizebss; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>㭪権
*(long *)&exportblock[sizeof(EXPORT_TABLE)+(numexport+i)*4]=startsece+startexportname; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
*(short *)&exportblock[sizeof(EXPORT_TABLE)+numexport*8+i*2]=(short)i; //<2F>न<EFBFBD><E0A4A8><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
lenn=strlen((lexport+i)->name)+1;
if((lenn+startexportname+1)>=sizeexport){
sizeexport+=FILEALIGN; //㢥<><E3A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> ᥪ樨
exportblock=(char *)REALLOC(exportblock,sizeexport);
memset(exportblock+sizeexport-FILEALIGN,0,FILEALIGN);
}
strcpy(&exportblock[startexportname],(lexport+i)->name);
startexportname+=lenn;
}
free(lexport);//<2F>᢮<EFBFBD><E1A2AE><EFBFBD><EFBFBD><EFBFBD> 㦥 <20><> <20>㦭<EFBFBD><E3A6AD> <20><><EFBFBD><EFBFBD>
if(!WinMonoBlock){ //<2F>᫨ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
strcpy((objentry+exportnum)->name,".edata"); //<2F><><EFBFBD> ᥪ樨
(objentry+exportnum)->vsize=sizeExport=Align(sizeexport,OBJECTALIGN);
(objentry+exportnum)->psize=sizeexport;
(objentry+exportnum)->flags=0x40000040;
(objentry+exportnum)->sectionRVA=startsece;
}
else sizeexport=sizeExport=Align(startexportname,4);
}
if(numres){ //ᥪ<><E1A5AA><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ
if(WinMonoBlock==FALSE){ //<2F>᫨ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
resnum=numobj;
numobj++; //㢥<><E3A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>᫮ <20><>ꥪ⮢
}
startsecres=vsizeheader+vsize+sizeImport+sizebss+sizeExport;//<2F><>砫<EFBFBD> ᥪ樨 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
LISTRELOC *resrel;
if(MakeRes(startsecres,&resrel))free(resrel);
if(!WinMonoBlock){ //<2F>᫨ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
strcpy((objentry+resnum)->name,".rsrc"); //<2F><><EFBFBD> ᥪ樨
(objentry+resnum)->vsize=sizeRes=Align(curposbuf,OBJECTALIGN);
(objentry+resnum)->psize=sizeres=Align(curposbuf,FILEALIGN);
(objentry+resnum)->flags=0x40000040;
(objentry+resnum)->sectionRVA=startsecres;
}
else sizeres=Align(curposbuf,4);
}
//ᥪ<><E1A5AA><EFBFBD> ⠡<><E2A0A1><EFBFBD> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
if((FixUpTable==TRUE&&numrel!=0)/*||numexport!=0*/){//ᮧ<><E1AEA7><EFBFBD><EFBFBD> ᥪ<><E1A5AA><EFBFBD> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
if(WinMonoBlock==FALSE||dllflag==TRUE){ //<2F>᫨ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20> <20><><EFBFBD> DLL
relocnum=numobj;
numobj++; //㢥<><E3A2A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>᫮ <20><>ꥪ⮢
}
if(WinMonoBlock&&dllflag)startsecr=vsizeheader+
Align(sizeimport+sizeexport+outptr+(wbss==FALSE?postsize:0)+sizebss+sizeres,OBJECTALIGN);
else startsecr=vsizeheader+vsize+sizeImport+sizeExport+sizebss+sizeres; //<2F><><EFBFBD><EFBFBD>㠫<EFBFBD><E3A0AB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ᥪ樨 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//䨧<><E4A8A7><EFBFBD>᪨<EFBFBD> ࠧ<><E0A0A7><EFBFBD> ᥪ樨 ⠡<><E2A0A1><EFBFBD><EFBFBD> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
sizereloc=Align(numrel*2+(outptr/4096+1)*10,FILEALIGN);
sizeReloc=Align(sizereloc,OBJECTALIGN);//<2F><><EFBFBD><EFBFBD>㠫<EFBFBD><E3A0AB><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> <20>⮩ ᥪ樨
relocblock=(char *)MALLOC(sizereloc); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> ᥪ<><E1A5AA><EFBFBD>
memset(relocblock,0,sizereloc); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 ᥪ<><E1A5AA><EFBFBD> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
unsigned int startrsec=0; //<2F><><EFBFBD><EFBFBD><EFBFBD> <20><>砫<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> ᥪ樨 <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
unsigned int startblc=0; //<2F><><EFBFBD><EFBFBD><EFBFBD> <20><>ࢮ<EFBFBD><E0A2AE> <20><><EFBFBD><EFBFBD><EFBFBD>
posrel=8;
do{
unsigned char fr=FALSE; //䫠<> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
for(unsigned int i=0;i<posts;i++){ //<2F><>室<EFBFBD><E5AEA4> <20><><EFBFBD> ⠡<><E2A0A1><EFBFBD><EFBFBD> post
if(
(
(postbuf+i)->type==CALL_32I||
((postbuf+i)->type>=POST_VAR32&&(postbuf+i)->type<=FIX_CODE32))
&&
(postbuf+i)->loc>=startblc&&(postbuf+i)->loc<(startblc+4096)){
*(short *)&relocblock[posrel]=(short)((postbuf+i)->loc%4096|0x3000);
posrel+=2;
fr=TRUE;
}
}
if(fr!=FALSE){ //<2F>᫨ <20>뫨 <20><>६<EFBFBD>頥<EFBFBD><E9A0A5><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
posrel+=posrel%4; //<2F><>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
*(long *)&relocblock[startrsec]=vsizeheader+sizebss+startblc;
*(long *)&relocblock[startrsec+4]=posrel-startrsec; //ࠧ<><E0A0A7><EFBFBD> <20><>᪠
startrsec=posrel;
posrel+=8;
}
startblc+=4096;
}while(startblc<vsize);
posrel-=8;
if(WinMonoBlock==FALSE||dllflag==TRUE){ //<2F>᫨ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
strcpy((objentry+relocnum)->name,".reloc"); //<2F><><EFBFBD> ᥪ樨
(objentry+relocnum)->vsize=sizeReloc; //ࠧ<><E0A0A7><EFBFBD> ᥪ樨 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
(objentry+relocnum)->psize=sizereloc; //ࠧ<><E0A0A7><EFBFBD> ᥪ樨 <20> 䠩<><E4A0A9>
(objentry+relocnum)->flags=0x52000040; //䫠<> ᥪ樨
(objentry+relocnum)->sectionRVA=startsecr; //<2F><><EFBFBD><EFBFBD>㠫<EFBFBD><E3A0AB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> ᥪ樨 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
}
else sizereloc=Align(posrel,4);
}
if(WinMonoBlock){
psize=sizeimport+sizeexport+(dllflag==FALSE?sizereloc:0)+sizeres; //ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥫<EFBFBD><E2A5AB><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if(wbss==0){
for(unsigned int i=0;i<posts;i++){
if((postbuf+i)->type==POST_VAR32)
*(long *)&output[(postbuf+i)->loc]+=psize;
}
}
psize+=outptr;
(objentry+codenum)->vsize=vsize=Align(psize+(wbss==FALSE?postsize:0),OBJECTALIGN);//<2F><><EFBFBD><EFBFBD>㠫<EFBFBD><E3A0AB><EFBFBD><EFBFBD> ࠧ<><E0A0A7><EFBFBD> ᥪ樨 <20><><EFBFBD><EFBFBD>
filingzerope=(objentry+codenum)->psize=Align(psize,FILEALIGN); //䨧<><E4A8A7><EFBFBD>᪨<EFBFBD> ࠧ<><E0A0A7><EFBFBD> ᥪ樨 <20><><EFBFBD><EFBFBD>
filingzerope-=psize;
psize=(objentry+codenum)->psize;
sizeImport=sizeExport=0;
if(dllflag==FALSE)sizeReloc=0;
}
PE_HEADER *peheader=(PE_HEADER *)MALLOC(sizeof(PE_HEADER));
memset(peheader,0,sizeof(PE_HEADER));
sizehead=Align(sizeof(PE_HEADER)+sizestub+(numobj+(numres!=0?0:1))*sizeof(OBJECT_ENTRY),FILEALIGN);
#ifdef _WC_
peheader->sign='EP';
#else
peheader->sign='PE';
#endif
peheader->cpu=0x14c;//(chip>=4?(chip>=5?0x14e:0x14D):0x14c);
// peheader->date_time=0;
peheader->DLLflag=dllflag;
peheader->numobj=numobj;
peheader->NTheadsize=0xe0;
peheader->flags=(short)(0x818e|(dllflag==0?0:0x2000));
peheader->Magic=0x10b;
peheader->LinkVer=(short)((short)ver2*256+ver1);
peheader->sizecode=psize;
peheader->sizeuninitdata=postsize;
{
unsigned int temp;
temp=EntryPoint();
if(temp==0xffffffff)peheader->EntryRVA=0;
else peheader->EntryRVA=vsizeheader+sizebss+temp;
}
peheader->basecode=vsizeheader+sizebss;
peheader->objAlig=OBJECTALIGN;
peheader->fileAlig=FILEALIGN;
peheader->OSver=1;
peheader->SubSysVer=4;
peheader->ImageBase=ImageBase;
peheader->headsize=sizehead;
peheader->imagesize=vsizeheader+ //ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
vsize+ //ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD>
sizebss+ //ࠧ<><E0A0A7><EFBFBD> post <20><><EFBFBD><EFBFBD><EFBFBD>
sizeReloc+ //ࠧ<><E0A0A7><EFBFBD> ⠡<><E2A0A1><EFBFBD><EFBFBD> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
sizeImport+//ࠧ<><E0A0A7><EFBFBD> ⠡<><E2A0A1><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
sizeRes+ //ࠧ<><E0A0A7><EFBFBD> ⠡<><E2A0A1><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ᮢ
sizeExport;//ࠧ<><E0A0A7><EFBFBD> ⠡<><E2A0A1><EFBFBD><EFBFBD> <20><>ᯮ<EFBFBD><E1AFAE><EFBFBD>
peheader->SubSys=(short)(2+wconsole); //GUIWIN
peheader->stackRezSize=stacksize*0x10;
peheader->stackComSize=stacksize;
peheader->heapRezSize=0x10000;
peheader->heapComSize=0x1000;//postsize; //????
peheader->numRVA=0x10;
if(!usestub){
peheader->basedata=12;
peheader->pCOFF=0x40;
}
(objentry+codenum)->pOffset=sizehead;
if(numapi){
if(!WinMonoBlock)(objentry+importnum)->pOffset=sizehead+psize;
peheader->importRVA=startsec;
peheader->importSize=startimportname;
}
if(numexport){
if(!WinMonoBlock)(objentry+exportnum)->pOffset=sizehead+psize+sizeimport;
peheader->exportRVA=startsece;
peheader->exportSize=startexportname;
}
if(numres){
if(!WinMonoBlock)(objentry+resnum)->pOffset=sizehead+psize+sizeimport+sizeexport;
peheader->resourRVA=startsecres;
peheader->resourSize=curposbuf;
}
if(posrel){
if(!WinMonoBlock)(objentry+relocnum)->pOffset=sizehead+psize+sizeimport+sizeexport+sizeres;
else if(dllflag)(objentry+relocnum)->pOffset=sizehead+psize;
peheader->fixupRVA=startsecr;
peheader->fixupSize=posrel;
}
if(fwrite(peheader,sizeof(PE_HEADER),1,hout)!=1){
errwrite:
ErrWrite();
fclose(hout);
hout=NULL;
return(-1);
}
if(fwrite(objentry,sizeof(OBJECT_ENTRY)*numobj,1,hout)!=1)goto errwrite;
ChSize(sizehead);
runfilesize=sizehead+psize;
outputcodestart=ftell(hout);
if(fwrite(output,outptr,1,hout)!=1)goto errwrite; //<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
if(!WinMonoBlock){
filingzerope=psize-outptr;
ChSize(runfilesize);
}
if(numapi){
if(fwrite(importblock,sizeimport,1,hout)!=1)goto errwrite;
free(importblock);
}
if(numexport){
if(fwrite(exportblock,sizeexport,1,hout)!=1)goto errwrite;
free(exportblock);
}
if(numres){
if(fwrite(resbuf,sizeres,1,hout)!=1)goto errwrite;
free(resbuf);
}
if(posrel){
if(WinMonoBlock&&dllflag)ChSize(runfilesize);
if(fwrite(relocblock,sizereloc,1,hout)!=1)goto errwrite;
free(relocblock);
}
if(WinMonoBlock){
if(dllflag)runfilesize+=sizereloc;
}
else runfilesize+=sizereloc+sizeimport+sizeexport+sizeres;
ChSize(runfilesize);
free(peheader);
free(objentry);
fclose(hout);
hout=NULL;
ImageBase+=vsizeheader+sizebss; //<2F><><EFBFBD> ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>⨭<EFBFBD><E2A8AD>
return 0;
}
void ChSize(long size)
{
char buf[256];
long delta,ssave;
memset(buf,0,256);
delta=size-ftell(hout);
while(delta>0){
ssave=256;
if(delta<256)ssave=delta;
fwrite(buf,ssave,1,hout);
delta-=ssave;
}
}
int AlignCD(char segm,int val) //<2F><>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
{
unsigned int a;
a=(segm==DS?outptrdata:outptr)%val;
if(a==0)val=0;
else val-=a;
a=0;
while(val!=0){
segm==DS?opd(aligner):op(0x90);
val--;
a++;
}
return a;
}
void CreatWinStub()
{
if(!usestub){
sizestub=SIZESTUB2;
hout=CreateOutPut(outext,"wb");
if(fwrite(stub2,SIZESTUB2,1,hout)!=1){
ErrWrite();
return;
}
}
else CreatStub(winstub);
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>᫮ ᥪ権
if(wbss){
if(postsize)numrs++;
else wbss=FALSE;
}
if(WinMonoBlock==FALSE){ //<2F>᫨ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
if(numapi)numrs++; //<2F><><EFBFBD><EFBFBD> <20>맮<EFBFBD><EBA7AE> api-<2D><><EFBFBD>楤<EFBFBD><E6A5A4>
if(numexport)numrs++; //ᮧ<><E1AEA7><EFBFBD><EFBFBD> ᥪ<><E1A5AA><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if((FixUpTable==TRUE&&posts)/*||numexport!=0*/)numrs++; //ᮧ<><E1AEA7><EFBFBD><EFBFBD> ᥪ<><E1A5AA><EFBFBD> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
if(numres)numrs++; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
}
else if(dllflag&&FixUpTable==TRUE&&posts!=0)numrs++; //ᮧ<><E1AEA7><EFBFBD><EFBFBD> ᥪ<><E1A5AA><EFBFBD> <20><>६<EFBFBD>饭<EFBFBD><E9A5AD>
//ࠧ<><E0A0A7><EFBFBD> <20><><EFBFBD><EFBFBD>㧮筮<E3A7AE><E7ADAE> <20><>ࠧ<EFBFBD>
vsizeheader=Align(numrs*sizeof(OBJECT_ENTRY)+sizeof(PE_HEADER)+sizestub,0x1000);
}
void ImportName(char *name)
{
FILE *infile;
union{
PE_HEADER pe;
OBJECT_ENTRY obj;
};
unsigned long temp;
unsigned long ulexport; //ᥪ<><E1A5AA><EFBFBD> <20> <20><>ᯮ<EFBFBD>⮬
unsigned long numobj; //<2F><>᫮ <20><>ꥪ⮢
unsigned long posdll; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᥪ樨 <20> 䠩<><E4A0A9>
unsigned long nameadr; //⠡<><E2A0A1><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ᮢ <20><><EFBFBD><EFBFBD>
unsigned long startname; //<2F><>砫<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
unsigned long ordinallist,ordinalbase;
unsigned int i,j;
DLLLIST *newdll;
APIPROC *listapi;
if((infile=fopen(name,"rb"))==NULL){
ErrOpenFile(name);
return;
}
fseek(infile,0x3C,SEEK_SET);
if(fread(&temp,4,1,infile)!=1){
errread:
//fprintf(stderr,"Unable to read from file %s.\n",name); printf("Unable to read from file %s.\n",name);
fclose(infile);
return;
}
fseek(infile,0,SEEK_END);
if((unsigned long)ftell(infile)<=temp){
//fprintf(stderr,"Bad file %s.\n",name); printf("Bad file %s.\n",name);
fclose(infile);
return;
}
fseek(infile,temp,SEEK_SET);
if(fread(&pe,sizeof(PE_HEADER),1,infile)!=1)goto errread;
if(pe.sign!=
#ifdef _WC_
'EP'
#else
'PE'
#endif
){
//fprintf(stderr,"For DLL support only format PE.\n"); printf("For DLL support only format PE.\n");
fclose(infile);
return;
}
if((ulexport=pe.exportRVA)==0){
//fprintf(stderr,"No export directory on %s.\n",name); printf("No export directory on %s.\n",name);
fclose(infile);
return;
}
numobj=pe.numobj;
temp=pe.objAlig;
while(numobj!=0){
if(fread(&obj,sizeof(OBJECT_ENTRY),1,infile)!=1)goto errread;
if((obj.sectionRVA+Align(obj.psize,temp))>ulexport)break;
numobj--;
}
if(numobj==0){
//fprintf(stderr,"Bad object table in %s.\n",name); printf("Bad object table in %s.\n",name);
fclose(infile);
return;
}
posdll=obj.pOffset+ulexport-obj.sectionRVA;
fseek(infile,posdll+24,SEEK_SET);
if(fread(&numobj,4,1,infile)!=1)goto errread;
fseek(infile,posdll+32,SEEK_SET);
if(fread(&nameadr,4,1,infile)!=1)goto errread;
if(fread(&ordinallist,4,1,infile)!=1)goto errread;
nameadr-=ulexport;
ordinallist-=ulexport;
fseek(infile,posdll+12,SEEK_SET);
if(fread(&startname,4,1,infile)!=1)goto errread;
if(fread(&ordinalbase,4,1,infile)!=1)goto errread;
fseek(infile,posdll+startname-ulexport,SEEK_SET);
j=0;
do{
if(fread(&string[j],1,1,infile)!=1)goto errread;
}while(string[j++]!=0); //<2F><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⥪<EFBFBD>
newdll=FindDLL();
listapi=newdll->list;
for(i=0;i<numobj;i++){
fseek(infile,posdll+nameadr,SEEK_SET);
if(fread(&startname,4,1,infile)!=1)goto errread;
fseek(infile,posdll+startname-ulexport,SEEK_SET);
itok.size=-1;
j=0;
unsigned char c;
do{
if(fread(&c,1,1,infile)!=1)goto errread;
if(c=='@'){
itok.name[j]=0;
break;
}
itok.name[j]=c;
j++;
}while(j<=IDLENGTH&&c!=0);
if(c=='@'){
j=0;
do{
if(fread(&c,1,1,infile)!=1)goto errread;
string[j++]=c;
}while(isdigit(c));
itok.size=getnumber(string);
}
tok=tk_id;
searchvar(itok.name);
if(tok==tk_id){
fseek(infile,posdll+ordinallist,SEEK_SET);
itok.sib=0;
if(fread(&itok.sib,2,1,infile)!=1)goto errread;
itok.sib+=ordinalbase;
tok=tk_apiproc;
itok.number=secondcallnum++;
itok.segm=NOT_DYNAMIC;
string[0]=0;
if(newdll->num==0)listapi=(APIPROC *)MALLOC(sizeof(APIPROC)); //<2F><>ࢠ<EFBFBD> <20> ᯨ᪥
else listapi=(APIPROC *)REALLOC(listapi,sizeof(APIPROC)*(newdll->num+1));
(listapi+newdll->num)->recapi=addtotree(itok.name);
newdll->num++;
}
nameadr+=4;
ordinallist+=2;
}
newdll->list=listapi;
fclose(infile);
}
void CreatStub(char *name)
{
sizestub=SIZESTUB;
hout=CreateOutPut(outext,"wb");
sprintf(&stub[STRVERS],"%s%s",compilerstr,__DATE__);
if(name==NULL){
stdstub:
if(fwrite(stub,SIZESTUB,1,hout)!=1){
errwrite:
ErrWrite();
return;
}
}
else{
EXE_DOS_HEADER exeheader; // header for EXE format
FILE *stubin;
if((stubin=fopen(name,"rb"))==NULL){
ErrOpenFile(name);
goto stdstub;
}
if(fread(&exeheader,sizeof(EXE_DOS_HEADER),1,stubin)!=1){
errread:
ErrReadStub();
fclose(stubin);
goto stdstub;
}
if(exeheader.sign!=0x5A4D){
errstub:
//fprintf(stderr,"File %s can not be stub file.\n",name); printf("File %s can not be stub file.\n",name);
fclose(stubin);
goto stdstub;
}
fseek(stubin,0,SEEK_END);
sizestub=ftell(stubin);
unsigned long temp;
if(exeheader.ofsreloc>=0x40){ //<2F>஢<EFBFBD>ઠ <20><><EFBFBD> <20><><EFBFBD> <20><> 32-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 䠩<>
fseek(stubin,0x3c,SEEK_SET);
if(fread(&temp,4,1,stubin)!=1)goto errread;
if(temp<sizestub){
fseek(stubin,temp,SEEK_SET);
if(fread(&temp,4,1,stubin)!=1)goto errread;
switch(temp){
#ifdef _WC_
case 'EP':
case 'EN':
case 'EL':
case 'XL':
#else
case 'PE':
case 'NE':
case 'LE':
case 'LX':
#endif
goto errstub;
}
}
exeheader.ofsreloc+=(unsigned short)0x20;
}
else exeheader.ofsreloc=0x40;
//ࠧ<><E0A0A7><EFBFBD> 䠩<><E4A0A9>
sizestub=Align(sizestub+32,8);
fseek(stubin,0x20,SEEK_SET);
exeheader.headsize+=(unsigned short)2;
if(fwrite(&exeheader,sizeof(EXE_DOS_HEADER),1,hout)!=1)goto errwrite;
*(unsigned long *)&stub[STRVERS+28]=sizestub;
if(fwrite(&stub[STRVERS],32,1,hout)!=1)goto errwrite;
CopyFile(stubin,hout);
ChSize(sizestub);
}
}
#define MAXLISTNAME 1024
#define MAXNUMSYMBOL 128
#define MAXSIZESYMBOL MAXNUMSYMBOL*sizeof(IMAGE_SYMBOL)
#define MAXNUMRELOC 256
char *ListName;
unsigned long sizelistName,maxsizelistname,textnum,bssnum;
IMAGE_SYMBOL *isymbol;
unsigned long numsymbol,maxnumsymbol,maxnumnameid,maxnumreloc,numreloc;
int segtext,segbss;
extern int numextern;
IMAGE_RELOCATION *treloc;
struct NAMEID{
int num;
int id;
}*NameId;
#define MAXSIZENAMEID MAXNUMSYMBOL*sizeof(NAMEID)
void AddName(char *name,unsigned long size)
{
if(sizelistName+size+1>=maxsizelistname){
maxsizelistname+=MAXLISTNAME;
ListName=(char *)REALLOC(ListName,maxsizelistname);
}
strcpy(ListName+sizelistName,name);
sizelistName+=size+1;
}
void CreatSymbolTable(idrec *ptr)
{
unsigned int i;
if(ptr!=NULL){
CreatSymbolTable(ptr->right);
if(ptr->rectok==tk_apiproc){
for(unsigned int j=0;j<posts;j++){ //<2F><><EFBFBD><EFBFBD><EFBFBD> <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD>
if((postbuf+j)->num==(unsigned long)ptr->recnumber&&((postbuf+j)->type==CALL_32I||(postbuf+j)->type==CALL_32)){
goto nameext;
}
}
}
else if((externnum!=0&&ptr->rectok==tk_undefproc&&(ptr->flag&f_extern)!=0)||
((ptr->rectok==tk_proc||ptr->rectok==tk_interruptproc)&&ptr->recsegm>=NOT_DYNAMIC)||
((ptr->rectok>=tk_bits&&ptr->rectok<=tk_doublevar)||ptr->rectok==tk_structvar)){
nameext:
if(numsymbol+1>=maxnumsymbol){
maxnumsymbol+=MAXNUMSYMBOL;
isymbol=(IMAGE_SYMBOL *)REALLOC(isymbol,maxnumsymbol*sizeof(IMAGE_SYMBOL));
memset(isymbol+maxnumsymbol*sizeof(IMAGE_SYMBOL)-MAXSIZESYMBOL,0,MAXSIZESYMBOL); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>
}
if(ptr->rectok==tk_apiproc||ptr->rectok==tk_undefproc||
ptr->rectok==tk_proc||ptr->rectok==tk_interruptproc)(isymbol+numsymbol)->Type=32;
i=strlen(ptr->recid);
if(i>8){
(isymbol+numsymbol)->N.Name.Short=0;
(isymbol+numsymbol)->N.Name.Long=sizelistName+4;
AddName(ptr->recid,i);
}
else strncpy((isymbol+numsymbol)->N.sname,ptr->recid,i);
if(ptr->rectok!=tk_apiproc&&ptr->rectok!=tk_undefproc&&(ptr->flag&f_extern)==0){
(isymbol+numsymbol)->Value=ptr->recnumber;
if(ptr->rectok==tk_proc||ptr->rectok==tk_interruptproc)(isymbol+numsymbol)->SectionNumber=(short)(textnum+1);
else (isymbol+numsymbol)->SectionNumber=(short)((ptr->recpost==0?textnum:bssnum)+1);
}
else{
(NameId+numextern)->num=ptr->recnumber;
(NameId+numextern)->id=numsymbol;
numextern++;
if(numextern>=maxnumnameid){
maxnumnameid+=MAXNUMSYMBOL;
NameId=(NAMEID *)REALLOC(NameId,maxnumnameid*sizeof(NAMEID));
}
}
(isymbol+numsymbol)->StorageClass=2;
numsymbol++;
}
CreatSymbolTable(ptr->left);
}
}
void FreeCoffBuf()
{
free(ListName);
free(isymbol);
free(NameId);
free(treloc);
fclose(hout);
hout=NULL;
}
void IncReloc()
{
numreloc++;
if(numreloc>=maxnumreloc){
maxnumreloc+=MAXNUMRELOC;
treloc=(IMAGE_RELOCATION *)REALLOC(treloc,maxnumreloc*sizeof(IMAGE_RELOCATION));
}
}
void CreatRelocTable()
{
for(int j=0;j<posts;j++){
(treloc+numreloc)->VirtualAddress=(postbuf+j)->loc-startptr;
if((postbuf+j)->type>=CALL_32I&&(postbuf+j)->type<=FIX_CODE32){
switch((postbuf+j)->type){
case POST_VAR:
case POST_VAR32:
(treloc+numreloc)->Type=IMAGE_REL_I386_DIR32;
(treloc+numreloc)->SymbolTableIndex=segbss;
break;
case FIX_VAR:
case FIX_VAR32:
case FIX_CODE:
case FIX_CODE32:
(treloc+numreloc)->Type=IMAGE_REL_I386_DIR32;
(treloc+numreloc)->SymbolTableIndex=segtext;
break;
}
IncReloc();
}
else{
for(int i=0;i<numextern;i++){
if((NameId+i)->num==(postbuf+j)->num){
if((postbuf+j)->type==EXT_VAR)(treloc+numreloc)->Type=IMAGE_REL_I386_DIR32;
else (treloc+numreloc)->Type=IMAGE_REL_I386_REL32;
(treloc+numreloc)->SymbolTableIndex=(NameId+i)->id;
IncReloc();
break;
}
}
}
}
}
int MakeCoff()
{
COFF_HEADER chead;
unsigned long sizehead,curobj,resnum,numresrel,segres,lastoffset,headernum;
OBJECT_ENTRY *objentry;
int i;
LISTRELOC *resrel=NULL;
char *codesecname;
hout=CreateOutPut("obj","wb");
chead.cpu=0x14c;
chead.SizeOfOptionalHeader=0;
chead.date_time=0;
chead.Characteristics=0x100;
/*if(header)*/numrs=2;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>᫮ ᥪ権
if(wbss){
if(postsize)numrs++;
else wbss=FALSE;
}
if(numres)numrs++; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
chead.numobj=numrs;
sizehead=numrs*sizeof(OBJECT_ENTRY);
objentry=(OBJECT_ENTRY *)MALLOC(sizehead);//⠢<><E2A0A2><EFBFBD><EFBFBD> <20><>ꥪ⮢
memset(objentry,0,sizehead);//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⠡<><E2A0A1><EFBFBD><EFBFBD> <20><>ꥪ⮢
curobj=0;
lastoffset=sizehead+sizeof(COFF_HEADER);
// if(header){
strcpy((objentry+curobj)->name,".version");
sprintf(&stub[STRVERS],"%s%s",compilerstr,__DATE__);
(objentry+curobj)->psize=strlen(&stub[STRVERS])+1;
(objentry+curobj)->pOffset=lastoffset;
(objentry+curobj)->flags=0x100A00;
headernum=curobj;
lastoffset+=(objentry+curobj)->psize;
curobj++;
// }
codesecname=".text";
if(splitdata==FALSE)codesecname=".codedat";
strcpy((objentry+curobj)->name,codesecname);
(objentry+curobj)->psize=outptr;
(objentry+curobj)->pOffset=lastoffset;
(objentry+curobj)->flags=0xE0300060;
lastoffset+=outptr;
textnum=curobj;
curobj++;
if(wbss){
strcpy((objentry+curobj)->name,".bss");
(objentry+curobj)->psize=postsize;
(objentry+curobj)->flags=0xC0300080;
bssnum=curobj;
curobj++;
}
if(numres){
strcpy((objentry+curobj)->name,".rsrc$01");
numresrel=(objentry+curobj)->NumberOfRelocations=MakeRes(0,&resrel);
(objentry+curobj)->psize=curposbuf;
(objentry+curobj)->flags=0x40000040;
resnum=curobj;
}
sizelistName=0;numsymbol=0;
ListName=(char *)MALLOC(MAXLISTNAME);
isymbol=(IMAGE_SYMBOL *)MALLOC(MAXSIZESYMBOL);
memset(isymbol,0,MAXSIZESYMBOL); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>
maxsizelistname=MAXLISTNAME;
maxnumnameid=maxnumsymbol=MAXNUMSYMBOL;
NameId=(NAMEID *)MALLOC(MAXSIZENAMEID);
treloc=(IMAGE_RELOCATION *)MALLOC(sizeof(IMAGE_RELOCATION)*MAXNUMRELOC);
maxnumreloc=MAXNUMRELOC;
numreloc=0;
strcpy(isymbol->N.sname,"@comp.id");
isymbol->Value=0x141F8E;
isymbol->SectionNumber=-1;
isymbol->StorageClass=3;
strcpy((isymbol+1)->N.sname,".file");
(isymbol+1)->Value=1;
(isymbol+1)->SectionNumber=-2;
(isymbol+1)->StorageClass=0x67;
i=(strlen(startfileinfo->filename)-1)/sizeof(IMAGE_SYMBOL)+1;
(isymbol+1)->NumberOfAuxSymbols=i;
strcpy((isymbol+2)->N.sname,startfileinfo->filename);
numsymbol=i+2;
segtext=numsymbol;
strcpy((isymbol+numsymbol)->N.sname,codesecname);
(isymbol+numsymbol)->SectionNumber=textnum+1;
(isymbol+numsymbol)->StorageClass=3;
(isymbol+numsymbol)->NumberOfAuxSymbols=1;
numsymbol++;
(isymbol+numsymbol)->N.Name.Short=outptr;
numsymbol++;
if(wbss){
segbss=numsymbol;
strcpy((isymbol+numsymbol)->N.sname,".bss");
(isymbol+numsymbol)->SectionNumber=bssnum+1;
(isymbol+numsymbol)->StorageClass=3;
(isymbol+numsymbol)->NumberOfAuxSymbols=1;
numsymbol++;
(isymbol+numsymbol)->N.Name.Short=postsize;
numsymbol++;
strcpy((isymbol+numsymbol)->N.sname,"DGROUP");
(isymbol+numsymbol)->SectionNumber=bssnum+1;
(isymbol+numsymbol)->StorageClass=3;
}
strcpy((isymbol+numsymbol)->N.sname,"FLAT");
(isymbol+numsymbol)->SectionNumber=-1;
(isymbol+numsymbol)->StorageClass=3;
numsymbol++;
if(numres){
segres=numsymbol;
strcpy((isymbol+numsymbol)->N.sname,".rsrc$01");
(isymbol+numsymbol)->StorageClass=3;
(isymbol+numsymbol)->SectionNumber=resnum+1;
numsymbol++;
}
// if(header){
strcpy((isymbol+numsymbol)->N.sname,".version");
(isymbol+numsymbol)->SectionNumber=headernum+1;
(isymbol+numsymbol)->StorageClass=3;
numsymbol++;
// }
CreatSymbolTable(treestart);
CreatRelocTable();
(isymbol+segtext+1)->N.Name.Long=numreloc;
(objentry+textnum)->NumberOfRelocations=numreloc;
if(numreloc){
(objentry+textnum)->PointerToRelocations=lastoffset;
lastoffset+=sizeof(IMAGE_RELOCATION)*numreloc;
}
if(numres){
(objentry+resnum)->pOffset=lastoffset;
lastoffset+=curposbuf;
if(numresrel){
(objentry+resnum)->PointerToRelocations=lastoffset;
lastoffset+=sizeof(IMAGE_RELOCATION)*numresrel;
}
}
chead.COFFsize=numsymbol;
if(numsymbol){
chead.pCOFF=lastoffset;
}
if(fwrite(&chead,sizeof(COFF_HEADER),1,hout)!=1){
errwrite:
ErrWrite();
free(objentry);
if(resrel)free(resrel);
FreeCoffBuf();
return(-1);
}
if(fwrite(objentry,sizehead,1,hout)!=1)goto errwrite;
// if(header){
if(fwrite(&stub[STRVERS],(objentry+headernum)->psize,1,hout)!=1)goto errwrite;
// }
if(fwrite(output,outptr,1,hout)!=1)goto errwrite; //<2F><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
if(numreloc){
if(fwrite(treloc,numreloc*sizeof(IMAGE_RELOCATION),1,hout)!=1)goto errwrite;
}
if(numres){
if(fwrite(resbuf,curposbuf,1,hout)!=1)goto errwrite;
free(resbuf);
if(numresrel){
IMAGE_RELOCATION *rrel;
rrel=(IMAGE_RELOCATION *)MALLOC(sizeof(IMAGE_RELOCATION)*numresrel);
for(i=0;i<numresrel;i++){
(rrel+i)->VirtualAddress=(resrel+i)->val;
(rrel+i)->Type=IMAGE_REL_I386_DIR32NB;
(rrel+i)->SymbolTableIndex=segres;
}
if(fwrite(rrel,sizeof(IMAGE_RELOCATION)*numresrel,1,hout)!=1)goto errwrite;
free(rrel);
}
}
if(numsymbol){
if(fwrite(isymbol,numsymbol*sizeof(IMAGE_SYMBOL),1,hout)!=1)goto errwrite;
if(sizelistName){
sizelistName+=4;
if(fwrite(&sizelistName,4,1,hout)!=1)goto errwrite;
if(fwrite(ListName,sizelistName-4,1,hout)!=1)goto errwrite;
}
else{
if(fwrite(&sizelistName,4,1,hout)!=1)goto errwrite;
sizelistName+=4;
}
}
runfilesize=lastoffset+sizelistName;
free(objentry);
if(resrel)free(resrel);
FreeCoffBuf();
return 0;
}
Copy Permalink