perl脚本自动化控制之android模拟器

Perl脚本自动化控制Android模拟器实践

最新推荐文章于 2024-01-28 09:24:10 发布

原创

最新推荐文章于 2024-01-28 09:24:10 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了如何使用Perl脚本实现对Android模拟器的自动化控制，以执行特定的Android应用程序，如用于安全分析的扫描程序。通过示例脚本`control_emulator.pl`、`loop_download.pl`和`antiy_scan.pl`，展示了如何构建自动化任务系统，适用于Android病毒分析或竞品分析等场景。

在几年前的一个PC反病毒项目中利用过perl脚本实现过一套sandbox的自动化任务系统，当时的业务流程是：自动的取任务，执行任务，输出日志，分析日志，页面展示的系统。最近两年在研究android方面的一些东西。突然想到，android目前病毒的爆发，可能也需要类似的自动化系统来做一些自动化的分析：比如竞品分析系统，比如sandbox系统，都需要类似的业务逻辑。

下面分享一个用perl脚本自动化控制android模拟器运行一款android下的扫描程序的脚本程序：

control_emulator.pl

#!/usr/bin/perl


#----------------------------------------------------------

#------------------------created by linux_feixue-----------


#----------------------create time:2013-1-15---------------


BEGIN
{
    my $path;
    if ($^O eq 'linux')
    {
        if ($0=~m/^(.+)\//) { $path = $1; } else { $path = readpipe('pwd'); chomp($path); }
           unshift(@INC, $path);
           chdir($path);
     }else
     {
      die("Please run this script on linux.\n");
     }
}
my $num=500;
my $count=1;
my @devices=readpipe("adb devices");
if(scalar(@devices)>0)
{
foreach my $emulator (@devices)
 {
        chomp($emulator);
        if ($emulator=~m/(emulator-\w{4})\s/)
        {
                system("perl loop_download.pl --avd=$1 --num=$num --id=$count&");
                $count++;
        }
 }
}

loop_download.pl

#!/usr/bin/perl


#----------------------------------------------------

最低0.47元/天解锁文章