Foro - Perl en Español

por **BigBear** » 2009-10-27 17:36 @775

Hola.

Estoy haciendo un programa para verificar procesos de virus. Lo que ya tengo es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Win32::Process::List;
 
@procesos = ( "absr.exe" , "aconti.exe" , "adaware.exe" , "adobes.exe" , "adp.exe" , "Advapi.exe" , 
"backweb.exe" , "bargains.exe" , "bndt32.exe" , "boot.exe" , "bpc.exe" , "brasil.exe" , "cekirge.scr", 
"cmd32.exe", "cme.exe", "cmesys.exe", "cnbabe.exe", "comcfg.exe" , "command.exe", 
 
"cpumgr.exe", "ct_load.exe", "ctbclick.exe", "cuo.exe", "ddhelp32.exe", "desire.exe", "directx.exe", 
"dlder.exe", "dlgli.exe", "dllmem32.exe", "dllreg.exe", "dssagent.exe", "dw.exe" , "dxupdate.exe" , 
"enbiei.exe", "expl32.exe", "explore.exe", "fhfmm.exe", "flydesk.exe", "gain_trickler_exe" , 
 
"gator.exe", "gmt.exe", "hcwprn.exe", "helpctl.exe", "https.exe", "hxdl.exe", "hxiul.exe" , "icon.exe", 
 
"ide.exe", "iedll.exe", "lexplore.exe", "iexplore32.exe", "iexplorer.exe", "internet.exe", "ipmon.exe", 
"isass.exe", "kern32.exe", "kkcomp.exe", "kvnab.exe", "liqad.exe", "liqui.exe", "load32.exe", 
 
"isem.exe", "lycos.exe", "messenger.exe", "mp3search.exe", "mptask.exe", "msbb.exe", 
 
"msblast.exe", "mscom32.exe", "msiexec16.exe", "mslaugh.exe", "mslogon.exe", "msnet.exe", 
 
"mstask32.exe", "mstray.exe", "nabv32.exe", "netd32.exe", "newsupd.exe", "njgal.exe", 
 
"npnsdad.exe", "npnzdad.exe", "nstask32.exe", "owmngr.exe", "rb32.exe", "rcsync.exe", 
 
"realevent.exe", "realsched.exe", "real-tens.exe", "regcmp32.exe", "registry.exe", "regloadr.exe", 
 
"regscanr.exe", "regsrv.exe", "run_cd.exe", "runapp32.ex", "rundli32.exe", "rundll16.exe", 
 
"savenow.exe", "svchosl.exe", "svchosts.exe", "svch0st.exe", "synchost.exe", "sysconf.exe", 
 
"sysldr32.exe", "sysreg.exe", "system.exe", "systray32.exe", "tasktray.exe", "teekids.exe", 
 
"ttps.exe", "virus_cleaner.exe", "wanobsi.exe", "win32_i.exe", "win32API.exe", "win32us.exe", 
 
"wincfg32.exe", "wincomp.exe", "windex.exe", "windfind.exe", "windll.exe", "windll32.exe", 
 
"windows.exe", "winhelp.exe", "winkrnl386.exe", "winmgm32.exe", "wininit.exe", "winlogin.exe", 
 
"winnet.exe", "winserv.exe", "winservices.exe", "winservn.exe", "winsys32.exe", "winsystem.exe", 
 
"wintask.exe", "winupdate.exe", "winz32.exe", "wnad.exe", "wupdated.exe", "wupdt.exe", 
 
"xadbrk.exe");
 
 
my $P = Win32::Process::List->new();  
my  @sac= $P->GetProcesses();
 
