Help for this page

Select Code to Download


  1. or download this
    perl -E '$s = q[AAD34017837201D98AAED18778DEF993]; 
say length($s), " ", $s;
...
say "", join("-",@m);'
# 32 AAD34017837201D98AAED18778DEF993
# AAD3-4017-8372-01D9-8AAED18778DEF993
  2. or download this
    perl -E '$s = q[AAD34017837201D98AAED18778DEF993]; 
say length($s), " ", $s;
...
say "", join("-",@m);'
# 32 AAD34017837201D98AAED18778DEF993
# 01D9-8AAED18778DEF993