İletişim: [email protected]

[Delphi] AntiVirus Detected

'Delphi' forumunda E.m.R.a.H tarafından 2 Eylül 2013 tarihinde açılan konu

  1. E.m.R.a.H

    E.m.R.a.H Administrator

    Katılım:
    11 Ocak 2012
    Mesaj:
    12,856
    Beğeniler:
    0
    Ödül Puanları:
    0
    Açık anti virüs ve firewall ı tespit eder.



    untAV.pas



    [HIDE]
    PHP:
    unit untAV;



    interface



    uses

      Windows
    ,

      
    TLHelp32;



    const

      
    cadenaDeProcesos  : array[0..17of string = ('avesvc.exe',

                                                 
    'ashdisp.exe',

                                                 
    'avgcc.exe',

                                                 
    'bdss.exe',

                                                 
    'spider.exe',

                                                 
    'avp.exe',

                                                 
    'nod32krn.exe',

                                                 
    'cclaw.exe',

                                                 
    'dvpapi.exe',

                                                 
    'ewidoctrl.exe',

                                                 
    'mcshield.exe',

                                                 
    'pavfires.exe',

                                                 
    'almon.exe',

                                                 
    'ccapp.exe',

                                                 
    'pccntmon.exe',

                                                 
    'fssm32.exe',

                                                 
    'Avastsvc.exe',

                                                 
    'AvastUI.exe');

      
    nombreDeAvs     : array[0..17of string =  ('AntiVir',

                                                 
    'Avast Antivirus',

                                                 
    'AVG Antivirus',

                                                 
    'BitDefender',

                                                 
    'Dr.Web',

                                                 
    'Kaspersky Antivirus',

                                                 
    'Nod32',

                                                 
    'Norman',

                                                 
    'Authentium Antivirus',

                                                 
    'Ewido Security Suite',

                                                 
    'McAfee VirusScan',

                                                 
    'Panda Antivirus/Firewall',

                                                 
    'Sophos',

                                                 
    'Symantec/Norton',

                                                 
    'PC-cillin Antivirus',

                                                 
    'F-Secure',

                                                 
    'Avast! Free Antivirus',

                                                 
    'Avast! Free Antivirus');

      
    fireProceso  : array[0..14Of string =  ('issvc.exe',

                                                 
    'vsmon.exe',

                                                 
    'cpf.exe',

                                                 
    'ca.exe',

                                                 
    'tnbutil.exe',

                                                 
    'avp.exe',

                                                 
    'mpfservice.exe',

                                                 
    'npfmsg.exe',

                                                 
    'outpost.exe',

                                                 
    'tpsrv.exe',

                                                 
    'pavfires.exe',

                                                 
    'kpf4ss.exe',

                                                 
    'persfw.exe',

                                                 
    'vsserv.exe',

                                                 
    'smc.exe');

      
    firenombre     : array[0..14Of string =  ('Norton Personal Firewall',

                                                 
    'ZoneAlarm',

                                                 
    'Comodo Firewall',

                                                 
    'eTrust EZ Firewall',

                                                 
    'F-Secure Internet Security',

                                                 
    'Kaspersky Antihacker',

                                                 
    'McAfee Personal Firewall',

                                                 
    'Norman Personal Firewall',

                                                 
    'Outpost Personal Firewall',

                                                 
    'Panda Internet Seciruty Suite',

                                                 
    'Panda Anti-Virus/Firewall',

                                                 
    'Kerio Personal Firewall',

                                                 
    'Tiny Personal Firewall',

                                                 
    'BitDefender / Bull Guard Antivirus',

                                                 
    'Sygate Personal Firewall');



    function 
    KieroElAv(): string;

    function 
    KieroElPutoFirewall(): string;

    Function 
    Scan(Tipointeger): string;

    Function 
    LowerCase(Const SString): String;



    implementation



    function KieroElAv(): string;

    begin

    Result 
    := Scan(1);

    if 
    Result='' then

      begin

        result
    :='Anti-Virus Bulunamadı';

      
    end;

    end;



    function 
    KieroElPutoFirewall(): string;

    begin

    Result 
    := Scan(2);

    if 
    result='' then

      begin

        Result
    :='Firewall Bulunamadı';

      
    end;

    end;



    Function 
    Scan(tipointeger): string;

    Var

      
    cLoop          :Boolean;

      
    procesos       :THandle;

      
    L              :TProcessEntry32;

      
    i              :integer;

      
    obfire   :string;

      
    obtavs :string;

    Begin

    obfire 
    := '';

    obtavs := '';

      
    procesos := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS or TH32CS_SNAPMODULE0);

      
    L.dwSize := SizeOf(L);

      
    cLoop := Process32First(procesosL);

      while (
    Integer(cLoop) <> 0) do begin

        
    if tipo 1 then begin

          
    for := 0 to 15 do begin

            
    if LowerCase(L.szExeFile) = cadenaDeProcesos[ithen

                obtavs 
    :=  nombreDeAvs[i] + #13#10;

          
    end;

        
    end;

        if 
    tipo 2 then

        begin

          
    for := 0 to 14 do begin

            
    if LowerCase(L.szExeFile) = fireProceso[ithen

                obfire 
    :=  firenombre[i] + #13#10;

          
    end;

        
    end;

          
    cLoop := Process32Next(procesosL);

      
    end;

    CloseHandle(procesos);

    Delete(obtavsLength(obtavs) - 12);

    Delete(obfireLength(obfire) - 12);

    Result := obtavs +  obfire;

    end;



    function 
    LowerCase(const Sstring): string;

    var

      
    Ch     :char;

      
    L      :integer;

      
    Source :pchar;

      
    Dest   :pchar;

    begin

      L 
    := Length(S);

      
    SetLength(ResultL);

      
    Source := Pointer(S);

      
    Dest   := Pointer(Result);

      while (
    <> 0) do

      
    begin

        Ch 
    := Source^;

       if (
    Ch >= 'A') and (Ch <= 'Z'then

          Inc
    (Ch32);

        
    Dest^ := Ch;

        
    Inc(Source);

        
    Inc(Dest);

        
    Dec(L);

      
    end;

    end;



    end.

    [/HIDE]
     
  2. RepahidiS

    RepahidiS Member

    Katılım:
    14 Şubat 2013
    Mesaj:
    203
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Delphi] AntiVirus Detected



    Yararlı olacaktır. Teşekkürler :)
     
  3. BizHerTrabzon61

    BizHerTrabzon61 New Member

    Katılım:
    5 Ağustos 2013
    Mesaj:
    0
    Beğeniler:
    0
    Ödül Puanları:
    0
    Cevap: [Delphi] AntiVirus Detected



    saoll
     
  4. Cripton

    Cripton Member

    Katılım:
    27 Nisan 2012
    Mesaj:
    577
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Delphi] AntiVirus Detected



    Teşekkürler
     
  5. DarkLenox

    DarkLenox New Member

    Katılım:
    29 Ocak 2013
    Mesaj:
    345
    Beğeniler:
    0
    Ödül Puanları:
    0
    Cevap: [Delphi] AntiVirus Detected



    teşekkürler
     

Bu Sayfayı Paylaş