'===========================================================================
' Subject: DITERIUM PROGRAMS AND TOOLS        Date: 06-08-00 (18:17)       
'  Author: Paul Malcher                       Code: QB, QBasic, PDS        
'  Origin: kake@freewwweb.com               Packet: MISC.ABC
'===========================================================================
'encd.bas:

'    This is the encryptor, saves encrypted text as *.enc

'decd.bas:

'    This is the decryptor, saves decrypted text as *.dec

'dite.bas:

'    Like dit only with more to it, there is one section of
'    code that allows the user to change the default drive, this will only compile
'    with PDS or better, the rest QB will do.

DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"DITE.ZIP",4^6:Z&=3349:?STRING$(50,177);
U"%up()%9%%%.-%+*oQMkL+DA'-%%%?A%%%-%%%%in%yjSg7fxf>;,>TkNk,OONwS
U"X/7Ew(V1?vF4-c.blP+#S43Kos]F+kgB9P;HIk&Q,RFvJDNjX4s-Z-]M%/ItFkh
U"/bkhuRrSB'dE\g-^D7;joWy-3M_%AM[cTMuVf5v76k\n<0bFjSE\eEK[-'aK=.K
U"W/vV3l-VGn]S58a46<HhQ^psb=l86=$=F(Y<2GZslLmF$SKJ9If/qewelo)etug
U"ihhhPLi+(M/&7Os?[,XexfocT*gC=Y(3B4H=Ur(9.gW_ZqUs%%Q?*GVe8:Cx]s^
U"K<-IqlCqpq#G5m;/_hG'aJb*LRx;:)d%?1f11rZ>%/=^xYU8oM7%yq%?&9Xm%\#
U"BtfQfnWg+e(vH6#cTNLm2YGU-evq;KJlc]Fj*J7F+U.v2nEfg=Ia-4W5K)&bN$_
U">0+jZ=$=t_=P66jJBW+CR8Y5N#$^$R:G&SD9j7\BSqi*a,O'lu#il9:,f5*^q)e
U"NU+][Z[PDqh><Ojl$O1Sh-T+lRNo(jL%5KcYh>*lED)]v<ZajtGs[nZb3.+ilSM
U">,8#pbSYa;?lOXwYw$NX*et/H*;ab0gzC_T-lx_8=E&D%?L%JcmCSL/CuSew3JV
U"7s5<Q2iU2-JrXED=%xu:_(F$\X]7q)<qJ2k7&_%8Dqe.-W_i2O:Ek+I)klha>Pw
U"tyR03+QeA*PM*[Z6:1<9/H%BovRjn(ULs9BP.,u'>?[wJEN/?HZg^c7DX^WH(0u
U"r6I)GaD2&g4XyFa#MQPEq'9w4q*Q,bxgE89*i=D>#1Mu:o]H+W=fU78:r&3Izc^
U"v^[xW=Q([wa#,EK>hkkcM9.'IV,9b)mO*x-95Rk[u(\8Kae)7Y=qQ;'>AIuo'SS
U"sPEcQu)2%YIhfO[u+zllRqk;+XEmc.kB__79*B,<G&#9]KdnMPA0KJ)v4*5c]pN
U"k2In[0B'zW3.)gA_^jz0&HJ+i3MKAAML.XvR>Ge8E3+ZC4aPZG;,(+q&qtPap:H
U"\WnfoZt9?[X4f5JhI7b<ExZKw/eO1I6n>U]X&AGQo19*ht2SnW6*+$KHy,:Rt6R
U"OfN:;jc7Gi&)%SKO\9.*v*FEAS,n8m*4lMmEXu>5tIR2A8K<zMUcm..eoiY=^Oq
U"9*88a#EHyMmE+pr/QhAB\]EO&PmPh8UG.-zXL#x;q^FUS]5R#WkX1u3s03&W+8U
U"gDK0fDpJ8wIcM[Y*=0L=a'Q/(RSb<uj55is^l3><#2b(-pwRUM00QD76;,7ER[P
U"r*_CNuTd^&nuY8<mHds#-8C9z<qa^k'M8th*rwcPM0eyqUL*MjYAqf4niO9Opmu
U"FJ;)bI>G-B,YB+1BX-k&tO2YK*v-/Dmb(',E*,au+P;y6N5AId5f((zAbjuD)NF
U"bdQsH*^vDusuvZTpb(Xs^&v'UWa^qR5k59p4>H+o7cTV:37?]e*.<IT(r-U#EV?
U"QHmO/zWa&5%F\R/IUd*Cnq,LSbsW*f+#H9z(\N6Vud2m=\3?r<dj7gND,:aB\s)
U"P\2#hs0pNEIQK'N#gb.dH%bXcP+h:w7SKi<A\=1osK*kG[5.n^suBKRc/.thf2Q
U"6EoKPm1o'Oo$7%N0.nGL6eBcA=4ZuQR-8p'cDXE\/8HO3#$h0\HYt=vB/zx+re%
U"F.1)zkG2\aBwIsbtkGAC^yr6cDqH?hH9nW's:mev<;mx3srF%>Na'p#.A]F7yAF
U"/F\<MQ*Ky*aM83D1zh,NUMP-rWmEX7b'l[3qvu7Q7UsFu<VWFqkPq]ao9s0d_Ij
U"ktceG<gTB<?J^m\rHfTWTl]acGfM/N2/8d<qW,-0UM?DN/9rKZlG%8ZE<RrR=\]
U"K^q7pjLr\;8OjNRzDY^7ssJ7_T6TQH[<2eMPLj22=EoJsp/*Yqp^(s7lf'h$xC*
U"V(51MHifBiN'<-U624]Bq<cA]q<dx7P.WAx:\$ItF+D/QeG'c-]I4,FB.(CAIXL
U"WZ(8x4QYx0#om\L-wNW:=w6Wkp&tT&T,9Vb]s,b/TP10I9TW]F+?<&xIK06SAbi
U"XAW>-pvu^\hrh+;ArQ_:%$iH.ps]lm1S<bKbH-MTM6,l_0OU0?1S25PQx>S*w&[
U"gXfQ1eX'[#ppd^vNqzpV4:DFqSlUwQ^J^de;\fez%tTQv<FgBj(Y.Ced_A:xU:C
U"Lf+ktWQ1(>5nX0EQA4ITCkY'#n3<+nuF^1cvzC>k=,M<Q:_vWb1aD-wSKLM1m9_
U"hhl;oL#ww\lqUj2YqA.pg$fornHDG'.FcEnRa?FaJS*?H^?]>.4kc_y,Ip#,*Nn
U"-=&lClD*e3CKJ;Y\bPzv51>>WXN:L0.NfXIvuUxJG^HHQ\Z?*r76?mVLdf/yKpN
U"Enmf/]'ASFw4,(Ll;ee:'+*&66]+yZ>cik/%SWzF-&FC&:mSWGso[j=k;&UW)+Q
U"xAlSi_Gj<p$BS:p=TU*1;Pu?:P*H+eo>dAWaP8dj:J>ve%e=brf\\])Y=7_kf3I
U")8Sd<2jm63)^-1jPpf'7PUICdTg%r0/kKE4;cFkm\qQ:VSQ/<dyLnG-D:s36jUi
U"t#IfQlt/J%n47cIs3CqNG-mR\9&+HwVuASKjRcuB#:*Ba?1?)s$Q6.1^<-yTUo\
U"x7dD4Luj2E<XrroRXlRx/T=H%x(%up()%9%%%.-%<*9QMD8(KmS'7%%_(%%%-%%
U"%%js%hiSg.fx,x1v>qe^5MLZFdEva$CdHKP+s/AMf',dDcQvi]DbG%93L+9oO/v
U"nF\4Eio7Q,XWGKlL-,DbyI*r'kFfC)TL4)%[?$3_3Y0[(Dt<c6;PU^Rv8p*\Z\G
U"fi_h3t:Dg:U/uVp(;^.9)Vn9R9;8KX1,*EtSQ0WY)3u=m3]EG[A-q1bzoMQr'[^
U"15v8*l[E0L(-)n?<*v9pE/2^96S+[?bLvXV$ka'Fj8RY^L$*4vOyf8IIv46e24?
U"[jE+f.&qQmpEN=mnS:OfVv(+eP2TGZ6Bm)DiL7>':(pT'7ZK:14\R1#/u*'Tp7S
U"/%,?4*H-UP-vdBr3Bt]BiI/;OJ&[/ciVfr=;Okp7R\Z&#1.#.mnC4r\DqT-1fUv
U"FsIt1%EI/RX+3-fO8+#q*$QE?;/*5HcDC_tQtPE:D+])2'l\n3iBcrrT>ys?+QP
U";BHNJA:0s;_o%cclEBfvU+c^?:$^&vH+qZPw*ln;9GM&d<=HBK+j*sLC/]uV=(Z
U"JwFrtj$PU;)UFYEA==S^_Zf,5&4MW?8&9GV^8]O>M(\=[f/_S'BFnpXCeJ^nYlV
U"&C>.\_8K^mfqVcOT\>v/Y,BM-mD>b>Cins8qQu*N_>3(+dLe>+7d<pD95FRic*8
U"zeuZM82+=A5\4r.5wmx_,bPsRm36DMcPXjRqrb5=kB:+XitB_W5Jk.uw/tBG1e*
U"/WANRp<.KsIYgcSN%up()%9%%%.-%7*KQMIA9;W4&%%%5(%%%-%%%%ij%hiSg.f
U"x\w3J=jU^9Llk:dkJmATZhpGjsu8>b+YI,7Mke4Zf$KCs6ZP_W_;sHn4+aXzdD-
U"l'(^hsbpqQSfmp9btlRON3%G%0Nff**,s%t17h/FgXXD7_2ed:.Qoh:hSFGIDTB
U"X##Vr6Ye[TG;0%]p9MEo%G0?<>'&=XP9KjbPBT6z0?LcIy'H2o=jg6\W2eo)&)1
U"2;2sQ\7V1biuW5X<w2*=Cp#?Sj8#)SDA^X,re^-kM##F9%sleomh.=n?X:c_F-B
U")]D#hmMs)qqHQ[P7/9E#T9+U;%Cj+]u$?tGvFe9Yl1^F0UucI'8jB<FblUq1/[S
U"zvfkh.*'C1HI49EQVtSy24kR$c.uF6$Vk$Hc;#mBBa,ntdDcdn<^Q/>zMukGBDf
U"SHC2*b&xMg1$:5RAGk3]s2I4vX_aWgS:Y-H<>vg>cdC%w>?H?J&h2&HU'5D37i-
U"bE9lS',3/5CwM71Fxe?3akcf(xAbemU6aaiM^SLsZ\=.vPO+0>Q8P>XMpYyVP9c
U"v:ctS1Q3kLRvpOP<7yvI?jv+j)MlhoWZd++U'hDfiwd>$\Nwv%&up&%'9%9%%%%
U"-^%+*Q=MkLD'A'-%%%?A%%%-%%%%%%%%%&%E%%%%%%%%%i%nyjS%gfxu%p&'9%%
U"9%%#%-%<a*QMD.8KmS['%%_%(%%-%%%%%%%%%&%%E%%%%M-%%%jsh%iSgf%xup&
U"%'9%9%%%%-^%7*QgMIA;+W4&%%%5(%%%-%%%%%%%%%&%E#%%%K%/%%i%jhiS%gf
U"xu%p*+%%%%%(#%(%q#%%%,%1%%%%%
END SUB
CLOSE:IF S=240AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
