ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
09.02.2009, 16:47
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме:
153361
Репутация:
10
|
|
Ну так что никто не знает как прогу скрыть?
|
|
|
09.02.2009, 18:49
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
То, что я привел код - это ты врядли сможешь написать програмку которая будет это юзать. А скрывать досовские проги - это просто бесполезное дело.
|
|
|
|
09.02.2009, 19:02
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме:
153361
Репутация:
10
|
|
понятно, ну тогда подскажите как сделать чтобы прога не убивалась в процессах , прога написанная на Делфи. Ну то есть её не было в процессах, и как добавить прогу в автозагрузку, ну чтоб после 1 запуска она добовлялась сама, заранее спасибо))
|
|
|
|
09.02.2009, 19:07
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
|
|
|
|
09.02.2009, 19:18
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме:
153361
Репутация:
10
|
|
Сообщение от FindeR
Djezul, вирусописание (если то, что ты собрался делать, можно так назвать) тут не приветствуется.
Спасибо, да не я вообще не собираюсь заниматься виросописанием , да и делфи я не знаю , это просто другу надо , он увлекается, а инета у него нет только сеть, вот я ему и помогаю  Мне больше подуше Web программирование
|
|
|
|
09.02.2009, 19:32
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
На счет чтобы в процессах не винда была - юзать 5005 статей по делфи. там есть некотоыре вишки связанные с этим.
Добавление в авторан - поищи на форуме тут. Был код и на асме и на дельфе.
|
|
|
|
10.02.2009, 12:02
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Команда на получение листинга дитектории:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Searchrec: Tsearchrec;
s:string;
begin
FindFirst('C:\*.*', FaAnyfile, SearchRec);
if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
memo2.Lines.Add(s+SearchRec.Name);
while FindNext(SearchRec) = 0 do
begin
if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
memo2.Lines.Add(s+SearchRec.Name);
end;
end;
Подскажите плиз, как сделать так, чтобы скрытые файлы и папки были помечены тегами [h][/h]
то есть:
file1.exe
[h]hidefile.exe[/h]
file2.exe |
|
|
|
10.02.2009, 17:37
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от Nightmarе
Команда на получение листинга дитектории:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Searchrec: Tsearchrec;
s:string;
begin
FindFirst('C:\*.*', FaAnyfile, SearchRec);
if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
memo2.Lines.Add(s+SearchRec.Name);
while FindNext(SearchRec) = 0 do
begin
if (SearchRec.Attr and faDirectory)<>0 then s:='C:\' else s:='C:\';
memo2.Lines.Add(s+SearchRec.Name);
end;
end;
Подскажите плиз, как сделать так, чтобы скрытые файлы и папки были помечены тегами [h][/h]
то есть:
file1.exe
[h]hidefile.exe[/h]
file2.exe if (SearchRec.Attr = faHidden) then
Memo1.Lines.Add('[h]' + SearchRec.Name + '[/h]');
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
10.02.2009, 17:05
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Djezul Вот пример реализации через Хуки и dll http://hacker.3dn.ru/publ/7-1-0-31
Сам использую
|
|
|
|
10.02.2009, 23:43
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 99
Провел на форуме:
613745
Репутация:
51
|
|
Помогите решить пожалуйста. Задача олимпиадная, но рабочего решения найти не могу(
Найти числа, меньшие N, которые представляется суммой четырех квадратов натуральных чисел не единственным образом.
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
