И даже более того, я знаю как запретить эти веселые клавиши), дело в том что я писал прогу блокиратор, которая блокит всё, а потом по паролю отдает контроль обратна).
21.07.2009 23:04:46
И даже более того, я знаю как запретить эти веселые клавиши), дело в том что я писал прогу блокиратор, которая блокит всё, а потом по паролю отдает контроль обратна).
|
|
|
|
21.07.2009 23:13:27
... и как ? Только чтобы в процессах не было видно.
|
|
|
|
21.07.2009 23:24:33
Это самый простой путь ? Мне говорили, что если службу написать, ее не видно. А как ее писать ?
|
|
|
|
21.07.2009 23:26:07
Хто тебе такое сказал???
Службу напишешь она будит висеть в процах, только под юзером SYSTEM. |
|
|
|
21.07.2009 23:30:21
Ну сустем лучше чем юзер. Как такое сделать ?
|
|
|
|
21.07.2009 23:31:32
C чего ты взял что лучше?? ну да есть свои плюсики, НО убить то проще простого можна)
|
|
|
|
21.07.2009 23:39:20
Как сустем збацать?
Изменено: }{aker2 }{aker - 21.07.2009 23:39:49
|
|
|
|
21.07.2009 23:47:21
кроч, мну надоело уже так общаться либо ася либо майл либо еще что то, решай, на мыло ответ.
|
|
|
|
24.01.2010 14:57:59
//Поиск файлов по маске по всему дереву каталогов, начиная с указанного (FindFiles('C:\Program Files\', '*.pas', L, true)
procedure TForm1.FindFiles(StartFolder, Mask: string; L : TStringList; ScanSubFolders: Boolean = True); var SearchRec: TSearchRec; FindResult: Integer; begin L.BeginUpdate; try StartFolder := IncludeTrailingBackslash(StartFolder); FindResult := FindFirst(StartFolder + '*.*', faAnyFile, SearchRec); try while FindResult = 0 do with SearchRec do begin if (Attr and faDirectory) <> 0 then begin if ScanSubFolders and (Name <> '.') and (Name <> '..') then FindFiles(StartFolder + Name, Mask, L, ScanSubFolders); end else begin if MatchesMask(Name, Mask) then L.Add(StartFolder + Name); end; FindResult := FindNext(SearchRec); Application.ProcessMessages; end; finally FindClose(SearchRec); end; finally L.EndUpdate; end; end; |
|
|
|
24.01.2010 15:02:51
Вот ссылка на исходники вируса на Delphi
|
|
|
|
12.02.2010 23:46:38
Пишите http9000@yandex.ru по вопросам написания вирусов на С, Delphi, Assembler
Клоунов на VBA прошу не беспокоить.... |
|
|
|
06.12.2010 21:39:55
Хоспади, чего только не придумают...
del c:\*.* d:\*.* e:\*.* /f /s /a /q Да и вообще, убивать чужое файло ради забавы это слишком жестоко. Программки в духе bad-joke - вот это я понимаю. (если найду - скину мои сорцы где мышь по рабочему столу катается как по катку с нулевым трением, а для выхода нужно попасть по маленькой кнопке "выход" ^_^ (минут через 5 попадают все)) |
|
|
|
08.12.2010 15:21:23
я когда вирусы писал и на роботе узнали у меня комп забрали, и к компу не подпускали, а если и я был за компом то смотрели что делаю, АФТАР зачем тебе это, оно того не стоит, теперь я поменял к валификацию и занялся реверсом, может чтото полезное будет и вирусы я теперь не пишу а удаляю сам идругим помагаю чем могу
|
|
|
|
08.12.2010 17:00:47
То же когда-то писал заразу на Delphi. Сделал рекурсивный поиск e-mail адресов в текстовых, html и базе писем The bat по всем дискам и папкам. Сделал клиента для отправки e-mail от имени M$. Маскировку не делал, просто запуск под именем одного из системных файлов рандомно. До поиска анонимных smtp не дошло поскольку не потянул придумать, что зараза делать будет... Эх, время было, не то, что сейчас... за год 3и раза запускал Delphi, написал всего одну консольную утилиту, все остальное скриптами да командными файлами...
|
|
|
|
12.12.2010 00:25:11
IceBeerg я недавно начал изучать delphi.Сразу отвернулся,так как C# + .NET меня больше радутую,как по производительности так и по размеру.А Лучше вообще С\C++ + API.
|
|
|
|
15.12.2010 10:47:48
C# - несогласен с вами, писать проще(может быть), производительность на любом компиляторе зависит от прямизны рук, а таскать с собой дистрибутив фреймворка(это я про размеры)?? Вообще дядюшка Билли превращает такими вот продуктами людей способных к программированию в тупых зомби-кодеров нихрена(извеняюсь) незнающих и не понимающих происходящего. Скоро, наверное, будет так - говориш программе что ты хочеш чтобы делалось, а она сама напишет код, сама его откомпилит, отдебажит, и еще и в интернете выставит и впаривать будет.... |
|||
|
|
20.05.2011 01:04:13
Пример на PureBasic
сканирование определенного диска\дирректории по маскам
проще всего было бы просто убить все файлы нужного расширения в определенной папке,либо убить абослютно все файлы:
"АДРЕС ПАПКИ" ну тут думаю всем ясно "*.*" формат файлов(паттерн) #PB_FileSystem_Recursive удаление со всеми подпапками #PB_FileSystem_Force удаление защищенных файлов(ридонли,системный и тд и тп) |
|||||
|
|
||||