b319174e |
1 | #!/usr/bin/perl |
2 | # Ⅽоηνеrt аѕⅽіі tօ υtf‐8. |
3 | use utf8; |
c0322e3d |
4 | binmode STDIN, ":utf8"; |
b319174e |
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 | |
dd827ce1 |
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], |
b319174e |
77 | ); |
78 | |
79 | while (<>) { |
80 | foreach $ם (split //) { |
81 | if (exists $Δ{$ם} && @{$Δ{$ם}}) { |
82 | @ה=@{$Δ{$ם}}; |
83 | print chr($ה[rand @ה]); |
84 | } |
85 | else { |
86 | print $ם |
87 | } |
88 | } |
89 | } |