Okay, I've figured out what was going on there. Sheesh, that was confusing.
First off, the easy (one line!) fix:
$plaintext = substr($input . ("\x00" x $ciphertextsize), 0, $ciphertex
+tsize);
The private data communication protocol is designed to send one 64-bit number, not a variable-length string.
That being said, the code above and the web page it links to both have a subtle error in the protocol. Well, "error" is maybe too strong a word - a subtle quirk, maybe? Both the prefilled values on the webpage and the constants in the code look like byte strings encoded in hex.
That is, it's natural to think that $encryptionkey = 'c488fdd0d81f'; defines a six byte encryption key.
It doesn't. It defines a twelve byte encryption key, where all the bytes used happen to be in the range 48-57 or 96-101.
If you're trying to develop perl code to create test AdX RTB responses (that is the point of this, right?), you'll need to do a few things differently:
- You'll need to interpret both keys as hex strings; this is pretty easy - $encryptionkey = pack("H*", 'c488fdd0d81f'); does what you want.
- You'll need to send the winning price not as a string "1.50" but as a number of micros (millionths of a dollar) packed into a 64-bit number. Try this:
print "Enter price to encrypt:";
chomp (my $input = <>);
my $micros = int($input * 1_000_000);
$plaintext = pack("N", $micros >> 32) . pack("N", $micros);
- Depending on your decoding library, this might not be necessary, but you should still consider it anyway: the first eight bytes of your initialization vector should hold the time. Also, the random values should be drawn from the whole byte range, not just 48-57. (which is what bytes '0' through '9' give) Try this:
use Time::HiRes;
$initvector = join("", map {pack("N", $_)} Time::HiRes::gettimeofday()
+,
rand(2**32), rand(2**32));
Hope this helps. I do wish they'd add perl and python implementations to the sample site; it could have saved you some unneeded frustration.
--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.