Path: utzoo!dciem!nrcaer!scs!spl1!laidbak!att!pacbell!ames!amdahl!dlb!plx!slvblc!kaldis From: kaldis@remus.rutgers.edu (Theodore A. Kaldis) Newsgroups: comp.binaries.ibm.pc Subject: De-ROT 13 Program Message-ID: <2154@slvblc.UUCP> Date: 3 Jun 88 19:19:56 GMT Article-I.D.: slvblc.2154 Sender: slvblc!dick@ucscc.ucsc.edu Followup-To: comp.binaries.ibm.pc.d Lines: 103 Approved: dick@slvblc.UUCP Summary: de-rot.com & de-rotx.asm, unscramble ROT 13 text [Interactive only, does not take command-line arguments. Works as advertised. Source is Public Domain. DF] Following please find a UUencoded arcfile which decodes ROT 13 jokes from the rec.humor group. There are two files in the arcfile: DE-ROT.COM, and the assembly language (MASM V5.0) source code. Operation is straight- forward. You are prompted for input and output file/path's, which may be up to 40 characters long. It reads one and writes the other. Requests for a utility of this type appear periodically on rec.humor.d. Name Length Stowage SF Size now Date Time CRC ============ ======== ======== ==== ======== ========= ====== ==== DE-ROT.COM 2035 Crunched 82% 367 2 Jun 88 11:07p 4060 DE-ROTX.ASM 8238 Crunched 67% 2744 2 Jun 88 11:06p B493 ==== ======== ==== ======== Total 2 10273 70% 3111 ---------------------------cut here--------------------------- begin 644 DE-ROT.ARC M&@A$12U23U0N0T]-`"4E;P$``,(0[+A@0/,'```,Z;(1H((FS1P04.2\.2,G/ M3!L04LK$J9-&3IF#1)Y,`6&EC)PY:=ZX`2'#!0P0;^2`*'@&C4<7#120B)G$= M#9PZ=$#`"4,'S0LS:=B4T0$"1,PG.&_FW-GS9]"A16LJ!0%4*`B/"N7`5("4, MSM2J9:[*R;H5`*1_9M&>36M6"R-DCK#IJP6LZS(*6P!T9@``^L4MR M@!,Y%Z97;W,G@_8`80Y^UV)'PCH.WX/,@;!NPG<]=Q@`>E6]P;H"@`[5'Y+#/ M@[8`=_R"C@``K*.++M4MXL!_BWC@G&XAS/&`+G(T]EADDU46PCHH(-@8``0TG M*!LMG84@QP(];&;'!*/\-\,VP^CR16,3X)8A7Z@QP1=;:P$`&@A$12U23U18S M+D%330``N`H``,(0T+B3M"X@```,("!!4-G#HB5+3J"4/)F39DY,VLZ>0-BR!LX>>2D.8.&3L^?8O*`H(*FW MS!LR;^0<#.("Q)(P;,BD@:J`9MVQ5,/,F5.FC9B2(,*X(0."31HW:T#003,7E M!)RA9^04!'&8#M7%!\O@*3.F#ITP?P^F7.EBR),F.J+>A?1@B(\F.VWB9,EBJ MA]T=`5O[8)+$R1+9*['4OIW;=1$L160(Z0T\IXOC19I3*7U:]8X6D%9$9&(DC MH(,B4:HD1!@#1L0A4KR#%S^^XTSLVA4,F5+D2$`&](\T*>*$"H@K3TA!!`A0F M5"$$;T.<9-I",DDDT$M35+$?0O/I,%]]+!`QA87YL3#%AA<>`9)``=K7'@PPO MH/%>=A$MU-!#`2D`A4,))F1$$%*,"($234`Q'@A34($C1'7!%U$34QSQA14QI MQ$B$$`$9<`)9C4$!F61M'%5&''6DH9911#PQ!0A6E"'''&F\X08(,K@`PTDZL M/AGE"6F!P!A79KIP`@OHL<`="R>0T.",7_3F(R0*R`F)`7W^>4(2;L#AF6-A` M+/:"&6F4I`-"@TI1J!-0?,$$?U&N]R,)+1!J:$2$/E&%?X@JRJ@4?AH!Z!.>4 M2>I5199BJBFGK'KJ*A6BDKJHJ>.AVNJK$14AA:>&!I2`K(]&.JFOFHLM*"&*^RKTE*+*QVZ@H`M"&9NVVVC1KC[Q;#%5 MFCL>N@BI*^ZP$1GZA1%)C!H0`K+2\"8154"!`@PI)`SJ%T@$X001#B]*Q!51T M_A`1P`R'##&4BTJL4,479ZP`P!U_'+(!(Y?<8A!"?F%:%?U%F?.BYB7*2FB#;QA!4_!B'W7GXY#\%;VUS]^J#86;-/G7\5`"CG$$GN?G=`44+#PA!%&0 M"%YX$(=_`<43O1$Y49!)K!C?1&:'C00+,Z2H8^8_RA`#&@%%L,,11?@7YIA63 M.#M%$D\X@7>/83/!PD<.[AA$=./-^(221SP14`,[F-9?;U5$ET1W;;X9(`A([ M)'$$$LXF_B,1PCT>>>P@(*DDD]Z/%\3H.4RTP^P@Q.`F"$8`/005N.L>/.KC3 MJ?CX4!-BE+R'K8T'1)L*_A/BO=>\34_SF9[PC! M2"$(/*&"LYK0&YX5P7/!.MX7DL&#G.14!:KQ[,!X/?*/$:YG*'BE& MC#\@/&'P7IB0(0B'AN0RU@%VX(0GM.5Q(!!"%D0X)BHH[PI22((('X@0(0BGR M20+90* MJ=`/XB]W0*K"$/3XH?HQ04<\\M%X%+:NY>U@I$VDPD./HT4".<2#($2A`CZJ^ M4"=P[0#J!('"6EF$OP5DB5,(0NV4"BH?6A)['B,C(,'G.!F2;UD7/20.H:##6 MZPVK0`TM5R:/^:--@C5@3_VD,Z,(S2I>,8M;9"LVO\C*K+KR>FA$F%YKR^8QST*I(((\=]6!2DYE%T5!(@D@B(9.:9'3B&2DZRDPS"Y'TT*Y MIY,/D&LHZ4I*.^XRE<)Y4QB92C_`4B&6@(S@+7.Y2_KYDK'"W!\Q(VO,62(SM MBLH$'#-!"<511O.UU330C[*YS2)TLRK@3((XI5G.36NZ$@WA%RB9YJ*^ M/:M51V71U!57(!OM*$(`!E)S04*DW0&I2?.7TI5RUJ4PY=UXIH"$`/D'8#6%( MQ!)Q^I"=8J&G'?Q@$X1*X:(>-:DT\VM3EPE5J49'P6F-#E/Q%@0FZ#P`DGL*%IE M>H2C`:*4BE28`DQ99@`XB^H)7U!IC&[:G2%T[(/WJ_(`HQB[*Q2!/[N3:9B/G MEK2EE1E0;4AS0G9P@B`L-B8@0$'%2NK(]+C-T.GY)GUD-A$E6'I1=LZ>J!*$( MJ,P.2"EVA*0DR53DZ"7Z>XPF\SL!%09)'W*D?L81Y428GD$+H="'-M>9%ZN%N M!I5Z>&'3[!>4U+0)WT4HKR<` M9@^?X@PT;6]K%,P((;&)V?T%=_=&1$7"FIW=EN`8]/JI.PZH,7$=\*";<1'GT"/4A$+S^+G_'1%KUKO+UL3UF,7]<*784-N`]H]2>GEE62>!UDRP-<;[MO&.]WOF! M(+]:?!)Y49'NM+#]/1K_]ODZ^3H=+'P[47W[&?]? M88$7XXJCZ!@:!#Q#('JG;`1GF4RCI\:9EA?B'3GR=Y$@R"G>_4//U?*]>\'[D MII''DUB&&++5E7?DJ]"*Y:6/N.DV65!TFN;D[IK+CEKCN%`KK^2;&4_"3IAF' MC@:[<,J2C^&-[@YF$[G(1C9W:7V?O8`1+ASQ7'Y M=!Q7(.\7JS9S+`22&L$W%C[S/VPP1F&J=LKCE2')V_+)I+^N%B:5J^*3W+K^# M!:]#6C^!Z5E@5!U(^ZH(9_X`4RY1HEK.UUIW14?0!T;P15NO%%AJ-'R$Y7W5D MEGEV!$R-)7[%E%&EAG+ZQG'[]06-)T\CA7\NID5"E627=P"O-QZQAR,1P7KIO M1P1H5SX`%4A=-4@IMW.ZYVJ]UUFB!'R0!X$4