in reply to Re: C code translation to Perl
in thread C code translation to Perl

I printed every single variable already. First of all the crypt($pw,"Ho") statement returns different results. After I noticed that, I just set $pw to the value the c tool returns. Now $seed differs from the c code. It's wierd because the first 4-5 elements in the array are the same like in the c tool.

Hexadecimal elements from @seed in Perl: 
seed: 2298
seed: effe9
seed: 329fb28
seed: f9f4815b
seed: 7430a82151
seed: 277c8923528c
seed: 11957511bac25e
seed: 6a9a15bb7c3a5a5
seed: 53cb25459bf9ffe7
seed: 59b3b95dcd77f57d
seed: a56ffe811a5b3cae
seed: 4ffb834f11b60ab
seed: 52dea09c13b9ef89

[download]

Hexadecimal elements from seed in C:

c: seed: 2298
c: seed: effe9
c: seed: 329fb28
c: seed: f9f4815b
c: seed: 30a82151
c: seed: 8923528c
c: seed: 11bac25e
c: seed: b7c3a5a5
c: seed: 9bf9ffe7
c: seed: cd77f57d
c: seed: 1a5b3cae
c: seed: f11b60ab
c: seed: 13b9ef89

[download]

I have no clue why the values differs from the 5th element on. Thats why I'm asking here. Sorry for my incomprehensible question befor.

regards bottch

Replies are listed 'Best First'.
Re^3: C code translation to Perl
by BrowserUk (Patriarch) on Jan 31, 2012 at 09:40 UTC
    I have no clue why the values differs from the 5th element on.

    You are using a 64-bit perl, (or possibly a 32-bit Perl with 64-bit IVs enabled), which means that your attempts to reproduce the results from the C code which uses 32-bit integers isn't working.

    The type of bit-wise math in the C code relies heavily on the implicit mod 2**32 of intermediate results to work.

    For a way to 'fix' it, see Re: emulate 32-bit on perl 64.

    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

    The start of some sanity?
[reply]
      Thanks a lot BrowserUK! You just kinda hit the bullseye :) Now everything works fine. Thanks again. regards,bottch
[reply]

In Section Seekers of Perl Wisdom