����
One Hat Cyber Team
One Hat Cyber Team
Your IP :
3.147.83.234
Server IP :
192.185.194.254
Server :
Linux raider.websitewelcome.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
Server Software :
Apache
PHP Version :
7.4.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
emacs
/
24.3
/
lisp
/
net
/
View File Name :
dig.elc
;ELC��� ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:30 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/dig.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313\304\301&\210\306\314\302\315\312\316\304\301&\210\306\317\320\321\312\322\304\301&\207" [custom-declare-group dig nil "Dig configuration." :group comm custom-declare-variable dig-program "dig" "Name of dig (domain information groper) binary." :type file dig-dns-server "DNS server to query.\nIf nil, use system defaults." (choice (const :tag "System defaults") string) dig-font-lock-keywords '(("^;; [A-Z]+ SECTION:" 0 font-lock-keyword-face) ("^;;.*" 0 font-lock-comment-face) ("^; <<>>.*" 0 font-lock-type-face) ("^;.*" 0 font-lock-function-name-face)) "Default expressions to highlight in dig mode." sexp] 8) #@523 Call dig with given arguments and return buffer containing output. DOMAIN is a string with a DNS domain. QUERY-TYPE is an optional string with a DNS type. QUERY-CLASS is an optional string with a DNS class. QUERY-OPTION is an optional string with dig "query options". DIG-OPTION is an optional string with parameters for the dig program. SERVER is an optional string with a domain name server to query. Dig is an external program found in the BIND name server distribution, and is a commonly available debugging tool. (defalias 'dig-invoke #[(domain &optional query-type query-class query-option dig-option server) "\306\211\307\310!\n\203�\nB\203�B\f\203 �\fB \203(� B\fB \203<�\311 PB\202H�\203H�\311PB\312\313\306 \306&\210 *\207" [cmdline buf dig-option query-option query-class query-type nil generate-new-buffer "*dig output*" "@" apply call-process domain server dig-dns-server dig-program] 7 (#$ . 1232)]) #@122 Extract resource records for DOMAIN, TYPE and CLASS from buffer. Buffer should contain output generated by `dig-invoke'. (defalias 'dig-extract-rr #[(domain &optional type class) "\212eb\210\305\306 \206\f�\307\226\310\n\206�\311\226\260\312\313#\203B�\312\211\312\210`\314 \210`\315\316\313#\2036�\315\317!\210\312\210`\f{*\202Z�\305\306 \206J�\307\226\320R\312\313#\205Z�\321\322\323!\n #)\207" [domain class type e b re-search-forward "\\.?[ ]+[0-9wWdDhHmMsS]+[ ]+" "IN" "[ ]+" "A" nil t beginning-of-line search-forward " (" " )" "[ ]+CNAME[ ]+\\(.*\\)$" dig-extract-rr match-string 1] 6 (#$ . 2189)]) (defalias 'dig-rr-get-pkix-cert #[(rr) "\304\211\211\305\306\"\210\307\225\305\310\"\210\307\224\n O\305\311\"\203,�\312\313\304\211$\202�+\207" [str e b rr nil string-match "[^ ]+[ ]+[0-9wWdDhHmMsS]+[ ]+IN[ ]+CERT[ ]+\\(1\\|PKIX\\)[ ]+[0-9]+[ ]+[0-9]+[ ]+(?" 0 ")" "[ \n ]" replace-match ""] 5]) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put dig-mode font-lock-defaults (dig-font-lock-keywords t) mode-class special] 4) (defvar dig-mode-map (byte-code "\301 \302!\210\303\304\305#\210)\207" [map make-sparse-keymap suppress-keymap define-key "q" dig-exit] 4)) (byte-code "\300\301N\204�\302\300\301\303\304!#\210\305\306!\204�\302\306\307\310#\210\300\207" [dig-mode-hook variable-documentation put purecopy "Hook run when entering Dig mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp dig-mode-map definition-name dig-mode] 5) (defvar dig-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204�\302\300\301\303\304!#\210\305\306!\204�\302\306\307\310#\210\300\207" [dig-mode-map variable-documentation put purecopy "Keymap for `dig-mode'." boundp dig-mode-syntax-table definition-name dig-mode] 5) (defvar dig-mode-syntax-table (make-syntax-table)) (byte-code "\300\301N\204�\302\300\301\303\304!#\210\302\305\306\307#\207" [dig-mode-syntax-table variable-documentation put purecopy "Syntax table for `dig-mode'." dig-mode-abbrev-table definition-name dig-mode] 5) (defvar dig-mode-abbrev-table (progn (define-abbrev-table 'dig-mode-abbrev-table nil) dig-mode-abbrev-table)) (byte-code "\300\301N\204�\302\300\301\303\304!#\210\302\305\306\307#\207" [dig-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `dig-mode'." dig-mode derived-mode-parent nil] 5) #@139 Major mode for displaying dig output. This mode runs the hook `dig-mode-hook', as the final step during initialization. \{dig-mode-map} (defalias 'dig-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210 \315 \210\306\316!\210\317\320\321!\203+�\322 \210)\323\324!\207" [delay-mode-hooks major-mode mode-name dig-mode-map dig-mode-syntax-table dig-mode-abbrev-table make-local-variable t kill-all-local-variables dig-mode "Dig" use-local-map set-syntax-table buffer-disable-undo font-lock-defaults (dig-font-lock-keywords t) featurep font-lock font-lock-set-defaults run-mode-hooks dig-mode-hook local-abbrev-table] 2 (#$ . 4640) nil]) #@25 Quit dig output buffer. (defalias 'dig-exit #[nil "\300p!\207" [kill-buffer] 2 (#$ . 5306) nil]) #@112 Query addresses of a DOMAIN using dig, by calling `dig-invoke'. Optional arguments are passed to `dig-invoke'. (defalias 'dig #[(domain &optional query-type query-class query-option dig-option server) "\306\307 \n\f &!\210eb\210\310\311\312\313#\203�\312y\210\314 \210\313\315\312!\207" [domain query-type query-class query-option dig-option server switch-to-buffer dig-invoke search-forward ";; ANSWER SECTION:" nil t dig-mode set-buffer-modified-p buffer-read-only] 8 (#$ . 5410) "sHost: "]) #@229 Query addresses of a DOMAIN using dig. It works by calling `dig-invoke' and `dig-extract-rr'. Optional arguments are passed to `dig-invoke' and `dig-extract-rr'. Returns nil for domain/class/type queries that result in no data. (defalias 'query-dig #[(domain &optional query-type query-class query-option dig-option server) "\306 \n\f &\211\n\205#�\307\n!\210\310 \n#\311\n!\210))\207" [domain query-type query-class query-option dig-option server dig-invoke switch-to-buffer dig-extract-rr kill-buffer buffer digger] 8 (#$ . 5917)]) (provide 'dig)