Re: 7bit ascii equal parity posing problems

Not having seen your code, I have no idea why anything is doing anything :) But I can provide you with this little snippet:

$str &= ("\177" x length $str);
[download]

That will remove the 8th bit from every character in $str.

--Stevie-O

$"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc
[download]

Comment on Re: 7bit ascii equal parity posing problems Select or Download Code

Replies are listed 'Best First'.
Re: Re: 7bit ascii equal parity posing problems by bear0053 (Hermit) on Mar 03, 2004 at 14:51 UTC
i am using a Win32::OLE object that works like this: `my $obj = lockpan(); //interacts with a vb6 dll my $enc_data = obj->encryptval($data); //returns binary val $enc_data = '0x' . unpack('H*', $enc_data); //bin -> hex #$enc_data is then written to a sql db` [download] when the code is stored it is stored a 7 bit ascii even parity. so some how perl takes 7 bit ascii and turns it into 7 bit ascii even parity. why and how can i stop this?	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: 7bit ascii equal parity posing problems
by bear0053 (Hermit) on Mar 03, 2004 at 14:51 UTC

my $obj =  lockpan(); //interacts with a vb6 dll
my $enc_data = obj->encryptval($data); //returns binary val
$enc_data = '0x' . unpack('H*', $enc_data); //bin -> hex
#$enc_data is then written to a sql db
[download]

[reply]
[d/l]