Как напсиать и возможно ли такая программа

MussoN · #1 18.11.2010, 21:42

Хотелось бы узнать ка кнписать и возможна ли программа со след. алгоритмом :
Проверка на запрешенные процессы (например cheat.exe) если есть такие то закрыть их, если нет, то послать сигнал с ип адреса B на ип адрес X и сообщение что все нормально, и только после этого для ип адреса В открылся бы порт на ип адресе X например(X:7777) а так порт бы был закрыт для ип адреса не прошедшего проверку!

lmikle · #2 18.11.2010, 21:51

Все возможно в этом мире.
Проверка процессов и их закрытие делается через WinAPI (см функции EnumProcess, KillProcess).
Отправка некоторого сообщения (и его присем) - через Indy, например.
А вот с открытием/закрытием потртов - надо разбираться с тем файерволом, который установлен.

MussoN · #3 18.11.2010, 21:54

Цитата:

Сообщение от lmikle

Все возможно в этом мире.
Проверка процессов и их закрытие делается через WinAPI (см функции EnumProcess, KillProcess).
Отправка некоторого сообщения (и его присем) - через Indy, например.
А вот с открытием/закрытием потртов - надо разбираться с тем файерволом, который установлен.

Вот все что ты написал это смотреть в делфи или это др программы?) Indy там WinAPI , просто раздел называется "начинающим" а я на делфи писал только ошибку win32 там надо было)
И если в делфи то скажи плз где именно это искать

Человек_Борща · #4 18.11.2010, 22:52

Чтобы такое сделать надо как миниму почитать пару книг о WinAPI и об Indy копонентах

lmikle · #5 19.11.2010, 05:04

Цитата:

Сообщение от MussoN

Вот все что ты написал это смотреть в делфи или это др программы?) Indy там WinAPI , просто раздел называется "начинающим" а я на делфи писал только ошибку win32 там надо было)
И если в делфи то скажи плз где именно это искать

WinAPI - это собственно набор системных функций. Большинство из них уже портированны в Дельфи, тебе надо только их правильно вызвать.

Indy - это библиотека, поставляется с Дельфи версии с 6ой. Можно дополнительно скачать и поставить.

MussoN · #6 19.11.2010, 11:04

Почему выдает ошибку? Подскажите плз

Код:

begin
KillTask('opera.exe');
KillTask ('hl.exe');
 
uses
  Tlhelp32, Windows, SysUtils;
 
