BSADHOCV1.0 4-NOV-2021 10:11 VSI C V7.4-002 P $READONLY$P$BSS$ SADHOCSTYLE SADHOCSMALLERFONTi<$CODE$ $LITERAL$$LINK$$DATA$ BEGUN(BEGUN INSPECT( INSPECT  CGIQUERYSTRING0 CGIQUERYSTRING   CGIREMOTEUSER0 CGIREMOTEUSER   CGIREQUESTURI0 CGIREQUESTURI   CGISCRIPTNAME0 CGISCRIPTNAME  CGISERVERSOFTWARE8CGISERVERSOFTWARE SCRPTR(SCRPTR0  SADHOCSTYLE8 SADHOCSMALLERFONT0J00 SADHOCCOUNT0J SADHOCEXIT8J@0SADHOCHTMLENCODE0J SADHOCNUMBER0J` SADHOCPAGE0J@ SADHOCPOPULATE0JpP SADHOCSUBMIT0JPSADHOCTERMINAL0JHSADHOCURLDECODE(JMAIN(J__MAIN 6= =VN ,4 ,4 =#G8^~ _#0"@^4GHcGG#]("0[8b "G@Zk(=0b#@PBG4GXb@ZkcG8]@]HP#k///#=BGtG^~X[ ^(~08GG;"`b@Zk"XB G`b""TG!=/@ZkbHBp""GPb0S"G@Zk/bB"h""bGHb"C@Zk8BG@b//@ZkGb#@(B}"GGbGGP"/@Zkx"4GBBb vH @" .Q J >@ZkB8"4Gb////@Zk4GGb#@xb,4G ",BbHA$H DH1Jx" F@ZkB4Gb"@ZkBP"4Gb////@Zk""$4GGB¦Pbd.:"0Z"HBdJxb/"@Zk4GGb#@BGb@ZkB("4Gb@ZkB//G4Gb@Zk4Gp"Bb/@ZkB4Gx"b/@Zk//""4GBbb@ZkB4G"b/@Zk"4G"Bbp"/@ZkB4G`"b/@Zk//"""TGBbp.pJ @/@Zk///b#Y@b#^@/Xb#@4Gb#G*@G] ]4G(}08@#k/8B4G4G@b@Zk///0;#4G~^G^~!(; (GG#TG{ {>;[b""H!"0A"@Zk///BG0@tGb "@Zk@//"BTGbp!"/@ZkG]b#]} 4G?"(0#(;#TG^~H[ ^(~08@GG#8;"Pb@Zk4Gxb#y@mXb#@Ӡ=@4Gxb#q@e(HBTG(""PbG/@ZkHB"4GPb@ZkGxb#!1`@Gw @ Z@N/X4G`""BbTG4G `Hb"G#=@Zk"PbGGBb!3"0S"b>@ZkPBTGbx "@Zk//Gb#@P"BGeGGb0!"@Zk0@@BcX""GTGbP@ZkBG$"GtGb/@Zk4Gj?"(b#O@G] ](}08@P#k// #;4GX ^~4G^~GG#@{P[@[Hbc @]G`D=G@Zk0B=CH"tG8b@ZkTG@C" B(bCH ,A HH <0= ]p""G@Zk BGTGx""((b@Zk0b#/@`"=@h" BTG(b@="!DG8=@Zk0=4GB }(>(4"0T"G8=b>@Zk4G?"b#@G]]}#/k///#0TG;"^~P[^~ (0GGGXb@ZkPB"4GXb/@ZkGB" ""!1`@tGbw @4 DG0b@ZkPB="TGXb b/@Zk///w , H/$ ///'DD/ @. @JCGBF/@. JCBF/ / KCCXG/`/ `K? .XBC"b" JGbC@P4"@Zk$,="]" B$H/4 ///$@@Dx HF /(`.DWJ @F>$/$K $CCa KFF`.S`JaF`>.J @ BCpJzGG .Q J0F >$,$H ?.WJ"xb#>5@ä"?"0b#0@X0B4G8b8"@Zk0BG"4G8b@ZkG#`"4GPbXBTGpBxbD3 " /@Zk //P"XTGpBxb!"/@ZkPB4Gb@ZkB""GbTG@ZkX"BGGbtGp!"@ZkcB""]"btG`/@ZkB4Gb@Zk`bBTG="b@Zk ,.Gh""BbGtG HP J0Dۧ! /@Zk@BG"GtGHb/@ZkG/ PBGXb`@ZkG0b#?"@G]]} (0@#k/#GH;"H^~tG"8[P^X~`hpGG@b@ZkXxB="TGb/@Zk///c , H/) ///'@$@D!F `. `JCgBdBFF`. J =ldCB:GB7G/ `/ `KCBBQF0F , H?.JgF (` /`/KCC8G"/$C"/ c/[rKgKQQB1!F/ //.hB4G"pbPJJ/@Zk#,c #HC$@!F?C.CJd@`8D/GGH]P]X}`hp#k//#~^^~ (GGG4G/G0@xb#d_ӠC@`@/?G]] G}(0#k//#G^~^ ~(08޴@GGGGG0,0H0H3 /x%DqH `D.RDJ QFD>%///$DtG@" @.(B0bPJ> .2JG]"- 8""@Zk&=$. r$HQ$J 2F$>/.u$HTJ F>. J?$/Y$K @$?//G]] }(08ݤ@P#k//G//G//#GG~^^~ GGG.JJ CB0`BXFB8DէB ؤF`BGAG/FG0`Bt/"tKC0BssBsB4BB4GTG8b@Zkc.GGcJcJa ///g@d@Ud@d@8F8F8GgDFGp`HF`/[`K pG`?F(" b"P"H"#GFF@" .J/9`///`/s`H D! D[`K sG`?/K! ' /wJY K 7G ?.J! `@/{`HZ@K [G@?/K.wJUJ!  F>!/!KzJ `.! S`J zF`>a/aK.R"JG]]} G0#k//0[# ;TG^~(@[R^ GG >! "@Hb/@Zk `BG("} ]hb@ZkPB4G4GXb@Zk4+HGd DECC$MAIN4,Lb# DECC$MAIN4+`@d DECC$MAIN4tG DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT<%GDECC$STRNCASECMP<&b#DECC$STRNCASECMP<%@DECC$STRNCASECMP4 G$ SCREPERDO4b# SCREPERDO4  @$ SCREPERDO4(GHDECC$GXFPRINTF48b#DECC$GXFPRINTF4D@HDECC$GXFPRINTF4!TGt DECC$FREOPEN4"`b# DECC$FREOPEN4!p@t DECC$FREOPEND#tGCMA$TIS_VMSERRNO_GET_ADDRD$|b#CMA$TIS_VMSERRNO_GET_ADDRD#@CMA$TIS_VMSERRNO_GET_ADDR4G LIB$GETSYI4 b# LIB$GETSYI4@ LIB$GETSYI4G DECC$GETENV4b# DECC$GETENV4@ DECC$GETENV4G4 DECC$GETENV4b# DECC$GETENV40@4 DECC$GETENV4hG DECC$GETENV4lb# DECC$GETENV4@ DECC$GETENV4G DECC$GETENV4b# DECC$GETENV4@ DECC$GETENV4G DECC$GETENV4b# DECC$GETENV4@ DECC$GETENV4b#DECC$GXFPRINTF4 GDDECC$GXFPRINTF4@@DDECC$GXFPRINTF4)TGh SCREPERINIT4*\b# SCREPERINIT4)d@h SCREPERINIT 4hG DECC$GETENV4tb# DECC$GETENV4@ DECC$GETENV4'G DECC$ATOL4(b# DECC$ATOL4'@ DECC$ATOL4G DECC$GETENV4b# DECC$GETENV4@ DECC$GETENV4G DECC$GETENV4b# DECC$GETENV4@ DECC$GETENV4G DECC$GETENV4 b# DECC$GETENV4@ DECC$GETENV4G4 DECC$GETENV4 b# DECC$GETENV40@4 DECC$GETENV4LGd DECC$GETENV4Tb# DECC$GETENV4`@d DECC$GETENV4dG DECC$GETENV4pb# DECC$GETENV4@ DECC$GETENV4 G DECC$STRSTR4 b# DECC$STRSTR4 @ DECC$STRSTR40GD DECC$EXIT4<b# DECC$EXIT4@@D DECC$EXIT4GDECC$GXFPRINTF4b#pDECC$GXFPRINTF4@DECC$GXFPRINTF4GDECC$GXFPRINTF4b#pDECC$GXFPRINTF4@DECC$GXFPRINTF4G4DECC$GXFPRINTF4$b#pDECC$GXFPRINTF40@4DECC$GXFPRINTF4 tG DECC$STRSTR4 b# DECC$STRSTR4 @ DECC$STRSTR4 G DECC$STRSTR4 b# DECC$STRSTR4 @ DECC$STRSTR4G DECC$ATOI4b# DECC$ATOI4@ DECC$ATOI4 PG SCREPERDO4Tb# SCREPERDO4 @ SCREPERDO4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4GDECC$GXFPRINTF4 b#DECC$GXFPRINTF4@DECC$GXFPRINTF4 $GD SCREPERDO48b# SCREPERDO4 @@D SCREPERDO4DGdDECC$GXFPRINTF4Xb#DECC$GXFPRINTF4`@dDECC$GXFPRINTF4G DECC$STRLEN4b#P DECC$STRLEN4 @ DECC$STRLEN4 G( DECC$MEMCPY4 b#P DECC$MEMCPY4$ @( DECC$MEMCPY4 8 Gh SCREPERDO4< b#P SCREPERDO4 d @h SCREPERDO4 h G SCREPERDO4| b#P SCREPERDO4  @ SCREPERDO 4  G SCREPERDO4 b#P SCREPERDO4  @ SCREPERDO4 G DECC$GXFPRINTF4 b#PDECC$GXFPRINTF4 @ DECC$GXFPRINTF4 X G DECC$STRSTR4  b# DECC$STRSTR4  @ DECC$STRSTR4 G DECC$ATOI4 b# DECC$ATOI4 @ DECC$ATOI4 G DECC$GXSPRINTF4 b#DECC$GXSPRINTF4 @ DECC$GXSPRINTF4  G DECC$STRSTR4  b# DECC$STRSTR4  @ DECC$STRSTR4 G DECC$GXSPRINTF4 b#DECC$GXSPRINTF4 @ DECC$GXSPRINTF4 G DECC$GETENV4 b# DECC$GETENV4 @ DECC$GETENV4 G$ DECC$GETENV4 b# DECC$GETENV4 @$ DECC$GETENV4@ Gd DECC$FPUTS4D b# DECC$FPUTS4` @d DECC$FPUTS4| G DECC$FPUTS4 b# DECC$FPUTS4 @ DECC$FPUTS4 G DECC$FFLUSH4 b# DECC$FFLUSH4 @ DECC$FFLUSH4  G SCREPERDO4 b# SCREPERDO4  @ SCREPERDO4 G DECC$GXFPRINTF4 b#DECC$GXFPRINTF4 @ DECC$GXFPRINTF4 GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G( DECC$FFLUSH4 b# DECC$FFLUSH4$@( DECC$FFLUSH4 ,GD SCREPERDO48b# SCREPERDO4 @@D SCREPERDO4TGDECC$GXFPRINTF4Xb#DECC$GXFPRINTF4@DECC$GXFPRINTF4G DECC$STRTOL4b# DECC$STRTOL4@ DECC$STRTOL4G SYS$HIBER4b# SYS$HIBER4@ SYS$HIBER4GDDECC$GXSPRINTF4<b#DECC$GXSPRINTF4@@DDECC$GXSPRINTF4 HGd DECC$STRSTR4 Tb# DECC$STRSTR4 `@d DECC$STRSTR4 G DECC$ISSPACE4 b# DECC$ISSPACE4 @ DECC$ISSPACE4HGt DECC$GXSSCANF4Lb#H DECC$GXSSCANF4p@t DECC$GXSSCANF4-G DECC$CALLOC4.b#@ DECC$CALLOC4-@ DECC$CALLOC4G DECC$FPUTS4b# DECC$FPUTS4@ DECC$FPUTS <4G(DECC$GXFPRINTF4b#DECC$GXFPRINTF4$@(DECC$GXFPRINTF4(G< DECC$EXIT44b# DECC$EXIT48@< DECC$EXIT =xo Status: 200 OK Content-Type: text/plain Script-Control: X-record-mode=1 p=}

   =H=

0= SADHOC v1.0.0 AXPH=Status: 200 OK Content-Type: text/html Script-Control: X-stream-mode=1 %s:: %s %s

sadHOC



=H:-page=48 -width=80 -repeat=2 -timestamp -dcl=SHOW SYSTEM(=Status: 200 OK Content-Type: text/html Script-Control: X-stream-mode=1 %s:: %s %s%s%s %s =(

%s 0=PE x=@5

=Status: 200 OK Content-Type: text/html Script-Control: X-stream-mode=1 %s:: %s %s%s p= %s 
Status: 200 OK
Content-Type: text/html
Script-Control: X-stream-mode=1
Script-Control: X-timeout-output=none
Script-Control: X-content-encoding-gzip=0

WWW_HTTP_REFERERP=(-inspect=%d -utility="%s"p= WWW_QUERY_STRING=Status: 403 Forbidden
Content-Type: text/html





%s:: %s
%s


authorization failure



x= SADHOC_REMOTE_USER=WWW_SERVER_SOFTWARE
=0 ;=00 7DECC$GA_STDOUT;7BEGUN@
DECC$FPUTS	DECC$EXITDECC$GXFPRINTF=0 P;=08 @;;7
CGISCRIPTNAME=0H";=8< 7DECC$$GA___CTYPET7DECC$$GL___CTYPEADECC$GXSPRINTF=
adhoc%d=7CGIQUERYSTRING	DECC$ISSPACEDECC$STRSTR=0"0;=0  =0 ;=, 
	SCREPERDODECC$MEMCPYDECC$STRLEN=-screen=(null);==-css=
-javascript=0 `;=P0< 7
CGIREQUESTURI=
&number==
=Try+One 	DECC$ATOI= -pause-resizeH=0";=P,| p
DECC$GXSSCANF=%02x=HTTP_REFERER=|%s|
=	number==sadHOCDECC$FFLUSH=0 @
;=@4< 7INSPECTDECC$GETENVDECC$STRTOL	SYS$HIBER7SCRPTR=%s
@=0!SADHOC_INSPECTSERVER_SOFTWAREh=
REMOTE_USERx=QUERY_STRING= WWW_REQUEST_URI= WWW_SCRIPT_NAME=SYS$OUTPUT=
/VERSION=
-version
LIB$GETSYI!DECC$FREOPEN7CGISERVERSOFTWARE=0";=@0 7
CGIREMOTEUSER;P(#CMA$TIS_VMSERRNO_GET_ADDR=	ctx=binp %DECC$STRNCASECMP=w= %s
%s
REQUEST_URI=populate==
SCRIPT_NAME= WWW_REMOTE_USER'	DECC$ATOL)SCREPERINIT=08";=P0 7DECC$$SHELL_HANDLER=+	DECC$MAIN=0"0;=( 0$ "'-DECC$CALLOC=<=>=&
l==@4=

DECC$ISSPACE DECC$$GA___CTYPET DECC$$GL___CTYPEA(CMA$TIS_VMSERRNO_GET_ADDRDECC$GA_STDOUTDECC$FFLUSHDECC$GXFPRINTF
DECC$FPUTSDECC$GXSPRINTF
DECC$GXSSCANFDECC$FREOPEN	DECC$ATOI	DECC$ATOL	DECC$EXITDECC$GETENVDECC$CALLOCDECC$STRTOLDECC$MEMCPYDECC$STRSTRDECC$STRLEN DECC$STRNCASECMP
LIB$GETSYI	SYS$HIBER	SCREPERDOSCREPERINIT	DECC$MAIN DECC$$SHELL_HANDLER
	C$IS