� >MVKillFlop
%� Recursive 'Module Virus' killer
"� by John Kortink, 18 Nov 1991
(,� Whoever wrote this virus : SCREW YOU !
2� FDat% 4096,Dum% 1024
<*ADFS:MOUNT 0
FG�'"This program recursively scans for and kills the 'Module Virus'"
PH�"Previously infected modules' filenames are spooled to a log file"'
ZF� INPUT"Enter root of path to scan (press RETURN for '$') ? "root$
d� IFroot$="" THEN root$="$"
nroot$="ADFS::0.$"
x<� INPUT"Enter log file (press RETURN for 'VLog') ? "log$
�log$ =""
��log$="" � log$="VLog"
��
�found%=0
�
Log=�log$
��recurse_dir(root$)
�	�#Log
��'
҉�found%=0 � �"I did not find any viri ..." � �"!!! I found and killed ";found%;" viri, in (see ";log$;") : ":ș "OS_CLI","Type "+log$
��''"Finished ..."
�
*DISMOUNT
�0� '"Press any key for another disc...";:AA=�
�
� �T|@

�



��recurse_dir(dir$)

"*� Recurses directory performing action

,
� off%,n$

6off%=0:�"Directory ";dir$

@�� ș "OS_GBPB",10,dir$,FDat%,1,off%,256,"*" � ,,p%,,off%:�off%=-1 � n$=�string(p%+20):�(p%!16)=2 � �recurse_dir(dir$+"."+n$) � �do_one(dir$+"."+n$)

J
� off%=-1

T�

^

h��do_one(path$)

r�;"File ";path$

|load%=!FDat%

�:�(load%>>>20)=&FFF � type%=(load%>>>8)�&FFF � type%=-1

��type%=&FFA � �check(path$)

��

�

�ݤstring(a%)

�%a$="":ȕ ?a%>=32:a$+=�?a%:a%+=1:�

�=a$

�

���check(path$)

�F=�path$

�-l%=�#F:ș "OS_GBPB",3,F,Dum%,4,4:i%=!Dum%

��l%-i%<>&3BC � �#F:�

�"ș "OS_GBPB",3,F,Dum%,20,l%-16
�#F
�7:found%+=1

�"***"
&/�"Module virus found ! Generation ";Dum%!12
0)�#Log,path$+" Generation "+�(Dum%!12)
:,fini%=!Dum%:�fini%<>0:fini%=i%+&F0-fini%
D)ini%=Dum%!4:�ini%<>0:ini%=i%+&C0-ini%
N.serv%=Dum%!8:�serv%<>0:serv%=i%+&144-serv%
X(!Dum%=ini%:Dum%!4=fini%:Dum%!8=serv%
bF=�path$
lș "OS_GBPB",1,F,Dum%,12,4
vș "OS_Args",3,F,i%
��#F
� exec%=FDat%!4:attr%=FDat%!12
�+ș "OS_File",1,path$,load%,exec%,,attr%
�"�"Virus succesfully removed !"
�
�"***"
��
�

00000000  0d 00 0a 11 f4 20 3e 4d  56 4b 69 6c 6c 46 6c 6f  |..... >MVKillFlo|
00000010  70 0d 00 14 25 f4 20 52  65 63 75 72 73 69 76 65  |p...%. Recursive|
00000020  20 27 4d 6f 64 75 6c 65  20 56 69 72 75 73 27 20  | 'Module Virus' |
00000030  6b 69 6c 6c 65 72 0d 00  1e 22 f4 20 62 79 20 4a  |killer...". by J|
00000040  6f 68 6e 20 4b 6f 72 74  69 6e 6b 2c 20 31 38 20  |ohn Kortink, 18 |
00000050  4e 6f 76 20 31 39 39 31  0d 00 28 2c f4 20 57 68  |Nov 1991..(,. Wh|
00000060  6f 65 76 65 72 20 77 72  6f 74 65 20 74 68 69 73  |oever wrote this|
00000070  20 76 69 72 75 73 20 3a  20 53 43 52 45 57 20 59  | virus : SCREW Y|
00000080  4f 55 20 21 0d 00 32 1a  de 20 46 44 61 74 25 20  |OU !..2.. FDat% |
00000090  34 30 39 36 2c 44 75 6d  25 20 31 30 32 34 0d 00  |4096,Dum% 1024..|
000000a0  3c 11 2a 41 44 46 53 3a  4d 4f 55 4e 54 20 30 0d  |<.*ADFS:MOUNT 0.|
000000b0  00 46 47 f1 27 22 54 68  69 73 20 70 72 6f 67 72  |.FG.'"This progr|
000000c0  61 6d 20 72 65 63 75 72  73 69 76 65 6c 79 20 73  |am recursively s|
000000d0  63 61 6e 73 20 66 6f 72  20 61 6e 64 20 6b 69 6c  |cans for and kil|
000000e0  6c 73 20 74 68 65 20 27  4d 6f 64 75 6c 65 20 56  |ls the 'Module V|
000000f0  69 72 75 73 27 22 0d 00  50 48 f1 22 50 72 65 76  |irus'"..PH."Prev|
00000100  69 6f 75 73 6c 79 20 69  6e 66 65 63 74 65 64 20  |iously infected |
00000110  6d 6f 64 75 6c 65 73 27  20 66 69 6c 65 6e 61 6d  |modules' filenam|
00000120  65 73 20 61 72 65 20 73  70 6f 6f 6c 65 64 20 74  |es are spooled t|
00000130  6f 20 61 20 6c 6f 67 20  66 69 6c 65 22 27 0d 00  |o a log file"'..|
00000140  5a 46 f4 20 49 4e 50 55  54 22 45 6e 74 65 72 20  |ZF. INPUT"Enter |
00000150  72 6f 6f 74 20 6f 66 20  70 61 74 68 20 74 6f 20  |root of path to |
00000160  73 63 61 6e 20 28 70 72  65 73 73 20 52 45 54 55  |scan (press RETU|
00000170  52 4e 20 66 6f 72 20 27  24 27 29 20 3f 20 22 72  |RN for '$') ? "r|
00000180  6f 6f 74 24 0d 00 64 1f  f4 20 49 46 72 6f 6f 74  |oot$..d.. IFroot|
00000190  24 3d 22 22 20 54 48 45  4e 20 72 6f 6f 74 24 3d  |$="" THEN root$=|
000001a0  22 24 22 0d 00 6e 15 72  6f 6f 74 24 3d 22 41 44  |"$"..n.root$="AD|
000001b0  46 53 3a 3a 30 2e 24 22  0d 00 78 3c f4 20 49 4e  |FS::0.$"..x<. IN|
000001c0  50 55 54 22 45 6e 74 65  72 20 6c 6f 67 20 66 69  |PUT"Enter log fi|
000001d0  6c 65 20 28 70 72 65 73  73 20 52 45 54 55 52 4e  |le (press RETURN|
000001e0  20 66 6f 72 20 27 56 4c  6f 67 27 29 20 3f 20 22  | for 'VLog') ? "|
000001f0  6c 6f 67 24 0d 00 82 0c  6c 6f 67 24 20 3d 22 22  |log$....log$ =""|
00000200  0d 00 8c 1a e7 6c 6f 67  24 3d 22 22 20 8c 20 6c  |.....log$="" . l|
00000210  6f 67 24 3d 22 56 4c 6f  67 22 0d 00 96 05 f1 0d  |og$="VLog"......|
00000220  00 a0 0c 66 6f 75 6e 64  25 3d 30 0d 00 aa 0d 4c  |...found%=0....L|
00000230  6f 67 3d ae 6c 6f 67 24  0d 00 b4 17 f2 72 65 63  |og=.log$.....rec|
00000240  75 72 73 65 5f 64 69 72  28 72 6f 6f 74 24 29 0d  |urse_dir(root$).|
00000250  00 be 09 d9 23 4c 6f 67  0d 00 c8 06 f1 27 0d 00  |....#Log.....'..|
00000260  d2 89 e7 66 6f 75 6e 64  25 3d 30 20 8c 20 f1 22  |...found%=0 . ."|
00000270  49 20 64 69 64 20 6e 6f  74 20 66 69 6e 64 20 61  |I did not find a|
00000280  6e 79 20 76 69 72 69 20  2e 2e 2e 22 20 8b 20 f1  |ny viri ..." . .|
00000290  22 21 21 21 20 49 20 66  6f 75 6e 64 20 61 6e 64  |"!!! I found and|
000002a0  20 6b 69 6c 6c 65 64 20  22 3b 66 6f 75 6e 64 25  | killed ";found%|
000002b0  3b 22 20 76 69 72 69 2c  20 69 6e 20 28 73 65 65  |;" viri, in (see|
000002c0  20 22 3b 6c 6f 67 24 3b  22 29 20 3a 20 22 3a c8  | ";log$;") : ":.|
000002d0  99 20 22 4f 53 5f 43 4c  49 22 2c 22 54 79 70 65  |. "OS_CLI","Type|
000002e0  20 22 2b 6c 6f 67 24 0d  00 dc 15 f1 27 27 22 46  | "+log$.....''"F|
000002f0  69 6e 69 73 68 65 64 20  2e 2e 2e 22 0d 00 e6 0d  |inished ..."....|
00000300  2a 44 49 53 4d 4f 55 4e  54 0d 00 f0 30 f1 20 27  |*DISMOUNT...0. '|
00000310  22 50 72 65 73 73 20 61  6e 79 20 6b 65 79 20 66  |"Press any key f|
00000320  6f 72 20 61 6e 6f 74 68  65 72 20 64 69 73 63 2e  |or another disc.|
00000330  2e 2e 22 3b 3a 41 41 3d  a5 0d 00 fa 0a e5 20 8d  |..";:AA=...... .|
00000340  54 7c 40 0d 01 04 05 e0  0d 01 0e 04 0d 01 18 17  |T|@.............|
00000350  dd f2 72 65 63 75 72 73  65 5f 64 69 72 28 64 69  |..recurse_dir(di|
00000360  72 24 29 0d 01 22 2a f4  20 52 65 63 75 72 73 65  |r$).."*. Recurse|
00000370  73 20 64 69 72 65 63 74  6f 72 79 20 70 65 72 66  |s directory perf|
00000380  6f 72 6d 69 6e 67 20 61  63 74 69 6f 6e 0d 01 2c  |orming action..,|
00000390  0d ea 20 6f 66 66 25 2c  6e 24 0d 01 36 1d 6f 66  |.. off%,n$..6.of|
000003a0  66 25 3d 30 3a f1 22 44  69 72 65 63 74 6f 72 79  |f%=0:."Directory|
000003b0  20 22 3b 64 69 72 24 0d  01 40 97 f5 20 c8 99 20  | ";dir$..@.. .. |
000003c0  22 4f 53 5f 47 42 50 42  22 2c 31 30 2c 64 69 72  |"OS_GBPB",10,dir|
000003d0  24 2c 46 44 61 74 25 2c  31 2c 6f 66 66 25 2c 32  |$,FDat%,1,off%,2|
000003e0  35 36 2c 22 2a 22 20 b8  20 2c 2c 70 25 2c 2c 6f  |56,"*" . ,,p%,,o|
000003f0  66 66 25 3a e7 6f 66 66  25 3d 2d 31 20 8b 20 6e  |ff%:.off%=-1 . n|
00000400  24 3d a4 73 74 72 69 6e  67 28 70 25 2b 32 30 29  |$=.string(p%+20)|
00000410  3a e7 28 70 25 21 31 36  29 3d 32 20 8c 20 f2 72  |:.(p%!16)=2 . .r|
00000420  65 63 75 72 73 65 5f 64  69 72 28 64 69 72 24 2b  |ecurse_dir(dir$+|
00000430  22 2e 22 2b 6e 24 29 20  8b 20 f2 64 6f 5f 6f 6e  |"."+n$) . .do_on|
00000440  65 28 64 69 72 24 2b 22  2e 22 2b 6e 24 29 0d 01  |e(dir$+"."+n$)..|
00000450  4a 0d fd 20 6f 66 66 25  3d 2d 31 0d 01 54 05 e1  |J.. off%=-1..T..|
00000460  0d 01 5e 04 0d 01 68 13  dd f2 64 6f 5f 6f 6e 65  |..^...h...do_one|
00000470  28 70 61 74 68 24 29 0d  01 72 13 f1 3b 22 46 69  |(path$)..r..;"Fi|
00000480  6c 65 20 22 3b 70 61 74  68 24 0d 01 7c 10 6c 6f  |le ";path$..|.lo|
00000490  61 64 25 3d 21 46 44 61  74 25 0d 01 86 3a e7 28  |ad%=!FDat%...:.(|
000004a0  6c 6f 61 64 25 3e 3e 3e  32 30 29 3d 26 46 46 46  |load%>>>20)=&FFF|
000004b0  20 8c 20 74 79 70 65 25  3d 28 6c 6f 61 64 25 3e  | . type%=(load%>|
000004c0  3e 3e 38 29 80 26 46 46  46 20 8b 20 74 79 70 65  |>>8).&FFF . type|
000004d0  25 3d 2d 31 0d 01 90 1f  e7 74 79 70 65 25 3d 26  |%=-1.....type%=&|
000004e0  46 46 41 20 8c 20 f2 63  68 65 63 6b 28 70 61 74  |FFA . .check(pat|
000004f0  68 24 29 0d 01 9a 05 e1  0d 01 a4 04 0d 01 ae 10  |h$).............|
00000500  dd a4 73 74 72 69 6e 67  28 61 25 29 0d 01 b8 25  |..string(a%)...%|
00000510  61 24 3d 22 22 3a c8 95  20 3f 61 25 3e 3d 33 32  |a$="":.. ?a%>=32|
00000520  3a 61 24 2b 3d bd 3f 61  25 3a 61 25 2b 3d 31 3a  |:a$+=.?a%:a%+=1:|
00000530  ce 0d 01 c2 07 3d 61 24  0d 01 cc 04 0d 01 d6 12  |.....=a$........|
00000540  dd f2 63 68 65 63 6b 28  70 61 74 68 24 29 0d 01  |..check(path$)..|
00000550  e0 0c 46 3d 8e 70 61 74  68 24 0d 01 ea 2d 6c 25  |..F=.path$...-l%|
00000560  3d a2 23 46 3a c8 99 20  22 4f 53 5f 47 42 50 42  |=.#F:.. "OS_GBPB|
00000570  22 2c 33 2c 46 2c 44 75  6d 25 2c 34 2c 34 3a 69  |",3,F,Dum%,4,4:i|
00000580  25 3d 21 44 75 6d 25 0d  01 f4 18 e7 6c 25 2d 69  |%=!Dum%.....l%-i|
00000590  25 3c 3e 26 33 42 43 20  8c 20 d9 23 46 3a e1 0d  |%<>&3BC . .#F:..|
000005a0  01 fe 22 c8 99 20 22 4f  53 5f 47 42 50 42 22 2c  |..".. "OS_GBPB",|
000005b0  33 2c 46 2c 44 75 6d 25  2c 32 30 2c 6c 25 2d 31  |3,F,Dum%,20,l%-1|
000005c0  36 0d 02 08 07 d9 23 46  0d 02 12 10 ef 37 3a 66  |6.....#F.....7:f|
000005d0  6f 75 6e 64 25 2b 3d 31  0d 02 1c 0a f1 22 2a 2a  |ound%+=1....."**|
000005e0  2a 22 0d 02 26 2f f1 22  4d 6f 64 75 6c 65 20 76  |*"..&/."Module v|
000005f0  69 72 75 73 20 66 6f 75  6e 64 20 21 20 47 65 6e  |irus found ! Gen|
00000600  65 72 61 74 69 6f 6e 20  22 3b 44 75 6d 25 21 31  |eration ";Dum%!1|
00000610  32 0d 02 30 29 d5 23 4c  6f 67 2c 70 61 74 68 24  |2..0).#Log,path$|
00000620  2b 22 20 47 65 6e 65 72  61 74 69 6f 6e 20 22 2b  |+" Generation "+|
00000630  c3 28 44 75 6d 25 21 31  32 29 0d 02 3a 2c 66 69  |.(Dum%!12)..:,fi|
00000640  6e 69 25 3d 21 44 75 6d  25 3a e7 66 69 6e 69 25  |ni%=!Dum%:.fini%|
00000650  3c 3e 30 3a 66 69 6e 69  25 3d 69 25 2b 26 46 30  |<>0:fini%=i%+&F0|
00000660  2d 66 69 6e 69 25 0d 02  44 29 69 6e 69 25 3d 44  |-fini%..D)ini%=D|
00000670  75 6d 25 21 34 3a e7 69  6e 69 25 3c 3e 30 3a 69  |um%!4:.ini%<>0:i|
00000680  6e 69 25 3d 69 25 2b 26  43 30 2d 69 6e 69 25 0d  |ni%=i%+&C0-ini%.|
00000690  02 4e 2e 73 65 72 76 25  3d 44 75 6d 25 21 38 3a  |.N.serv%=Dum%!8:|
000006a0  e7 73 65 72 76 25 3c 3e  30 3a 73 65 72 76 25 3d  |.serv%<>0:serv%=|
000006b0  69 25 2b 26 31 34 34 2d  73 65 72 76 25 0d 02 58  |i%+&144-serv%..X|
000006c0  28 21 44 75 6d 25 3d 69  6e 69 25 3a 44 75 6d 25  |(!Dum%=ini%:Dum%|
000006d0  21 34 3d 66 69 6e 69 25  3a 44 75 6d 25 21 38 3d  |!4=fini%:Dum%!8=|
000006e0  73 65 72 76 25 0d 02 62  0c 46 3d ad 70 61 74 68  |serv%..b.F=.path|
000006f0  24 0d 02 6c 1e c8 99 20  22 4f 53 5f 47 42 50 42  |$..l... "OS_GBPB|
00000700  22 2c 31 2c 46 2c 44 75  6d 25 2c 31 32 2c 34 0d  |",1,F,Dum%,12,4.|
00000710  02 76 17 c8 99 20 22 4f  53 5f 41 72 67 73 22 2c  |.v... "OS_Args",|
00000720  33 2c 46 2c 69 25 0d 02  80 07 d9 23 46 0d 02 8a  |3,F,i%.....#F...|
00000730  20 65 78 65 63 25 3d 46  44 61 74 25 21 34 3a 61  | exec%=FDat%!4:a|
00000740  74 74 72 25 3d 46 44 61  74 25 21 31 32 0d 02 94  |ttr%=FDat%!12...|
00000750  2b c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 31 2c  |+.. "OS_File",1,|
00000760  70 61 74 68 24 2c 6c 6f  61 64 25 2c 65 78 65 63  |path$,load%,exec|
00000770  25 2c 2c 61 74 74 72 25  0d 02 9e 22 f1 22 56 69  |%,,attr%..."."Vi|
00000780  72 75 73 20 73 75 63 63  65 73 66 75 6c 6c 79 20  |rus succesfully |
00000790  72 65 6d 6f 76 65 64 20  21 22 0d 02 a8 0a f1 22  |removed !"....."|
000007a0  2a 2a 2a 22 0d 02 b2 05  e1 0d ff                 |***".......|
000007ab