/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / ANTIVIRUS / MODULE_VIRUS_KILL / MVKillFlop

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 4d | 56 4b 69 6c 6c 46 6c 6f |..... >M|VKillFlo|
|00000010| 70 0d 00 14 25 f4 20 52 | 65 63 75 72 73 69 76 65 |p...%. R|ecursive|
|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 Kort|ink, 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 wr|ote 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.'"Th|is progr|
|000000c0| 61 6d 20 72 65 63 75 72 | 73 69 76 65 6c 79 20 73 |am recur|sively 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 i|nfected |
|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 s|pooled 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. INPU|T"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 (pr|ess 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 |$="" THE|N root$=|
|000001a0| 22 24 22 0d 00 6e 15 72 | 6f 6f 74 24 3d 22 41 44 |"$"..n.r|oot$="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"Ente|r log fi|
|000001d0| 6c 65 20 28 70 72 65 73 | 73 20 52 45 54 55 52 4e |le (pres|s RETURN|
|000001e0| 20 66 6f 72 20 27 56 4c | 6f 67 27 29 20 3f 20 22 | for 'VL|og') ? "|
|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$="VLo|g"......|
|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 no|t 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 f|ound 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_CL|I","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 |*DISMOUN|T...0. '|
|00000310| 22 50 72 65 73 73 20 61 | 6e 79 20 6b 65 79 20 66 |"Press a|ny key f|
|00000320| 6f 72 20 61 6e 6f 74 68 | 65 72 20 64 69 73 63 2e |or anoth|er 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 |..recurs|e_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 direct|ory perf|
|00000380| 6f 72 6d 69 6e 67 20 61 | 63 74 69 6f 6e 0d 01 2c |orming a|ction..,|
|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:."D|irectory|
|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 |$=.strin|g(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_d|ir(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 ";pat|h$..|.lo|
|00000490| 61 64 25 3d 21 46 44 61 | 74 25 0d 01 86 3a e7 28 |ad%=!FDa|t%...:.(|
|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).&FF|F . 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 . .c|heck(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=.pat|h$...-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,Du|m%,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 |..".. "O|S_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 fou|nd ! 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).#L|og,path$|
|00000620| 2b 22 20 47 65 6e 65 72 | 61 74 69 6f 6e 20 22 2b |+" Gener|ation "+|
|00000630| c3 28 44 75 6d 25 21 31 | 32 29 0d 02 3a 2c 66 69 |.(Dum%!1|2)..:,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:.i|ni%<>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%=i|ni%: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,Du|m%,12,4.|
|00000710| 02 76 17 c8 99 20 22 4f | 53 5f 41 72 67 73 22 2c |.v... "O|S_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%=F|Dat%!4:a|
|00000740| 74 74 72 25 3d 46 44 61 | 74 25 21 31 32 0d 02 94 |ttr%=FDa|t%!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$,lo|ad%,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 succ|esfully |
|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                |***"....|...     |
+--------+-------------------------+-------------------------+--------+--------+