uniencode

   1 #!/usr/bin/perl
   2 # Ⅽоηνеrt аѕⅽіі tօ υtf‐8.
   3 use utf8;
   4 binmode STDOUT, ":utf8";
   5
   6 %Δ=(
   7 "~" => [],
   8 "!" => [],
   9 "@" => [],
  10 "#" => [],
  11 '$' => [],
  12 "%" => [8240],
  13 "^" => [],
  14 "&" => [],
  15 "*" => [10033],
  16 "(" => [],
  17 ")" => [],
  18 "_" => [9418],
  19 "-" => [8208],
  20 "+" => [],
  21 "=" => [],
  22 "[" => [],
  23 "]" => [],
  24 "{" => [],
  25 "}" => [],
  26 '\\' => [],
  27 "|" => [9475],
  28 '"' => [8223],
  29 "'" => [8217],
  30 ":" => [],
  31 ";" => [],
  32 "<" => [8249],
  33 ">" => [8250],
  34 "," => [],
  35 "." => [],
  36 "/" => [8260],
  37 "?" => [],
  38
  39 "1" => [],
  40 "2" => [],
  41 "3" => [1047],
  42 "4" => [],
  43 "5" => [],
  44 "6" => [],
  45 "7" => [],
  46 "8" => [],
  47 "9" => [],
  48 "0" => [1365],
  49
  50 "a" => [1072],                          "A" => [1040],
  51 "b" => [1068],                          "B" => [1042],
  52 "c" => [1089, 8573, 1010],              "C" => [663, 1057, 8557],
  53 "d" => [1281, 8574],                    "D" => [8558],
  54 "e" => [1077],                          "E" => [917, 1045],
  55 "f" => [],                              "F" => [988],
  56 "g" => [],                              "G" => [1292],
  57 "h" => [1210],                          "H" => [919, 1053],
  58 "i" => [1110, 8560],                    "I" => [921, 1030],
  59 "j" => [1011, 1112],                    "J" => [1032],
  60 "k" => [],                              "K" => [922, 1050],
  61 "l" => [8572],                          "L" => [8556],
  62 "m" => [8575],                          "M" => [924, 1052, 8559],
  63 "n" => [951, 627],                      "N" => [925],
  64 "o" => [1086, 1413],                    "O" => [927, 1054],
  65 "p" => [961, 1088],                     "P" => [929, 1056],
  66 "q" => [],                              "Q" => [],
  67 "r" => [],                              "R" => [],
  68 "s" => [1109],                          "S" => [1359],
  69 "t" => [],                              "T" => [932, 1058],
  70 "u" => [965],                           "U" => [],
  71 "v" => [957, 8910, 8964, 9013],         "V" => [947, 8548],
  72 "w" => [],                              "W" => [],
  73 "x" => [1093, 8569, 215],               "X" => [935, 1061, 8553],
  74 "y" => [1059, 1091],                    "Y" => [933],
  75 "z" => [],                              "Z" => [918],
  76 );
  77
  78 while (<>) {
  79         foreach $ם (split //) {
  80                 if (exists $Δ{$ם} && @{$Δ{$ם}}) {
  81                         @ה=@{$Δ{$ם}};
  82                         print chr($ה[rand @ה]);
  83                 }
  84                 else {
  85                         print $ם
  86                 }
  87         }
  88 }