Help for this page

Select Code to Download


  1. or download this
    #! perl
use strict;
...
0A1B0A1BCBED062405E56F853AAE238C4428FBABCBED0624
0A1B2C3D0A1B2C3DCBED062405E56F853AAE238C4428FBAB
01230A0AFBABCBED062405E56F853AAE238C4428FBABCBED
  2. or download this
    13:12 >perl 914_SoPW.pl
Found  0 repeating characters
...
Found  0 repeating characters

13:12 >
  3. or download this
    while (my $string = <DATA>)
{
...
            if $string =~ /^([0-9a-fA-F]{$chars})\1/;
    }
}