- [Duke's Virus Labs #9] - [Page 25] -

䨧  Word97
(c) by CyberShadow/SMF


                             ਢ ᥬ!
            饭  ᠭ  䮢  ᮪ ஢  VB,
⭮      Word97Basic,    ⥮    Excel     
    ਫ.     ।,    祫  騩    
筮  த    ᠭ  ணࠬ  VB, ਬ 㬥 ᮧ
砩  ⨯ jjkJIjlJ3    ᠭ VB ᮢ.
        ⠪,             ⢮  䮢   VB,  
饥  設⢮          ᮢᥬ  䠬,  
।⠢  ᥡ 樨 ⨯:
        'kj2atlk3jOIJOJ6LkjrlJlkjLjrk22
	For i=1 To n
	'hjkljhlkjhl324jhlkqj3h5jkqhb
	MsgBox i
	'jhjehodhfgjnkbkjwekjt25jkbkjbKJBKJB
	Next
          ᨬ    ⬠    䠭⠧      ப
  ᮤঠ    ᥡ  ࠧ  ᨬ,   ᭮  ⠥ ⮩
   -   ⠢    ப  ப  ६      ࠧ묨
ᨬ.  ⪨    -  ⮨      ६ન,    voila! 
   .  ஬  ⮣,  設⢮  䮢      ᢮
,    ந    ஢ப,   祭    
஬    ࠧ,      頥    쭥襥  ࠭,
  ᭮  뢠,    䠩  ࠦ  ᮬ  :(.   뫠 
   ଠ஢,   ஢       ,    ⮫  ਭ᫮
ᮢᥬ      :(.   祬    ᨯ?    ⢮  
⬮    ᮧ  饭  ᮢ.  祬     
ᯮ    ᮧ  ᮢ    DOS    Windows.   
騥      ࠧ筮   ᫮.    ⢮  ⥩
  ᮧ  ஢      Word,    ⥬    ,   
⮩  ⥬  (⪮).  ஢  ⥫    ࠭,   
ᯮᮡ:
        1.     ६    ன  ࠭  ஢  ⥫
:
        CryptedVirusBody="hl23kj6liuhrkljhluhilUHLIhliu"
        CryptedVirusBody=CryptedVirusBody+"sdg3wW#HSDsehEh"
        2. ࠭ ஢ ⥫  אַ  室 :
        Private Sub CryptedVirusBody()
        'jl;kj2lkj;Ij)JHhh5kjhKJhKJ5huoho
        'LKjlkigsohjwhj4klhLhLKhlwktioh
        'JklwjijgnLnlniowngoi
        End Sub
        㬥,      ࠧ   ᯮᮡ   ࠭,    ࠧ
ᯮᮡ  ஢,    ࢮ  ᯮᮡ     ਯ ࠡ騩
  ६,  ன ࠭ ஢ ⥫ .
   ண      ᯮᮡ      ࠡ騩    
室 ,   - த:
        c=lines(j,1)
        if mid$(c,1,1)="'" then
                ... ஢ ...
                ReplaceLine j, EncryptedVariable
        End If
         j -  ப .
            ᯮᮡ    ᢮  २⢠   ⪨,  ࢮ
ᯮᮡ    室  ࠡ⪨  ⬠    ⠢ 㤠-
஢   ப,      ண  -    ஬    
ࠡ    ᪮  ப.  롨ࠩ  .   ᯮᮡ ࠭
஢  ப,     ᠬ . ,     ஢
⥫ .
        ,    ᠬ  ᭮:    .  ᬮਬ  ᫥騩
ਬ:
        For i=1 to n                                ' ஢騪;
                For  j=1  to  12425                 '-+
                        eyeu=12                     ' |
                        do while eyeu<234           ' | ;
                                eyeu=eyeu+43        ' |
                        loop                        ' |
                next                                '-+
                lkj=ljk+1                           ' ஢騪;
                jkhlk=142                           ' -+
                if  sdfg<kleh  then                 '  |
                        gsdfgyeu=122                '  |
                        do   while   gsdfgyeu<253   '  |
                                gsdfgyeu=gsdfgyeu+23'  | ;
                                jhlkjh=lkwjf+nkvsv  '  |
                        loop                        '  |
                end  if                             '--+
        next                                        ' ஢騪;
          ,     ᫥ ணࠬ,  - ,
  ,  ⢥  ஢ ⥫ ...
⢥    ⠪  த  䮢  (       ) 
,    ⮫쪮  "" ६, 祬  直 権
  ,       ""   ᥨ.   ࠧ
⨣ ᮧ ⠪ த  ? 筮 :
        private sub polym(fc,m)
        ' fc - ६   㤥 뢠  ;
        'm  -  ६  ।  ⥯ ४ᨨ (祬  ⥯
        '  ⥬   ᫮   䭠   ணࠬ,   ⥬      
        '  .
        select case int(rnd*6)
                case 1
                        fc=fc+"for i=1 to 1234"
                        m=m+1
                        if m<MaxRecurs then call polym(fc,m)
                        fc=fc+next
                case 2
                case 3
         ..
                case else
        end select
        end sub
        ⨬  ᯮᮡ       ணࠬ,  ᯮ짮
᫥騥:
        1. FOR-NEXT
        2. DO WHILE-LOOP
        3. DO UNTIL-LOOP
        4. DO-LOOP WHILE
        5. DO-LOOP UNTIL
        6. IF-END IF
        7. Change variables
        㬥,  䨣      襩 䠭⠧,  
ᤥ  ᪠:    横  ᯮ짮 砩 砫 
  祭,  ⠪ 砩 蠣.    ᫮ﬨ  :
樨    ࠧ묨 ६묨, 樨 "<", ">", "="  ࠢ  RND.
 ࠡ  ࠡ  ६묨 ᫥騥 ਠ:
        var1=random
        var1=var1+var2
        var1=var2+var3
        var1=var2
         ..
              ४ᨢ  ⬠. ! ᫥ ⮣, 
   ᠫ  ணࠬ      ஢騪,  ࠧ  
ᯫ뢠    ஡        ࠭  ॢ:  
ப         1024 ᨬ, ࠧ  楤  
    64 .    㣠 ஡ ᪠뢠  
.   ⠪,        ४஢      ப,  
       ᪠뢠,   ᫨  ࠭ ஢
⥫      ப  ६,  ⮣  ਤ  ६ 
.    ४஢ 㬥 ⥯ ४ᨨ.
          㣮  ਠ,  ६  ப ஢騪   
  맮  楤,  ⮣  ࠧ   ࠢ୮ । 
楤ࠬ           㤥  64.  ६, 
?        ஢騪    㤥 ।⠢
ᮡ   ࠡ . ਢ ਬ:
        private sub try()
                goto loop1
        loop2:
                msgbox "⪠   :)"
                goto loop3
        loop1:
                msgbox "⪠  ࠧ"
                goto loop2
        loop3:
        end sub
         ᤥ ⠪ ணࠬ    ? ࠢ쭮, ᭠砫
       ࠧ,  ⮬    .   ⪠
          ࢮ?      ⠪?  﫨?    ᠬ  
,    ६蠭 ,  ᫥ 믮 室
   砩    ,    㦥  ⮢  ᫥    
믮. ஬ ⮣, ⮡  ॣ㦠 ࠧ ணࠬ,   ⮩
ᮢ    ᤥ  맮  楤   GOTO, ࠧ㬥 楤
㦭  뢠    ᥬ  ६묨  ᯮ㥬묨   ஢騪, 
  묨,   㦥 .
           :
        1.   ப    1024 ᨬ;
        2.   楤    64;
        3. ६  ᯮ㥬    ஢騪    㯭 
            ணࠬ;
        4. ६  ᯮ㥬  ஢騪  ᯮ㥬  ""
             ᮢ,  ஢  ࠢ쭮;
        5.     ""    祭 訬,   
           㬠,   ;
        6.  ⮪   ᮢ    ६;
        7.  ப  ᫮   ⤥쭮:
                 lkj=24: if jkh<qfg then :jkwg=wga:
                  ࢮ  稨  ந 訡,  ஬ ᯮ
                 .
          ਬ  뢠  ࠧ㬥,   ப 
⤥쭮,      !  砩 롮  ᨬ
砭 ப Chr$(13)+Chr$(10)  ":". 㬥, 㦭 ஢ઠ  
ப    ஢ઠ    "⢮"  ᫮.  ஬  ⮣,  ᫮
⥪஢,  ᯮ짮 ࠧ   ᭮ 横.

P.S.   ᠫ      ᯥ樠쭮    ୠ  DVL#9,  ⮬   
     ਫ         polymac.doc    permut.doc  騥
       堭.

							     CyberShadow//SMF
 
 
 



