Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Decrypt and encrypt CVS password in .cvspass

by merlyn (Sage)
on May 17, 2005 at 13:16 UTC ( [id://457788]=note: print w/replies, xml ) Need Help??


in reply to Decrypt and encrypt CVS password in .cvspass

This is definitely Perl spoken with a C accent. One quick perl-ish upgrade:
my $s = "A$str"; for (my $i = 1; $i < length($s) ; $i++) { substr($s, $i, 1, chr($shifts[ord(substr($s, $i, 1))])); }
can be better written as:
my $s = "A" . pack "C*", map $shifts[$_], unpack "C*", $str;

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Replies are listed 'Best First'.
Re^2: Decrypt and encrypt CVS password in .cvspass
by bsdz (Friar) on May 18, 2005 at 07:20 UTC
    That's better, never thought of it at the time, thanks :-)

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2024-03-28 10:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found