function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result := 0;
 
  FSnapshotHandle := CreateToolhelp32Snapshot
  (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
  FProcessEntry32);
 
  while integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
    UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
    UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(OpenProcess(
      PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
 
  CloseHandle(FSnapshotHandle);
end;

Admin: Не забываем про теги!

PaHaNjkee · #7 19.11.2010, 14:43

Кидаешь на форму Edit1 и пишешь

Код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, tlhelp32, StdCtrls, Edit, Button;
 
type
  TForm1 = class(TForm)
    Button1: TsButton;
    Edit1: TsEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function killtask(exefilename: string): integer; 
const
process_terminate=$0001; 
var
continueloop: bool; 
fsnapshothandle: thandle; 
fprocessentry32: tprocessentry32; 
begin
result := 0; 
 
fsnapshothandle := createtoolhelp32snapshot 
(th32cs_snapprocess, 0); 
fprocessentry32.dwsize := sizeof(fprocessentry32); 
continueloop := process32first(fsnapshothandle, 
fprocessentry32); 
 
while integer(continueloop) <> 0 do
begin
if ((uppercase(extractfilename(fprocessentry32.szexefile)) = 
uppercase(exefilename)) 
or (uppercase(fprocessentry32.szexefile) = 
uppercase(exefilename))) then
result := integer(terminateprocess(openprocess( 
process_terminate, bool(0), 
fprocessentry32.th32processid), 0)); 
continueloop := process32next(fsnapshothandle,
fprocessentry32); 
end; 
closehandle(fsnapshothandle);
end;
 
procedure TForm1Button1Click(Sender: TObject);
begin
killtask(Edit1.text);
end;
 
end.

т.е вводишь имя процесса в Edit1 и нажимаешь на баттон а послать на ip пользуйся Indy-компонентами

MussoN · #8 19.11.2010, 18:32

Цитата:

Сообщение от PaHaNjkee

Кидаешь на форму Edit1 и пишешь

Код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, tlhelp32, StdCtrls, Edit, Button;
 
type
  TForm1 = class(TForm)
    Button1: TsButton;
    Edit1: TsEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function killtask(exefilename: string): integer; 
const
process_terminate=$0001; 
var
continueloop: bool; 
fsnapshothandle: thandle; 
fprocessentry32: tprocessentry32; 
begin
result := 0; 
 
fsnapshothandle := createtoolhelp32snapshot 
(th32cs_snapprocess, 0); 
fprocessentry32.dwsize := sizeof(fprocessentry32); 
continueloop := process32first(fsnapshothandle, 
fprocessentry32); 
 
while integer(continueloop) <> 0 do
begin
if ((uppercase(extractfilename(fprocessentry32.szexefile)) = 
uppercase(exefilename)) 
or (uppercase(fprocessentry32.szexefile) = 
uppercase(exefilename))) then
result := integer(terminateprocess(openprocess( 
process_terminate, bool(0), 
fprocessentry32.th32processid), 0)); 
continueloop := process32next(fsnapshothandle,
fprocessentry32); 
end; 
closehandle(fsnapshothandle);
end;
 
procedure TForm1Button1Click(Sender: TObject);
begin
killtask(Edit1.text);
end;
 
end.

т.е вводишь имя процесса в Edit1 и нажимаешь на баттон а послать на ip пользуйся Indy-компонентами

а куда кидать edit1?) и можно какнибудь чтобы не нажимать на кнопку а при запуске ехе файла

PaHaNjkee · #9 19.11.2010, 18:43

Тогда на Form1 в Object Inspector переходи на вкладку Events и двойным щелчком нажимай на OnCreate и там пиши killtask(имя процесса); А если эдит кинуть и это прописать в ОнКриэйт то уже не получиться!

MussoN · #10 19.11.2010, 19:17

выдает такую ошибку!
declaration of class tform1 is missing or incorrect

PaHaNjkee · #11 19.11.2010, 19:50

если ты мой код копировал то не надо!
Вот эту функция пропиши после слова implementation

Код:

function killtask(exefilename: string): integer; 
const
process_terminate=$0001; 
var
continueloop: bool; 
fsnapshothandle: thandle; 
fprocessentry32: tprocessentry32; 
begin
result := 0; 
 
fsnapshothandle := createtoolhelp32snapshot 
(th32cs_snapprocess, 0); 
fprocessentry32.dwsize := sizeof(fprocessentry32); 
continueloop := process32first(fsnapshothandle, 
fprocessentry32); 
 
while integer(continueloop) <> 0 do
begin
if ((uppercase(extractfilename(fprocessentry32.szexefile)) = 
uppercase(exefilename)) 
or (uppercase(fprocessentry32.szexefile) = 
uppercase(exefilename))) then
result := integer(terminateprocess(openprocess( 
process_terminate, bool(0), 
fprocessentry32.th32processid), 0)); 
continueloop := process32next(fsnapshothandle,
fprocessentry32); 
end; 
closehandle(fsnapshothandle);
end;

и дальше сделай как я тебе написал

MussoN · #12 19.11.2010, 20:08

Код HTML:

fprocessentry32: tprocessentry32;

тут ошибка

PaHaNjkee · #13 19.11.2010, 20:23

Скинь мне исходник, подправлю пришлю.

MussoN · #14 19.11.2010, 20:39

[quote=PaHaNjkee]если ты мой код копировал то не надо!
Вот эту функция пропиши после слова implementation

Код:

function killtask(exefilename: string): integer; 
const
process_terminate=$0001; 
var
continueloop: bool; 
fsnapshothandle: thandle; 
fprocessentry32: tprocessentry32; 
begin
result := 0; 
 
fsnapshothandle := createtoolhelp32snapshot 
(th32cs_snapprocess, 0); 
fprocessentry32.dwsize := sizeof(fprocessentry32); 
continueloop := process32first(fsnapshothandle, 
fprocessentry32); 
 
while integer(continueloop) <> 0 do
begin
if ((uppercase(extractfilename(fprocessentry32.szexefile)) = 
uppercase(exefilename)) 
or (uppercase(fprocessentry32.szexefile) = 
uppercase(exefilename))) then
result := integer(terminateprocess(openprocess( 
process_terminate, bool(0), 
fprocessentry32.th32processid), 0)); 
continueloop := process32next(fsnapshothandle,
fprocessentry32); 
end; 
closehandle(fsnapshothandle);
end;

) твой и есть

PhoeniX · #15 20.11.2010, 01:53

Очередная недозащита для L2? Обходиться будет сниффером и прямыми руками.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты