Re: Blog post on hardening Perl's hash function

[Jenda]

Here's a Windows version of the test (the quotes need to be changed from the Unix version):

perl -le "@h{qw(a h k r ad ao as ax ay bs ck cm cz ej fz hm ia ih is i
+z jk kx lg lv lw nj oj pr ql rk sk td tz vy yc yw zj zu aad acp acq a
+dm ajy alu apb apx asa asm atf axi ayl bbq bcs bdp bhs bml)} =(); pri
+nt %h=~/128/ && 'not ',qq{ ok # perl $]}"