'=========================================================================== ' 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%/=^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>*lED)]v,8#pbSYa;?lOXwYw$NX*et/H*;ab0gzC_T-lx_8=E&D%?L%JcmCSL/CuSew3JV U"7s5Pw 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,Ge8E3+ZC4aPZG;,(+q&qtPap:H U"\WnfoZt9?[X4f5JhI7bU]X&AGQo19*ht2SnW6*+$KHy,:Rt6R U"OfN:;jc7Gi&)%SKO\9.*v*FEAS,n8m*4lMmEXu>5tIR2A8K<#2b(-pwRUM00QD76;,7ER[P U"r*_CNuTd^&nuY8G-B,YB+1BX-k&tO2YK*v-/Dmb(',E*,au+P;y6N5AId5f((zAbjuD)NF U"bdQsH*^vDusuvZTpb(Xs^&v'UWa^qR5k59p4>H+o7cTV:37?]e*.Na'p#.A]F7yAF U"/F\-pvu^\hrh+;ArQ_:%$iH.ps]lm1SS*w&[ U"gXfQ1eX'[#ppd^vNqzpV4:DFqSlUwQ^J^de;\fez%tTQv5nX0EQA4ITCkY'#n3<+nuF^1cvzC>k=,M.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_GjdAWaP8dj:J>ve%e=brf\\])Y=7_kf3I U")8Sd<2jm63)^-1jPpf'7PUICdTg%r0/kKE4;cFkm\qQ:VSQ/qe^5MLZFdEva$CdHKP+s/AMf',dDcQvi]DbG%93L+9oO/v U"nF\4Eio7Q,XWGKlL-,DbyI*r'kFfC)TL4)%[?$3_3Y0[(Dt':(pT'7ZK:14\R1#/u*'Tp7S U"/%,?4*H-UP-vdBr3Bt]BiI/;OJ&[/ciVfr=;Okp7R\Z.#.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>+7db+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\7V1biuW5XzMukGBDf 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%%#%-%