首页 / 操作系统 / Linux / Android逆向分析源码中资源代码还原小工具

一般情况下，我们采用apktool（xml资源）+dex2jar+JDGui（jar to java）反编译Android apk之后的代码中，涉及到资源索引的信息全部替换成了十进制的数字。如何将这些数字还原成为原始的资源索引形式呢？

1. public g（Context paramContext）  
2. {  
3.   super（paramContext）;  
4.   b（2130903088）;  
5.   this.b = （（FirModule）this.k.N（）.a（"fir_module"））;  
6.   int[] arrayOfInt = new int[2];  
7.   arrayOfInt[0] = 2131427902;  
8.   arrayOfInt[1] = 2131427901;  
9.   a（arrayOfInt）;  
10.   f（1）;  
11.   f（2）;  
12. }  

我们希望得到如下形式的代码：

1. public g（Context paramContext）  
2. {  
3.   super（paramContext）;  
4.   b（R.layout.fir_info_page）;  
5.   this.b = （（FirModule）this.k.N（）.a（"fir_module"））;  
6.   int[] arrayOfInt = new int[2];  
7.   arrayOfInt[0] = R.string.commended_apps;  
8.   arrayOfInt[1] = R.string.person_info;  
9.   a（arrayOfInt）;  
10.   f（1）;  
11.   f（2）;  
12. }  

可读性就非常高了。下面讲述如何做到这个功能： b（2130903088）;中的数字转换为16进制以后，是0x7f030030，通过手工在R.java中搜索我们可以找到：        public static final int fir_info_page=0x7f030030;因此在相应的地方替换为对应的资源索引就可以了,处于layout class之下，因此是 R.layout.fir_info_page 。好了，原理很简单，接下来我们编写一个perl脚本来批量做这个事情，具体代码如下：

1. #！/usr/bin/perl  
2. #注意事项：  
3. #复制一份 R.java在该文件所在目录  
4. #第一个参数为：需要处理的源代码目录路径  
5.   
6. use strict;  
7.   
8. use File::Find;  
9.   
10. my $from_str;  
11. my $to_str;  
12. my $resource;  
13. my $init_folder = $ARGV[0];  
14.   
15. if （not -d $init_folder）  
16. {  
17.   print "目录:$init_folder不存在. ";  
18. print "$0 <source_folder> ";   
19.   exit;  
20. }  
21.   
22. #读取R.java中的所有文本  
23. my $k_file = "R.java";  
24. open my $k ,"< $k_file" or die "couldn"t open $k_file ";  
25. my @keywords = <$k> ;  
26. close $k;  
27.   
28.   
29. #遍历每行数据  
30. for my $line （@keywords）  
31. {  
32.   #print "$line";  
33.   
34.   #先解析内部class类型:id/style/xml/arrays等  
35.   #public static final class style {  
36.   if （$line =~ /publicsstaticsfinalsclasss（w+）s{/）  
37.   {  
38.      $resource = $1;  
39.   }  
40.   else  
41.   {  
42.     #如果格式如下，则解析出来  
43.     #public static final int MarketPanelTheme=0x7f0c0076;  
44.     if （$line =~ /publicsstaticsfinalsints（w+）=（w+）;/）  
45.     {  
46.       #print "keywords:$1 <-- $2 ";  
47.       $from_str = oct $2; #16进制转化为10进制  
48.       $to_str = "R.$resource.$1";  
49.       print "$from_str --> $to_str ";  
50.       find（&CallBackMe, $init_folder ）;  
51.     }  
52.   }  
53. }  
54.   
55. print "Well Done. ";  
56.   
57. sub CallBackMe  
58. {  
59.  my $fullpath = $File::Find::name;  
60.   
61.  if（-d $fullpath）  
62.  {  
63.       print "[Dir] $fullpath ";  
64.  }  
65.  else  
66.  {  
67.    print "[File] $fullpath ";  
68.    if（$fullpath =~ /.java$/i）  
69.    {  
70.      if（$fullpath =~ /$k_file/i）  
71.      {  
72.         #ignore it  
73.         print "Ignored $k_file ";  
74.      }  
75.      else  
76.      {  
77.        #replace text  
78.        print "Replacing $from_str with $to_str in $fullpath ";  
79.        ReplaceString（$fullpath, $from_str,$to_str）;  
80.      }  
81.    }  
82.  }  
83. }  
84.   
85. #Replacing $from with $to in $file  
86. sub ReplaceString  
87. {  
88.   my $file = shift @_;  
89.   my $from = shift @_;  
90.   my $to = shift @_;  
91.   
92.   open my $fh ,"< $file" or die "couldn"t open $file ";  
93.   my @lines=<$fh>;  
94.   close $fh;  
95.   foreach my $l （@lines）  
96.   {  
97.     $l=~s/$from/$to/g;  
98.   }  
99.   #print "@lines ";  
100.   #write back  
101.   open my $out , "> $file" or die "couldn"t write $file";  
102.   foreach my $l （@lines）  
103.   {  
104.      print $out $l;  
105.   }  
106.   close $out;  
107. }