?? square.idc
字號:
/**
文件名： square.idc
用途 ： 通過分析程序上下文來追蹤數據的來歷.
說明 ： 針對HP-UX PA指令。
編寫 ： watercloud
日期 ： 2003-2-27
**/
//#include <idc.idc>
/**
函數： success createFunction(long)
說明： 如果指定地址處沒有定義函數則試圖在該處定義一個函數。錯誤返回0
**/
static createFunction(_addr)
{
auto addr,funcBegin,funcEnd;
addr=_addr;
if(GetFunctionName(addr)=="" )
{
while(SegName(addr)=="$CODE$" && GetFunctionName(addr)=="" && !(GetMnem(addr) == "stw" && GetOpnd(addr,0)=="%rp") )
{
addr=addr-4;
}
//Message("funcBegin :%x Name:%s\n",addr,GetFunctionName(addr));
if(SegName(addr) == "$CODE$" && GetFunctionName(addr)=="")
{
//Message("funcBegin :%x\n",addr);
funcBegin = addr;
funcEnd=FindFuncEnd(funcBegin);
if(funcEnd !=BADADDR)
{
return MakeFunction(funcBegin,funcEnd);
}
}
}
return 0;
}
/**
函數： long getFuncBeginEA(long)
返回： 指定地址所在函數的函數起始地址，出錯返回 BADADDR 。
**/
static getFuncBeginEA(_addr)
{
auto addr_begin,name_and_off,point_offset,sOff,xOff;
name_and_off = GetFuncOffset(_addr);
if(name_and_off == "")
return BADADDR;
point_offset = strstr(name_and_off,"+");
if(point_offset == -1)
return BADADDR;
sOff = substr(name_and_off,point_offset+1,-1);
xOff = xtol(sOff);
return _addr - xOff;
}
/**
函數： string getRegister(string opn)
返回： 寄存器名稱，出錯返回 ""
說明： 從如下：im+var_im(%s,%r) /im+var_im(%r) / im(%sr,%r) / im(%r) /%r 格式字符串中取得寄存器%r。
**/
static getRegister(opn)
{
auto str,index1,index2;
index1 = strstr(opn,"%");
if(index1 == -1)
return "";
str = substr(opn,index1+1,-1);
index2 = strstr(str,"%");
if(index2 != -1)
return substr(str,index2,strstr(str,")"));
else
return substr(opn,index1,strstr(opn,")"));
}
/**
宏：getRegDP() : 取得程序初始化時寄存器%dp的值,錯誤返回 BADADDR
**/
#define getRegDP() SegEnd(getSegAddr("$GLOBAL$"))
/**
函數：long getSegAddr(string _name)
說明：返回指定名稱段的起始地址,錯誤返回 BADADDR
**/
static getSegAddr(_name)
{
auto tmpAddr;
tmpAddr = FirstSeg();
while( tmpAddr != BADADDR)
{
if( SegName(tmpAddr) == _name )
return SegStart(tmpAddr);
tmpAddr = NextSeg(tmpAddr);
}
return BADADDR;
}
/**
函數：string getString(long _addr)
用途：從指定地址處試圖得到一個字符串，如果需要在該地址創建一個String。
**/
static getString(_addr)
{
auto tmpStr, chr,addr,flag;
tmpStr= "";
addr = _addr;
chr = Byte(addr);
while( chr != 0 && chr != 0xFF )
{
tmpStr = form("%s%c", tmpStr, chr);
addr ++;
chr = Byte(addr);
}
if( addr - _addr >1 )
{
if( hasName(GetFlags(_addr) ) == 0 && SegName(_addr) != "$CODE$" )
{
MakeStr(_addr,addr);
}
}
return(tmpStr);
}
/**
函數：long getValue(long _addr,long _n)
說明：取得指定地址處指令的第_n個操作數的值
返回：情形：ldo 0x44,%r 時返回0x44 / copy name,%r時返回名字name對應的真實值 / -0x140 + var_40(%sr0,%sp)返回 -0x100
錯誤返回"ERR"。
**/
static getValue(_addr,_n)
{
auto value,tmp,type,subType,flag;
flag=GetFlags(_addr);
type=GetOpType(_addr,_n);
tmp=GetOpnd(_addr,_n);
if(type == 5) //立即數
{
value = LocByName(tmp);
if(value == BADADDR)
return xtol(tmp);
else return value;
}
else if(type == 7) //操作數為名稱
{
tmp = LocByName(tmp);
if(tmp == BADADDR)
return "ERR";
else
return tmp;
}
else if(type == 4) //基址+段尋址方式
{
if(_n == 0)
subType = isStkvar0(flag); //取第一個操作數類型
else if(_n == 1)
subType = isStkvar1(flag);//取第二個操作數類型
else
return "ERR"; //系統只提供了處理兩個操作數的能力，當處理更多的操作數出錯。
if(subType == 0) //0x50C(%sr0,%r1)
{
return xtol(tmp);
}
else if(subType == 1) //arg_18(%sr0,%sp) 或-0x180+var_20(%sr0,%sp)形勢
{
OpHex(_addr,_n); //將其轉換為：0x999(%r)形勢
tmp = GetOpnd(_addr,_n);
OpStkvar(_addr,_n);
return xtol(tmp);
}
}
return "ERR";
}
/*
宏定義，用于指定函數getDataResEx的中止狀態。
ERR: 出錯，不能處理; STA: 遇到棧變量; RET: 遇到函數返回值；IMP: 遇到還未實現的指令。
ARG: 依賴函數被調用時傳入的參數。 NOF: 沒有找到需要的寄存器。
D_MSG宏用于處理打印調試信息。
*/
#define F_ERR(X,V) return form("ERR %x %x",X,V)
#define F_STA(X,V) return form("STA %x %x",X,V)
#define F_RET(X,V) return form("RET %x %x",X,V)
#define F_IMP(X,V) return form("IMP %x %x",X,V)
#define F_ARG(R,V) return form("ARG %s %x",R,V)
#define F_NOF(R,V) return form("NOF %s %x",R,V)
#define D_MSG(F,X,O,R) if(F>=5) Message(" %x : %s -> %s\n",X,O,R)
#define getDRStr0(S) substr(S,0,3)
#define getDRType(S) substr(S,0,3)
#define getDRStr1(S) substr(S,4,4+strstr(substr(S,4,-1)," ") )
#define getDRReg(S) substr(S,4,4+strstr(substr(S,4,-1)," ") )
#define getDRStr0_1(S) substr(S,0,4+strstr(substr(S,4,-1)," "))
static isDRValue(_string)
{
auto f0;
f0=getDRStr0(_string);
return !(f0=="ERR" || f0=="STA" || f0=="IMP" || f0=="RET" || f0=="NOF" || f0=="ARG");
}
#define PREVENT_UN_LOCK_CLICK 1000
/**
函數： string getDataResEx(long,string,long)
說明： 取得數據來源 :函數參數、數據區、BSS區、立即數
**/
static getDataResEx(_addr,_reg,_debugFlag)
{
auto addr,type,subType,reg,tmp,tmpReg,tmpStr,tmpValue,tmpAddr,opcode;
auto REG,VALUE,DEBUG_FLAG,REGDP,FUNC_BEGIN,FUNC_END,CLICK,FUNC_HEAD_REPEAT,FUNC_HEAD_REPEAT_FLAG;
FUNC_HEAD_REPEAT=30; //如果出現地址跳轉錯誤，并試圖在函數開始處找到該地址。
DEBUG_FLAG=_debugFlag;
addr = _addr+4;
REG = _reg;
VALUE = 0;
REGDP = getRegDP();
if(REGDP == BADADDR)
{
if(DEBUG_FLAG >=3)
Message("ERROR: getDataResEx -> getRegDP() FALSE!\n");
F_ERR(0,addr);
}
tmpStr = GetFunctionName(_addr);
if(tmpStr == "") //如果該處還沒有函數，則試圖定義一個函數
{
if(createFunction(_addr) == 0)
{
if(DEBUG_FLAG >=3)
Message("ERROR: getDataResEx -> createFunction(%x) == FALSE\n",_addr);
F_ERR(1,addr);
}
if(DEBUG_FLAG >=10)
Message("Message : getDataResEx -> GetFunctionName(%x) = \"%s\"\n",_addr,tmpStr);
}
FUNC_BEGIN = getFuncBeginEA(_addr);
FUNC_END = FindFuncEnd(FUNC_BEGIN);
if(FUNC_BEGIN == BADADDR || FUNC_END == BADADDR || FUNC_END <= FUNC_BEGIN)
{
if(DEBUG_FLAG >=3)
Message("ERROR: getDataResEx -> getFuncBeginEA() || FindFuncEnd FALSE!\n");
F_ERR(2,-1);
}
if(DEBUG_FLAG >= 10)
Message("Trace into getDataResEx : %x %s\n",_addr,_reg);
CLICK = 0; //防止死循環
FUNC_HEAD_REPEAT_FLAG = 0;
while(addr > FUNC_BEGIN && addr < FUNC_END && CLICK < PREVENT_UN_LOCK_CLICK )
{
// addr=RfirstB(addr);
addr=addr-4;
CLICK ++; //防止死循環
opcode = GetMnem(addr);
//如果最終無法找到且查找對象為常見數據段使用的寄存器那么從函數頭部一定范圍內再給一次搜索機會。
if(FUNC_HEAD_REPEAT_FLAG==0 && (addr <= FUNC_BEGIN || addr >=FUNC_END || opcode == "" ) )
{
if(REG=="%r1"||REG=="%r3"||REG=="%r4"||REG=="%r5"||REG=="%r6"||REG=="%r7"||REG=="%r8"||REG=="%r9")
{
addr = FUNC_BEGIN + FUNC_HEAD_REPEAT * 4;
FUNC_HEAD_REPEAT_FLAG = 1;
continue;
}
}
if(opcode == "")
F_ERR(addr,VALUE);
if(DEBUG_FLAG >=10)
Message("%x: %s %s %s %s\n",addr,opcode,GetOpnd(addr,0),GetOpnd(addr,1),GetOpnd(addr,2) );
if(opcode == "addil" && GetOpnd(addr,2) == REG ) //addil 0x4567,%r,%r
{
D_MSG(DEBUG_FLAG,addr,"addil",REG);
tmp = GetOpnd(addr,1);
if(tmp == "%dp")
return VALUE + getValue(addr,0) + REGDP;
if(tmp == "%r0")
return VALUE + getValue(addr,0);
if(tmp == "%sp")
F_STA(addr,VALUE);
if(tmp == "%r28")
F_RET(addr,VALUE);
REG = GetOpnd(addr,1);
VALUE = VALUE + getValue(addr,0);
}
else if(opcode == "copy" && GetOpnd(addr,1) == REG ) // copy 0,%r / copy %r,%r
{
D_MSG(DEBUG_FLAG,addr,"copy",REG);
type=GetOpType(addr,0);
if(type == 1)
{
tmp=GetOpnd(addr,0);
if(tmp == "%dp")
return VALUE + REGDP;
if(tmp == "%r0")
return VALUE ;
if(tmp == "%sp")
F_STA(addr,VALUE);
if(tmp == "%r28")
F_RET(addr,VALUE);
REG = GetOpnd(addr,0);
}
else if(type == 5 || type == 7)
{
return VALUE + getValue(addr,0);
}
else
F_ERR(addr,VALUE);
}
else if(opcode == "ldil" && GetOpnd(addr,1) == REG ) //ldil 0x55,%r
{
D_MSG(DEBUG_FLAG,addr,"ldil",REG);
return VALUE+getValue(addr,0);
}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -