xor syntax

[IanW]

If I have a string $encrypted that has been "XORed with 0xAA" and I want to
decode that into $decrypted, how do I do this in Perl?

Thanks
Ian

 

[Anno Siegel]

If I have a string $encrypted that has been "XORed with 0xAA" and I want to
decode that into $decrypted, how do I do this in Perl?

Not much of an encryption... Like in any language, you xor it with
0xAA again to decrypt. Untested:

my $plain = $cipher ^ chr( 0xaa) x length $str;

Anno

 

[A. Sinan Unur]

If I have a string $encrypted that has been "XORed with 0xAA" and I
want to decode that into $decrypted, how do I do this in Perl?

The binary XOR operator in Perl is ^

D:\Home\asu1\UseNet\clpmisc> perl -e "print 0x7 ^ 0x4, qq{\n}"
3

See also perldoc perlop.

Sinan

 

[Dr.Ruud]

IanW schreef:

If I have a string $encrypted that has been "XORed with 0xAA" and I
want to decode that into $decrypted, how do I do this in Perl?

Encrypt it again.

 

[IanW]

Not much of an encryption... Like in any language, you xor it with
0xAA again to decrypt. Untested:

my $plain = $cipher ^ chr( 0xaa) x length $str;

thanks, that's spot-on.. well, except that $cipher and $str should be the
same.

Ian

 

[Anno Siegel]

thanks, that's spot-on.. well, except that $cipher and $str should be the
same.

Right.

my $plain = $cipher ^ chr( 0xaa) x length $cipher;

Anno