Also, unless there's a description of this "XORmask" function that explains how it arrives at the output you say it yields, I'm at a loss how to come up with similar results.
I tried this little test script, which decodes your base64 input string to the series of bytes you suggest - but just to be clear, I'm displaying each byte as a 2-digit hex number; I'm also breaking up the character sequence that you say you expect to get as a result, and I display this as a sequence of hex numbers as well. The two sequences are displayed next to each other below, values from decode_base64 on the left, and your expected output on the right:
So, apart from not seeing any coherent pattern here, I'm wondering what sort of function this is supposed to be. It's clearly not any kind of bit-wise logic operation, because a given input value can 'yield' different outputs (lines "7:" and "15:" above), and different inputs can yield the same output (lines "3:", "14." and "15.").perl -MMIME::Base64 -e '$_="Z0xcAVtKAwkDHVcKVF5TCQ"; @i=split //,decode_base64($_); @t=split //,"T|808|586|127800"; printf("%3d: %02x %02x\n",$_,ord($i[$_]),ord($t[$_])) for (0..$#i)' 0: 67 54 1: 4c 7c 2: 5c 38 3: 01 30 4: 5b 38 5: 4a 7c 6: 03 35 7: 09 38 8: 03 36 9: 1d 7c 10: 57 31 11: 0a 32 12: 54 37 13: 5e 38 14: 53 30 15: 09 30
You need to give us a better description of the functionality you are looking for.
In reply to Re: Perl function equivalent to PHP xormask
by graff
in thread Perl function equivalent to PHP xormask
by wubbaducki
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |