Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: un obfuscate logfiles with xor

by Laurent_R (Vicar)
on Jun 25, 2013 at 21:16 UTC ( #1040659=note: print w/ replies, xml ) Need Help??


in reply to un obfuscate logfiles with xor

Hmm, I don't quite understand you problem. If you file is encoded with a xor 255 (or a xor anything, for that matter), and if I understood your problem correctly, you should just need to apply the same xor to retrieve the original value.

Or did I understand you wrongly?


Comment on Re: un obfuscate logfiles with xor
Re^2: un obfuscate logfiles with xor
by golgiapparatus (Novice) on Jun 25, 2013 at 21:34 UTC
    Here is an example Óіߑёќߏ Thank you

      Is that an example of raw input, or the output from the current iteration of your script? It would be helpful to know we have a clean fragment of raw logfile data

      use strict; use warnings; my $s = q<Óіߑёќߏ +>; print pack "C*", map { $_ ^ 255 } unpack "C*", $s;
      <134> 2013/05/13 04-08-59 <local0.info> nu9383.nuspire.com pf

      This only works if I run the code in an ASCII encoded file, there doesn't seem to be utf-8 involded here.

      unpack "C*", $s; returns a list consisting of the value of each byte in $s. pack with "C*" takes a list of bytes and turns it into a string. Read perlpacktut for more information on that.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1040659]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (11)
As of 2014-07-28 10:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (195 votes), past polls