'=========================================================================== ' Subject: ANTI-VIRUS FOR MSDOS FILE VIRUS Date: 08-01-98 (22:51) ' Author: Ekrem Deniz Code: QB, QBasic, PDS ' Origin: edeniz@mailexcite.com Packet: DOS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MSVIR.ZIP",4^6:Z&=10834:?STRING$(50,177); U"%up()%9%'%m-%5)0jGGe0;KN/.%%>G%%%.%%%%rx&%nwS#mqudk(T]U016L4D_N U"E[L%m(;Qp%Jk*VLRvkc=8jV1acZ8bEAGit_V5X*:_&Wk:wh,4jKo0&C^22[*1BU U";Z>1uVm'\(HbE=C^B\_PUp33fGV2XYLx'48e?'Bk&keuT#dEBE>3B8#=&lSEk^D U"N(EC%('MHbD+=&G:pXkt>6xlsTh.)4v/bDpotE5XT.PSUadR U"UiB8,\^=:-+B8I%*7('i+#N#5eSpv5tO?dBE,CiDmiU*#YXG)d_;HwQ6Dte#ukP U"ho*X$Lp8m?k)Eh#;&_(8p.g-ZIRgIHe&KZLew01,+J/[69=611bH'4[/qqj?rNQ U"h.4-rsmrVbCC-9P2.HU884X[B:hctL>nE>8ghNI5l2uN?bf62sk#Ia;=5q8KKH+ U"zEvu6Q'#8\0HKk/OZ(]a4').hCfcHH=RN(#rPj$+S&\o11MTi;%V#G'70&^(2Yc U"fRTXFRgQFuj%cWIUR75dU,(97>82Gnr\+cGqDpeV((R_QtEJhO&kJns2L9jrFe. U"'UJ028F1Xz6QIv+1Qvh.Jvk(Cg*#G/q2_v]8^YSLqkeqGbH&$7^$#XR7aLAMT9] U"8t:)^p2la99I>cG5+l^*C;TG>W3l3X4Q.hAlAOht$LtSKZQ^;lEM.Tk^f%Rf4gX U"axu2Dem.4K'iOS1Y*zXCXX?m;:q)2QI\s>foCVBt?k:&2hLW)Ra^z.SQ0)^AZz>ZTuT>O>fN_ U"F?.f*_Exr0fV>d6Et;eEb9%P4:$#\Kg=>29FI6Ggt2d6_Tj%3S2WGr2/LRyM^&. U"O\Dc[VNkaEOFo%X#S0ZiC'EQz%Np_c=JbS\Q1\Gndl_Kv76>kBS$doOOD.J]4/S U"#d+<>fMYre)jb0>b:tA3OA<$jKRAa$fiDmUw(#x[r?;ZIMfo,n&Qmv9Sdbb$3L;T]:9QHR(5VH-t4:=d]O-C%g700C\01holJx+[IaSo63D(Q# U"YrEXrO*FfP\J2#mn^pmW)^bemf_h.,URI4$g'wE,G0I&UMwT46\bz[=hRtUM7O= U"ANFJS0'02nFs.\)//nAh.SdM,Ha4r8_YKRZhhfwfekna?ula*;:g,2MS&gcGZO)p2TclxdrW^mS U"#8+CCx-DkHsuc$,5dPG1_c%[SEZ(xR5YFkH.f0FbMauKK*H..5aJ>CV0 U"3lJ>KjB==S&Z7o_)3A8rzr81?M#4ZBE3rE07EA(KsfG?[bsL%1g;02N3Q8zUF-- U"^7.z5NEw26(DP2<\.Wft]ovo7.udm-a>hMapsmRYC, U"eG8>_8^x/\b4HofYxw+R6C*o\Ao,s2uQ'5H-a2.U0#O3q^=VAu>;V U"NraG+]2A1MoYKKR<#b0zrKBA8[T$6$H,UH,$bBpT]4&D>pEk)fyt_*I U"BZ*G^r#3SaR*u?JrT\4k+&Yw1XO=fS9)hG/GR^(KErEc)kRb4jR14ZtW-%GZ=ZEh1Zodd1g-7&_)w*SUwWg1';WDV&yOdJ4 U"X:Y2W/O0t'4B(ylft<;b7$S4.&Y*6*M7]<29U(Tc4ON5_Vwio1zt14^x,7vj7qi U"&i^o&L:/b]vPJFq9l)?L>[&+ot[<2k[YMwfltxtk_,tca0:gXF6vh=eGtr\RJ?W U"la)\IfY;oj\=Qnle':5(YVmAUUth6S&Bg(ZAUDnl->n*jG_g\DLSa&H\GT?pYnN U"Pf$WZV+C/rSm.P.\?C#+.\d\9knuGg_T#jZ9S_uMB0%S17iL/IKt'<%ImJ)Z=?=ppB6jZtj$A&33lP7vfo^1aV6dK6DQ*%/4Xw5c%+ U"M*\/Il=J)9c/;En\b$H#A:4jA4O\A-\nm/Y?K5^>,O3?[-)j6d)jdA]rAMu>lJt U">5WN#L9^2SE3Bhe8u1E3&[Ama*G'id$aN,5%U&,;]ZRw+u?\'f7e.:a%d08,Zg* U",^E)#=BBa._0He2-2,D9g1%CiNIUNMF?iGW7uEV7$sLisIM7K6&c.'HLJ[jiZiB U"8LEs0q)[tDE*4KFj9Y6nS:?jNBG7k,n>6U0G6I;&vVQHnnr*j.3L8qn[3uHs-#B U"fiP?/+1n$zUhm-]S<$6:y=b;l#LFUC])gQy71Gp3?Jy^S#3;_)[/j3[B88ZV3BQ U"B=CS/]gWLniy2#I_QzNMBMu^)VmV:q??BV^6U,me5Z%^<=?=M$$ZGgyUc+sN<^K U"pZBBo>??badmErdNFhFjB9Y-(Xj)Mo/spCI;Enm7UqB]8a5r.1C7GBs8B5-*&)L U"mFG];2?8E'A59k+iH)_1TGs2TXbK2+gO,dcUg;a1_59401T5%;5f1,Fi7]:I_;75%)U2.a U"EtUjD6FurYV:4f]$Qa2e<)3;x*u[2[asg%xfRb:\0&p60NEE2Xf$4i/8E9I;GEB U"^D34T='tu1Mcw2K;50;-4QjW%(aVfDt_Jep:2[FO%;2pmQMiA\0=:w(1 U"OQD5;UArnf:0V$%o([4+[7SO<,dk.EeZrMQbrk(o\)ss/3EV<%eQF:6T$^q5Xb#.Ep'%K&2P'*FXCbA:Cr U"B1*(3>;+U-UhXjRD6M^P/G/ZE/1JV^pEv4]r0;lEh\=,gp_5P+u:/ej\GaWkoYh U"E$e0$brRuq:nUoz1*Gu&pZ8cR5WJ]fiCVOTMnm+0OS%F:x\ZpVG%?d.gg]_K1O; U"=_c'Yli(Q%V/'G2kc&>WGU(Wq,)mNIYF[6'qp]UG4Rag3N&A%fQ/g/nZ2F&hP:8E33L7uO\^aJ?PEn/;)Jd+AO81X*/X,CghTEM U"763B%vft1]>kDaRKBg;U/qs&()f>KuZx6[s('KHK?r*o%fYivm6ij]2JjpGft:' U"LKIZffD=WqA\3-IkjU(K_h(JBJs.4F7=6<[Q0X/_EhRAlA.[K_+UW^#jO?0VYN; U"VQl=PiV(X$[T^e)+QZQP7a.PI.+,s_d5*H8n(k#/Q2m-)]J,-RW^nVS)Dv0p0cZ U"#8SlR%(][YaW)I=)88%c)mG,*s+(-x.;G#=[UA%.T=P:Be;\wIM^NU3*83QW7x^6M U"Z/h(q?hf>vYY&374wr>k27#z<1&]O*on[()M/0F(4O(ad+[KZDw96NPI8^6IcPiKh_^jfm3^R69+D8il.,;geea60rL6u1cL$WJYl./A+ U"63UTWgk$4_2M+/boGxD&^m3S+Z])N5b7O[0iftYr]'VH>dHYEp2'76UOB'0f5\x U"EiegcTOEIJolr;D)euny;VD_sUxu5(_yQa#rJOH**Re8#F$A.&LaH+1t/&a#To/ U",s,#=m:#%B#yA>dBVFsd8tgV);LTIB%&kbaJlZR*aBJToaA2&BI(VTnbt[mp\HX U"X?73fKNngUh4'TUm>hG>MrEoxv4lGChlH[>B6On;K U"H0qG$O[A;XV(?7I+t)5sroT\hWbKwJ%t.6wm?F(WZ+40-a7CLjY->JGd5-$Vm^, U"]]':3G9]-#JD/Esb\>u8qXPAn[wn0=as8pK^kldVC U"#]gt[d5c[&5RBV4g]brAtNsc,[T4Kh7,QNv9HvFR(dWh^1jnE:'Ajes3Pl(YH'[ U"Y2kCIE)Z#Om'3/A0/?JqoDrx+5tJfF]]:IUjR9u(w.^0G,x2Q1qPdc:+A0lIi3l U"/agX3Z$ZAG2SOP7B;eMX.bcbF5k#tLQsf6XFli]E;3Z#Ka.>vea%Snf&;MQ:RD] U"Gi\f7ERgAblE[36HJcO4YmldauS,_DmG;a_iurJOU-E_Kv.v+,+Ze=?)';Rq(Q:j%MOo[#fZ98RB9?HiZs?42;74 U"eQ+45I]GqIO_3d>&mmnlKD_he;]iv-e9_IV=lJLvfeba[O[F:qNp'qa-%ChW>yFJfM U"D4R8&Rh2k7D?ce?s1)*_t^.TP/s?o,PL,'(Boc'S7Fnmn.4SY0i#O#EUK8C2R>> U")t>i$FBi2SKd,gRLrWTJY2tFqY>G^V].2sG4pwRDVYVNY.$pqZq6KvG2b=l%=.+ U",H-)5RLad-zRTId=&R#a]A(&Rba')*Rc_1+,Rddc/.\>CF\-/7M'ljwI_)J^Jpp U"KJbiUSUmhG[G?Ovg8w7A#1sFrApXaXq]UIa%Yg?oB\8N89k&lydw?)OcB-Y=QeL U"X8)wDDfmrh'pC=A?IovlJL#5Aa]qoU[i&$9ZICl^Jx/p^MYOrFeoJ>cmyfU73#> U"<#7J3JeB;p**RdpqFj(.Q+6l,_Ou(c$\f+Czs;aMQy.fzM^\]eT&8e(n U"[7_K(Cnv4d>.5)%ArGKOir=iOJ8PZ&y2BI;rPzM?%'Iau*6FXN6D-BBdA,Si U">PyffyX7_O'IJ#_b91m>w[5PS87\u'^'W[tdLm=xssNN'C5lbSUrOD3DJ%N8'mU U"v2&q97nC,7Gm3^7_O^fVHqC2dhWV5n'l96n7iGugZo&VPyZm>1i\ha2W_WBYjbZ U"WIZ5i&dL;l^)sq;;5(;u3U&q3WC9lm=oQMuL\M1c9Tp1dFRZ7BUWyCi;RI'Z7;T U"Ajucjuvot#b2Bew:_W%OIo9J#l/6SDHB9FSII4\ViXh)HW(IiG^q#0[ U"G*H53Wk_A=m*ZPT3+qSX1#o+u2U,Mev;e;B4JJmfF U"cJt1xKq85$6A:F,P%g?7\kd2W:]Rbk3/Ch(?KLw=DeH^HdR7-P5rtWBk8f[w'5m_4qqhj\ta7SfqmnbwfC6G0RT5*6ey05QgmD U"r>%v5'Gdm[wX5aT6Iedx;sd0qY8,J.)Pf$,THYF>?XS=vA:kL+RW9er+CG.oMU' U"ONj*AJPQ3f:f=;gSq'a3+MhPQ^Fc#m3NHb*wt]Ecj/_Mmu^>sdQ91C7$UB6)N:y U"_KuoVqb')wYcvRM,q'ovG7M55W$;nO%7<-8\YCS,Nk[SJXYs6pv59hjKWfL,*hJ U"N:IfWDi-cp#+flv.y6'x%up%()9%%'%-%>q&jG-ZHvRz[lFth0 U"Oq,pWll]J_WGO771:=GlZq_i/kpWXX.<6YIW*wN4ufBBPtABml;s+0.*GTQcE,Z U"Sij%zrs0UusuTh7x?Vh8*WhldqbG8=e#m+hk>mDaMqo[d9(c/d.X+F)lMTp/PpX//j1,_es6^*]l&iJk,Lg)%PBbs U"t.qC8gt/W*iat?3>9wL4G-<.)H:'SUop4f5C3/)$;4GW>dh(=S+MN=h4%p$c?Y] U"TC=44&K6PL]X/*O3'Xz.E+qBgG3RssX#uVgiAVa\e+6\bM/$(2O16E].98:Q,3b U"UTmqw--;PX]N'TUsk<<4EQo7f'JOR?.7tq7'Y/JjpN$L_uxK(Dov2OA U"'Djah/CG1:XPP10A1r6iZdJj339s U"_a(5w'WAPnDI3etJ&EoM0sUnKb'2m(HYfO^ih6e#X%Zh;KB0BKFe1*\0NcAqzH- U"%Lus6&ddNNA+ibWtbtkZ+PV>,g.P,M^o$\h=Lfgou)A*LhngGZ?V0;bVa\UIaTB U"U_APV?,_U1Nxbea^:3VeCj)H,S>s%J;_WaB^pFq+Z96pKfibN.e)Rlk7AG$b\j7 U"[_406SMU[(j?BA,H^Z9O-[/B5at=j;&lLGa^3qVETDlA/d-7C7G9AVH8HiT$vrF U"ztjV+%fQb]f2]:k>mPoFSB[&oN'oZ&bR<)Sd0WsmhXEK4AV8X*Y*0>>(i(R&WYk U"0A5JY-R9IidM9'O.^;t\IWj:dq,]CKf\g2KS?P6k+CRlcE+C0iK_8e(Ht1=(X8R U"7)zW&c4v*5)Q?gq(z^to%^Y)1i]FL'\bbfG7dDb$bI3TTW^[BJIt2IAJh*doXy/ U"bwdbqinR'hjfMs3Y[#r/5s&_I,IF[qSsJf,=e'D5O02#wa>/UZR-UeWYKT?Z')g U"*3Krfk;%OAOD7It;%)Un3O#,o($RC]?f/vv(;I7TjefX&koSob.w;-9F>D/yP^V U"._*&V(#Xmd:5ioy4NIi[KIWerTF*&WQ1a:?)Ch?La#c\sgiuQ3;d&k\n+6q U"[$31E*t1ZDxG_:#D*ECgHfttf?vFvlTA U"-tY5gic[gXthWZt-2t11&3NXbR\-B$2-;%yQjG%&1P;$ao U"86DtXngTKSU7NGF)X-?5_6*J/xBCu$-v(Qf25aX8.=2*F584ldYu/i?1oF+$:J? U"nfg:O6IsNg6QTt081P84..r%BIj:vq\hlI?ixHGI1z6$&2[rrU2A2RB4oRJXrZP U".>:3W93FJYs6hGqp%9<',+j0&ggz>p.p/EHG/:3%y/A;83r-q#5X6XCJ60VJh9= U"-;V/N/SG,-mWu:99HkrbQC4>q-qTCjx7i*NSq+n5N'\\XM*PKhiZe2Fqfk=nP0_ U"Gzsbl\0&1n0(mHyFuURK[c-O0oaY&[O=9BTrvZ+f,1/kQMV4<>[an4tIZ:Ent%(j[X(D0Fh5P0Ajv0L U"K;Hfg8IMS)f]#DjAjfU4f4XF)&F8Mq(ZKI2_bp3rXdeWJkN$*ef0];#:=o*_U_q U"am^AAUgxb#Ns?iswtd7ApZTJzM.*Xu71mAKh6xkaQAdN;A:H50wat=6FH44dT>3 U"6Xa>3Xr3lYIT%ZvZB':D+J8JK>kOu/ U"58kDfJh2d:u$UEL,=1uqkjD.EaIDFD8q.t'%,rPDV_&&I(z68Ph(Wv-TFIX-Fnp U"uMc;o&SH*X8gm4&06<9#i6#h;7//*AiOREGLLP1&KWT[NA__;c'wzD(%;6%i/UqN,Kz^Q;cTPsq$+TFW'FfYtV8&WXG;zhP U"1yK-[^O/N>+1'+o>d]2\PwV//T#on&O68(^D:IwxH U"JIdDplpL:Jct*06^DnkhnnBavo2068VCop^:KIx+%up()%9%'%I-%_)]_IuN>Ws U"%)7%%;5%%%.%%%%rx&%nwS[ith>5&F=#7\57Tc)hUAjF+ZN._wMAcr[w4[HRPgR U"wF2euO0;nRFeL-VQoa:E^e;7R4b-VRceTF[._hgn)d/[8w5cVe;p+G=\QFF#o-foQWC6BwTYr.T2J7xHC]C_?CN$uH]t^N]c906KzAbfi>obP U"Yc+Znp/^FP4>2:]v$WGR6r%^8H#9alvhS_L?$cJ1\+gsN2ZUWJB98,gAOL;oM'R3qV#9*_3_lco5eL/ORTwG U"XNUbjoB9Cd4/0kCSQj0H+;7i4gsz2+fWEKnA'Krmm[aU+c9a]f=66[J$wtvFRa7 U"7_U,2l&kA:_cUoKiI7j4pfJZc.<^'?_iNOx4_IF*/(Df4JuT_wta9UdE63^uY(m U"na&Hapf6ps^Jm#kT]LR-PeuujI3HsEEB-(Vg^GcCc7:4[O0.D7[[EET4=+H3CEL U"sP6i3+;%\S#6C8/rR#7btL3ZV-\cv9^)SfA%/vrVEXC>uh0(.N5yb\[$Vp5]R.x U"&B[w?A6#8_ U"iUjNXluR3\tPjTL=K/>wUg98'V&s%X]?bL^UvR[F1,<l'8Jvi\f>7tMvfnp4&(Xh-v&Xr80?TjI%71L(a+6]i-IB2NPsF_aQ U"P&;8i%WYS$Io:UE#0iL+p)UmXl=CZP2NdneN4M7C%G%%.%%%%%%%%%&%%E%%%%% U"%%#%rx%%nwSm%quup%&'9%%9%'%%-%wy'AGy[0^Np57%%Ur%%%.%%%%%%%%%&%% U"E%%%&u/%%.rx%n%wSgf%xup&%'9%9%%'%-p%q&jjGU0B+io-%%%YE%%%/%%%%%% U"%%%&%E#%%%=%#%%r(x%nw&'Sgf%xup&%'9%9%%'%-g%_)_RIuNW-s%)%+%;5%%% U".%%%%%%%%%&%E#%%%[%I%%r(x%nw%Sith%up*+%%%%%%)%)%'V%%%&.N%%%%% END SUB V2 CLOSE:IF S=107AND 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