foreach $pro(@procesos) {
    foreach $s(@sac) {
        if  ($s eq $pro) {
            print "\nSe encontró $pro\n";
        }
    }
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Pero no me detecta nada porque me debería decir "Se encontró services.exe" porque yo tengo ese proceso. Lo que pasa es que mezclé mucho el código.

¿Alguien me podría ayudar a corregir mi código para que éste logre verificar los procesos?

#!Perl
use strict;
use warnings;
use diagnostics;
 
use Win32::Process::List;
 
my @procesos = qw(
    absr.exe            aconti.exe      adaware.exe     adobes.exe          adp.exe
    Advapi.exe
 
    backweb.exe         bargains.exe    bndt32.exe      boot.exe            bpc.exe
    brasil.exe
 
    cekirge.scr         cmd32.exe       cme.exe         cmesys.exe          cnbabe.exe
    command.exe         cpumgr.exe      ct_load.exe     ctbclick.exe        cuo.exe
    comcfg.exe
 
    ddhelp32.exe        desire.exe      directx.exe     dlder.exe           dlgli.exe
    dllmem32.exe        dllreg.exe      dssagent.exe    dw.exe              dxupdate.exe
 
    enbiei.exe          expl32.exe      explore.exe
 
    fhfmm.exe           flydesk.exe
 
    gain_trickler_exe   gator.exe       gmt.exe
 
    hcwprn.exe          helpctl.exe     https.exe       hxdl.exe            hxiul.exe
 
    icon.exe            ide.exe         iedll.exe       iexplore32.exe      iexplorer.exe
    internet.exe        ipmon.exe       isass.exe       isem.exe 
 
    kern32.exe          kkcomp.exe      kvnab.exe
 
    liqad.exe           liqui.exe       load32.exe      lexplore.exe        lycos.exe
 
    messenger.exe       mp3search.exe   mptask.exe      msbb.exe            msblast.exe
    mscom32.exe         msiexec16.exe   mslaugh.exe     mslogon.exe         msnet.exe
    mstask32.exe        mstray.exe
 
    nabv32.exe          netd32.exe      newsupd.exe     njgal.exe           npnsdad.exe
    npnzdad.exe         nstask32.exe
 
    owmngr.exe
 
    rb32.exe            rcsync.exe      realevent.exe   realsched.exe       real-tens.exe
    regcmp32.exe        registry.exe    regloadr.exe    regscanr.exe        regsrv.exe
    run_cd.exe          runapp32.ex     rundli32.exe    rundll16.exe
 
    savenow.exe         svchosl.exe     svchosts.exe    svch0st.exe         synchost.exe
    sysconf.exe         sysldr32.exe    sysreg.exe      system.exe          systray32.exe
 
    tasktray.exe        teekids.exe     ttps.exe
 
    virus_cleaner.exe
 
    wanobsi.exe         win32_i.exe     win32API.exe    win32us.exe         wincfg32.exe
    wincomp.exe         windex.exe      windfind.exe    windll.exe          windll32.exe
    windows.exe         winhelp.exe     winkrnl386.exe  winmgm32.exe        wininit.exe
    winlogin.exe        winnet.exe      winserv.exe     winservices.exe     winservn.exe
    winsys32.exe        winsystem.exe   wintask.exe     winupdate.exe       winz32.exe
    wnad.exe            wupdated.exe    wupdt.exe
 
    xadbrk.exe
);
 
 
my $Process = Win32::Process::List->new();
my %lista   = $Process->GetProcesses();
 
## Lista de los procesos activos
for my $proceso (@procesos) {
    for my $pid (keys %lista) {
        if ($lista{$pid} eq $proceso) {
            print "$proceso encontrado con PID $pid\n";
        }
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2009-10-28 20:49 @909

Ah , gracias me funciona , pero otra duda: cuando quiero cambiar el arreglo @procesos que hiciste dejando espacios, me deja de funcionar.

Lo que tengo es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@procesos = ( "absr.exe" , "aconti.exe" , "adaware.exe" , "adobes.exe" , "adp.exe" , "Advapi.exe" , 
"backweb.exe" , "bargains.exe" , "bndt32.exe" , "boot.exe" , "bpc.exe" , "brasil.exe" , "cekirge.scr", 
"cmd32.exe", "cme.exe", "cmesys.exe", "cnbabe.exe", "comcfg.exe" , "command.exe", "cpumgr.exe", "ct_load.exe", "ctbclick.exe", "cuo.exe", "ddhelp32.exe", "desire.exe", "directx.exe", 
"dlder.exe", "dlgli.exe", "dllmem32.exe", "dllreg.exe", "dssagent.exe", "dw.exe" , "dxupdate.exe" , 
"enbiei.exe", "expl32.exe", "explore.exe", "fhfmm.exe", "flydesk.exe", "gain_trickler_exe" , "gator.exe", "gmt.exe", "hcwprn.exe", "helpctl.exe", "https.exe", "hxdl.exe", "hxiul.exe" , "icon.exe", "ide.exe", "iedll.exe", "lexplore.exe", "iexplore32.exe", "iexplorer.exe", "internet.exe", "ipmon.exe", 
"isass.exe", "kern32.exe", "kkcomp.exe", "kvnab.exe", "liqad.exe", "liqui.exe", "load32.exe", "isem.exe", "lycos.exe", "messenger.exe", "mp3search.exe", "mptask.exe", "msbb.exe", "msblast.exe", "mscom32.exe", "msiexec16.exe", "mslaugh.exe", "mslogon.exe", "msnet.exe", "mstask32.exe", "mstray.exe", "nabv32.exe", "netd32.exe", "newsupd.exe", "njgal.exe", "npnsdad.exe", "npnzdad.exe", "nstask32.exe", "owmngr.exe", "rb32.exe", "rcsync.exe", "realevent.exe", "realsched.exe", "real-tens.exe", "regcmp32.exe", "registry.exe", "regloadr.exe", "regscanr.exe", "regsrv.exe", "run_cd.exe", "runapp32.ex", "rundli32.exe", "rundll16.exe", "savenow.exe", "svchosl.exe", "svchosts.exe", "svch0st.exe", "synchost.exe", "sysconf.exe", "sysldr32.exe", "sysreg.exe", "system.exe", "systray32.exe", "tasktray.exe", "teekids.exe", "ttps.exe", "virus_cleaner.exe", "wanobsi.exe", "win32_i.exe", "win32API.exe", "win32us.exe", "wincfg32.exe", "wincomp.exe", "windex.exe", "windfind.exe", "windll.exe", "windll32.exe", "windows.exe", "winhelp.exe", "winkrnl386.exe", "winmgm32.exe", "wininit.exe", "winlogin.exe", "winnet.exe", "winserv.exe", "winservices.exe", "winservn.exe", "winsys32.exe", "winsystem.exe", "wintask.exe", "winupdate.exe", "winz32.exe", "wnad.exe", "wupdated.exe", "wupdt.exe", "xadbrk.exe");
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Pero no sé separar los espacios en mi código como vos lo hiciste. ¿Cómo lo hiciste y por qué así?

por **explorer** » 2009-10-29 09:14 @426

Mira bien la línea 8 de mi código. Uso qw() que sirve para crear listas de elementos, que sean "palabras" (están separadas por espacios en blanco).

Es una buena forma de ahorrar pulsaciones en el teclado...

Foro - Perl en Español

Ayuda con mi verificador de procesos

Ayuda con mi verificador de procesos

Publicidad

Re: Ayuda con mi verificador de procesos

Re: Ayuda con mi verificador de procesos

Re: Ayuda con mi verificador de procesos

¿Quién está conectado?