Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: how to use this script

by tobias_hofer (Friar)
on Apr 10, 2013 at 08:33 UTC ( #1027933=note: print w/ replies, xml ) Need Help??


in reply to how to use this script

Hi,

I was giving a try on the script by passing it any folder string, i.e: c:\I\wonder\what\its\used\for\
In the end it seems to split the drive name 'C:' from the path '\I\wonder\what\its\used\for\' and takes this for doing grabing some of the hex values in @xlat and convert hex->Ascii and creates a string, which will be printed.

i.e. 'dsfd;kfo'
Possible usage is to encrypt pathnames or to encrypt anything else you can provide on the command line to the script.

However, the line hex(substr($e,$i,2))^$xlat[$s++] is taking a substring and does a binary XOR with the hex value - selected by $s which will be postincremeted. So to me it looks like simple encrypting text..

But I am just guessing!

Cheers!
Tobias


Comment on Re: how to use this script
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (9)
As of 2014-11-26 13:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (171 votes), past polls