troubleshooting Question

Help making a decryp routine

Avatar of wqclatre
wqclatre asked on
6 Comments1 Solution197 ViewsLast Modified:
If I have a encrypt routine that looks like this:

sub _Password_Encrypt {
        my ($Password) = @_;
        my ($FinishedString);

        my @Pass = split (//, $Password);

        foreach (@Pass){
                $_ = ord($_);

        my @encoding_table = (
                0xf3, 0x26, 0x81, 0xc4,
                0x39, 0x86, 0xdb, 0x92,
                0x71, 0xa3, 0xb9, 0xe6,
                0x53, 0x7a, 0x95, 0x7c);

        for (my $i = 0; $i < length($Password); $i++){
                $FinishedString .= chr($Pass[$i] ^ $encoding_table[$i]);

        return ($FinishedString);

How can I make a decrypt routine that decrypt it?

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 6 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 6 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros