Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
play /
[ HOME SHELL ]
Name
Size
Permission
Action
5x5.elc
13.7
KB
-rw-r--r--
animate.elc
3.86
KB
-rw-r--r--
blackbox.elc
11.03
KB
-rw-r--r--
bruce.el
6.03
KB
-rw-r--r--
bubbles.elc
45.33
KB
-rw-r--r--
cookie1.elc
3.47
KB
-rw-r--r--
decipher.elc
23.06
KB
-rw-r--r--
dissociate.elc
2.08
KB
-rw-r--r--
doctor.elc
45.54
KB
-rw-r--r--
dunnet.elc
85.74
KB
-rw-r--r--
fortune.elc
8.4
KB
-rw-r--r--
gamegrid.elc
14.69
KB
-rw-r--r--
gametree.elc
18.55
KB
-rw-r--r--
gomoku.elc
27.57
KB
-rw-r--r--
handwrite.elc
59.95
KB
-rw-r--r--
hanoi.elc
9.95
KB
-rw-r--r--
landmark.elc
37.69
KB
-rw-r--r--
life.elc
7.21
KB
-rw-r--r--
meese.elc
1.1
KB
-rw-r--r--
morse.elc
2.4
KB
-rw-r--r--
mpuz.elc
13.52
KB
-rw-r--r--
pong.elc
10.99
KB
-rw-r--r--
snake.elc
10.59
KB
-rw-r--r--
solitaire.elc
12.81
KB
-rw-r--r--
spook.elc
1.59
KB
-rw-r--r--
studly.elc
1.43
KB
-rw-r--r--
yow.elc
3.25
KB
-rw-r--r--
zone.elc
15.12
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : zone.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:59 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/play/zone.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`zone.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require timer tabify] 2) #@62 The timer we use to decide when to zone out, or nil if none. (defvar zone-timer nil (#$ . 670)) #@81 *Seconds to timeout the zoning. If nil, don't interrupt for about 1^26 seconds. (defvar zone-timeout nil (#$ . -772)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list zone-programs default-boundp set-default [zone-pgm-jitter zone-pgm-putz-with-case zone-pgm-dissolve zone-pgm-whack-chars zone-pgm-rotate zone-pgm-rotate-LR-lockstep zone-pgm-rotate-RL-lockstep zone-pgm-rotate-LR-variable zone-pgm-rotate-RL-variable zone-pgm-drip zone-pgm-drip-fretfully zone-pgm-five-oclock-swan-dive zone-pgm-martini-swan-dive zone-pgm-rat-race zone-pgm-paragraph-spaz zone-pgm-stress zone-pgm-stress-destress zone-pgm-random-life]] 3) (defalias 'zone-orig '(macro . #[(&rest body) "\301\302BB\207" [body with-current-buffer (get 'zone 'orig-buffer)] 3])) (defalias 'zone-hiding-modeline '(macro . #[(&rest body) "\301\302BB\207" [body let (mode-line-format)] 3])) #@360 Call PROGRAM in a zoned way. If PROGRAM is a function, call it, interrupting after the amount of time in seconds specified by optional arg TIMEOUT, or `zone-timeout' if unspecified, q.v. PROGRAM can also be a list of elements, which are interpreted like so: If the element is a function or a list of a function and a number, apply `zone-call' recursively. (defalias 'zone-call #[(program &optional timeout) "\305!\203 \306\211B\306\211 \211 \307\215?\205 \310\n!\210 ,\207<\205' \311\312\"\207" [program with-timeout-timers with-timeout-timer with-timeout-value with-timeout-tag functionp nil (byte-code "\306\206 \206 \307\310\311\"\312\313\n$\211\fB \f\312\207" [timeout zone-timeout with-timeout-tag with-timeout-timer with-timeout-timers program run-with-timer ash 1 26 nil with-timeout-handler with-timeout-value] 6) cancel-timer mapcar #[(elem) "\302!\203\n \303!\207<\203% \302@!\203% \211A@)\247\203% \304\303\"\207\305\306\"\207" [elem x functionp zone-call apply error "bad `zone-call' elem: %S"] 4]] 5 (#$ . 1663)]) #@23 Zone out, completely. (defalias 'zone #[nil "\300\213\207" [((byte-code "\306 \307\310!\311 \312 {\313\314 !\311 ZT\315\316\317p#\210\315\316\320\321#\210\322\n!\210\323\324 \210\325\211(r\316\317Nq\210)))r\316\317Nq\210*)* c\210\326ed\"\210\327\314 e\"\210\330\314 \"\210\331\321\332\"\210+\333+G!\234 \205o \334 \335\"\336\337C , - . /.\203\212 \340 \341\"\210\342,B,\343\336\344,\345\"BB,\336\346\347\217\210,\205\242 , .\207" [wp text outbuf f mode-name buffer-undo-list selected-frame get-buffer-create "*zone*" window-start window-end window-point selected-window put zone orig-buffer modeline-hidden-level 0 switch-to-buffer "Zone" erase-buffer t untabify set-window-start set-window-point sit-for 500 random frame-parameter cursor-type nil (kill-buffer outbuf) modify-frame-parameters ((cursor-type bar . 0)) (modify-frame-parameters f (list (cons 'cursor-type ct))) lambda append ((setq restore nil)) (byte-code "\301\302\"\210\303 \210\304 \203 \305 \210\306!\210\301\307!\207" [pgm message "Zoning... (%s)" garbage-collect input-pending-p discard-input zone-call "Zoning...sorry"] 3) ((error (byte-code " \210\302 \204 \303\304 \"\210\305\306!\210\303\307!\210\305\306!\210\202 \302\207" [restore pgm input-pending-p message "We were zoning when we wrote %s..." sit-for 3 "...here's hoping we didn't hose your buffer!"] 3)) (quit (byte-code " \210\301 \210\302\303!\207" [restore ding message "Zoning...sorry"] 2))) truncate-lines tab-width line-spacing zone-programs restore show-trailing-whitespace ct pgm] 6))] 1 (#$ . 2723) nil]) #@53 Zone out when Emacs has been idle for SECS seconds. (defalias 'zone-when-idle #[(secs) "\302!\203\n \303!\210\304 \305X\206 \306 \307\310#\211\207" [zone-timer secs timerp cancel-timer nil 0 run-with-idle-timer t zone] 4 (#$ . 4303) "nHow long before I start zoning (seconds): "]) #@36 Don't zone out when Emacs is idle. (defalias 'zone-leave-me-alone #[nil "\301!\203\n \302!\210\303\304\305!\207" [zone-timer timerp cancel-timer nil message "I won't zone out any more"] 2 (#$ . 4595) nil]) (defalias 'zone-shift-up #[nil "`\303y\210` { |\210db\210\nc+\207" [b e s 1] 2]) (defalias 'zone-shift-down #[nil "db\210`\303y\210` { |\210eb\210\nc+\207" [b e s -1] 2]) (defalias 'zone-shift-left #[nil "\301m?\205 l\204 ``T{\302\303!\210\301\210c\210\303u\210\202 )\207" [s nil delete-char 1] 2]) (defalias 'zone-shift-right #[nil "db\210\301\210\301o?\205& n\204 `S`{\302\303!\210\304 \210c\210\305\210\202 )\207" [s nil delete-char -1 beginning-of-line 0] 2]) (defalias 'zone-pgm-jitter #[nil "\301eb\210\302 ?\205 \303G!\234 \210eb\210\304\305\306\"\210\202 )\207" [ops [zone-shift-left zone-shift-right zone-shift-down zone-shift-up] input-pending-p random sit-for 0 10] 3]) (defalias 'zone-pgm-whack-chars #[nil "\302\303\304N!\305 ?\2053 \306\211\307W\203$ \306\310\311!\\I\210 T\211\202 \312ed#\210\313\314\315\"\210)\202 )\207" [tbl i copy-sequence zone-pgm-whack-chars wc-tbl input-pending-p 48 122 random 75 translate-region sit-for 0 2] 6]) (byte-code "\302\303\304\305\306\307\"\310\306W\203 \211I\210T\211\202 *#\207" [i tbl put zone-pgm-whack-chars wc-tbl make-string 128 120 0] 7) (defalias 'zone-remove-text #[nil "\302\205B \303\212eb\210m\2049 \304\305!\2033 \306\307!\211\310U\204( \302\311u\210\202/ \312\311!\210\313c\210)\202\f \311u\210\202\f )\314\310\315\"\210\202 )\207" [working n t nil looking-at "[^(){}\n ]" random 5 0 1 delete-char " " sit-for 2] 4]) (defalias 'zone-pgm-dissolve #[nil "\300 \210\301 \207" [zone-remove-text zone-pgm-jitter] 1]) (defalias 'zone-exploding-remove #[nil "\302\303W\2039 \212eb\210m\204- \304\305!\203' \306\303!\211\302U\204# \307u\210\310c\210)\307u\210\202\f )T\311\302\312\"\210\202 )\313 \207" [i n 0 5 looking-at "[^*\n ]" random 1 " " sit-for 2 zone-pgm-jitter] 4]) (defalias 'zone-pgm-explode #[nil "\300 \210\301 \207" [zone-exploding-remove zone-pgm-jitter] 1]) (defalias 'zone-pgm-2nd-putz-with-case #[nil "\302\303\304\"\305\303W\203 \211I\210T\211\202 \306 ?\205y \307\211\310X\203E \311\312\313!!\2036 \226\2028 \227I\210\312\313!T\\\211\202\" \314\211\310X\203k \311\312\313!!\203\\ \227\202^ \226I\210\312\313!T\\\211\202H \315ed #\210\316\305\317\"\210\202 *\207" [i tbl make-string 128 120 0 input-pending-p 97 122 zerop random 5 65 translate-region sit-for 2] 6]) (defalias 'zone-pgm-putz-with-case #[nil "eb\210\304 ?\205X \305\306\307!\\d\211W\203L b\210h\310`S!\311\306\305!!\203. \226\2020 \227c\210\312`S`\n#\210*\313u\210\314\315!\210 \306\307!T\\\211\202 *eb\210\316\317\305\"\210\202 \207" [pm np props prec input-pending-p 2 random 5 text-properties-at zerop set-text-properties -2 delete-char 1 sit-for 0] 5]) (defalias 'zone-line-specs #[nil "\301\212\302 b\210`\303 W\203\" \304\305!\203 \306\224\306\225BB\306y\210\202 ))\207" [ret nil window-start window-end looking-at "[ ]*\\([^\n]+\\)" 1] 2]) (defalias 'zone-pgm-rotate #[(&optional random-style) "\306\307\310\311\312\313 \"\210)\"\211G\310\211 \310\211 \310\211 \310 \314 ?\205 \315\211\nW\203x H\211\315H\316 !\315 V\203N \317\320\202S \320\317 Hb\210``\f\\{\321\f!\210Hb\210c\210T\211\202- \322\323!\210\202# . \207" [res specs n amt aamt cut apply vector nil mapc #[(ent) "@A \203 \202 \306\307!\310Z \n\311\f!Z W\203% \306\n Z!\f\312U?\2059 \313\f \n\311\f!Z# B\211+\207" [ent beg end random-style amt res random 7 3 abs 0 vector] 6] zone-line-specs input-pending-p 0 abs 1 2 delete-char sit-for 0.04 paste txt i ent] 6]) (defalias 'zone-pgm-rotate-LR-lockstep #[nil "\300\301!\207" [zone-pgm-rotate #[nil "\300\207" [1] 1]] 2]) (defalias 'zone-pgm-rotate-RL-lockstep #[nil "\300\301!\207" [zone-pgm-rotate #[nil "\300\207" [-1] 1]] 2]) (defalias 'zone-pgm-rotate-LR-variable #[nil "\300\301!\207" [zone-pgm-rotate #[nil "\300\301!T\207" [random 3] 2]] 2]) (defalias 'zone-pgm-rotate-RL-variable #[nil "\300\301!\207" [zone-pgm-rotate #[nil "\300\301![S\207" [random 3] 2]] 2]) (defalias 'zone-cpos #[(pos) "\211T{\207" [pos] 2]) (put 'zone-cpos 'byte-optimizer 'byte-compile-inline-expand) (defalias 'zone-replace-char #[(count del-count char-as-string new-value) "\306\206 [!\210\n\307 I\210 \307 \f W\203\" \nc\210\fT\211\202 *\310\207" [del-count count char-as-string new-value i #1=#:--cl-dotimes-temp-- delete-char 0 nil] 3]) (put 'zone-replace-char 'byte-optimizer 'byte-compile-inline-expand) (defalias 'zone-park/sit-for #[(pos seconds) "` b\210\303\n!b\210)\207" [p pos seconds sit-for] 2]) (put 'zone-park/sit-for 'byte-optimizer 'byte-compile-inline-expand) (defalias 'zone-fret #[(wbeg pos) "\306 \211\211T{)\307\310\n\311H!!\312\313\n\"\203 \n\226\2022 \312\314\n\"\203* \n\227\2022 \315\316\317\320\321 E# \311\322 \323U\204y b\210\324\325!\210\326\246\311U\203S \f\202T \nc\210 ` b\210\327 ! b\210)\210*T \330_\2028 *\324\331!\210\nc,\207" [case-fold-search pos c-string cw-ceil hmm wait nil ceiling char-width 0 string-match "[a-z]" "[A-Z]" propertize " " display space :width 0.5 20 delete-char 1 2 sit-for 0.8 -1 i wbeg seconds p] 7]) (defalias 'zone-fill-out-screen #[(width height) "\306 \307\310\"\211b\210\311\210i\211W\203 \311Oc\210\202% \312 Z!\210m\2030 \313c\210\311\2024 \314u\210\315)\204 \f\316e`\"Z\211 \317V\203_ \313P\317\211 U\204^ c\210T\211\202M ))\nb\210\320\317!\210\321\317!*\207" [width line start cc height nl window-start make-string 32 nil delete-char "\n" 1 t count-lines 0 recenter sit-for i] 5]) (defalias 'zone-fall-through-ws #[(c wbeg wend) "\306\307\310H!!\311 \312\"i\313 \314\211 \212\315y\210 iU\2057 `\211\2057 \n\316 \211 \\\"\230\2057 S\\\211)\203w \317\320\315!\210\nc\210 b\210`W\203w \320 !\210c\210\321u\210\f\322_\211 ` b\210\323!b\210+\204 .\207" [c cw-ceil spaces col wait newpos ceiling char-width 0 make-string 32 0.15 nil 1 buffer-substring-no-properties t delete-char -1 0.8 sit-for fall-p wend wbeg seconds pos p] 6]) (defalias 'zone-pgm-drip #[(&optional fret-p pancake-p) "\306 S\307 \310 _\311\211 \311\211 \312 \"\210\313 \314 \315\316\215.\207" [ww wh mc total fall-p wbeg window-width window-height 0 nil zone-fill-out-screen window-start window-end done (byte-code "\306 ?\205^\307\310 \n\311 \nZ!\\b\210\312\313!\2037 T\211U\203+ \314\315\316\"\210\202 \n\311 \nZ!\\b\210\202 ` \203B \317\n\f\"\210\fb\210\f\211 \211T{) \320 \n # ) \203 \203 \321e`\"!W\203 \322\323 \307H!!\211 \"\324 \325 # $ % &\326%\206\214 &[!\210$\307#I\210&\307 ' ('(W\203\261 $c\210'T\211'\202\236 .\n\327 ) ` b\210\330)!\fb\210)\210*\"\331 \332 # $ % &\326%\206\340 &[!\210$\307#I\210&\307 ' ('(W\203$c\210'T\211'\202\362 .\n\333 ) ` b\210\330)!\fb\210)\210*\"\331 \334 # $ % &\326%\2064&[!\210$\307#I\210&\307 ' ('(W\203Y$c\210'T\211'\202F.\202 \207" [mc wend wbeg total p fret-p input-pending-p 0 window-end random looking-at "[ \n\f]" throw done sel zone-fret zone-fall-through-ws count-lines ceiling char-width 1 64 delete-char 0.137 sit-for nil 42 0.137 95 pos c fall-p pancake-p wh cw new-value char-as-string del-count count i #1=#:--cl-dotimes-temp-- seconds] 5) wend c] 4]) (defalias 'zone-pgm-drip-fretfully #[nil "\300\301!\207" [zone-pgm-drip t] 2]) (defalias 'zone-pgm-five-oclock-swan-dive #[nil "\300\301\302\"\207" [zone-pgm-drip nil t] 3]) (defalias 'zone-pgm-martini-swan-dive #[nil "\300\301\211\"\207" [zone-pgm-drip t] 3]) (defalias 'zone-pgm-rat-race #[nil "\300 ?\205 \301\302!\210\202 \207" [input-pending-p zone-call ((zone-pgm-rotate 10) (zone-pgm-drip-fretfully 15) (zone-pgm-drip 10) ((lambda nil (goto-char (point-min)) (while (re-search-forward " +$" nil t) (delete-region (match-beginning 0) (match-end 0)))) 5))] 2]) (defalias 'zone-pgm-paragraph-spaz #[nil "r\305\306Nq\210)\307>\203F \211\211\310 S \311\312!\205D \313\314!\210 \315\316!\317Z\\\211\fW\2031 \nV\2039 \n V\203 \202 ,\207\320\321!\210\322 \207" [major-mode fill-column max-fc fc-max fc-min zone orig-buffer (text-mode texinfo-mode fundamental-mode) frame-width sit-for 0.1 fill-paragraph 1 random 5 2 message "Zoning... (zone-pgm-rotate)" zone-pgm-rotate] 5]) (defalias 'zone-pgm-stress #[nil "eb\210\305`dW\203 `\306y\210 `{B)\202 \307\310!\210\305\311 \312\230\2048 \313 \306\305O\211!\210\307\314!\210\202\" )\315 ?\205s \316\317\320!W\203^ db\210\321y\210\322 \323 \210)eb\210\317G!8c\210\313\324\317\325 \310Z!\326\"\327P!\210\307\330!\210\2029 *\207" [lines p mode-line-format msg kill-whole-line nil 1 sit-for 5 "Zoning... (zone-pgm-stress)" "" message 0.05 input-pending-p 50 random 100 -1 t kill-line make-string frame-width 32 "grrr" 0.1] 5]) (defalias 'zone-pgm-stress-destress #[nil "\301\302\303\"\210\304\305\306!\210\307 \210\305\306!\210\310\311!\210\312\313!\210db\210\314\315!\210\305\306!\210e\316 |\210\312\317!\210\301\320!)\207" [mode-line-format zone-call zone-pgm-stress 25 nil sit-for 3 erase-buffer insert-buffer-substring "*Messages*" message "" recenter -1 window-start "hey why stress out anyway?" ((zone-pgm-rotate 30) (zone-pgm-whack-chars 10) zone-pgm-drip)] 3]) #@126 *Seconds to wait between successive `life' generations. If nil, `zone-pgm-random-life' chooses a value from 0-3 (inclusive). (defvar zone-pgm-random-life-wait nil (#$ . -13968)) (defalias 'zone-pgm-random-life #[nil "\306\307!\210\310\311 S\312 S\"\210\313 b\210\314y\210`\315 b\210\316y\210`\317 \320Z\313 \315 S\321\211\211 4 5 d|\210\fb\210\322\323!\203\372 \f\324 !\\b\210\325 w\210 `U\203b \325\fx\326U\204\372 \f`U\204\372 \327u\210l\2047 m\2047 `\211 6\211T{)\211\326H\330 !\331\n5`V\204\230 4`W\204\230 \320i\211V\204\230 W\203\234 \332\202\277 \333 X\203\256 \334 Y\203\256 \335\\\202\277 \336 X\203\276 \337 Y\203\276 \340\202\277 \341 7 8 9 :\3429\206\320 :[!\2108\3267I\210:\326 ; <;<W\203\365 8c\210;T\211;\202\342 .\2027 \322\343!\210\3214b\2105`W\203 `\344\345!\210` {B\326\210\346u\210\202\347\2038\350\351 \352#\2038\353@G\332\"B\202K\354\355\356 \320Z\357\245\353\360\341\"\"\353\361\332\"#C! =\307>\206W\324\362!!\210\363\321!. \207" [col c s max min rtc require life zone-fill-out-screen window-width window-height window-start 7 window-end -7 frame-width 11 nil sit-for 0.05 random " @\n" 0 -1 char-width 1 32 97 122 -32 65 90 42 64 delete-char 3 move-to-column 9 -10 vector search-forward "@" t make-string mapconcat identity make-list 15 5 10 4 kill-buffer bot top pos new-value char-as-string del-count count i #1=#:--cl-dotimes-temp-- life-patterns zone-pgm-random-life-wait] 9]) (byte-code "\300\301!\210\302\303!\207" [random t provide zone] 2)
Close
