[comp.binaries.ibm.pc] v08i021: wprot2, software disk write protect

ibmbin-request@crdgw1.crd.ge.com (09/11/90)

Checksum: 3725222745  (Verify with "brik -cv")
Posting-number: Volume 08, Issue 021
Submitted-by: jpc%fctunl.rccn.pt@cunyvm.cuny.edu
Archive-name: wprot2/part01

This is a program which provides som protection for your hard disk
against things which use int 13 to mess with the disk. The only
documentation is the source code.

The submitter says:

Read-Only Hard Disk - The Program

That's it: The program loads the partition table and intercepts
Int 13.  All the following calls to Int 13 will be monitored and
processed as follows:

Dos Primary (C:) -> Can't write, can't format
Dos Extended (D: ..) -> Can't format
Others -> Can't write, can't format

Reboot to turn off

This program is to protect a disk against yourself and naive users.

Usage: Use it, our throw it away.
Bugs: Of course, it's a program for Real Programmers.

For version 3:
        password file & user areas (`a la unix)
        switch on/off while running.

-------------------------------------------------------------
end
-------------------------------------------------------------
Jose Pedro T. Pina Coelho   | BITNET/Internet: jpc@fctunl.rccn.pt
Rua Jau N 1, 2 Dto          | UUCP: jpc@unl.uucp
1300 Lisboa, PORTUGAL       | ARPA: jpc%hara.fctunl.rccn.pt@mitvma.mit.edu
Home phone: (+351) (1) 640767

- If all men were brothers, would you let one marry your sister ?



[
Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.

checksum     size (bytes)  file (between BEGIN--cut and END--cut lines)
   38992         8031      part01

checksum     size (bytes)  file
   16569         5806      wprot2.zoo

-- bill
]

wprot2 part01/01
BEGIN--cut here--cut here
begin 644 wprot2.zoo
M6D]/(#(N,#`@07)C:&EV92X:``#<I\3]*@```-;___\"``$````````!W*?$
M_0(!@1(``'$````)%>!N=,SA+@``$!(```$```````````!74%)/5#(N05--
M````"@#TJ38`````I`%`````0"DC*```Z:2APZ8,B"M2DE`I`@**E"<+AU`!
M845&`P4[0-R!(^<-'1D@6C3L2*?,&#H@D(210P8$F31SUH`(<R9,&C=S4-Z1
M,]!@&#HEV\"A,^?B#J,@@LR94Z:-&#9Y=("@$F1*$XT</<HXBA&$UZ]@IS))
MXF0)B!<ZLW[DRA9$%:92PRJIDQ,$G3QP#)[82%+&"1=&D4IING+-G+A7U((T
MDT9.W9PK2[8,,V<FB*QGY(1I8_?-99(F4:)9V?)ES,ISWIBA<V=E&:1AP]Z$
MS(;-SS1OW,RL.1MEZC8&[921DV>F&+IIA(.@.[SR3[MH#!J1^***$R:PPZ(`
M823,F#ILR(0A8Y`\B"%I$+D9DX8R"(-43+IYP^;-F?8NP[AUD[QY&O'F.?&&
M'?J9QP1,8KRA7PJ!=15$'72@\88<<8&@Q!MS"-)0&61T-)4+#=VDWQ!OE,&&
MA`UF1`1,8]B6!G`4@I"$2Y[-I]-*FKF!4H3/\:45"&_DI5E)SE5&WAQIG.$&
MAS.YT5(2V<7FU1UIU`:"C2"(81`;[3UED!D3-EF<>&W05$9E8X3!7$MB%!>A
M0<P!:4:44D8(TV?V:=8&"UD6AYP;9WAE9V5X9K:95WF\4<=,8XQ1QE#0G?E:
M5U)^59(<;<P!&$9(D=@&<#I69@((4]1QQID"Y7:85U1$5YQK&IDXQAO`\0E'
M0909Q)23D7)&QQLZT%FI5VK`,0809IQ4AQMLN"!'HVZX,)2P0,I!;:479KAA
MAYY1`2(4(IY7XHEO7"NE%'7HIX2:(#AQ2@P@R'`*"$3\NFE&PX85PPPPP`#"
M@7,D&(:YL4$Q(1VFAL%&BB`TD5L9427EQJMM**HCGV%,#,*L]=4A!\8:FV&;
M'8K*`2*I93CY0GP%P7$P"`-U%BFULWZ:,E$SD='AF97%A<*O(``'LW,;TPHJ
M2KE!=V=JJ[4FAT%QI,OE70QRJL!%0TB1+UA%1%&%OC-<Q(016W_5]==@Q0##
M11>Y4#%Y;`AZ4QYMSTK>11,&"A8,:L.`!ML*0"8''15*J890LO%'!^#TD;'O
MUCK'AL(/*90-0D9+E/&HTI4]+/,8H]T$PM-1HUK4U0HL><>^P2I@^5=C(`Y6
M&&CP"<,,:`R;T14\E40O3&M<]#JQ!H6U4T]?F!:\Z\/'#D=8M-M>0^Z59F3$
MA&6B-$0>7#HYG/##JU$\6&!B^E/RP(/_NO/0UPX"##90+Z7UV#^W???DR8$R
M2D*,A_))83*";<YPNN&!0'RQ*5_VT!<3]5F.?;-S'PQN(+_8T,]\*"$"3Y0S
M!3I$YB:!LA_W;I(_!Y8-@6%1X/F49\*M0?`KT0-!#"BHN_W1JRI$F`I>OA3`
M^BV.>:]#(?E\R,#E&?"%7HEA#'!0P;!D9`IE0$D3.(0?*NP0!.7CC@];F"\A
M?D6%="@B%X>%Q)FX+P9!:")8+IB]_0QDC)7RHE?`*$8@.E%&!Z0+2F:%D_\,
M9R96\DAT])>FVE0&:%H"P6@P59"E`&Z1;6CDJF)SN.>!A0QWF%!+AD+(PVP!
M2.%Y7!<NTII$0:APLGG:#QF&A.$8Q)0;RQB-0,`4X6@F;G8"U&&H)84B".$)
M$"%86$1"A-R<`"7W4<Z;.*,?T&7,4;R,HL=T0Z4(T=*#"*M,#T#P!+-LQU]5
MPY?E1-*$,*S!(,M4FAMD\B8@">DV29M#'1JE.?*0(9H(DP,U!Y([R&03!-L,
M`E":,A0F'<]W25-+:)BDO"CZ;CLS`$$XAR>2#O[$(`,Y067*)X;_D,<-^)RF
M1O@I)B"]27_^I`L(4!`#%LB`!31P@0MFR((9O-0&-&!!#&2``YW>``8ZQ<$-
M7`J#G,I`!D:M00TF^CJ1),$,((!EFMQPS**YP0XW<52O^,1',\1IF0TZ:!F*
MB$HBH>0K9&`#GW#@MQH*(68W&)H,L1BF199F@V>"H^'T$!M(2K)Z!W$/T!HZ
M4+W&II!QLQ2JOD!"#%EP*JB"&5039,W&.H=7"JO/'9@$A\ALRH!J6$]8_,HS
MP":!#AH%I&8Y9-BP5-)X"CT)D^XX!=OX*CHTFM!%Z*B\PIGUDFH%`5O5^)6,
MO!4E<;T3O+)H5Y?@M8#AX^MH5Q+)TLXOL(?T#&%+0LK82@:5%;-#^_@4T7P]
MD2I4J,(4`'J0WAD$"J"1[3WM6#8XT*6"8K!DV;ABP/"&);]\FH-^Y]=:L(3)
M>)J\#!WTMX7\KL`&7;!=OV)`O2=&,99R(`X6!P@SW2#VFMXQXO!<-N`LE5AW
M!?[*:\%22D6=%;"#`M*2:"FA.K!)D'^$Y7R"-J%)`:ZS@QL(;MR`2I>((38V
ML(%+ZO"\R57NCE#X8*ITXT$O`2XCO4RO%)P@E2$$00I2R`)[C?`$*0@A"40@
M0A&<L%(9<^XR4AZR1"]BUB\`F0Y!P$)8LC(&L"QI)?N%;%WN+.2DY7FE,)#I
M#*IF0/O.H8)CP$.*O>)?L+2(3S386D9:I:LTZ,$@JK$,H:?LDC.-@2=#"1-,
M)DWCQ,(0#UQU]75CH&04R,`+-*A<FXC$:A*')=*L'D]+9@=K.9F!*2@9]9!9
M7>FO(`ECDD9=?P<$O>#NVB"<!,$6D+0"&73ACD%@`GN'D(/SX(!4-2!5IJ<0
MT2F`9`KPFL+:Z+NUC`T;AL&%P1#:.KR,A'O<Y1["N?U%\/<9?-[3%F\$8VU`
MK_@;">P=0[G'<.XYI'L.F9Y#1.<`DCG`:PX('YZ]Q_N^?1.WAD&`^#8EOK&!
M'_SE(5^?[&#H/H6Q6@U'3N&$.AHY`^[./?KA2!FPJB@T<>_F^@E+G5-V;\ME
M)`E41L.=TL246-&(JBA9$FOIW?"N7Q=HH#.)3'#L&%:7$71\NK:"&<SM&7Q[
MC>=1^<;B.@8ECR'=8\CT&"(Z!I",`5YCB+GE<)[`G7NTX3\GFM")KM(Q')WK
MPU)#TL&R=%[U6T91GWJNK$X&8V:]GJSVNM,_%YTQC/VDT'U=LY-H[3SX+MO;
M3D.WWU[<I(A[F^0V-[K53:IVOSO>@B_;R&>7[QD8X>2`_?<V"SZ%=$]AW;XG
M%?"93>V%;TS6KWMXQ"=>\8MG?.,=_WCPZVUYFMO.^,B_;LK96W"+T_+[M`P_
M+<>?KS+&T.:0CV/.AR@'GC=]]%<`=)\Q=+BA4DQQ$D@7&Y7W?YJ&>6]&=0:Q
M65=755HW7Z)W@5_G&6%G>B8U2*GW0#/G%63@/FH'>]P6`[3G<.(B%+`2'?[C
M!G7@%-^3?X:S?U]D>#HS1ILF=95Q9RNU@)5S)_H1-6G`@:/R$H/S*EGA'>X3
M,[D!%1M3>H8A,TPQ*8"5!E#53F(E5X(C$(!B;"W`)6TP$'/`)UB"A3"C$^[5
M.69@!F'X(F2H@U/!@R-E)8DT*QFV4"TA.K:$)$DS`RXP;PO8.@E7;6GG>MBV
M8-K&;1`&;K=W'@%W;LW'>^Q&*K]'*O0W+,.';[9C<CYG>P"G>P4WBN]#?0IG
M?M?7==JW<MQ'2]Y'2^!'2^(7;.671!+DB9>W?JS8<C`'<V87@F:$,0M#@Y0T
M>3?8?X?WB0%(-+9Q*1OS>*!E@X*R6'>1%Y<'=0^X>1+8>5AW):!'C!AX>6`G
MA1W8'+]88FC7)Z^GB+&W`C>0@I<3=Q%'=W:'=WK'=WX'>)D81\8X1SC(@`VX
MC);1C'_D>,,8C0I(C5>4?0X88Q#(>9[GC5L7CA09C^,H=N58=N`(%JL'2(>X
MCFPG>XT(=\H'B;HWB<_7>Y8H?9A(B_^G,.=W?)]8DLSG?-"WDO#6DAOY%1T9
M0RVBBDDA=RQ'<:[X?K`8?[(X?RY)<K<CD[DH=^WWBAJ'E!ZGE#OI%?97<P<9
M/OU(5\C8<Y<GD/I!D"@5&C<GC7:AD-;(D-CHD-I8'A%9@:%7D8]UD1Q(=A]8
M-F4T@A^9B"&Y`C4`CQGA*4!F$"[8$C`H@]9RE0?4E1R5C-?8.;84*9T!!X!3
M9]58!D76DZT'DHLH>S0P2HQI?_G&;]=5!3#(%!88/N-SC/YWCH;X/A160T3P
M!.L%7R^R$L6Q4RUP7-SQ$S?7FO[XE0"I@C/"1TB2/VDH,XFD&FXHAG$XFL`(
MD^]#`\BG(K8Y$KFI8;36FS'3'3\$6L+IE?Y70\>I*GZD/S&#2*#6AF\XAD0!
MF\0G/==)+]E9!'A0$MZSFD$TGG7V!C(!6)PF8U"82X'R)L4Q51KA7O+)B>]#
M!$)P<H.9&]^1ASIBGU,0G(5'G.8Y@2BQ!O-Q!Y*5'QXD5S7360)A98Q)D4\'
M51F3!PE"!L4!HF]P!SV(*U5'&%7R6=?U!"=E%SN$)K*42,+&(0%&*Q%8!HW1
M$K6Y7GTX9)41)YNUI#)"!*F5&W+X)HT!9T%&:E762'R"AC&&&7H"`O5A>I5A
M2OJ#G_II3UPJ$%.6I=&A&["4%6(0!D]1'*.A')X3:A&"(<'A'ZK")W%R9MGY
M-/X#-(SA)'+H8I29F6E:,D4C%!#R1\RA*:SF;TP@;CXZ2$":%\[Q-.3I42G3
M)Z5F!FK"!N$9/L#XF#F(.O^Y!D7F%7@0)F%0;+?*D$.`*X2$(V[B&214A!>E
M6C4ZD<.C2KOUC[-Z37TF>A:V1[XJ,\&:)K[CJA_%:LBJ`'5V9X<&%DQGF:B#
M946@95QV'E\69F-69F>69FO69DF366]::#@Q9]JZ6)85&WSF9V6P$KUV7\36
MKX]V27FY-3U9;&,PL/G2D610AC,1;:88F_LH)1^F6#EA9Y&19S<G6I2'*IGU
M!0#Z6$G@'+51K/QI.9S))S%@=O!*L6'$K5B0L<W*LAW[L7<4LL2Z625;-B<;
M+RIK)2QKL8.#L8P96C$[C;3!!AX;H'!GLYE%L@\[GR`0-J.YLD;;LA?[LK#*
ML;61M*CD:P+;:T$"/=%F0-E:9_<:%M\*.#<Q$,O*D]7W:BQPL$_[%6?"`KEJ
M7I@G9`KC:091!!G*F`I;AG=KGHK3'ESR:?3RMX4(%DMAMWC0@%"GMX=K$%.@
MN,/3D0+&`LZ);-=T3H"SN*@(`S)0GX/A/RO20(#[MJQG.[,)6"/P/[_B&#*#
MJ#E+L*J;)<6VN1>6(!YQ@"B!+[J+-%#E,C?AC$!#NUE2!VTX@Z"+E<76+WQ#
M7(/)/>_#)U!T$C(TMR(H0:;Y6*WD/Q$;&PH;7,-%FW@E7&VU'4;0&'717,I#
MKP94O&"3?L7UN>&CL5]!NS1;/?:K>K<;/3"0`^F7$;AYH3G!$X!"`MKK$KG;
MAIQ+N\.!*3S#:O(+%C)`8?UKLO];;#00>*U[1V6`!P/!4HPV/!7\%1<,./HK
MJ\."N6G`)\&;)6_0NZ$!`BL@FT)0!'^3NJ<H@B]L;)RK;%C*P[]6;$F&MYDV
M:JJR4K0F!I5SPQ^7)&[P$QYC$+;FQ-BZ.1PY(`'3@+,"![]J&7,0!F:`;;8!
M3=(V8OY*MPC;PO];.S,P/7A[!!=6O!',9"@A'`"TF,WKD?LRP.T2@UJB/W],
MP1=JP1B<QJ^#*V'Q$C`<2E+;QYG$$FNG;2\186(PMI=[NY.\2>SX$K/'`GG%
MF%[+QAFLE\"8R9KKP!>F.ON2L=+E;&N0!N"ZP``LP`M,!K`6PQ$,'&U<*2?L
M%1>\P[8,:QT<O8;\8L*<R!<1$[3<MI3VQBP0P#O<Q[J\RL=6QXKCR\D<%L-\
MRK;;P\$H`W)<0U"$$G:<87@,`GH<N[:L5G^,MTX@R']4R(S)R)<$:ZX<R29\
MR"C,S/>\KXT,:VNKS'<T!!#BA8%"O!>:14^#HP8!'&W`HZ^350/=S19,06J[
MS6=B9"`@`E]Q!0X!$3+@`D/P!%?A%4)0'-FB(5#`(1[B+2$RQ>)B(A+R%4O4
M`G/!!BV``SD@`BPP-BR0-6-$!D<FU$0->4;]T2'M7J-3!J63$]GE7/UQ'E)!
M)7:(44K28V3@`D"-U%)0U$<&TEYQ/1CTU%&-,X/U7%8-`J-"!%==)7&32%+,
MU5X=U$8PU&&MU&/]%8/!NRB11?-A/G$3),,!3]'RU7F=-2P@`B0@`A?1RQWM
MT60-`D4`9F5VU8HA5PI#N\71&YG%(8JMUV+-U%.RV4,0.OSQA5C2M#@[VHSM
MV)"M`!"<8;Y,*&@UUI?]$%*@V7T12]V(O$),97A:$+`M!8W]V)T2),41:H!-
M2Z&A6PH`V+[KT6!1`SNU9$U&.>`L@B(:%M@-$F3`9"O%W8%#!^?DK5&C='38
MR8##=&'1A1>A`0$!W*?$_0(!1!4``,@2```)%>ENKD3<`@``?`(```$`````
M``````!74%)/5#(N0T]-````"@#T`(0`````I`%`````0"DC*```T\D(`*`@
M`$#\!M`A@;``'18(#=`Y@?``'1$(+]#I@!`#'0P(-="9X.*?BP$!GMD3!HA.
M/73:`,R!M\X`I)4MT=$:4&41NT%.#`3HLBZ<P:-(DRI=RK2I4X-18A&8!BY+
M`2<!%L%31$0`"6"*P@$B!TP'.#EG[G#0P6:`'#!W*G#U^B/LV!]FY4"Y4T`'
MG0!RDG`U\-4N6;-W=LA9R^;`'1IRY!(A7%<L.;S@[I"0TY=.@3L=N!+@`8".
M!1X!Z$C@08".`QX.#_#81L?`.@*09@`;EF\8%`^,D#G"!@L`NCG_YDR`%0`=
MF^0,8`E`5R9Y`5@#T'GY]P'+L.".@`UW!(T7MP2T!##?Q6U`+H*V`,@"U&S"
M'`:T$NB*-:!9"%P!,-%,!;YH4L`O6.4B!`#SD&(`+37`,H%_C?B`4B(=,%*$
M``<$LL\!`=2!GWYI]/=?@/[EIPLI`J18@H2-6``BA1;4((`0S9P`PHY70"'%
M$U3(X,(03S2Q(PA"Y`&"$F_,(0@(4)1!AAQO@$"%"U"FX488(`SQ1AELH%'E
MCC'@T((2=;#1`@XY*-"`FT=>(4<:=)0!@AQEQ%%'&7/0,0<(=%0Y91IVV#F$
M#B#<D08;;(`@AIUIG.'&&WB2X0*<.QI!:1MAT'%GGGOV^6>@(`Q:Z)^'@F`"
M"$0@JBBCCD(J*:527MK`D5*4(<8;;WAJ!J4@3"H'IXV^`4<9<G2:QAMNV$K"
MD45(\:,4KL)!)1TR@)#&GV&P@6<89"BI99_=LB$EIHE:VVNV0Z`1AI9:GA%L
MKR"4^\8=YS9`0K335GMMMF.$X<8)GGY+!@APA"$''70NZP:@88AAKILD!`3<
MI\3]`@``````````````````````````````````````````````````````
M``````````#\@X``````````_(,*H```````````````````````````````
M`````````#A*H```-----------------#TQ0,!1$CP-#@,"3@0(SQ3"#P``
M'`(J=+I=#Z3E!4CA5&@"D`X!@U%3C%00*@50+@$3`$@)%#P`````````'`-=
M8\&@"D`X%3C#E50T*H(!@U%3C#D@PSCD%*H)300`L)3"/!,`PORTUGAL```\
MT4!`@\X5H`@M-5$D`A$D!91!=9>J#+"%H`I`,4@%($X8-14XPY(,@-%`0(/.
M%:`(+351)`(1)`640767J@RPA:`*0#%(!2!.&#45.,.2##..`I&`!,,`-%.`
M7%2%`(*1@`3#`#13@%Q4A0`DCU"!4DS`%SU3!`&3U0#!5`#SA0#04DF0&3U4
!@%2%
`
end
END--cut here--cut here