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