Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUSRB1

XUSRB1.m

Go to the documentation of this file.
  1. XUSRB1 ;iscSF/RWF - More Request Broker ;6/8/04 16:41
  1. ;;8.0;KERNEL;**28,82,135,275**;Jul 10, 1995
  1. Q ;No entry from top
  1. ;
  1. DECRYP(S) ;decrypt passed string
  1. ;VYD 5/19/95
  1. N ASSOCIX,IDIX,ASSOCSTR,IDSTR
  1. Q:$L(S)'>2 "" ;Bad call
  1. S ASSOCIX=$A($E(S,$L(S)))-31 ;get associator string index
  1. S IDIX=$A($E(S))-31 ;get identifier string index
  1. S ASSOCSTR=$P($T(Z+ASSOCIX),";",3,9) ;get associator string
  1. S IDSTR=$P($T(Z+IDIX),";",3,9) ;get identifier string
  1. Q $TR($E(S,2,$L(S)-1),ASSOCSTR,IDSTR) ;translated result
  1. ;
  1. ENCRYP(S) ;RWF 2/5/96
  1. N %,ASSOCIX,IDIX,ASSOCSTR,IDSTR
  1. S ASSOCIX=$R(20)+1 ;get associator index
  1. F S IDIX=$R(20)+1 Q:ASSOCIX'=IDIX ;get different identifier index
  1. S ASSOCSTR=$P($T(Z+ASSOCIX),";",3,9) ;get associator string
  1. S IDSTR=$P($T(Z+IDIX),";",3,9) ;get identifier string
  1. ;translated result
  1. Q $C(IDIX+31)_$TR(S,IDSTR,ASSOCSTR)_$C(ASSOCIX+31)
  1. ;
  1. SENDKEYS(RESULT) ;send encryption keys to the client
  1. ;VYD 5/19/95
  1. N %,X
  1. S %=1
  1. F S X=$P($T(Z+%),";",3,9) Q:X="" S RESULT(%)=X,%=%+1
  1. Q
  1. ;
  1. BLDDRUM Q ;don't run this tag
  1. N I,%,ALLCHARS,RNDMSTR,CHAR
  1. X "ZP Z" ;position insertion point
  1. F I=1:1:20 D
  1. . S ALLCHARS="" F %=32:1:126 S:$C(%)'="^" ALLCHARS=ALLCHARS_$C(%)
  1. . S RNDMSTR=""
  1. . F %=1:1:94 D
  1. . . S POS=$R($L(ALLCHARS))+1,CHAR=$E(ALLCHARS,POS)
  1. . . S RNDMSTR=RNDMSTR_CHAR
  1. . . S ALLCHARS=$P(ALLCHARS,CHAR,1)_$P(ALLCHARS,CHAR,2) ;compress by 1
  1. . X "ZI "" ;;""_RNDMSTR" ;save random string in routine
  1. X "ZS" ;save routine
  1. Q
  1. ;
  1. ;
  1. Z ;;
  1. ;;VEB_0|=f3Y}m<5i$`W>znGA7P:O%H69[2r)jKh@uo\wMb*Da !+T?q4-JI#d;8ypUQ]g"~'&Cc.LNt/kX,e{vl1FRZs(xS
  1. ;;D/Jg><p]1W6Rtqr.QYo8TBEMK-aAIyO(xG7lPz;=d)N}2F!U ,e0~$fk"j[m*3s5@XnZShv+`b'{u&_\9%|wL4ic:V?H#C
  1. ;;?lBUvZq\fwk+u#:50`SOF9,dp&*G-M=;{8Ai6/N7]bQ1szC!(PxW_YV~)3Lm.EIXD2aT|hKj$rnR@["c g'<>t%4oJHy}e
  1. ;;MH,t9K%TwA17-Bzy+XJU?<>4mo @=6:Ipfnx/Y}R8Q\aN~{)VjEW;|Sq]rl[0uLFd`g5Z#e!3$b"P_.si&G(2'Cvkc*ODh
  1. ;;vMy>"X?bSLCl)'jhzHJk.fVc6#*[0OuP@\{,&r(`Es:K!7wi$5F; DoY=p%e<t}4TQA2_W9adR]gNBG1~nIZ+3x-Um|8q/
  1. ;;:"XczmHx;oA%+vR$Mtr CBTU_w<uEK5f,SW*d8OaFGh]j'{7-~Qp#yqP>09si|VY1J!/[lN23&L4`=.D6)ZIb\n?}(ek@g
  1. ;;j7Qh[YU.u6~xm<`vfe%_g-MRF(#iK=trl}C)>GEDN *$OdHzBA98aLJ|2WP:@ko0wy4I/S&,q']5!13XcVs\?Zp"+{;Tbn
  1. ;;\UVZ;.&]%7fGq`*SA=Kv/-Xr1OBHiwhP5ukYo{2"}d |NsT,>!x6y~cz[C)pe8m9LaRI(MEFlt:Qg#D'n$W04b@_+?j<3J
  1. ;;MgSvV"U'dj5Yf6K*W)/:z$oi7GJ|t(1Ak=ZC,@]Q0?8DnbE[+L`{mq>aOR}wcB4sF_e9rh2l\x<. PyNpu%IT!&3#HX~-
  1. ;;rFkn4Z0cH7)`6Xq|yL #wmuW?Gf!2YES;.B_D=el}hN[M&x(*AasU9otd+{]g>TQjp<:v%5O"zI\@$Rb~8i-3/'V1,CJPK
  1. ;;\'%u+W)mK41L#:A6!;7("tnyRlaOe09]3EFd ITf.`@P[Q{B$_iYhZo*kbc|HUgz=D>Svr8x,X~-<NsjM}C/&J?p2wV5qG
  1. ;;QCl_329e+DTp&\?jNys V]k*M"X!$Y6[i@g>{RvF'01(45LJZU,:-uAwtB;7|%fx.n`IhSE<OoW~=bdP#/KHzrc)8mG}aq
  1. ;;!{w*PR[B9Oli~T, rFc"/?ast8=)-_Dgo<E#n4HYA%f'N;0@S7pJ`kGIedM|+C2yjvL5b3K6\Z]V(.h}umxz>XQ$qUW:1&
  1. ;;}:SHZ|O~A-bcyJ4%'5vM+ ;eo.$B)Vp\,kTDz1sGL`]*=mg2nxYPd&lErN3[8qF0@u"a_>wQKI{f6C7?9RX(t#i/U<j!Wh
  1. ;;,ry*|7<1keO:Wi C/zh4IZ>x!F[_("Dbu%Hl5Pg=]QG.LKcJ0&ont@+{;ATX6jMwBv?2#f`q\}VYm'8Es$NpU)dR~S9a3-
  1. ;;h,=/:pJ$@mlY-`bwQ)e3Xt8.RUSMV 2A;j[PN}TE9x~kL&<ns5q>_#c1%K+rIuFoa(zyDWdH]?\GB0g*4f6"Z!'v{7|OiC
  1. ;;/$*b.ts0vOx_-o"l3MHI~}!E`eJimPd>Sn&wzFUh?Kf4)g5X<,8pD:9LA{a[k;'|GyYQ=R2B\#q+cru6N1W@(C TV]7Z%j
  1. ;;qEoC?YWNtV{Brg,I(i:e7Jd#6m!D8XT"n[$~1*ZcxL.Kh2s4%Q&ju\5Gvazw+9pF@k`HA)=U3/< -}'0b;|PfSRl_MO]y>
  1. ;;`@X:!R[\tY5OBcZPh$rM_a-"vgJG%|}oIH)wWQ*jDVxlp,'+S zu(&7?>KCn4y1dE02q6b<F=8]9NAmT{Li3f/esUk.~#
  1. ;;\Zr';/SMsG76Lj$aBc[#k>u=_O@2J&X{Aft xV4~vz8Q}q)0K.NIpRnYwDhg+<"H-!(PF:m*]?,WCT|dE9o53%`liUey1b