Path: utzoo!utgpu!watserv1!watmath!att!occrsh!uokmax!apple!julius.cs.uiuc.edu!zaphod.mps.ohio-state.edu!wuarchive!uunet!crdgw1!sixhub!crdgw1.crd.ge.com!ibmbin-request From: ibmbin-request@crdgw1.crd.ge.com Newsgroups: comp.binaries.ibm.pc Subject: v08i025: rot13, perform rot13 decoding (part 01/01) Summary: Standard rot13 as used on usenet news software Message-ID: <1704@sixhub.UUCP> Date: 11 Sep 90 04:20:13 GMT Sender: davidsen@sixhub.UUCP Followup-To: comp.binaries.ibm.pc.d Lines: 251 Approved: davidsen@sixhub.UUCP X-Submissions-to: ibmbin@crdgw1.crd.ge.com X-Questions-to: ibmbin-request@crdgw1.crd.ge.com Checksum: 922928428 (Verify with "brik -cv") Posting-number: Volume 08, Issue 025 Submitted-by: @leebai.aa.ox.com:mju@mudos.UUCP Archive-name: rot13/part01 This is another program to perform rot13 encoding, as used on unenet messages. I can't think of any other good use for it. Enjoy, source included. The poster notes: Oh yeah -- You might want to note that while I used Turbo C to compile it, the code should compile under any ANSI C compiler without modification. If you comment out the prototypes and change the #include's, you might get it to compile under a K&R compiler. [ Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command. checksum size (bytes) file (between BEGIN--cut and END--cut lines) 44194 13304 part01 checksum size (bytes) file 17492 9636 rot13.zoo -- bill ] rot13 part01/01 BEGIN--cut here--cut here begin 644 rot13.zoo M6D]/(#(N,#`@07)C:&EV92X:``#'%,6#ES6#!\,Q9$D*=EQKQI4R;A2Q!.]"X4 M`E@P8<-N0#Q13';.FYPB(:)QD3/GE#QN7.+147-@W"U;NX+8\J8K5SI=NG16 MD,0,"#=\S:3YZ@9C885RG,[Y.":-[C)D]-J,&SP,F81F*&9L2:;J6)IWY*0) MFY#.90746],A"J(VB*8@=//VK90A<>-ID"LW;;#Y\_32L79,O]OI2S(Y9;?= M;]XQ1`=379%G'AUWY-9?;X\!)]Q[QR57VDTUE>$<=/EM5`9F:>`5D7K^D24@ M=QKQY2%#@0E%$XF<*9#34?YUY9`<[1&F5Q,RC0%"%;U9U1)Y5L@45!T)W1%& M'@F]89M@H85A5U57$2:A#K.UH48=0+11!U-SN/"2&RW(),9#+K21A@M(YN3" MFR'4H>9<(7Q5AAAAI!&"EV#NN65./,KA(Y`OG='2>;;%H(,,,L``PPLQR)"# M"S``H1M3*8WWT!FS"81A4D.\`4<>VIV!1D0QY)`##"`$.FB0AHY75!!LL`&" M%&F82D="4A0&DAW(D4<$0G1H)T970;F1TT=RJ$E'6#35`9-8*]Y%$J)8.76$ M$U6`$.JH;444AD5EE$%8:.1]&U^3MFV$4$[C!F;(1AAA?X3=8 MM@K9B&9.`0'(-F_(I`E9A@R(*V59UCD#`@0.$#!LZ*!Q8^X-$$6(4`$1(T<.&"#$ MY/DJ%"M6$$/>P,DC)\T9-#Y1C$G!UR]@FC9!X-3)DXZ+MD'8L`$AQ3'D.:3+ MS"DCQT[9DEH/$TG3L[$8EVG>N`$!A[54.A+-IMD=9LR8BF1TCIEX)\U+$"\G M'G%2!;'B/"/-^`QS1DZ9,FW*N*%S6+)NCF-\1@<1QB5,BV8JL@=Q?'$*V"A? MF#1YW(W7,6C49-UBC3U&QQ9=@-`#"")LA)!";=D1@PN`)4:@:9%-5ME?,]5T M4TX[]?092Z*1AB%J4JC&FFMDN"#"#OLI,,)P8[!AU$0\]"36&RZ@<96,--J( MT4\ZLI&&&#W^:-*,9KB!D1D@4"%%%44L^>1P$QD1!!-3%`&7E66$Y,9$4E+9 M5@A:.68+#$! M!1);%N%$6VW5($.,BEKTJ1RA)KB@"$$(,00111AQ!!))*+$$$TTX\00444@Q M!1556'$%%EEH$8888SSY6!IJK,%&&Y_"$8<=>;*W M9Y]_"B@HH8::M(=*M!J1!!->JC`<'"[YJ<(;+K%,QPX))#!I$F[(["?,=,@< M6!UFF,$::JC&2"L(DPH1AEF$$IWJT6.A0.A"/H`P`V4C*Y"`&7`T-IX9*.C( MFAPL-&@00C)5Q5T9,CDX`PA;K.P2W#S+W$477+@A0J1:EX&'""@H.0=0*)UVO&4;VY@4)(FKX1 M]N3#I>!G@WLCFD#=D8-$NGBGBR2>ZCKR[#J#=\1.PX(R@,`''QKSN;G56)L$.MAX*@]]?*6CX*C'*8"\ M10Q=O"['WI1M#P)U3#!1OM9'XYK7Z``VL1,`"\R7@:.\+5/SV9(?Y=8%O'Z25WP`G.-D5[WQ2V]CXKN:Y M%")O(,\3G>ZL!T#,H2^'"V(?[D*(DA$6:@LRJ!_P\#<^_OG/]L,U@@S!P(00F6KH(7E,_S-MA!K=6,B"HP8@F3B,($K)`.@4,AX-ZMKS;F8YYGUH=Y>CP.Q$$;W"T*M[U)D63X8"` M#6]0#$,'1[E"ID:`@!$+K5/IDEH(4F(]K M+AD#"D19AM.=H0QTT&7B:LF"Y_'M>F]$`0SX)LE$`J6I2XBZ'@;Q5"\8."X-/VG5JV+EA'.N8`6VU%K4%J*_784J#2>$ M8@_;8@9NLF5!92J"[(XFADZNP86&:TO4^ME-_04TG@GP#AWJ(`?3S0N?D&S+ M'5=C/HE2U'23053Q`@+8D``#4'````0`` M`````````')O=#$S+F5X90```'(*`'^I%@````````````!`*2,H``";:#$' M8`*```!``'``X-\_&@(``9A($8`(B@CW@9"C!F'%CR!#BAQ)LJ3)DRA3JES) MLJ7+ES!CRIQ)LZ;-FSA7ZLH6P$4B"_@"T(+1+,0B%P(`+/+``H`C;:,D`6!D M`!*`1!X8777!"L`Q`Y8:_D-'(P`Q'XJ4'EN$+=>_/R8"]B< M(@`ZCPQ`"P#-:/`3)EB MDP)M`%2Q"#M67#&('P0,X,<%N`PA`!2X"#$`CEQL,`@Q!.""$(Y3!$`$$=<2 M$$`=(N"2QK>@F#``)C@>8L"Y!!B)RQKXVK`OCG;\B^XB^,0K`!T)Q#L`'>2= MB$L;WR[BA0'_W+'A`@H'#,\BQBP`3!T=:,RQQ[B\\6VXXZ(#CP;G&J!NL^<` M\*[$==R`BR09;]PQ`>A`4P#`#"]RC,EU'*'RT+A0\K*X.-9",S$VKXM.5^^N M@P(NN!1\,#KD'+TP/NM4<(45Z*"1P+LX=J`S$?RB0X$$`-]#A``*T4%.@3C. M,?<77G0QC+347C'#/XO=8V#&`+U=<98,N`D3.BP"86+).`_=X MX_D(=ZCS%?`.D3P*)7TZM`X`A0N3U.'3KJ/`4B`,$,TX_US"8"CA_^-`^$RO M4Z$%`U2(0?P6:!"_[.@@TD\6AH/DPB,&X,0`7,`(#WAB`/Q`D%5\(1$9D,,$ MK``"(XIQ"&M,8A$V2,L@C"&`SQ3&!U(Q3@00I)5%^",6?Y`!,!HS#CL`(AY_ M&`0[!'"S`0QC`,$H@3\8QX\5X$,.8!`0(X#A"&PP`AKVB4(2YD$*%:K"$=TX MA#P.D8U%#&,1T!@".KCT'3D``1T2`,`=\L$#$-`!`3QH`!T(P(,$U`$=*EP' M.4Q6'2&H0@$G"\`0#`$.%>9C'!5@11)8(`(Z/(``(N`!%^IP`$#P0`1U$(`@ M:3>,=#!B?P-0!H\.B)49#6$`VU@$/::U@G7(P1R+*$.``CL@*`&9@ M#WXP\0,,XY@-5..L`)Q+`&PYP"A5NEK9%5`Y\XAM'(@[!H,&$KT#7<]VTJK4(;"VB"`88!28*L(-C MU`$!7YGH1-8!@44D9BD33<0="!"*D!+!`*VS)T,=:@0#I*``BZC!`.[A3P,` M(1$$2`0?!!`*2U#4H@9(A`U\N@X$F%!;08TDR0I```!<+Z6O\R\Z47D"@*Y2S<16T2$+QI4CP=.2H0$8 M:@<$+.X81M#'1$#,CXDLPAM&4,0!$&&$?_!`#OS-G%>,P`_-O0`0?NA8'1[P M"P$,`,3ZD`B)D[(.#>#X'V'8<8\3`&0ATYC(1`)&.@H!`$40@,7_,,*15T"' M"#AR!758P9'IH-PCBZ$.']CRY:R,9:65@!__:$!3&=;D`)"866.N@P$"\0P` M`&$=)3!S'1;`Y\($P@G\`()3*1`**Y<``,!8`#Z4EHK"T*$`ATZT5PPPOQ0\ M0&7L]*<^-)93\-"8NJGL@C`,$*T,LX,`L.OP@@G0"!I#H=;^P-$__)%6`="1 M`X#@0U/[,((%[]`.<$X8.FS@3:PA@@@$P&,?&F`,:/_C&'N;"$*/H`AHUVT. M!<@"'3&MH]K0Z5MZ2\K#"L!/`0`.<&P[@]D00,<%L,T%!L@"0A>P#B83@0$F M-@9C4[UJ`%C!%R(8P#I25QAA`X`/WS/&!B'0`S$00`[N"'93^6``A!I@'<5E MK$K1\0S&C:QD)^NX8!VP#@988=8+-@`Z0H#>N:HT=D8E@@-V8(PU(C0";)M% MN%\NNYBC8Q_^8"Q=K1"OAR\`'7\PN6I/-MEU2&!USX8UX(S>C*3;W+I.(``M M>+`(]A9%#JDS`(YRH(^$"J.IUO4"`5:0C!5(@U=%<7M2$"=#6#_6#P:XQS$@ M?=%&GPK2DA;\0>I`GD;$AQ$$"($1C#KY5`!B7@>X&8[0D8^MXR\-"OAJ+_G1 M`X?480+WF+Q$?"[8`=QL].N@@.()0`<&X`(*S:I%/M)A#:>FS@>"AP=U/C!K MP*$C"E)'>1]@:HQTV,+@Z!!#N-`/RU,G!(4&@>(!08<*^-,?5@4`#:`0X+(N M;!,$`U`SWJ-X#P-KZ+`._G`M)48'%Q!\U!$!FJ=YY^<($8,UM,,'':!X$\-N M```!"U3A!XP9`4_`4+`G`/P=!4 MD00+2F$%!!`+\"`".:@`P4`+/7!V%[!^+655^-``A?&"`G4(,BAP:H<.DH`V M7^=J`L!00/I'8/1R``BK9&,XA-9?@'"D!@Z'$$@/`#"L!X6::& MQN`$3.,._T>#JK9W"Q4[#A@'"2!NP'!IN&`]3'`M"C`O$#`(/```?F!OZ%`) M_Y`)*=!2&6`%"!`(9"``7^`/Q]!42D$$")!6"K!@KRAK"=-M!%`WG:`PI:$/ M8Z4`I3=6[&8][B9882@ZKQ9K#J@`BTA'"*`+#O&(Z/4#F@&-+95;`,!G<@6BZ`,6*`%*S`,&Q`-F_.-_L0/`U>#PU`M MOT`!`(!P"C]-OJ3@1@:`C$(!@>`K%9:PRA#8XB(_\``?$`A&KD(7*`` MBG`$__`AZ0`EQ,4'!Y!N$!``=$!H.GE>Z>`+`)"3$0$`@\!QU#$!;/,$_T!' M-N,0Z5`*3M4+Z0`*9ND#CB"$.(`+"<=S=1`#U(@CP^!53(-II?@/_7!N4!"1 MZ]9N[_9^;--7YX(`ZS`*C#F1T.`/FE=K_\"1M8@C-P"2!M`#"$$')A"81Y=O MI$D=!T"6.]ER+@F3,JD0O>:,ZY`!1]8`C)1N;[@*)2D89C*5*_4]LM./.V<,=6"=?H```O`'>^80?Y`PSI@.JG"7D""$ M#X`+,C``?HE152$OBR8=>9D=#7"6*:=6*'$>C\T)N`F!>"`4`4+50CR4[ MOQ`].L=S<'@,ZV`&9\EJ=``"W#AM;*,.X49'`4.F3A"BK$FB"$!A#I`%&N=T MJ&D#7D5GV>85+>H5JEAMBG&6`$<'$[!UM8<.(T``.-()!)`%V`9P:D%=2X>( M'W@T_D`!?)``N,!J."($]+`.$8"%QZ"%BO$/;#.42O>08N<#)U:=XY.J%N<0 M'H/#Y"/,CS5Y0-`#22$'#4!JXW,/JBJ1498.D]`0LL@Q^.-X M-3-Z\3BNY7JNNZ\I_SWEJ9@`)TQ2;&8V;`! M[X=\^),,S694^SH.@?`(%E<;6Z`TZTB(R_D#T.D$1F5V(8!VW(D.]"`/X!D( M[)`6#"6NY`H`X%8@Z6`/2G&SZKJS_"/`/C6`+.;8.;?`/CE"WB^`) MB6"WELLXHCMI2P,,=N`"I)N\'(L_+9"ZN\NZQT"!PAN[X&:;"5"[NLN[9`I3 MDP>T<9>V6]M4"$`'$!`V-R*-YQ<&2E$.O#*T16L`9_<`4("N.*NS304!6)"T MFQ`/[NEY1$,!`J!^8;5#'R5P')!Z!I`4RG4/QH`0@45@Y`4`,&J;P\B_@;"V MBM$/M"`$9O(]94BT98>_1YLZ!X`C.!`/F0">,B0"U?*D`"Y`,?>!E@$<="V!<+7`$FG$/V#`(V0``C6`'WC`. M#Q`)=G`$WJ`9`^`,_.`$5L8" M"C`'!$``.C`>`E`Y$OL.1*@*IE:'6DJ<-2@,`,=W][F'_TH`,4R^4R4-6Q6V M'7:#4``+84`N-4=7F*P8LJ@`1+C)G8P.0/#)]A3*7PN+DKB'[*8YP6C*.)(! MJAQ5"4,[C.<+GE``C-LGD@"I;-,'?H4+"G`C2\4L^ULY5#5ACO`/DXD+EB#, MZ,`%?C6#/0EWAR@[3.<#G+`B^T1DKH<0`1!`;_7-.)())@=OZ!`$AY$%O5@' MU8#-U34MM!`$94<`9U=U76@+[^">5T"PV'*PUZ!"ZM08C5`'C`-X!^T*]Q`- M*Y`/AW`/%%R:`D`*21`-Z3`/I3`'`4`*BZ"=B4Q7M#`$SAF=1:O/1SL`D9"T M7?#/#S8,NL`)!#`>NA`*!)`+,`H)O.(K(!("N7`"76(*8@<$19$.Z=`.WQHP M6KNN#Y,U3B4%D"">Y'FT06`/P@`(=;"7`2`$,Y`,5'5V,;!58>/58"T-=T)C MV.@/6I`%Q4"I"K1>,.UU.[9GJ)?-`"Z69>]=F/WV,-L$51PE`'%G"3JSC9E3U;>H:1KHA0-+`('#<` M/'`$*<`#C\6*KNB9=<,'^U`SK1L!C,E?KHE@53?2ZB4T#Q!SJU,WK)9*,CQ# ML68ZE8-EQ-4'&=1B_]"43XD(4OG8U+$!1Z8`999CNOD`;",#I.66_YD.5=9B M5!D.#<$`Z685N[DW/.B5`K"3_VD,8UENWH26IHFA0"@,D(J:8Q#;6+.:=8`!&IOB'8D.2\#BHUF:M)UM`F#; M7VF;!Q"<'S*/F2H[#`'(C`%42`%!E!KKN!#X@X%>0ZV5J``R*[L`>`'JM`( M?N`*!]#66S`,!L`/\.X*B>`+;,`X_,XX"6-+C1@!/%`"[&OMV*[M?_`.Z.`6 MZZ`.8YY3ME"W"VOPY[#O_?[5B>`(J[OQ:A"YCJ#0QV`(<.`0UV8(,('Q\`Z[`)>B]&HN/W M_Y`ZCS#X=P`.@.`+"LUE5V8)"IT.<#L(IO#QWU`+!9`.*3\(A@\"FI\.:"#B M>W\'1'`/AO#Q/!@"GO_Q"%`+`9`.R)<.B#``D+4(1U,Y$=$/MI$` M-T#ZEA,.D\`B\`=[`!M2``AT#R M;0D,?"`-T0`.6%3^Y3\`PA``X)\.2-?\=5`*WY_R)L,'M%#^YP\.Z;_^*'_@ MW1"!A@\"A+YIX`\"@>&[+Y?O'[R#T#<,(E`"?`<&\.-)A-`W"_S!+:!,"N`6 MU*$%<`L@P"Q(!P)`&Q@#0Z#0CITA>`.T`1%8`C>PT`(&D9`&IDH#CD`4&`!4 M(`N\?04@$QR!(P!+`D_J^P<["0Y5@!V8"+!%(_`%B(MIS`#]4@=>@/!*>=FA M!2R"?[<('$')&P?F(A^0*`NP"'Y@"8AR!$`6P("%(PM`0*Y#![:@'XB#W9,. M/I3A(P!;Y0HH@F/`+Q3!">Q,4R!'X`,+`!XL`?V3!G^`/%"`V&<>;.`Z21A' M4`\P#KF#Z8;`$$@$<@?U?;R^T=MN@".$A`2`#Z*#"]`/8($.4`6:\`'T`^-B M`E&@64J`^Z`1.`)%&-$.P3-8!'Z0=46#/P!.-)I8ZH&&$`<.`MW'!X\@XG(@ MB:!!((1T@`VN0L+(A=A"$OX#A1#9>L`N)``"X)G@*.]!#)QAY2``0V2\7(YG M\@N@`='0!OQ@!SB"E!>?QN&!RP3&T``@PX!A#I-8'Q@`N8#57($HT`@\`>*: M`E+@9HR`'[B_?J#]R1+N"\3X@\5R`2H-5U(`N,"\",1C5E0$HGD)5?LE$Z&`+])!H@"T2@2587790H>$1.D`!3``@ MZ`$M@`XX@$'@"E:7-SF)M.$)F`!K1Q8(%DVA@IZ@Y+$*`+`//UX/@%&831&8 M`A8("/C!&_`+VXLVZ*>19Q.=R@>`!$T1#UR:IH@%ZL#M,'Q`8`DL`9JXN@1` M'Z!0UVLB#`".EQ%_(`]B`)L#%H``=!`.]L$2V`'9X`_8`V7XAA@`+(`!)&P!TKA[7,$^Z(&011DRP^]A#:'A,]DPH`2@`QZP#P1>'<`'.$;9O<-ELP],C2H(=>:EL"$BZ:!1Z``'`"DP M13_!1Y&25'(*QRDI:`7:>`^A$E+62")0+EN*&"VY@G7[Y,5;\2D3:C<0E7.5 M+8Q!&M(8O(86L@TS@`ZR`.$H3E8@%!26'0`6*(/7L@&%!1W,@W3@?D:!3QD% MA64=[("EX%,6@<>X!PR*7FRW"LE<"@M_*1`FL@"@R`+PCO9&CF0;O(!$MAP6 MX5,H#(D4*C[%"]@3H\1A%(,1:Y`/H*PH9%S@C)%@+C[E50`7J@!P0`V^@!0P!$-`"0,`0 M>`-P(`_(@31P!M!`FD(!8R`%@(`8D`-P``X``4+@#<@!-A`&W``9``%)P`W0 M`3;@`@"`$Z@#;(`-@``X\`;2@*PL`W(`!(2!.3`'.*4;:`-E0%8V``5`!-*` M'4@#9*`,@`!@*0=4Y;(,`F+`#:C*-A`&="4*)I'LPPD332P M-)MF&SA/;X!?S@`=H$_F0!@X`V6`;^[+?@D"MH"OA`-U($UM@:=(!Q`G'>@" M7>"8R0$Q-@#'9VTR>\3Q\`J``/`#E^0^NY_,L-B:OV!A/ M`,`&!D#Y+)\482=1A`20%$9"PID("D``>(20<*`F0N]LGR%!7$P$;\$L1((4 MZ)]"H$F,!#'0/R<"M`@)P:HB'%"0(`@*:$,8"9+`@2[0CR`*).A(D`465"0( M@PP:$J0!!P4)XN"#?@1Y($(K@@"E"!.T(D@`561`W2<+?:`B00:\T!1*$83` M#!T)4D!>@`"^P3<(`"@0`*``>@K1(?H\_8Q#J`A4H`G@'A=``IKH1/B6OC)- MS8$QT"K-``C@FV:`#;R!=.DKS\"N[)6R$@243CG`+4-I!!``3R`48H` M%,`@-0!W8P$X@$$:`2@``QBDGI23`@!I$`!H*4_`!A.@&^3271H0`-RGQ/T" M```````````````````````````````````````````````````````````` &`````/R# ` end END--cut here--cut here