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不存在.\n";  
18. print "$0 <source_folder>\n";   
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\n";  
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 =~ /public\sstatic\sfinal\sclass\s(\w+)\s\{/)  
37.   {  
38.      $resource = $1;  
39.   }  
40.   else  
41.   {  
42.     #如果格式如下，则解析出来  
43.     #public static final int MarketPanelTheme=0x7f0c0076;  
44.     if ($line =~ /public\sstatic\sfinal\sint\s(\w+)=(\w+)\;/)  
45.     {  
46.       #print "keywords:$1 <-- $2\n";  
47.       $from_str = oct $2; #16进制转化为10进制  
48.       $to_str = "R\.$resource\.$1";  
49.       print "$from_str --> $to_str\n\n";  
50.       find(\&CallBackMe, $init_folder );  
51.     }  
52.   }  
53. }  
54.   
55. print "Well Done.\n";  
56.   
57. sub CallBackMe  
58. {  
59.  my $fullpath = $File::Find::name;  
60.   
61.  if(-d $fullpath)  
62.  {  
63.       print "[Dir] $fullpath\n";  
64.  }  
65.  else  
66.  {  
67.    print "[File] $fullpath\n";  
68.    if($fullpath =~ /\.java$/i)  
69.    {  
70.      if($fullpath =~ /$k_file/i)  
71.      {  
72.         #ignore it  
73.         print "Ignored $k_file\n";  
74.      }  
75.      else  
76.      {  
77.        #replace text  
78.        print "Replacing $from_str with $to_str in $fullpath\n";  
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\n";  
93.   my @lines=<$fh>;  
94.   close $fh;  
95.   foreach my $l (@lines)  
96.   {  
97.     $l=~s/$from/$to/g;  
98.   }  
99.   #print "@lines\n";  
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. }