Re^4: Perl script to decode SQL ENCODE function

There is problem: SELECT ENCODE('test','test') returns ?Этз but SELECT DECODE('?Этз','test') doesn't return test but ttZіТ what is wrong ?

Comment on Re^4: Perl script to decode SQL ENCODE function

Replies are listed 'Best First'.
Re^5: Perl script to decode SQL ENCODE function by Loops (Curate) on Jul 22, 2013 at 20:36 UTC
Really can't say. Maybe a character encoding problem if you're copy-and-pasting. The following code works here: `use strict; use warnings; use DBI; my $db = DBI->connect('DBI:mysql:host=localhost'); my ($encoded) = $db->selectrow_array("SELECT ENCODE('ToBeHidden', 'sec +retvalue')"); my ($decoded) = $db->selectrow_array("SELECT DECODE('$encoded', 'secre +tvalue')"); print $decoded; # prints --> ToBeHidden` [download]	[reply] [d/l]
Re^6: Perl script to decode SQL ENCODE function by Martin90 (Sexton) on Jul 22, 2013 at 21:45 UTC
Yes, my mistake I copied binary string, shame ;) Thanks for help.	[reply]