Simple word find



I have have log files (in directories named by date) that I need to look for passwords in. The passwords im looking for are listed in a file like this:

password1 acutal_password
password2 actual_password
and so on, up to about 50 of them...


I have written a simple shell script to do something like this, but thought it must be Much faster and elegant in perl.

What I did, was a recursive find of ctime of like 7 and put this to a file. Then I would grep -f the filelist with the password list to find if any of these files that have the passwords in them.
Then i would take that filelist and loop and search for the password(s).

The output if passwords were found would be like :

password1 directory/filename

Is there anything that someone can show me written in perl that would be much more simpler than this? I looked though log file analyzers, etc but most only look at one log file or are quite complicated.

Would apreciate it. Thanks,

-Rob
.



Relevant Pages

  • Re: Event Viewier - Security Log - Event #: 529
    ... I think Microsoft is being stupid to not have a way of just ... opening a log file and at least seeing the IP Address of the person ... IP Logging or a good program to log such events (that's free or very close ... > assumed passwords or just a dictionary attack). ...
    (microsoft.public.win2000.security)
  • Re: Carp & parameters passed to subs
    ... parameters passed into it so my DB passwords aren't recorded in ... call so it does not write the subparameters to the log file? ... (remove .invalid and reverse each component for email address) ... comp.lang.perl.misc guidelines on the WWW: ...
    (comp.lang.perl.misc)
  • Re: Strange Execution Times
    ... the passwords are mostly about 5-6 chars long. ... > the first loop uses starts+1 whereas the second loop uses ... > memory arena to become so fragmented that swapping will occur. ... atypical input data) replacing a 32-element slice by a 32-element slice. ...
    (comp.lang.python)
  • GnuPG Webpage on Fedora Core 3
    ... This page is going to be used for distributing encrypted passwords to ... The private key ... page that allows them to select a password to decrypt (the passwords ... I would like to use Perl if it will work. ...
    (Fedora)
  • Re: Strange Execution Times
    ... It means that the 1st loop has less work to do. ... So this could make an observable difference for very short passwords -- but still nothing like 0.14 compared with 56. ... Note that each loop is making its target list expand in situ; this may after a while cause the memory arena to become so fragmented that swapping will occur. ... the array variety takes up 1 byte per character. ...
    (comp.lang.python)